Скрипт на Хилинг СОС
Posted: 2005-05-14 15:53:14
я не понимаю народ работает он или нет если работает то как его юзать помогоите плз(объясните)
sub HealTrain()
VAR CharHP=180, LastTimer
UO.UnDress()
While UO.SkillVal('Healing',1)<1000
UO.Dress('a')
While UO.GetHP()>CharHP-2
wait(500)
Wend
UO.UnDress()
UO.BandageSelf()
UO.UseObject('0x4029A08E')
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100
Wend
end sub
sub HealTrain()
VAR CharHP=180, LastTimer
UO.UnDress()
While UO.SkillVal('Healing',1)<1000
UO.Dress('a')
While UO.GetHP()>CharHP-2
wait(500)
Wend
UO.UnDress()
UO.BandageSelf()
UO.UseObject('0x4029A08E')
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100
Wend
end sub