Sub Main
/declare LootSlot int outer 0
/declare LootTotal int outer 0
/declare Loot
/declare CurZone int outer ${Zone.ID}
/declare MyLoc[3] float outer
/varset MyLoc[1] ${Me.Y}
/varset MyLoc[2] ${Me.X}
/varset MyLoc[3] ${Me.Z}
:Loop
/if (${Zone.ID}!=${CurZone}) /end
/if (${SpawnCount[npc corpse]}) {
/call Loot
}
/goto :Loop
Sub Return
/squelch /warp loc ${MyLoc[1]}, ${MyLoc[2]}, ${MyLoc[3]}
/delay 5
/return
Sub Loot
/target npc corpse
/squelch /warp target
/delay 10
/loot
/delay 10
/if (!${Corpse.Items}) {
/keypress Esc
/delay 10
/call Return
/return
}
/varset LootTotal ${Corpse.Items}
/for LootSlot 1 to ${LootTotal}
/itemnotify loot${LootSlot} leftmouseup
/delay 1s
/if (${Cursor.Name.Find[Legends of Norrath Booster Pack]}) {
/echo Keeping a ${Cursor.Name}!
/autoinventory
/delay 1s
}
/if (${Cursor.Name.Find[Legends of Norrath Starter Deck]}) {
/echo Keeping a ${Cursor.Name}!
/autoinventory
/delay 1s
}
/if (${Cursor.Name.Find[Legends of Norrath Starter Set]}) {
/echo Keeping a ${Cursor.Name}!
/autoinventory
/delay 1s
}
/if (${Cursor.Name.Find[Legends of Norrath: Hatred]}) {
/echo Keeping a ${Cursor.Name}!
/autoinventory
/delay 1s
}
/if (${Cursor.Name.Find[Legends of Norrath: Switch]}) {
/echo Keeping a ${Cursor.Name}!
/autoinventory
/delay 1s
}
/if (${Cursor.ID}) {
/echo Destroying a ${Cursor.Name}...
/destroy
/delay 1s
}
/next LootSlot
/keypress Esc
}
/delay 1s
/call Return
/return