AutoCure

[John Bosoy]

Подскажите что не так в скрипте, почему не работает?

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

[RL_ka]

Код нужно оформлять вот так, тогда у людей будет намного больше желания помогать тебе

Code: Select all

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

[John Bosoy]

Код нужно оформлять вот так, тогда у людей будет намного больше желания помогать тебе

Code: Select all

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

Буду знать!)

[John Bosoy]

Помогите пожалуйста.

[Mirage]

А что не так?
Паузы не хватает в цикле да не понятно для чего скачек на a: сделан.

Code: Select all

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 оружия указаны верно.

[John Bosoy]

Code: Select all

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

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

не работают оба...

[Mirage]

Бида.
А мой у меня работает. Если все правильно прописать.

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

Напиши на бумаге по русски последовательно действия которые ты хочешь чтобы скрипт делал и посмотри что ты ваяешь. Зачем цикл в цикле? Почему нет паузы если условия не выполняются? В общем в уроки в уроки...