Ultima Online Antares

sub TinkerBottle()
VAR LastTimer
VAR Bottle   = '0x0F0E'
VAR Ing      = '0x1BEF'      
VAR Instrum  = '0x1EBC'
VAR delay1   =  200
VAR sunduk1  = '0x40F6A567'
WHILE NOT UO.Dead()
  REPEAT
       If UO.Count( Ing ) < 10 Then
     UO.Print("Iron not found")
      UO.FindType( Ing, '-1', sunduk1)
       If UO.FindCount() > 0 Then
    uo.moveitem('finditem',100,'backpack')
         wait( delay1 )
        Else
         UO.Print( 'Iron not found' )
            return
        Endif
    Endif
   Repeat
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       UO.WaitMenu ('Tinkering', 'Miscellaneous', 'Miscellaneous', 'Empty Bottle' )
       UO.Usetype( Instrum )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|fail|You broke") or UO.Timer()>LastTimer+150
   Until UO.Count( Bottle ) > 0
checklag()
;    wait( delay1 )
      while UO.Count( Bottle ) > 0
       UO.FindType( Bottle, -1, -1 )
       UO.MoveItem( 'finditem', 0, sunduk1 )
checklag()
      wend
   wait( delay1 )
UO.FindType( Bottle, -1, sunduk1 )
UO.Print('Bottle in sunduk: '+Str(UO.GetQuantity('finditem')))
WEND
end sub

Sub DeleteJournal(msg)
var nom=UO.InJournal(msg)
  if nom>0 then
     UO.SetJournalLine(Nom - 1," ----- 8< ----- ")
     DeleteJournal(msg)
  endif
endsub