sub ForensicEvaluation()
var count=0
uo.Print('Выбери Труп...')
uo.Exec('addobject Creature')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
repeat
uo.WaitTargetObject('Creature')
uo.Useskill('Forensic Evaluation')
while not uo.InJournal('unsure') and not uo.InJournal('looks') and not uo.InJournal('perform') and count<60
wait(35)
count=count+1
wend

wait(35)
count=0
uo.DeleteJournal()
until uo.Dead()
end sub