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