sub Train_Healing() 
var i,j,tekstr 
uo.undress() 
wait(100) 
repeat 
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      tekstr=uo.str 
      wait(100) 
      cheklag() 
      uo.usetype(0x1F00); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000) 
      j=0 
      repeat 
      wait(10) 
      j=j+1 
      until (uo.life <= tekstr-1) or (j>1000) 
      cheklag() 
      uo.undress() 
      wait(100) 
      cheklag() 
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         cheklag() 
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
      else 
         cheklag() 
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
until uo.dead() 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub 

sub Healing() 
var Exit, LastTimer, Live 
uo.Print('Vuberi vech kyrsanutuu ') 
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) 
repeat 
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.usetype('0x097B')
uo.UseSkill('Spirit Speak') 
wait(2500) 
end sub 

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