------------------------------------------------
-- lolita's minigame clear bag function V 1.0 --
------------------------------------------------
--------------------
--== How to use ==--
--------------------
-- Just go neer mailbox and call "cotclean()" function
-- Ofcourse change the name of alt's below
Junk_Resiver = "charname" 		-- Change "charname" to name of character for "Junk" items from Curse of Terror
Goods_Resiver = "charname" 		-- Change "charname" to name of character for "Good" items from Curse of Terror
Fusion_3 = "charname"			-- Change "charname" to name of character for Fusion's with 3 stat's
Fusion_2 = "charname"			-- Change "charname" to name of character for Fusion's with 1 and 2 stat's

--	List of items wich will always be deleted
--	add more with same method)
force_drop = {
	"Curse Scroll (Cannon Permutation)",
	"Curse Scroll (Instant Transport)",
	"Curse Scroll (Wicked Freeze)",
	"Curse Scroll (Time Extension)",
	"Vanquisher's Loot",
	"Royal Furniture Recipe Collection Box",
	"Potion: Princely Look",
	"Potion: Fullness",
   }

-- List of item's wich will be sended to Junk_Resiver
--(you can add more items to list wich you always sending to same character)
CoT_Junk = {
	201967, -- Simple Repair Hammer
	203028, -- Craftsman's Recipe Coupon
	203033, -- Horse Rental Ticket
	205821, -- Temporary Mount Use Voucher
	203635, -- Material Package for Magical Instruments
}

-- List of item's wich will be sended to Goods_Resiver
--(you can add more items to list wich you always sending to same character)
CoT_Good = {
	205820, -- Magic Instrument Collection Box
}
   
function ForceDrop()
	for i, item in pairs(inventory.BagSlot) do
		if item.SlotNumber >= settings.profile.options.INV_AUTOSELL_FROMSLOT + 60 and
		settings.profile.options.INV_AUTOSELL_TOSLOT + 60 >= item.SlotNumber then
			for k, v in ipairs(force_drop) do
				if v == item.Name then
					printf("Deleting Item:  "..item.Name.."\n");
					item:delete();
				end
			end
		end
	end
end

function cotclean()
	player:target_Object ("Mailbox")	yrest(1000);
	UMM_SendByNameOrId(Junk_Resiver,CoT_Junk);
	UMM_SendByNameOrId(Goods_Resiver,CoT_Good);
	UMM_SendAdvanced(Fusion_3,"Fusion Stone",nil,nil,nil,nil,3)
	UMM_SendAdvanced(Fusion_2,"Fusion Stone",nil,nil,nil,nil,1)
	RoMScript("UMMFrame:Hide()")	yrest(1000);
	if inventory:itemTotalCount("Arcane Transmutor Charge") > 0 then
		repeat
			inventory:useItem("Arcane Transmutor Charge")
		until inventory:itemTotalCount("Arcane Transmutor Charge") == 0
	end
	if inventory:itemTotalCount("Witchcraft Scroll Collection Box") > 0 then
		repeat
			inventory:useItem("Witchcraft Scroll Collection Box")
		until inventory:itemTotalCount("Witchcraft Scroll Collection Box") == 0
	end
	inventory:update()
	ForceDrop()
end