sub Cook() 
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() 
Endif 
UO.FindType('0x097A',-1,'backpack') ; 
If UO.GetQuantity('finditem')<2 then 
UO.FindType('0x097A','0x0000','Container') ; 
wait(1000) 
UO.Grab('300','finditem') 
wait(1000) 
Endif 
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 
EndIf 
wend    
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

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