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

Помогите с учетами в скрипте на хил
http://forum.yoko.com.ua/viewtopic.php?f=3&t=14462		 Page 1 of 1
Author:  volting [ 2009-02-24 15:23:15 ]
Post subject:  Помогите с учетами в скрипте на хил
Помогите плз, мне надо чтоб он учитывал и пойсон и морталы и сразу после мортала пил, а не пытался пить, когда на мне мортал, я уже перепрбывал всё изменить там, вообще не получается, помогите, кто может...

Var Shield='0x1BC4'
If UO.H > 0 Then
While UO.Life >0
If UO.Poisoned() Then
wait(1000)
If UO.InJournal("cliloc# 0x2CF7")Then
UO.Print ('MORTAL')
wait(7000)
UO.exec("unequip Lhand")
wait(550)
UO.Exec("usetype heal")
wait(150)
UO.Equipt('Lhand',Shield)
uo.deletejournal()
Else
If UO.Life < 100 Then
UO.exec("unequip Lhand")
wait(550)
UO.Exec("usetype heal")
wait(150)
UO.Equipt('Lhand',Shield)
wait(14000)
uo.deletejournal()
End if
Else
wait(100)
Endif
Endif
Else
UO.Print('NET HULOK!!!')
wait(5000)
Endif
Wend
end sub
Author:  volting [ 2009-02-25 14:42:47 ]
Post subject: 
Народ, помогайте ктонить ;)
Author:  Millerbeer [ 2009-02-25 16:12:08 ]
Post subject: 
А что за мортал, это чего такое?
Author:  volting [ 2009-02-25 19:49:18 ]
Post subject: 
Millerbeer wrote:
А что за мортал, это чего такое?

Абилка такая инвул, типо лечится под ней нельзя...
Author:  Millerbeer [ 2009-02-25 21:46:43 ]
Post subject: 
отступы расставь, у тебя там напутано с IF ELSE ENDIF
Author:  volting [ 2009-02-25 22:40:50 ]
Post subject: 
Millerbeer wrote:
отступы расставь, у тебя там напутано с IF ELSE ENDIF

Давай тогда проще сделаем...
Вот скрипт:
Code:
Sub Heal
Var Shield='0x1BC4'
    If UO.H > 0 Then
       While UO.Life >0
         If UO.Poisoned() Then
          Wait(1000)
         Else
          If UO.Life < 100 Then
           UO.exec("unequip Lhand")
           wait(550)
           UO.Exec("usetype heal")
           wait(150)
           UO.Equipt('Lhand',Shield)
           wait(14000)
         Else
           wait(400)
         Endif
       Endif
     Else
     UO.Print('NET HULOK!!!')
    Endif
    Wend
end sub

Туда надо вставить проверку на мортал:
Code:
 If UO.InJournal("cliloc# 0x2CF7")Then 
                 UO.Print ('MORTAL')
                 wait(7000)


И чтобы после проверки он сразу пил бутылку хела..
Author:  Millerbeer [ 2009-02-26 15:47:32 ]
Post subject: 
А почему, если отравлен, то подождать 1 секунду?
Code:
Sub Heal() 
Var Shield='0x1BC4' 
   while not uo.dead() and uo.h 
         If UO.Poisoned() Then 
            Wait(1000) 
         endif
         If UO.InJournal("cliloc# 0x2CF7")Then 
                 UO.Print ('MORTAL') 
                 wait(7000)
                 uo.deletejournal()
         endif
         If UO.Life < 100 Then 
           UO.exec("unequip Lhand") 
           wait(550) 
           UO.Exec("usetype heal") 
           wait(150) 
           UO.Equipt('Lhand',Shield) 
           wait(14000) 
         Else 
           wait(400) 
         Endif 
   wend
    if not uo.h then 
     UO.Print('NET HULOK!!!') 
    Endif 
end sub


типа как-то так
Author:  volting [ 2009-02-26 18:14:36 ]
Post subject: 
Как только даётся второй мортал он начинает тупить.. помоему, потомучто он выпивает и ждёт 14 сек, и когда в это ожидание 14-ти сек даётс мортал он запоминает, эти 14 сек проходят и он видит в журнале что был мортал и опять ждёт 7 сек, хоть мортал уже прошел давно...
Author:  Edikus [ 2009-02-26 20:19:35 ]
Post subject: 
a где сейчас именно проблема?

смени Эти 14 секунд на то что тебе больше подойдёт...
Author:  volting [ 2009-02-26 20:57:46 ]
Post subject: 
Edikus wrote:
a где сейчас именно проблема?

смени Эти 14 секунд на то что тебе больше подойдёт...

Ты не понял, если мортл, он по скрипту ждёт 7 секнунд, потом идёт проверка на хп и если меньше нзначенного хп, то пьёт банку и чтобы вернутся в начало скрипта он ждёт 14, потомучто 14 сек это установленное ограничение на сервере на питьё банки хила, так вот, если во время 14-ти сек мне дают мортал, скрипт начинает тупить, в журнали то показывает что мне мортал дали и он после 14-ти сек начинает опять ждать 7 сек хотя мортала на мне уже нет, но он был...
Author:  Millerbeer [ 2009-02-26 21:32:16 ]
Post subject: 
Code:
Sub Heal() 
Var Shield='0x1BC4' 
   while not uo.dead() and uo.h 
         If UO.Poisoned() Then 
            Wait(1000) 
         endif 
         If UO.InJournal("cliloc# 0x2CF7")Then 
                 UO.Print ('MORTAL') 
                 wait(7000) 
                 uo.deletejournal() 
         endif 
         If UO.Life < 100 Then 
           UO.exec("unequip Lhand") 
           wait(550) 
           UO.Exec("usetype heal") 
           wait(150) 
           UO.Equipt('Lhand',Shield) 
           wait(7000) 
              If UO.InJournal("cliloc# 0x2CF7")Then 
                 UO.Print ('MORTAL') 
                 wait(7000) 
                 uo.deletejournal() 
              else
                 wait(7000)
              endif 
         Else 
           wait(400) 
         Endif 
   wend 
    if not uo.h then 
     UO.Print('NET HULOK!!!') 
    Endif 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/