Yoko

sub alchemy() 
# BETEP™ # 
VAR Exit=0, LastTimer 
   uo.print('Noiaoe n ?aaaie e aooueeaie') 
   uo.exec('addobject Bag') 
   while uo.targeting() 
      wait(100) 
   wend 
   uo.print('Noiaoe eoaa aooueee a?inaou') 
   uo.exec('addobject Bag2') 
   while uo.targeting() 
      wait(100) 
   wend 
   uo.print('Aaa ionoua eaae') 
   uo.exec('addobject kegs') 
   while uo.targeting() 
      wait(100) 
   wend 
   while Exit<>1 
      UO.DeleteJournal() 
      UO.FindType('0x0F88','-1','backpack') 
      If UO.GetQuantity('finditem')<20 then 
         UO.FindType('0x0F88','-1','Bag') 
         wait(1000) 
         UO.Grab('400','finditem') 
         wait(1000) 
      Endif 
      LastTimer=UO.Timer() 
      UO.DeleteJournal() 
      uo.WaitMenu('What',(2)) 
      UO.UseType('0x0F88')
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") 
         wait(500) 
      wend 
      UO.waittargettype("0x0F0A") 
      UO.usetype("0x1940")
      wait(300) 
      If UO.InJournal("This keg is too full") then 
         wait(1000) 
         podbor() 
         Else 
         If UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") then 
            wait(100) 
         endif 
      endif 
   wend 
end sub 

sub podbor() 
   UO.FindType('0x1940','-1','backpack') 
   wait(2000) 
   uo.MoveItem('finditem','0','Bag2') 
   wait(2000) 
   UO.findtype('0x1940','-1','kegs') 
   wait(2000) 
   uo.Grab('0','finditem') 
   wait(2000) 
end sub

If UO.InJournal

var schetchik = 0
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Au niaoaee eia?eaeaiou iaaa?ii") ot schetchik > 20
  schetchik = schetchik + 1
  wait(500) 
wend