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