Подпрограммы

[InsDel]

Что то не врубаюсь..
Вылетает ошибка POP()
Помогите разобраться

Code: (clickermann) [Select]

SUB(target)
KEYPRESS(#F9)
GETSCREEN
$hp_max = PXL(1044,52)
$hp_min = PXL(896,52)
WAITMS(100)
KEYPRESS(#F1)
WAIT(1)
END_SUB


SUB(kill)
IF $hp_min ! $hp_min
WAITMS(100)
target()
ELSE
kill()
END_IF
END_SUB

[dramster]

(PXL(1044,52) ! PXL(1044,52)) 
Вас случаем это не смущает?

[Oraven]

кто знает как там у него что работает, но вот исходный, но правильно работающий вариант
 

Code: (clickermann) [Select]

SUB(target)
   KEYPRESS(#F9)
   WAITMS(100)
   GETSCREEN
   $hp_max = PXL(1044,52)
   $hp_min = PXL(896,52)
   KEYPRESS(#F1)
   WAIT(1)
END_SUB

SUB(kill)
   target() // жмем F9 и F1 в первый раз
   WHILE($hp_min ! $hp_max) // и если min и max не одинаковы повторяем
      target()
   END_CYC
END_SUB

kill()

[Sania]

Ух ты, а можно писать сабы внутри саба???
Например:
SUB(1)
   If...
   SUB(2)
   else
   SUB(3)
   END_SUB
   END_SUB
END_SUB

[Oraven]

Ух ты, а можно писать сабы внутри саба???
Например:
SUB(1)
   If...
   SUB(2)
   else
   SUB(3)
   END_SUB
END_SUB
END_SUB

Конечно нет, ты написал полный бред.

[Sania]

Японял спасибо)

[Sania]

Я так и хотел, просто интересовала сама суть вопроса, главное что меня поняли, я просто давненько думал можно можно ли писать подпрограммы друг в друге и вот ответ)))

[malf66]

Помогите! Где напортачил? выдает ошибку сценария "Ошибка при вызове функции РОР()""

// Вводим исходные параметры
SUB (Vvod)

//Ставка ввод
DBLCLICK($x_cop,$y_cop)   // выделение значения
WAITMS(100)
KEYDOWN(17)     // Ctrl копирование
WAITMS(100)
KEYDOWN(67)     // C
WAIT (1)

DBLCLICK($x_vvd,$y_vvd)   // выделение значения
WAITMS(100)
KEYDOWN(17)        // Ctrl  Ввод
WAITMS(100)
KEYDOWN(86)        // V
WAIT (1)

END SUB

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

[open_78]

SUB (Vvod)
   
   //Ставка ввод
   DBLCLICK($x_cop,$y_cop)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)     // Ctrl копирование
   WAITMS(100)
   KEYDOWN(67)     // C
   WAIT (1)
   
   DBLCLICK($x_vvd,$y_vvd)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)        // Ctrl  Ввод
   WAITMS(100)
   KEYDOWN(86)        // V
   WAIT (1)
   
END_SUB  //  Вот так правильно

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

[open_78]

И клавиши отжимать надо командой KEYUP(). 

[malf66]

Спасибо за помощь. Вот мелочь, но обязательно просмотрю. А вот на KEYUP() обиделся, снова выдал ошибку. А в принципе робит и без отжатия.

[open_78]

Спасибо за помощь. Вот мелочь, но обязательно просмотрю. А вот на KEYUP() обиделся, снова выдал ошибку. А в принципе робит и без отжатия.

Я конечно уверен что команду отжатия ты правильно написал, но на всякий случай проверим. У тебя так?

Code: (clickermann) [Select]

SUB (Vvod)
   
   //Ставка ввод
   DBLCLICK($x_cop,$y_cop)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)     // Ctrl копирование
   WAITMS(100)
   KEYDOWN(67)     // C
   WAITMS(100)
   KEYUP(67)
   WAITMS(100)
   KEYUP(17)
   WAIT (1)
   
   DBLCLICK($x_vvd,$y_vvd)   // выделение значения
   WAITMS(100)
   KEYDOWN(17)        // Ctrl  Ввод
   WAITMS(100)
   KEYDOWN(86)        // V
   WAITMS(100)
   KEYUP(86)
   WAITMS(100)
   KEYUP(17)
   WAIT (1)
   
END_SUB

// Ввод ставки
$x_cop =  $x_st
$y_cop =  $y_st
$x_vvd =  $x1_st
$y_vvd =  $y1_st

Vvod ()

[malf66]

Нее, я понял, что можно без цифер.

[Vint]

Где можно? Если внутри KEYUP, то как раз нельзя.

KEYUP(код клавиши)