Code
sub Cooking()
var Exit=0,LastTimer
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()
Open('Container')
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('findite m')
wait(4000)
CheckLag()
if uo.InJournal('You burn') then
repeat
wait(100)
until uo.Timer()>=LastTimer+100
else
end if
wend
end sub
sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub