Yoko

sub taming()
VAR Y,i
DIM horse[4]
horse[1] = "0x00cc"
horse[2] = "0x00e4"
horse[3] = "0x00e2"
horse[4] = "0x00c8"
UO.ServerPrint("All release")
start:
UO.Exec("ignorereset")
For i=1 to 4
While UO.CountGround(horse[i])>0
tam(horse[i])
Wend
NEXT
goto start
end sub

sub tam(X)
VAR Y
nacalo:
Y = 0
UO.Canceltarget()
UO.Waittargetground(X)
UO.Useskill("Taming")
UO.DeleteJournal()
While not UO.InJournal("It seems to accept you as master") and not UO.InJournal("You fail to tame the creature") and not UO.InJournal("remembers you") and Y < 40
Y = Y + 1
Wait(500)
Wend
If UO.InJournal("You fail to tame the creature") then
goto nacalo
End if
UO.ServerPrint("All release")
UO.Ignore("lasttarget")
UO.Print(STR(UO.CountGround(0x00E2)+UO.CountGround(0x00E4)+UO.CountGround(0x00C8)+UO.CountGround(0x00CC))+" losadok ne tamilosj")
end sub

sub taming()
    VAR i
    DIM horse[4]
        horse[0] = "0x00cc"
        horse[1] = "0x00e4"
        horse[2] = "0x00e2"
        horse[3] = "0x00c8"
    UO.ServerPrint("All release")
    while true
        UO.ignorereset()
        For i = 0 to 3
            While UO.CountGround(horse[i])>0
                tam(horse[i])
            Wend
        NEXT
        wait(100) ; !!!
    wend
end sub

sub tam(X)
    VAR Time
    repeat
        UO.Canceltarget()
        UO.Waittargetground(X)
        UO.Useskill("Taming")
        UO.DeleteJournal()
        Time = UO.Timer()
        repeat
            Wait(100)
        until not UO.InJournal("It seems to accept you as master|You fail to tame the creature|remembers you") or Time + 200 <= UO.Timer()
    until UO.InJournal("You fail to tame the creature")
    UO.ServerPrint("All release")
    UO.Ignore("lasttarget")
    UO.Print(STR(UO.CountGround(0x00E2)+UO.CountGround(0x00E4)+UO.CountGround(0x00C8)+UO.CountGround(0x00CC))+" losadok ne tamilosj")
end sub

sub AnimalTaming()
   VAR n=1, corpse
   var animal1 = '0x00D0' #тип животного
   UO.Set('quiet','0')
   uo.ignorereset()
   uo.warmode('0')
   Repeat
      uo.Set('finddistance', 8)
      uo.FindType(animal1, -1, 'ground')
      if uo.FindCount()>0 then
         uo.warmode(0)
         UO.DeleteJournal()
         UO.DeleteJournal()
         UO.WaitTargetObject('finditem')  
         UO.Useskill('Animal Taming')
         repeat
            wait(100)
         until UO.InJournal('fail|It seems|already|rememb|creature') or uo.GetX('finditem')==0
         If Uo.InJournal('It seems|already|creature') Then
            UO.Hide('finditem')
            UO.Ignore('finditem')
            uo.say('all release')
         endif
      else
         uo.ignorereset()
         UO.Msg(".resync")
         wait(500)
         eat()
      endif
      wait(500)
   Until uo.Dead()
end sub
Sub eat()
   var havka      = '0x097B', LastTimer
   REPEAT
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.findtype(havka,-1,'backpack')
      If UO.FindCount() > 0 Then
         UO.Useobject('finditem')
         wait(200)
      Else
         UO.Print( 'кончилась рыба' )
         return 0
      end if
   Until UO.InJournal("stuffed!|think|found|Вы ничего не можете") OR UO.Timer()>LastTimer+200
end sub