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('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 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
