Yoko

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('0x1F03') 
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 

Одевает курсу , пишет что есму ненадо хилиться , и не снимает курсу !!!!!!!!!!!!!!!!!!помогите исправить скрипт или дайте новый

sub healing()
var count=0
var Strength=150 < tut ukazy silu 4ara
UO.setarm('curs')
uo.disarm()
wait(500)
repeat
UO.Arm('curs')
checklag()
wait (100)
UO.UseSkill('Spirit')
repeat
wait(200)
if UO.InJournal("netherworld") then
UO.DeleteJournal()
UO.UseSkill('Spirit')
endif
until UO.Life<Strength-2
UO.disarm()
while not UO.InJournal("bloody") and UO.Count('0x0E21')>2
UO.DeleteJournal()
UO.Exec("bandageself")
count=0
repeat
wait(200)
count=count+1
until UO.InJournal("apply") or UO.InJournal("bloody") or count>50
wend
wait(500)
if UO.Count('0x0e20')>0 and UO.Count('0x0e20')<2 then
UO.Waittargettype('0x1008')
UO.Usetype('0x0e20')
wait(500)
endif
until UO.Count('0x0e20')==0 and UO.Count('0x0E21')==0
end sub
sub checklag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

Etot skript lud4e rabotaet togda esli u ta kursanuta Kirka !

Etot skript lud4e rabotaet togda esli u ta kursanuta Kirka !