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
