Yoko

sub tinker()
VAR Sunduk = '0x404C8013' ; ид сундука
VAR Ingi = '0x1bef' ; тип ингов
VAR Instrum = '0x1ebc' ; тип инструмента
VAR lockpick = '0x0f0e' ; тип бутылок
VAR Kolvo = 800 ; берем из сундука
VAR k = 0
repeat
 UO.FindType( Ingi, -1, Sunduk )
 If UO.FindCount() < 10 Then
  UO.Print("Iron Ingots not found, script terminated")
  return
 Endif
 UO.Grab( Str( Kolvo ), 'finditem' )
 wait( 2000 )
 While UO.Count( Ingi ) > 3
  UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
  UO.DeleteJournal()
  UO.CancelMenu()
  UO.autoMenu ('Tinkering', 'Tools')
  UO.autoMenu ('Tools', 'Empty bottle')
  UO.UseType( Instrum )
  k = 0
  while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
   k = k + 1
   wait(500)
  wend
  if UO.Count( lockpick ) > 0 then
   UO.FindType( lockpick, -1, -1 )
   UO.MoveItem( 'finditem', 0, Sunduk )
   wait( 1000 )
  end if
 wend
Until not uo.dead()
end sub 

UO.FindType('Ingi','-1','Sunduk')

if uo.getquantity('finditem') < 10 then

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', 'Empty bottle')

   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