// Macro Retirado de Supreme Shard - http://www.supremeshard.com
INITEVENTS

Event SysMessage Clique 2x no tipo de item que quer guardar e aperte 3.
SetItem:
OnHotKey 3
Goto SetItem2
Goto SetItem

SetItem2:
Set %Type #LObjectType
Event SysMessage Deixe o mouse sobre onde sera descarregado os items e aperte 3.

SetBag1:
OnHotKey 3
Goto SetBag2
Goto SetBag1

SetBag2:
Set %BauX #CursorX
Set %BauY #CursorY
Event SysMessage Ok! Iniciando o macro...
IgnoreItem Reset

Guardar:
Finditem %Type
If #findkind = -1
{
Ignoreitem #findid
Msg Item Sucessfully Dragged! $
Halt
}

Event Drag #findid
Click %BauX %BauY
IgnoreItem #FindID
Goto Guardar