GETSCREEN
SCANPXL($arr, 0,0,$_xmax,$_ymax, 255)
$len = ARRSIZE($arr)
$right_x = -1
$right_y = -1
FOR($i=0, $i < $len, 2)
$X = $arr[$i]
$Y = $arr[$i+1]
IF($X > $right_x)
$right_x = $X
$right_y = $Y
END_IF
END_CYC
UNDEFINE($ARR_SCAN)
LOGWRITE ("Всего найдено: ", $SCAN_COUNT)
IF($right_x ! -1)
LOGWRITE("right X/Y ", $right_x, " / ", $right_y)
LCLICK($right_x, $right_y)
END_IF