Помогите с учетами в скрипте на хил

volting · Post by **volting** » 2009-02-24 15:23:15

Помогите плз, мне надо чтоб он учитывал и пойсон и морталы и сразу после мортала пил, а не пытался пить, когда на мне мортал, я уже перепрбывал всё изменить там, вообще не получается, помогите, кто может...

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

volting · Post by **volting** » 2009-02-25 14:42:47

Народ, помогайте ктонить

Millerbeer · Post by **Millerbeer** » 2009-02-25 16:12:08

А что за мортал, это чего такое?

volting · Post by **volting** » 2009-02-25 19:49:18

Millerbeer wrote:А что за мортал, это чего такое?

Абилка такая инвул, типо лечится под ней нельзя...

Millerbeer · Post by **Millerbeer** » 2009-02-25 21:46:43

отступы расставь, у тебя там напутано с IF ELSE ENDIF

volting · Post by **volting** » 2009-02-25 22:40:50

Millerbeer wrote:отступы расставь, у тебя там напутано с IF ELSE ENDIF

Давай тогда проще сделаем...
Вот скрипт:

Code: Select all

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: Select all

 If UO.InJournal("cliloc# 0x2CF7")Then 
                 UO.Print ('MORTAL')
                 wait(7000)

И чтобы после проверки он сразу пил бутылку хела..

Millerbeer · Post by **Millerbeer** » 2009-02-26 15:47:32

А почему, если отравлен, то подождать 1 секунду?

Code: Select all

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

типа как-то так

volting · Post by **volting** » 2009-02-26 18:14:36

Как только даётся второй мортал он начинает тупить.. помоему, потомучто он выпивает и ждёт 14 сек, и когда в это ожидание 14-ти сек даётс мортал он запоминает, эти 14 сек проходят и он видит в журнале что был мортал и опять ждёт 7 сек, хоть мортал уже прошел давно...

Edikus · Post by **Edikus** » 2009-02-26 20:19:35

a где сейчас именно проблема?

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

volting · Post by **volting** » 2009-02-26 20:57:46

Edikus wrote:a где сейчас именно проблема?

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

Ты не понял, если мортл, он по скрипту ждёт 7 секнунд, потом идёт проверка на хп и если меньше нзначенного хп, то пьёт банку и чтобы вернутся в начало скрипта он ждёт 14, потомучто 14 сек это установленное ограничение на сервере на питьё банки хила, так вот, если во время 14-ти сек мне дают мортал, скрипт начинает тупить, в журнали то показывает что мне мортал дали и он после 14-ти сек начинает опять ждать 7 сек хотя мортала на мне уже нет, но он был...

Millerbeer · Post by **Millerbeer** » 2009-02-26 21:32:16

Code: Select all

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