sub tinker() 
   uo.print('Покажи сундук с ингами')
   uo.addobject('sunduk')
        while uo.targeting()
              wait(300)
        wend
   uo.useobject('sunduk')
   wait(1000)
   checklag()
   VAR Ingi = '0x1BEF'          ; Тип ингов 
   VAR Instrum = '0x1EBC'          ; Тип инструмента тинкера 
   VAR Clock = '0x104F'          ; Тип итема который будем изготовлять 
zagruzka:
   if not uo.count('0x1BEF','0x0000') then
      UO.FindType( Ingi,'0x0000', 'sunduk' )   ; Ищем инги в сундуке 
      If UO.FindCount() Then 
         uo.moveitem('finditem','500','backpack')
         wait(1000)
         checklag()
       else
         uo.print('Инготы закончились!!!')
         return 
      Endif 
      While UO.Count(Ingi,'0x0000') and uo.count(Instrum,'0x0000')
         ; Пока в паке есть инги 
         UO.Print('Ostalos ' + Str( UO.Count( Ingi,'0x0000' ) ) + ' ingots' ) 
         UO.DeleteJournal() 
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'clock parts' ) 
         UO.UseType( Instrum,'0x0000' ) 
               repeat
                   wait(300)
               until uo.injournal('You put|fail')
         while uo.count(Clock,'0x0000')
            UO.FindType( Clock,'0x0000','backpack' ) 
            UO.MoveItem( 'finditem', '0', 'sunduk' ) 
            wait( 1000 )
            checklag()
            UO.Print( 'Clock moved' ) 
          wend
      Wend 
   goto zagruzka
end sub
Sub Checklag()
   deljournal('ackpack')
   uo.click('backpack')
   repeat
      wait(50)
   until uo.injournal('ackpack')
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