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

AutoCure
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17309		 Page 1 of 1
Author:  John Bosoy [ 2013-09-08 15:00:12 ]
Post subject:  AutoCure
Подскажите что не так в скрипте, почему не работает?

sub AUTO_Cure()
while not uo.dead()
If uo.Poisoned() > 0 Then
If uo.Count('0x0F07') > 0 Then
uo.unequip('Rhand','0x401A4B7C')
wait(700)
repeat
If uo.Count('0x0F07') < 1 Then
goto a
EndIf
uo.usetype(0x0F07)
wait(700)
until uo.Poisoned() < 1
a:
uo.equip('Rhand','0x401A4B7C')
wait(700)
Else
Wait(40)
EndIf
EndIf
wend
end sub
Author:  RL_ka [ 2013-09-08 15:29:31 ]
Post subject:  Re: AutoCure
Код нужно оформлять вот так, тогда у людей будет намного больше желания помогать тебе
Code:
sub AUTO_Cure()
   while not uo.dead()
      If uo.Poisoned() > 0 Then
         If uo.Count('0x0F07') > 0 Then
            uo.unequip('Rhand','0x401A4B7C')
            wait(700)
            repeat
               If uo.Count('0x0F07') < 1 Then
                  goto a
               EndIf
               uo.usetype(0x0F07)
               wait(700)
            until uo.Poisoned() < 1
            a:
            uo.equip('Rhand','0x401A4B7C')
            wait(700)
         Else
            Wait(40)
         EndIf
      EndIf
   wend
end sub
Author:  John Bosoy [ 2013-09-08 15:35:37 ]
Post subject:  Re: AutoCure
RL_ka wrote:
Код нужно оформлять вот так, тогда у людей будет намного больше желания помогать тебе
Code:
sub AUTO_Cure()
   while not uo.dead()
      If uo.Poisoned() > 0 Then
         If uo.Count('0x0F07') > 0 Then
            uo.unequip('Rhand','0x401A4B7C')
            wait(700)
            repeat
               If uo.Count('0x0F07') < 1 Then
                  goto a
               EndIf
               uo.usetype(0x0F07)
               wait(700)
            until uo.Poisoned() < 1
            a:
            uo.equip('Rhand','0x401A4B7C')
            wait(700)
         Else
            Wait(40)
         EndIf
      EndIf
   wend
end sub

Буду знать!)
Author:  John Bosoy [ 2013-09-09 12:30:27 ]
Post subject:  Re: AutoCure
Помогите пожалуйста.
Author:  Mirage [ 2013-09-09 12:54:42 ]
Post subject:  Re: AutoCure
А что не так?
Паузы не хватает в цикле да не понятно для чего скачек на a: сделан.

Code:
sub AUTO_Cure()
   while not uo.dead()
      If uo.Poisoned() and uo.Count('0x0F07') Then
         uo.unequip('Rhand','0x401A4B7C')
         wait(700)
         while uo.Poisoned() or uo.Count('0x0F07')
            uo.usetype(0x0F07)
            wait(700)
         wend
         uo.equip('Rhand','0x401A4B7C')
         wait(700)
      EndIf
      Wait(100)
   wend
end sub

Разумеется это будет работать если тип бутылки и ID оружия указаны верно.
Author:  John Bosoy [ 2013-09-09 21:35:01 ]
Post subject:  Re: AutoCure
Code:
sub drink_cure()
   while not uo.dead()
      While UO.Poisoned()
         If uo.Count('0x0F07') > 0 Then
            uo.unequip('Lhand',0x40106d68)
            wait(600)
            uo.usetype(0x0f07)
            wait(600)
            uo.equip('Lhand',0x40106d68)
            wait(600)
         Else
            Wait(40)
         EndIf
      wend
   wend
end sub


Code:
sub drink_cure()
   while not uo.dead()
      If UO.Poisoned() and uo.Count('0x0F07') > 0 Then       
            uo.unequip('Lhand',0x40106d68)
            wait(600)
            uo.usetype(0x0f07)
            wait(600)
            uo.equip('Lhand',0x40106d68)
            wait(600)
         Else
            Wait(40)
      EndIf
   wend
end sub


не работают оба...
Author:  Mirage [ 2013-09-09 23:22:28 ]
Post subject:  Re: AutoCure
Бида.
А мой у меня работает. Если все правильно прописать.

PS ну так ты опять у себя одни и теже ошибки допускаешь. Зачем спрашивать если не слушаешь что говорят?

Напиши на бумаге по русски последовательно действия которые ты хочешь чтобы скрипт делал и посмотри что ты ваяешь. Зачем цикл в цикле? Почему нет паузы если условия не выполняются? В общем в уроки в уроки...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/