Yoko

Code: Select all

sub alchemy()  
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('0x0F0E','0x09BB','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('30','finditem') 
wait(1000) 
Endif 

UO.FindType('0x0F85','0x0000','backpack') 
If UO.GetQuantity('finditem')<70 then 
UO.FindType('0x0F85','0x0000','Bag') 
wait(1000) 
UO.Grab('210','finditem') 
wait(1000) 
Endif 

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

UO.UseType('0x0F85') 
UO.WaitMenu('What','Greater Heal') 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(1500) 
wend 
If UO.InJournal("You toss the failed") then 
repeat 
wait(1100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend 
end sub