Может так?
LOGCLEAR
GETSCREEN
SCANPXL($ARR, 0,0,$_xmax,$_ymax, 255)
$num_X = 1
$i = 0
FOR ($i, $i<ARRSIZE($ARR), 2)
IF($i < ARRSIZE($ARR))
IF ($ARR[$i-2]+1 = $ARR[$i])
INC($num_X)
ELSE
IF($num_X > 1)
$txt = STRCONCAT("найдены ", $num_X, " смежных пикселей начиная с X = ", $ARR[$i-2]-$num_X+1, " общий Y = ", $ARR[$i-1])
LOGWRITE ($txt)
$num_X = 1
END_IF
END_IF
END_IF
$temp = $i
END_CYC
IF($num_X > 1)
LOGWRITE ("найдены ", $num_X, " смежных пикселей начиная с X = ", $ARR[$temp-2]-$num_X+1, " общий Y = ", $ARR[$temp-1])
END_IF
HALT
Смежные по X. Или картинку покажи что куда.