Yoko

All sides of Injection
It is currently 2026-03-05 15:37:21

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 
  Print view Previous topic | Next topic 
Author Message
volting
PostPosted: 2009-02-24 15:23:15 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
Помогите плз, мне надо чтоб он учитывал и пойсон и морталы и сразу после мортала пил, а не пытался пить, когда на мне мортал, я уже перепрбывал всё изменить там, вообще не получается, помогите, кто может...

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
Top
   
Reply with quote  
volting
 Post subject:
PostPosted: 2009-02-25 14:42:47 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
Народ, помогайте ктонить ;)
Top
   
Reply with quote  
Millerbeer
 Post subject:
PostPosted: 2009-02-25 16:12:08 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
А что за мортал, это чего такое?
Top
   
Reply with quote  
volting
 Post subject:
PostPosted: 2009-02-25 19:49:18 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
Millerbeer wrote:
А что за мортал, это чего такое?

Абилка такая инвул, типо лечится под ней нельзя...
Top
   
Reply with quote  
Millerbeer
 Post subject:
PostPosted: 2009-02-25 21:46:43 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
отступы расставь, у тебя там напутано с IF ELSE ENDIF
Top
   
Reply with quote  
volting
 Post subject:
PostPosted: 2009-02-25 22:40:50 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
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)


И чтобы после проверки он сразу пил бутылку хела..
Top
   
Reply with quote  
Millerbeer
 Post subject:
PostPosted: 2009-02-26 15:47:32 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
А почему, если отравлен, то подождать 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


типа как-то так
Top
   
Reply with quote  
volting
 Post subject:
PostPosted: 2009-02-26 18:14:36 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
Как только даётся второй мортал он начинает тупить.. помоему, потомучто он выпивает и ждёт 14 сек, и когда в это ожидание 14-ти сек даётс мортал он запоминает, эти 14 сек проходят и он видит в журнале что был мортал и опять ждёт 7 сек, хоть мортал уже прошел давно...
Top
   
Reply with quote  
Edikus
 Post subject:
PostPosted: 2009-02-26 20:19:35 
Offline

Joined: 2004-07-12 13:03:57
Posts: 98
a где сейчас именно проблема?

смени Эти 14 секунд на то что тебе больше подойдёт...
Top
   
Reply with quote  
volting
 Post subject:
PostPosted: 2009-02-26 20:57:46 
Offline
User avatar

Joined: 2008-10-29 17:27:20
Posts: 75
Edikus wrote:
a где сейчас именно проблема?

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

Ты не понял, если мортл, он по скрипту ждёт 7 секнунд, потом идёт проверка на хп и если меньше нзначенного хп, то пьёт банку и чтобы вернутся в начало скрипта он ждёт 14, потомучто 14 сек это установленное ограничение на сервере на питьё банки хила, так вот, если во время 14-ти сек мне дают мортал, скрипт начинает тупить, в журнали то показывает что мне мортал дали и он после 14-ти сек начинает опять ждать 7 сек хотя мортала на мне уже нет, но он был...
Top
   
Reply with quote  
Millerbeer
 Post subject:
PostPosted: 2009-02-26 21:32:16 
Offline
User avatar

Joined: 2008-09-12 05:07:34
Posts: 247
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


Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 11 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 0 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited