local function charm ()
				inventory:useItem(231885); --EP Begleiter
				inventory:useItem(231886); --TP Begleiter
				inventory:useItem(222925); --EP einfach
				inventory:useItem(222927); --EP hochwirksam
				inventory:useItem(225216); --EP ultimativ
				inventory:useItem(231916); --EP golden
				inventory:useItem(231887); --EP mächtig einfach
				inventory:useItem(231888); --EP mächtig hochwirksam
				inventory:useItem(231889); --EP mächtig ultimativ
				inventory:useItem(231917); --EP mächtig golden	
				inventory:useItem(231890); --EP verbessert einfach
				inventory:useItem(231891); --EP verbessert hochwirksam
				inventory:useItem(231892); --EP verbessert ultimativ
				inventory:useItem(231918); --EP verbessert golden				
				inventory:useItem(222926); --TP einfach
				inventory:useItem(222928); --TP hochwirksam
				inventory:useItem(225217); --TP ultimativ
				inventory:useItem(231973); --TP golden			
				inventory:useItem(231893); --TP mächtig einfach
				inventory:useItem(231894); --TP mächtig hochwirksam
				inventory:useItem(231906); --TP mächtig ultimativ
				inventory:useItem(231974); --TP mächtig golden			
				inventory:useItem(231907); --TP verbessert einfach
				inventory:useItem(231908); --TP verbessert hochwirksam
				inventory:useItem(231909); --TP verbessert ultimativ
				inventory:useItem(231975); --TP verbessert golden
end

local function Itemshop()
	local item
	for slot = 61, 240 do
		item = inventory.BagSlot[slot]
		item:update()
			if item.Available and (not item.InUse) and item.ItemShopItem == true then
			item:moveTo("itemshop")
		end;
	end;
end

	-- EP-TP Amulette (1.Amulette manuell ausrüsten)
function switchCharms()
	local first = CEquipmentItem(18)	
	local second = CEquipmentItem(19)
	local third = CEquipmentItem(20)
	local fir = (RoMScript("GetEquipSlotInfo(19)") ~= nil)
	local sec = (RoMScript("GetEquipSlotInfo(20)") ~= nil)
	local thi = (RoMScript("GetEquipSlotInfo(21)") ~= nil)
	
	if	(inventory:itemTotalCount(231885) >= 1) or (inventory:itemTotalCount(231886) >= 1) or (inventory:itemTotalCount(222925) >= 1) or (inventory:itemTotalCount(222927) >= 1) or (inventory:itemTotalCount(225216) >= 1)
	or	(inventory:itemTotalCount(231916) >= 1) or (inventory:itemTotalCount(231887) >= 1) or (inventory:itemTotalCount(231888) >= 1) or (inventory:itemTotalCount(231889) >= 1) or (inventory:itemTotalCount(231917) >= 1) 
	or 	(inventory:itemTotalCount(231890) >= 1) or (inventory:itemTotalCount(231891) >= 1) or (inventory:itemTotalCount(231892) >= 1) or (inventory:itemTotalCount(231918) >= 1) or (inventory:itemTotalCount(222926) >= 1) 
	or	(inventory:itemTotalCount(222928) >= 1) or (inventory:itemTotalCount(225217) >= 1) or (inventory:itemTotalCount(231973) >= 1) or (inventory:itemTotalCount(231893) >= 1) or (inventory:itemTotalCount(231894) >= 1) 
	or 	(inventory:itemTotalCount(231906) >= 1) or (inventory:itemTotalCount(231974) >= 1) or (inventory:itemTotalCount(231907) >= 1) or (inventory:itemTotalCount(231908) >= 1) or	(inventory:itemTotalCount(231909) >= 1) 
	or 	(inventory:itemTotalCount(231975) >= 1) then
		if  first and fir then
			if memoryReadInt(getProc(),first.BaseItemAddress + 0x174) == first.Durability then
				RoMScript("UseEquipmentItem(18)")
				yrest(100)
				charm()
				printf("1. Charm Swapped.\n");
				Itemshop()
			end
		end
		if second and sec then
			if memoryReadInt(getProc(),second.BaseItemAddress + 0x174) == second.Durability then
				RoMScript("UseEquipmentItem(19)")
				yrest(100)
				charm()
				printf("2. Charm Swapped.\n");
				Itemshop()
			end
		end
		if third and thi then
			if memoryReadInt(getProc(),third.BaseItemAddress + 0x174) == third.Durability then
				RoMScript("UseEquipmentItem(20)")
				yrest(100)
				charm()
				printf("3. Charm Swapped.\n");
				Itemshop()
			end
		end
	if RoMScript("StaticPopup1:IsVisible()") then
		sendMacro('StaticPopup_OnClick(StaticPopup1, 2);')
	end
	end
end