scanpicture(массивы)

[sabziro222]

Добрый вечер!
есть код:
 getscreen
scanpicture($var, 231,194, 1698,582, "lo.bmp",0)
while (arrsize($var) > 0)
  $y = arrpop($var)
  $x = arrpop($var)
  lclick($x, $y)
print("X=", $x, ", Y=", $y)
end_cyc
ЛОГ:
1)19:39:04 X=1049, Y=553
2)19:39:08 X=1049, Y=476
3)19:41:48 X=1049, Y=399
4)19:41:52 X=1049, Y=322
5)19:41:56 X=1049, Y=245
6)19:42:01 X=1049, Y=553
7)19:42:05 X=1049, Y=476
8)19:42:09 X=1049, Y=399
9)19:42:14 X=1049, Y=322
10)19:42:18 X=1049, Y=245
(потом повтор с 1-10)

программа  НАХОДИТ КАРТИНКИ И КЛИКАЕТ ПО  ДАННЫМ КООРДИНАТАМ  ,возможно ли сделать,чтобы последовательности кликов не было,то есть рандомно переходила по этим 10 координатам 



 

[sabziro222]

А можно пожалуйста  чуть-чуть по подробней

[Oraven]

Code: (clickermann) [Select]

GETSCREEN
SCANPICTURE($ARR_SCAN, 231,194, 1698,582, "lo.bmp", 0, 100)
$siz = ARRSIZE($ARR_SCAN)
IF($siz > 0)
   FOR($a=0,$a<$siz,2)
      ARRPUSH($ARR, $a)
   END_CYC
   $i = ARRSIZE($ARR)-1
   WHILE($i>0)
      $j = RND(0,$i)
      IF($i ! $j)
         $tmp = $arr[$j]
         $ARR[$j] = $ARR[$i]
         $ARR[$i] = $tmp
      END_IF
      INC($i,-1)
   END_CYC
   FOR($ARR_NUM=0,$ARR_NUM<$siz/2)
      LCLICK($ARR_SCAN[$ARR[$ARR_NUM]], $ARR_SCAN[$ARR[$ARR_NUM]+1])
      WAITMS(100)
   END_CYC
   UNDEFINE($ARR_SCAN)
   UNDEFINE($ARR)
END_IF

[sabziro222]

Спасибо большое !!!