Yoko

sub al()
var n
dim LootingItem[18]
uo.Print('loot on.')
LootingItem[0] = 0x1411; # Gold
LootingItem[1] = 0x1412; # Diamond
LootingItem[2] = 0x1413; # Star Sapphire
LootingItem[3] = 0x1414; # Sulfurous Ash
LootingItem[4] = 0x1415; # Blood Moss
LootingItem[5] = 0x1416; # Mandrake Root
LootingItem[6] = 0x108A; # Garlic
LootingItem[7] = 0x1404; # Nightshade
LootingItem[8] = 0x13F8; # Spiders Silk
LootingItem[9] = 0x0E89; # Black Pearl
LootingItem[10] = 0x0F60; # Ginseng
LootingItem[11] = 0x13B5; # Bone
LootingItem[12] = 0x13CC;
LootingItem[13] = 0x13CB;
LootingItem[14] = 0x13C5;
LootingItem[15] = 0x13C6;
LootingItem[16] = 0x13C7;
LootingItem[17] = 0x1DB9;
 if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
   UO.WarMode(0)
   UO.UseSkill('Hiding')
  For n = 0 To 17
  UO.FindType( LootingItem[n] , -1 ,'lastcontainer')
 while UO.GetQuantity('finditem') > 0
  UO.Print(' !!! Looting Items: '+str(UO.findcount()))
  uo.moveitem("finditem", 0 ,'backpack',96,129,0)
  CheckLag()
  Wait(500)
  UO.FindType( LootingItem[n] , -1 ,'lastcontainer')
 wend
 Next
Endif 
uo.Print('loot off.')
end sub 

Sub CHECKLAG() 
   del('backpack') 
   uo.click('backpack') 
   repeat 
   wait(50) 
   until uo.injournal('backpack') 
   del('backpack') 
endsub 

Sub DEL(msg) 
   while uo.injournal(msg) 
   uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!") 
   wend 
endsub