sub Herding()
var LastTimer
var count=0
uo.Print('Выбери Животное...')
uo.Exec('addobject Creature')
while uo.Targeting()
wait(100)
wend
while not uo.Dead()
uo.WaitTargetObject('Creature')
uo.UseType('0x13F5') ; crock
wait(4000)
uo.LClick(339,186)
wait(1000)
uo.LClick(339,186)
LastTimer=uo.Timer()
uo.DeleteJournal()
while not uo.InJournal('You don') and LastTimer+200<uo.Timer()
wait(2000)
wend
wend
end sub