Yoko
http://forum.yoko.com.ua/

Скрипт на Хилинг СОС
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4002		 Page 1 of 1
Author:  Dralka [ 2005-05-14 15:53:14 ]
Post subject:  Скрипт на Хилинг СОС
я не понимаю народ работает он или нет если работает то как его юзать помогоите плз(объясните)

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
Author:  Dominator [ 2005-05-15 03:06:52 ]
Post subject: 
Я ваще непойму где ты такой скрипт откапал ,я скоко у знакомых брал мне всегда давали почти 1 и тот же , вот он работает на 100%

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(0x0E86); 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(1000)
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



uo.usetype(0x0E86); Cursed Hat Вот в этой строчке поменяй на свой тип курсяной кирки и скрипт заработает
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/