sub test()
 if UO.InJournal("World save has been initiated.") then
  UO.DeleteJournal()
  UO.Click('self')
  repeat
   wait(500)
  until UO.InJournal("Sqiman: Sqiman") # 
 end if
end sub
sub Alchemy()
 VAR Exit=0, LastTimer
 while Exit<>1
  test()
  UO.DeleteJournal()
  LastTimer=UO.Timer()
  UO.WaitMenu('Select the potion to create','agility potion')
  wait(100)
  UO.UseType(0x0F7B)
  test()
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed mixture from the mortar")
   wait(500)
  wend
  If UO.InJournal("You toss the failed mixture from the mortar") then
   repeat
    wait(100)
   until UO.Timer()>=LastTimer+150
  EndIf
 wend
end sub

sub alchemy()
   var lasttimer
   while uo.count('0x0F0E','0x0000')
      uo.deletejournal()
      uo.waitmenu('Select the potion to create','agility potion') # Помни, выбор в меню регистрозависимый! Пиши так же как в меню
      uo.usetype('0x0F7B')
      lasttimer=uo.timer()
      while not uo.injournal("You put") and not uo.injournal("You toss the failed mixture from the mortar")
         wait(100)
      wend
      checklag()
      if uo.timer()-lasttimer<=20 then
         wait(15000)
      endif
      if uo.injournal("You toss the failed mixture from the mortar") then
         repeat
            wait(100)
         until uo.timer()>=lasttimer+150 # нах такая зажержка?
      endif
      if uo.injournal("lack reagents") then
         uo.print('нет регов')
         return
      endif
      wait(200)
      if uo.count('0x0F0E','0x0004') then
         uo.usetype('0x0F0E','0x0004')
      endif
      wait(300)
   wend
endsub

sub checklag()
   if uo.waiting() then
      uo.set('quiet','1')
      uo.canceltarget()
      uo.set('quiet','0')
   endif
   deljournal('backpack')
   uo.click('backpack')
   repeat
      wait(100)
   until uo.injournal('backpack')
endsub

sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,'')
   wend
endsub

      if uo.count('0x0F0E','0x0004') then
         uo.usetype('0x0F0E','0x0004')
            wait(2000) 
      endif