Помогите плиз=))

[Ekkie]

Короче проблема такая... По идее скрипт должен одевать курсу перед тем как похилился...
Но он сбивается .. Хилится а только потом одевает курсу.... исправте плиз!

Code: Select all

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 

[GimFlex]

юзай поиск

Code: Select all

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