sub alchemy1() 
# BETEPa„? # 
VAR Exit=0, LastTimer 
uo.print('Ñóíäóê ñ ðåãàìè è áóòûëêàìè') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Ñóíäóê êóäà áóòûëêè áðîñàòü') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F07','0x0000','backpack') ;òî ÷òî èçãîòîâèëè
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 


UO.FindType('0x0F84','0x0000','backpack') ; NS 
   If UO.GetQuantity('finditem')<20 then 
      UO.FindType('0x0F84','0x0000','0x4000E0BC'); NS, container 
      wait(1000) 
      uo.useobject('0x4000e0bc')
      wait(200)
      UO.Grab('300','finditem') 
      wait(500) 
      end if
LastTimer=UO.Timer() 
UO.WaitMenu('What','Cure') ; menu 
UO.UseType(0x0F84) ; Ginseng 

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('100','finditem') 
wait(500) 
Endif 


while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 

If UO.InJournal("You toss the failed") then 
repeat 
wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend 
end sub 

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