Jinx
New member
- Joined
- Mar 8, 2006
- RedCents
- 20¢
I didn't get a chance to thank you Tomb before the thread was closed. Plus I figured someone would need it as well.
This is for looting your own corpse. Saves some time clicking each item. Do not reply with anyother subjects regarding looting any other corpses.
I couldn't figure out how to paste this in a text box sorry.
Also thank you to who ever created this macro Tomb and myself couldn't find original creator. Credit should be given to him/her.
Enjoy
Copy the text into notepad and save it as loot.mac. Put the file in your macro folder.
---------------------------------------------------------------------------------
edit: cool thx Pugs
This is for looting your own corpse. Saves some time clicking each item. Do not reply with anyother subjects regarding looting any other corpses.
I couldn't figure out how to paste this in a text box sorry.
Also thank you to who ever created this macro Tomb and myself couldn't find original creator. Credit should be given to him/her.
Enjoy
Copy the text into notepad and save it as loot.mac. Put the file in your macro folder.
---------------------------------------------------------------------------------
Rich (BB code):
**|
| --------------
| -- Main Sub --
| --------------
Sub Main
/declare t int outer 0
/declare loottotal int outer
/declare lootslot int outer
/declare lootleft int outer 0
/if (!${Defined[Param0]}) {
} else {
/varset lootleft ${Param0}
}
/tar corpse
/loot
| -----------------
| -- Count items --
| -----------------
/delay 3s
:LootLag
/if (${loottotal}!=${Corpse.Items}) {
/varset loottotal ${Corpse.Items}
/delay 2s
/goto :LootLag
}
/if (${loottotal}<=${lootleft}) {
/notify LootWnd DoneButton leftmouseup
/return
}
/varset loottotal ${Math.Calc[${Corpse.Items}-${lootleft}]}
| ---------------------
| -- Loot the corpse --
| ---------------------
/for lootslot 1 to ${loottotal}
:LootItem
/itemnotify loot${lootslot} rightmouseup
/delay 5 !${Corpse.Item[${lootslot}].ID}
/if (!${Corpse.Item[${lootslot}].ID}) {
/next lootslot
} else {
/goto :LootItem
}
| -----------------
| -- Doublecheck --
| -----------------
/if (${Math.Calc[${Corpse.Items}-${lootleft}]}>0) /goto :LootLag
/notify LootWnd DoneButton leftmouseup
/return
edit: cool thx Pugs
Last edited:

