var CursedObject='0x40292C22' ; Объект с курсой.
var Layer='Hat' ; Куда он надевается, по умолчанию - шляпа.
var Palka='0x13F8' ; Тип палки для тейминга.
var Food='0x097B' ; Что будем переодически кушать.
var CharSTR

sub Taming()
var ToEat=0,Fail=0
var LastTimer

uo.print('Choose animal')
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend

CharSTR=uo.STR

SS()
uo.SetGlobal('SS','off')
uo.exec('exec SSCheck')
wait(500)

repeat
HealingTrain()
if uo.GetGlobal('SS')=='on' then
SS()
uo.SetGlobal('SS','off')
endif
ToEat=ToEat+1
if ToEat==125 then
Eat()
ToEat=0
endif
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.UseType(Palka)
LastTimer=uo.timer()
repeat
wait(500)
until UO.InJournal('You fail') OR UO.InJournal('It seems') or Uo.InJournal('already tame.') OR uo.timer()>=LastTimer+2500

if uo.injournal('You fail') then
Fail=Fail+1
endif
if uo.injournal('It seems') then
Fail=0
endif
if Fail==30 then
wait(20000)
Fail=0
endif

If Uo.InJournal('It seems') or Uo.InJournal('already tame.') then
UO.Msg('All release')
wait(500)
Endif

until uo.dead()
end sub

sub Eat()
uo.findtype(Food)
if uo.findcount()>0 then
repeat
UO.UseObject('finditem')
wait(500)
until uo.count(Food)==0 or uo.injournal('You feel quite full') OR uo.injournal('You are stuffed!') OR uo.injournal('You are simply too full')
endif
end sub

sub SSCheck()
var SSTimer
while true
SSTimer=uo.timer()
repeat
wait(1000)
until uo.timer()>=SSTimer+3000
uo.SetGlobal('SS','on')
repeat
wait(1000)
until uo.GetGlobal('SS')=='off'
wend
end sub

sub SS()
for var i=1 to 10
uo.deletejournal()
uo.useskill('Sp')
repeat
wait(200)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
if uo.injournal("You establish a connection to the netherworld.") then
return 1
endif
next
end sub

sub HealingTrain()
var LastTimer
if uo.GetHP()<CharSTR and uo.count(0x0E21)>0 then
uo.UnEquip(Layer)
wait(500)
UO.SetArm('CWeapon')
CharSTR=uo.STR
repeat
LastTimer=uo.timer()
uo.deletejournal()
uo.bandageself()
repeat
wait(200)
until uo.injournal('You put the bloody') OR uo.injournal('they barely help.') or uo.timer()>=LastTimer+50
until uo.GetHP()==uo.GetMaxHP()
uo.Arm('CWeapon')
wait(250)
if uo.count(0x0E20)>0 then
uo.FindType(0x1008)
uo.WaitTargetObject('finditem')
uo.UseType(0x0E20)
wait(250)
endif
endif
uo.equip(Layer,CursedObject)
wait(250)
end sub