sub Enticement()
var count=0
uo.Print('Выбери животное...')
uo.Exec('addobject Enticementing')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
repeat
uo.WaitTargetObject('Enticementing')
uo.Useskill('Enticement')
wait(8000)
uo .UseSkill('Spirit Speak')
wait(3000)
until uo.Dead()
end sub