Yoko

UO.WaitTargetGround('0x19B9') ; 4 and more ore 
wait(1500) 
UO.Grab('all') 
UO.WaitTargetGround('0x19B8') ; 3 ore 
wait(1500) 
UO.Grab('all') 
UO.WaitTargetGround('0x0EED') ; gold coins 
wait(500) 
UO.Grab('all') 

DIM Item[5]
Item[0]=0x0EED ; gold
Item[1]=0x19B9 ; >3 ore 
Item[2]=0x19B7 ; 1 ore 
Item[3]=0x19BA ; 2 ore 
Item[4]=0x19B8 ; 3 ore
   UO.Set('finddistance','2')
   for i = 0 to 4
      UO.FindType(Item[i], '-1', 'gorund')
      while UO.findcount() > 0 
         UO.MoveItem('finditem','-1','backpack') 
         CheckLag() 
         UO.FindType(Item[i], '-1', 'gorund')
      wend 
   next
   UO.Set('finddistance','14')