...

sub looting()
var corpse,i,j
uo.set('finddistance','2')
uo.set('distance','2')
DIM Loot[4]
Loot[0] = 0x0EED; # Gold
Loot[1] = 0x0F3F; # Arrow
Loot[2] = 0x0F0B; # Refresh
Loot[3] = 0x0F26; # Diamond
Loot[4] = 0x0F21; # Star Sapphire

DIM Text[4]
Text[0] = 'Gold Coins'
Text[1] = 'Arrows'
Text[2] = 'Refresh'
Text[3] = 'Diamons'
Text[4] = 'Star Sapphires'

DIM Vars[4]
Vars[0] = uo.gold
Vars[1] = uo.ar
Vars[2] = uo.count('0x0F0B')
Vars[3] = uo.count('0x0F26')
Vars[4] = uo.count('0x0F21')

while true
while uo.countonground('0x2006') > 0
if UO.Weight > 40000 then
uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!")
uo.waittargettype('0x0EED')
wait(1000)
uo.useobject('0x40157FBF')
wait(1000)
goto end
end if
uo.findtype('0x2006','-1','ground')
if uo.findcount() > 0 then
corpse=uo.getserial('finditem')
uo.print("Found "+str(uo.findcount())+" corpse(s)!")
for i=0 to 4
j=0
repeat
UO.FindType(Loot[i],-1,corpse)
if UO.GetQuantity('finditem') then
UO.MoveItem('finditem','0','backpack')
uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All: "+STR(vars[i]+UO.GetQuantity('finditem')))
wait(600)
end if
j = j + 1
if j > 15 then
goto stuck
end if
until uo.findcount()==0
next
stuck:
uo.ignore(corpse)
Else
uo.print("No Corpses Beside!!!")
end if
end:
wend
wait(600)
wend
end sub