Ultima Online Antares

sub Tam()
VAR TamTime = UO.Timer()
var tam='0x00CF'
var ser, kk, MaxVes
VAR SpiritTime = UO.Timer()
uo.ignorereset()
UO.Exec( 'set finddistance 9' )
#uo.Exec('terminate Herding')
#AddObject('tam','Кого тамим?')
while Uo.skillval ( 'Animal Timing' ) < 110
  kk=0
  UO.FindType( '0x00CF', '-1', '1' )
  if UO.FindCount() > 0 then
    UO.Click( 'finditem' )
    wait(200)
    tam=UO.GetSerial('finditem')
    uo.print( 'serial'+tam )
    wait(200)
  UO.WarMode( 0 )
    UO.DeleteJournal()
    UO.WaitTargetObject(tam) 
    UO.UseSkill( 'Animal Taming' )
    repeat
      wait(1000)
      kk=kk+1
    until UO.InJournal('to accept you|You fail to tame|is already|of battle|see the creature|kk>10|You are too far')
  if UO.InJournal('master|already') then
        wait(1000)
            UO.WaitTargetObject(tam) 
            uo.say("all kill")
            wait(1000)
            kk=0
      repeat
      kk=kk+1
      wait(1000)
      until UO.InJournal('Body') or kk>12
    UO.WarMode( 0 )
  wait(100)
    if UO.InJournal('Body') then
        LootRat()
        wait(1000)
      endif  
      If ( UO.Timer() - SpiritTime ) / 600 >  15 Then  ; Прошло 5 минут с момента последней кормежки
        UO.UseType( '0x097B' ) ; фишстейки
        wait(1000)
      endif
    UO.Ignore( tam )
  end if
endif
#   MaxVes = 0
#   MaxVes = ((UO.STR) * 4)
#   If UO.Weight > MaxVes Then
#     RecallHome()
#     wait(5000)
#     NechegoDelat()
#   Endif  
wait(1000)
wend
uo.ignorereset()
endsub

sub LootRat()
DIM R[3]
var c
R[1] = 0x0C4F
R[2] = 0x1078
R[3] = 0x09F1

UO.UseObject('lastcorpse')
wait(400)
uo.waittargetobject('lastcorpse')
uo.usetype(0x0F51)
wait(800)

for c=1 to 3
repeat
uo.findtype(R[c],"-1","lastcorpse")
if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=4 then
UO.Grab("0","finditem")
wait(1000)
end if
until UO.FindCount()<1
wait(10)
uo.usetype('0x0F9E')
wait(20)
uo.waittargettype('0x1078')
UO.DeleteJournal()
next
end sub