sub EvaluateIntel() var count=0 uo.Print('Выберите Животное...') uo.Exec('addobject Creature') while uo.Targeting() wait(100) wend uo.DeleteJournal() repeat uo.WaitTargetObject('Creature','Creature') uo.Useskill('Evaluating') while not uo.InJournal('unsure') and not uo.InJournal('looks') and not uo.InJournal('perform') and count<60 wait(100) count=count+1 wend wait(600) count=0 uo.DeleteJournal() until uo.Dead() end sub
