Yoko

Code: Select all

sub tinker() 

   var Sunduk = '0x404C8013' 
   var Ingi = '0x1BEF' 
   var Instrum = '0x1EBC' 
   var lockpick = '0x0F0E' 
   var Kolvo = 800 
   var LTimer 

   UO.CancelMenu() 
   UO.AutoMenu ('Tinkering', 'Tools') 
   UO.AutoMenu ('Tools', 'lockpick (1 iron ingot)') 

   repeat 
      if UO.Count(Ingi) < Kolvo then 
         UO.MoveItem( Sunduk + '.' + Ingi, Kolvo - UO.Count(Ingi)) 
         if UO.Count(Ingi) < Kolvo && UO.Count(Instrum) then 
            UO.Print("Iron Ingots not found, script terminated") 
            UO.CancelMenu() 
            return 
         end if 
      end if 

      while UO.Count(Ingi) > 3 && UO.Count(Instrum) 
         UO.DeleteJournal() 
         LTimer = UO.Timer() 
         UO.UseType(Instrum) 
         repeat 
            wait(500) 
         until UO.InJournal('You put|fail') || LTimer + 60 > UO.Timer() 
          
         if UO.Count(lockpick) then 
            UO.MoveItem( '^' + lockpick, 1, Sunduk ) 
         end if 
      wend 
   until UO.Dead() 
   UO.CancelMenu() 
end sub