sub Herding() var LastTimer var count=0 uo.Print('Выбери Животное...') uo.Exec('addobject Creature') while uo.Targeting() wait(100) wend while not uo.Dead() uo.WaitTargetObject('Creature') uo.UseType('0x13F5') ; crock wait(4000) uo.LClick(339,186) wait(1000) uo.LClick(339,186) LastTimer=uo.Timer() uo.DeleteJournal() while not uo.InJournal('You don') and LastTimer+200<uo.Timer() wait(2000) wend wend end sub
