scanpicture+sub

[sabziro222]

Доброго времени суток!
Суть такова, пока (arrsize($var) > 0),тогда выполнение подпрограммы (причём  эта подпрограмма будет исп и в других scanpicture)
как можно сделать,чтобы sub заработал?
код:
 getscreen   
    scanpicture($var, 412,572, 1310,661, "o.bmp",0,100)
while (arrsize($var) > 0)
$y = arrpop($var)
      $x = arrpop($var)
      lclick($x, $y)
      waitms(2000)
      gosub(click)
 SUB(click)     
lclick(920,672)
KEYPRESS(#enter)         
WAITMS(RND(6500,7000)
END_SUB
end_cyc

[Oraven]

Какая у тебя версия кликера? Похоже сочетание scanpicture и gosub применимо только для 4.8 версии.
Однако подпрограмма всегда должна быть на первом уровне, никаких вложений!

Верный код:

Code: (clickermann) [Select]

SUB(click)
   lclick(920,672)
   KEYPRESS(#enter)
   WAITMS(RND(6500,7000))
END_SUB

getscreen
scanpicture($var, 412,572, 1310,661, "o.bmp",0,100)
while (arrsize($var) > 0)
   $y = arrpop($var)
   $x = arrpop($var)
   lclick($x, $y)
   waitms(2000)
   gosub(click)
end_cyc

[Oraven]

у меня 4.12b

В место того что бы бездумно копипастить код из интернета лучше бы почитал справку. Вызов подпрограммы от версии 4.9 и выше пишется так "click()"

Code: (clickermann) [Select]

SUB(click) // подпрограмма обязательно должна быть выше вызова, обычно их описывают в начале скрипта.
   lclick(920,672)
   KEYPRESS(#enter)
   WAITMS(RND(6500,7000))
END_SUB

getscreen
scanpicture($var, 412,572, 1310,661, "o.bmp",0,100)
while (arrsize($var) > 0)
   $y = arrpop($var)
   $x = arrpop($var)
   lclick($x, $y)
   waitms(2000)
   click()
end_cyc

[Vint]

В

Code: (clickermann) [Select]

WAITMS(RND(6500,7000)не хватает закрывающей скобки.

[sabziro222]

нормально заработало,когда scanpicture взял со справки

Code: (clickermann) [Select]

  SUB(NIC)
lclick(959,678)
waitms(3000)
KEYPRESS(#enter)
waitms(6000)
END_SUB
GETSCREEN
WAITMS(700)
scanpicture($ARR_SCAN, 419,591, 1310,661, "o.bmp",0,100)
$ARR_NUM = 0
WHILE ($ARR_NUM < ARRSIZE($ARR_SCAN))
   $X = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
   $Y = $ARR_SCAN [$ARR_NUM]
   INC($ARR_NUM,1)
lclick($x,$y)
   LOGWRITE ("X: ", $X, " Y: ", $Y)
   waitms(2500)
   NIC()
END_CYC
UNDEFINE($ARR_SCAN)