Yoko

sub EmptyBottel()
   VAR Sunduk = '0x403106BC'
   VAR Ingi = '0x1BEF'
   VAR Instrum = '0x1EBC'
   VAR EmBot = '0x0F0E'
   VAR Kolvo = 30
   VAR k = 0
   While TRUE
      UO.FindType( Ingi, -1, Sunduk )
      If UO.FindCount() == 0 Then
         UO.Print("Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 5
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.WaitMenu ('Tinkering','Tools','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( EmBot ) > 0 then
            UO.FindType( EmBot, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Empty Bottle moved' )
         end if
      Wend
   Wend
end sub

         while NOT UO.InJournal('You put') OR NOT UO.InJournal('fail') OR ( k < 30 )
            k = k + 1
            wait(500)
         wend

sub Tinkering()
  var t_Ingots = '0x1BEF', c_Ingots = '0x0000', t_TinkerTools = '0x1EBC', t_EmptyBottle = '0x0F0E', c_EmptyBottle = '0x0000'
  var id_Container = '0x403106BC', Pause = 1000, Time, Delay = 5, msg = 'ou put|fail'
  While UO.SkillVal('Tinkering', 1) < 1000
    If UO.Count(t_EmptyBottle, c_EmptyBottle) >= 10 then
      UO.FindType(t_EmptyBottle, c_EmptyBottle, 'backpack')
      If UO.FindCount() then
        CheckLag()
        UO.MoveItem('finditem', -1, id_Container)
        Wait(Pause)
       else
        Wait(Pause)
      Endif
     else
      If UO.Count(t_Ingots, c_Ingots) > 5 then
        DelJournal(msg)
        Time = UO.Timer()
        UO.WaitMenu('Tinkering', 'Tools', 'Tools', 'empty bottle')
        UO.UseType(t_TinkerTools)
        Repeat
          Wait(100)
        Until UO.InJournal(msg) or Time + Delay * 10 <= UO.Timer()
       else
        UO.FindType(t_Ingots, c_Ingots, id_Container)
        If UO.FindCount() then
          CheckLag()
          UO.MoveItem('finditem', -1, 'backpack')
          Wait(Pause)
         else
          UO.Print('Not enough ingots')
          Return
        Endif
      Endif
    Endif
  Wend
Endsub

Sub DelJournal(msg)
  While UO.InJournal(msg)
    UO.SetJournalLine(UO.InJournal(msg) - 1, '')
  Wend
Endsub

Sub CheckLag()
  DelJournal('ackpack')
  UO.Click('backpack')
  Repeat
    Wait(50)
  Until UO.InJournal('ackpack')
Endsub

repeat
   wait( 100 )
until UO.InJournal( msg ) or UO.Timer()>LastTimer+150

        UO.FindType(t_Ingots, c_Ingots, id_Container)
        If UO.FindCount() then
          CheckLag()
          UO.MoveItem('finditem',-1, 'backpack')  ; <- вот тут вместо -1 нужно 30 поставить
          Wait(Pause)
         else