Yoko

Code: Select all

sub Cooking() 
var Exit=0, LastTimer, TryToPoison 
uo.Print('Выбери Сундук С Жратвой:') 
uo.Exec('addobject Container') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Жаровню:') 
uo.Exec('addobject Forge') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x097B','0x0000','backpack') 
if uo.GetQuantity('finditem')>200 Then 
uo.SetReceivingContainer('Container') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x097A',-1,'backpack')  
if uo.GetQuantity('finditem')<2 then 
uo.FindType('0x097A','0x0000','Container') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.FindType('0x097A','0x0000','backpack') 
uo.WaitTargetObject('Forge') 
uo.UseObject('finditem') 
wait(4000) 
CheckLag() 
if uo.InJournal("You burn") then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 
else 
end if 
wend 
end sub 

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