sub dasfbfad()
uo.deletejournal()
while true
if uo.injournal('Body') then
uo.deletejournal()
Loot()
else
wait(1000)
end if
wend
end sub

Sub Loot()
   If uo.getglobal('Loot')=='On' then
   uo.setglobal('Loot',0)
   uo.exec('terminate Loot')
   uo.print(' !!! -= Loot Terminated =- !!! ')
   else
   uo.setglobal('Loot','On')
   uo.print(' !!! -= Looting =- !!! ')

 repeat
  UO.FindType('-1','-1','lastcontainer')
  UO.Print(' !!! Looting Items: '+str(UO.findcount()))
  UO.Ignore('finditem')
  UO.MoveItem('finditem')
  Wait(500)
 until UO.FindCount()==0 
 
uo.setglobal('Loot',0)
uo.print(' !!! -= Done =- !!! ')
end sub

sub autograb{
   while (!uo::dead()){
      &wait(100);
      if (uo::getserial('lastcorpse') eq uo::getserial('lastcontainer')){
         uo::findtype(0xeed, -1, 'lastcontainer');
         if (uo::findcount){
            uo::grab(0, 'finditem');
            &wait(700);
         }
         uo::set('lastcontainer', uo::getserial);
      }
   }
}

sub autograb()
   while not uo.dead()
      wait(100)
      if (uo.getserial("lastcorpse") == uo.getserial("lastcontainer")) then
         uo.findtype("0xeed", -1, "lastcontainer")
         if (uo.findcount) then
            uo.grab(0, "finditem")
            wait(700)
         end if
         uo.set("lastcontainer", uo.getserial())
      end if
   wend
end sub

sub looting() 
var corpse,i,j 
uo.set('finddistance','2') 
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