Below is the code I use to loot
**NOTE** It's not the entire program
Code: Select all
Sub Loot
:LtLoop
/varcalc locv1 ${locv1}+1
/target corpse radius 400
/if (!${Target.ID} || ${Target.Type.NotEqual[Corpse]}) /return
/varset xDistance 5
/call GotoBody ${Target.ID}
/if (${Target.ID}) /face nolook fast
/loot
/delay 40 ${Window[LootWnd].Open}
/if (!${Corpse.Items}) {
/goto :ExitSWLt
}
/varset LootTotal ${Corpse.Items}
/for LootSlot 1 to ${LootTotal}
/itemnotify loot${LootSlot} rightmouseup
/delay 10 ${Cursor.ID}
/notify InventoryWindow IW_CharacterView leftmouseup
/delay 10
:NextSWLt
/next LootSlot
:ExitSWLt
/cleanup
/delay 10
/if (${locv1}<4) /goto :LtLoop
/return