Yoko

sub looting()
var corpse,i,j
uo.set('finddistance','2')
uo.set('distance','2')
DIM Loot[4]
Loot[0] = 0x0EED; # Gold
Loot[1] = 0x0F7E; # Bone
Loot[2] = 0x0F0B; # Refresh
Loot[3] = 0x0F26; # Diamond
Loot[4] = 0x1BF2; # ignots

DIM Text[4]
Text[0] = 'Gold Coins'
Text[1] = 'Bone'
Text[2] = 'Refresh'
Text[3] = 'Diamons'
Text[4] = 'Ignots'

DIM Vars[4]
Vars[0] = uo.gold
Vars[1] = uo.count('0x0F7E')
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 > 3 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 

uo.useobject('lastcorpse')

corpse=uo.getserial('finditem')
uo.useobject( corpse )