sub looting() 
var corpse,i,j 
uo.set('finddistance','4') 
#uo.set('distance','2') 
DIM Loot[11] 
Loot[0] = 0x0EED; # Gold 
Loot[1] = 0x0F26; # Diamond 
Loot[2] = 0x0F21; # Star Sapphire 
Loot[3] = 0x0F8C; # Sulfurous Ash 
Loot[4] = 0x0F7B; # Blood Moss 
Loot[5] = 0x0F86; # Mandrake Root 
Loot[6] = 0x0F84; # Garlic 
Loot[7] = 0x0F88; # Nightshade 
Loot[8] = 0x0F8D; # Spiders Silk 
Loot[9] = 0x0F7A; # Black Pearl 
Loot[10] = 0x0F85; # Ginseng 
Loot[11] = 0x0F7E; # Bone 

DIM Text[11] 
Text[0] = 'Gold Coins' 
Text[1] = 'Diamons' 
Text[2] = 'Star Sapphires' 
Text[3] = 'Sulfurous Ash' 
Text[4] = 'Blood Moss' 
Text[5] = 'Mandrake Root' 
Text[6] = 'Garlic' 
Text[7] = 'Nightshade' 
Text[8] = 'Spiders Silk' 
Text[9] = 'Black Pearl' 
Text[10] = 'Ginseng' 
Text[11] = 'Bone' 

DIM Vars[11] 
Vars[0] = uo.gold 
Vars[1] = uo.count('0x0F26') 
Vars[2] = uo.count('0x0F21') 
Vars[3] = uo.count('0x0F8C') 
Vars[4] = uo.count('0x0F7B') 
Vars[5] = uo.count('0x0F86') 
Vars[6] = uo.count('0x0F84') 
Vars[7] = uo.count('0x0F88') 
Vars[8] = uo.count('0x0F8D') 
Vars[9] = uo.count('0x0F7A') 
Vars[10] = uo.count('0x0F85') 
Vars[11] = uo.count('0x0F7E') 

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 11 
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