Тамит сам и садится а остальное я хз
sub Taming()
var staff='0x13f8' ;type of Taming staff
 
uo.Set('finddistance','4')
  uo.Exec('addobject animal')
  while uo.Targeting()
    wait(500)
  wend
  uo.FindType(staff,'-1','backpack')
  if uo.FindCount() then
    uo.DeleteJournal()
    while not uo.InJournal('It seems')
      uo.DeleteJournal()
      uo.waittargetobject('animal')
      uo.UseType(staff)
      repeat
        wait(500)
      until uo.InJournal('You fail') or uo.InJournal('It seems')
      if uo.InJournal('attack you') then
      goto end
      endif
    wend
    uo.UseObject('animal')
  else
    uo.Print('There is no Staff!')
  end if
  end:
end sub