#******************************# 
#*********** 1.01 *************# 
#    Cooper & You Must Die     # 
#******************************# 
#******************************# 

sub Alchemy() 
var eye=' ' ; Тип Eyes of Newt 
var forpotion= 18000 ;Задержка на изготовление 
var potion=' ' ; Тип Маны 
var color=' ' ; Цвет Маны 
var sunduk=' ' ; Откуда брать, и куда складывать 
var bottle=' ' ;Тип бутылок 
var i 
      while not uo.Dead() 
          uo.DeleteJournal() 
          uo.FindType(eye,'-1','my') 
          if uo.GetQuantity('finditem') > 10 then 
              uo.FindType(bottle,'-1','my') 
              if uo.GetQuantity('finditem') > 10 then 
                  uo.WaitMenu('What sort of potion do you','Total Mana') 
                  uo.UseType(eye) 
                  wait(forpotion) 
                  CheckLag() 
                  i = 0 
                  repeat 
                      wait(100) 
                      k = k + 1 
                  until uo.InJournal('You put') OR uo.InJournal('You toss') or (k>50) 
                  if uo.InJournal('You put') then 
                      uo.DeleteJournal() 
                      uo.FindType(potion,color,'backpack') 
                      CheckLag() 
                      while uo.FindCount() 
                          uo.moveitem('finditem','10',sunduk) 
                          wait(500) 
                      wend 
                  end if 
              else 
                  uo.FindType(bottle,'-1',sunduk) 
                  uo.moveitem('finditem','100') 
                  wait(1000) 
              end if      
          else              
              uo.FindType(eye,'-1',sunduk) 
              uo.moveitem('finditem','100') 
              wait(1000) 
          end if 
      wend 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub