#Варим химию 
sub ximik() 
uo.print('u3 4ero MeLIIaeM?') 
UO.Exec('addobject resyrs') 
While UO.Targeting() 
Wait(100) 
wend 
repeat 
CheckLag() 
uo.WaitMenu('What sort of potion do you','In') 
CheckLag() 
uo.Useobject('resyrs') 
CheckLag() 
wait(10000) 
CheckLag() 
until UO.InJournal('ximik stoi') 
end sub 

sub CheckLag() 
UO.DeleteJournal("Backpack") 
uo.click("backpack") 
repeat 
wait(50) 
until uo.injournal("ackpack") 
endsub

sub alchemy() 
VAR Exit=0, LastTimer 
VAR cvet=0x0388 #Цвет готового пузыря 

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('0x0F0E',cvet,'backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

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

UO.FindType('0x0F87','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F87','0x0000','Bag') 
wait(1000) 
UO.Grab('300','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F87') 
UO.WaitMenu('What','Total Mana Refresh')        
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