sub Taming()
var count=0
uo.print('Тотем')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('TOT')
UO.Useskill('Animal Taming')
repeat
wait(1000)
until UO.InJournal('You failed to tame the') OR UO.InJournal('You successfully tame')
If Uo.InJournal('You successfully tame') Then
UO.Say('All transfer')
############вот тут по идее надо что бы кликнул куда надо (:
  wait(2000)
            wait(2000)
Endif
wend
end sub

sub FindMen()
   VAR SerChar, ColChar, NamChar, DistChar
   UO.Set( 'finddistance', '6' )
   Repeat
      UO.FindType( '0x0190', '-1', '1' )
      If UO.FindCount() > 0 Then
         SerChar = UO.GetSerial( 'finditem' )
         DistChar = UO.GetDistance( 'finditem' )
         ColChar = UO.GetNotoriety( 'finditem' )
         UO.Click( 'finditem' )
         wait( 500 )
         NamChar = UO.GetName( 'finditem' )
         UO.Print( 'Нашли чара! Его сериал: ' + SerChar )
         UO.Print( 'Расстояние до этого чара: ' + str( DistChar ) )
         UO.Print( 'Уровень злобности этого чара: ' + str( ColChar ) )
         UO.Print( 'Имя этого чара: ' + NamChar )
         UO.Ignore( 'finditem' )
      Else
         wait( 500 )
      Endif
   Until UO.FindCount() == 0
   UO.IgnoreReset()
endsub

sub Taming()
  var count=0
  var char = ' '#Тут ID чела для трансфера

  uo.print('Тотем')
  uo.exec('addobject TOT')
  while uo.targeting()
    wait(100)
  wend

  UO.DeleteJournal()
  while NOT UO.Dead()
    UO.DeleteJournal()
    UO.WaitTargetObject('TOT')
    UO.Useskill('Animal Taming')
    repeat
      wait(1000)
    until UO.InJournal('You failed to tame the') OR UO.InJournal('You successfully tame')
    If Uo.InJournal('You successfully tame') Then
      UO.WaitTargetObject(char)
      wait(100)
      UO.Say('All transfer')
      wait(2000)
    Endif
  wend
end sub

var Tamer.msg_success = "Затамилось" ; сообщение об успешном тейминге животного
var Tamer.msg_failure = "Не затамилось" ; сообщение о неуспешном тейминге животного
var Tamer.male = "0x0190" ; тип мужского персонажа
var Tamer.female = "0x0191" ; тип женского персонажа
var Tamer.max_distance = 12 ; максимальная дистанция поиска
sub Tamer()
    var man
    uo.addObject( "Tamer.target" )
    while uo.targeting()
        wait( 100 )
    wend
    repeat
        deljournal( Tamer.msg_success + "|" + Tamer.msg_failure )
        uo.waittargetobject( "Tamer.target" )
        uo.useskill( "Animal Taming" )
        repeat
            wait( 100 )
        until uo.inJournal( Tamer.msg_success + "|" + Tamer.msg_failure )
    until uo.inJournal( Tamer.msg_success )
    man = Tamer.FindMan()
    if man then
        uo.waittargetobject( man )
        uo.msg( "all transfer" )
    else
        uo.print( "Man was not found." )
    endif
endsub

Sub Tamer.FindMan()
    var i
    for i = 0 to Tamer.max_distance
        uo.set( 'finddistance', str( i ) )
        uo.findtype( Tamer.male, "-1", ground )
        if uo.findcount() then
            return uo.getSerial( 'finditem' )
        endif
        uo.findtype( Tamer.female, "-1", ground )
        if uo.findcount() then
            return uo.getSerial( 'finditem' )
        endif
    next
    return false
EndSub

А я понять не могу, чего нужно..

Нужен тейминг животины + трансфер на ближайшего персонажа?.. Ня..

Учись, пока я тут - пишу в окне ответа:
PS: Что-то меня на ООП потянуло.. пока не сильно, но уже чувствуется

deljournal( Tamer.msg_success + "|" + Tamer.msg_failure )