sub AnimalTaming()
    VAR animal = '0x00DC' # тип животного
    var COLanimal = '0x0000' # цвет животного
    uo.Set('finddistance', 8)
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        if uo.FindCount()>0 then
            uo.warmode(0)
            wait(500)
            UO.DeleteJournal()
            while not UO.InJournal('It seems|see the creature|already|rememb')
                UO.DeleteJournal()
                UO.WaitTargetObject('finditem')  
                UO.Useskill('Animal Taming')
                repeat
                    wait(100)
                until UO.InJournal('fail|It seems|already|rememb') or uo.GetX('finditem')==0
                wait(500)
            wend
            If Uo.InJournal('It seems|already') Then
                uo.say('all come')
                uo.attack('finditem')
                repeat
                    wait(100)
                until uo.dead() or uo.GetX('finditem')==0
                uo.warmode(0)
                wait(500)
            endif
        endif
        wait(500)
    Until uo.Dead()
end sub

sub AnimalTaming()
    VAR animal = '0x00DC' # тип животного
    var COLanimal = '0x0000' # цвет животного
    var body = ' ' # тут тип трупа
    uo.Set('finddistance', 8)
    Repeat
        uo.FindType(animal, COLanimal, 'ground')
        if uo.FindCount()>0 then
            uo.warmode(0)
            wait(500)
            UO.DeleteJournal()
            while not UO.InJournal('It seems|see the creature|already|rememb')
                UO.DeleteJournal()
                UO.WaitTargetObject('finditem') 
                UO.Useskill('Animal Taming')
                repeat
                    wait(100)
                until UO.InJournal('fail|It seems|already|rememb') or uo.GetX('finditem')==0
                wait(500)
            wend
            If Uo.InJournal('It seems|already') Then
                uo.say('all come')
                uo.attack('finditem')
                repeat
                    wait(100)
                until uo.dead() or uo.GetX('finditem')==0
                uo.warmode(0)
                forensic()
                wait(500)
            endif
        endif
        wait(500)
    Until uo.Dead()
end sub

sub forensic()
var n, p
 uo.warmode(0)
  uo.disarm('arm')
   p=0
 for n=0 to 5
  uo.deletejournal()
    uo.waittargetground(body)
     uo.useskill('Forensic Evaluation')
  while not uo.injournal('stop|This is the|You can tell')
   wait(200)
   if p<15 then
    p=p+1
   else
    uo.sayu('stop')
    uo.waittargetground(body)
     uo.useskill('Forensic Evaluation')
     p=0
   endif
  wend
   p=0
    wait(1500)
 next
  ir()
end sub

sub ir()
 uo.ignorereset()
end sub