Yoko

Code: Select all

sub UnLoad()
var i
DIM Item[13]
Item[1]=0x19B9 ; >3 ore 
Item[2]=0x19B7 ; 1 ore 
Item[3]=0x19BA ; 2 ore 
Item[4]=0x19B8 ; 3 ore 
Item[5]=0x0F11 ; saphires 
Item[6]=0x0F16 ; amethysts 
Item[7]=0x0F18 ; tourmalines 
Item[8]=0x0F15 ; citrines 
Item[9]=0x0F10 ; emeralds 
Item[10]=0x0F0F ; star sapphires 
Item[11]=0x0F26 ; diamonds 
Item[12]=0x0EED ; gold
   for i = 1 to 12
      UO.FindType(Item[i], '-1', 'backpack')
      while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1','0x4024C762') 
         Wait(1000) 
         CheckLag()          
         UO.FindType(Item[i],'-1','backpack')
      wend 
   next
end sub