Yoko

sub taming() 
   UO.DeleteJournal()
   UO.UseSkill('Animal Taming')
   Repeat
      wait(500) 
   until UO.InJournal('You|вы') 

   While (Uo.InJournal('You fail'))
      UO.DeleteJournal()
      UO.WaitTargetObject('lasttarget') 
      UO.UseSkill('Animal Taming')
      Repeat
         wait(500) 
      until UO.InJournal('You|вы') 
   Wend
   UO.Say('All Come') 
   wait(500)
   UO.Usefromground('horse') 
   UO.Usefromground('0x00E2') 
   UO.Usefromground('0x00E4') 
   UO.Usefromground('0x00CC') 
   UO.Usefromground('0x00C8') 
   UO.Usefromground('0x00D2') 
   UO.Usefromground('0x00DB') 
   UO.Usefromground('0x00DC') 
   UO.Usefromground('0x00DA') 
end sub