Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(
Хилинг
Moderators: Murderator+, Murderator
Re: Хилинг
Optical wrote:Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(
Тут через поиск я нашел штук 5-7 разных... и загляни в "Скрипты и Клуб.".....
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
Re: Хилинг
Optical wrote:Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(
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
Я вот этим качал !!! Взял тута чей-то и добавил кое что !!!
Сделал дело - флуди смело !!!
или вот еще неплохой...
Code: Select all
sub hill()
var exit, LastTimer, live
var Reconnect=1 ; добавлено мной
if Reconnect==1 then ; добавлено мной
uo.Exec('exec Reconnect') ; добавлено мной
end if ; добавлено мной
uo.disarm()
wait(2000)
exit = 0
while exit <> 1
live = UO.STR
CheckLag()
uo.waittargettype ('0x1008')
uo.usetype ('0x0E20')
wait(500)
uo.usetype('0x0E85') ;kursnutaja kirka
uo.useskill('Spirit Speak')
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
-=$؆=-
Или вот мой 
Люди,запихните в этот скрипт реконетер пожалуеста.А то я пробывал,у меня не получалось.
Code: Select all
sub Train_Healing()
var i
while True
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
uo.usetype(0x1718); Cursed Hat
CheckLag()
if i==3 or not i then
Spirit() #----
i=1
else
i=i+1
endif
# uo.useskill ("Spirit Speak")
wait(2000)
uo.undress()
wait(100)
uo.exec('bandageself')
Wait(2000)
else
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
CheckLag()
else
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
wend
end subЛюди,запихните в этот скрипт реконетер пожалуеста.А то я пробывал,у меня не получалось.
©Blodmoon
Bloodmoon wrote:Или вот мойCode: Select all
sub Train_Healing()
var i
while True
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
uo.usetype(0x1718); Cursed Hat
CheckLag()
if i==3 or not i then
Spirit() #----
i=1
else
i=i+1
endif
# uo.useskill ("Spirit Speak")
wait(2000)
uo.undress()
wait(100)
uo.exec('bandageself')
Wait(2000)
else
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
CheckLag()
else
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
wend
end sub
Люди,запихните в этот скрипт реконетер пожалуеста.А то я пробывал,у меня не получалось.
Вот табе реконэкт:
Code: Select all
var Reconnect=1 ## 1 - Включить реконнект на сферу при дисконнекте, 0 - выключить.
sub Train_Healing()
var i
if Reconnect==1 then
uo.Exec('exec Reconnect')
end if
while True
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
uo.usetype(0x1718); Cursed Hat
CheckLag()
if i==3 or not i then
Spirit() #----
i=1
else
i=i+1
endif
# uo.useskill ("Spirit Speak")
wait(2000)
uo.undress()
wait(100)
uo.exec('bandageself')
Wait(2000)
else
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
CheckLag()
else
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
wend
end sub
sub Reconnect()
var reconnectTime, rFlag
reconnectTime = '0'
rFlag = 1
repeat
while (uo.ObjAtLayer('Bpack') == '')
if rFlag then
reconnectTime = MakeTime()
rFlag = 0
endif
wait(20000) ## - WorldSave.
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.LDblClick(357,164)
uo.LClick(616,459)
wait(3000)
wend
wait(3000)
if (rFlag == 0) and (reconnectTime <> '0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+reconnectTime)
rFlag = 1
reconnectTime = '0'
end if
until false
end sub
sub MakeTime()
var d, t, ret, i
ret = str(uo.Time())
t = ""
for i = 0 to Len(ret)
t = ret[Len(ret)-i] + t
if (i == 2) or (i == 4) then
t = ":" + t
end if
next
ret = str(uo.Date())
d = ""
for i = 0 to Len(ret)
d = ret[Len(ret)-i] + d
if (i == 2) or (I == 4) then
d = "." + d
end if
next
ret = t + " @ " + d
return ret
end sub BETEPAH, не смейся
))Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
.......нет НЕМОГУ ....аааа... 
