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

Хилинг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1985		 Page 1 of 1
Author:  Optical [ 2004-11-18 03:15:44 ]
Post subject:  Хилинг
Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(
Author:  Leks [ 2004-11-18 07:28:01 ]
Post subject:  Re: Хилинг
Optical wrote:
Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(

Тут через поиск я нашел штук 5-7 разных... и загляни в "Скрипты и Клуб.".....
Author:  Askaneli [ 2004-11-18 07:48:46 ]
Post subject:  Re: Хилинг
Optical wrote:
Дайте пожалуйсто скрипт на хилинг для шарда DrW.
У меня был скрипт, но он очень древний, и теперь он не работает =(

Code:
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


Я вот этим качал !!! Взял тута чей-то и добавил кое что !!!
Author:  Di®A†h [ 2004-11-18 12:19:27 ]
Post subject: 
или вот еще неплохой...
Code:
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
Author:  drcrazy [ 2004-11-18 13:42:49 ]
Post subject: 
ООО.. Дираф, дарофф..
Ты сас где бегаешь?
Author:  Di®A†h [ 2004-11-18 14:09:33 ]
Post subject: 
drcrazy wrote:
ООО.. Дираф, дарофф..
Ты сас где бегаешь?

в окло, а ты кто?))
Author:  Bloodmoon [ 2004-11-18 14:28:04 ]
Post subject: 
Или вот мой :)

Code:
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

Люди,запихните в этот скрипт реконетер пожалуеста.А то я пробывал,у меня не получалось.
Author:  Leks [ 2004-11-19 00:06:18 ]
Post subject: 
Bloodmoon wrote:
Или вот мой :)

Code:
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:
 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, не смейся :)))
Author:  BETEPAH [ 2004-11-19 09:53:16 ]
Post subject: 
Я сдерживаюсь ......пытаюсь... :oops: .......нет НЕМОГУ ....аааа... :lol: :mrgreen:
Author:  drcrazy [ 2004-11-19 10:46:08 ]
Post subject: 
Di®A†h wrote:
в окло, а ты кто?))


Хех.. я шард имел ввиду..
Я с тобой на Энигме играл.. Пару раз на сходках виделись..
Author:  Bloodmoon [ 2004-11-19 18:31:47 ]
Post subject: 
BETEPAH wrote:
Я сдерживаюсь ......пытаюсь... :oops: .......нет НЕМОГУ ....аааа... :lol: :mrgreen:

Чего смеешься? :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/