Yoko

sub tam_sedlo() 
var count=1
uo.print('Тотем') 
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while NOT UO.Dead() 
UO.DeleteJournal() 
UO.WaitTargetObject('Animal') 
UO.UseSkill('Animal Taming') 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') 
If Uo.InJournal('It seems') Then 
UO.Useobject('Animal') 
Endif 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub

UO.Exec('exec tam_sedlo')

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

UO.Exec('exec tam_sedlo')

sub tam_sedlo() 
var Exit=0
uo.exec('addobject Animal') 
while uo.targeting() 
wait(100) 
wend 
UO.DeleteJournal() 
while Exit<>1 
UO.DeleteJournal() 
UO.WaitTargetObject('Animal') 
UO.UseSkill('Animal Taming') 
CheckLag() 
repeat 
wait(1000) 
until UO.InJournal('You fail') OR UO.InJournal('It seems') OR UO.InJournal('You can not see')
If Uo.InJournal('It seems') Then 
wait(2000)
UO.Useobject('Animal') 
CheckLag() 
Endif 
Exit=1 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub