sub Healing()
var Exit, LastTimer, Live
uo.Print('Выбери Курсанутую Вещь: ')
uo.Exec('addobject Curse')
while uo.Targeting()
wait(100)
wend
wait(300)
uo.DisArm()
wait(2000)
Exit=0
while Exit <> 1
Live=uo.STR
CheckLag()
uo.WaitTargetType('0x1008')
uo.UseType('0x0E20')
wait(500)
uo.UseObject('Curse')
SpiritSpeak()
wait(1500)
r epeat
wait(500)
until uo.Life<Live
CheckLag()
LastTimer=uo.Timer()
repeat
uo.BandageSelf()
wait(4000)
until uo.Life==uo.STR or LastTimer+300<uo.Timer()
wend
end sub

sub SpiritSpeak()
uo.UseSkill('Spirit Speak')
wait(2500)
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub