sub TasteID()
var count=0
uo.Print('Выбери Вещь...')
uo.Exec('addobject Item')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
repeat
uo.WaitTargetObject('Item')
uo.Useskill('Taste Identification')
wait(4000)
uo.Useskill('Spirit Speak')
wait(4000);
until uo.Dead()
end sub