Сам с собою тихо...
Вроде написал. Вот такая монструозина получилась, зато без пропусков и текстовых файлов:
$sres = 0
$sres2 = 0
$size=40
GETSCREEN
IF_PIXEL_IN($xres1, $yres1, $xres2, $yres2, $color)
//LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
$clresx = $_return1
$clresy = $_return2
$temp=STRCONCAT($_return1,":",$_return2)
GOSUB(клик2)
WHILE($sres = 0)
$sres2 = 0
$clresx=$clresx+1 // следующая точка за найденной
IF($clresx<$xres2+1) // контроль последнего столбца
WHILE($sres2 = 0)
IF_PIXEL_IN($clresx, $clresy, $xres2, $clresy, $color)
//LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
$clresx = $_return1
$clresy = $_return2
$nelzya=0
$cut=$temp
WHILE(STRLEN($cut)!0)
$x1=INT(STRCUT2($cut,1,STRPOS($cut,":")-1))
$cut=STRCUT2($cut,STRPOS($cut,":")+1,99999)
IF(INT(STRPOS($cut,":"))!0)
$y1=INT(STRCUT2($cut,1, STRPOS ($cut,":")-1))
$cut=STRCUT2($cut,STRPOS($cut,":")+1,99999)
ELSE
$y1=INT($cut)
$cut=""
END_IF
IF(($clresx>$x1) & ($clresx<$x1+$size) & ($clresy>$y1) & ($clresy<$y1+$size))
$cut="" // прерываем поиск
$nelzya=1
END_IF
END_CYC
IF($nelzya=0)
$temp=STRCONCAT($temp,":",$_return1,":",$_return2)
GOSUB(клик2)
END_IF
IF($clresx+1>$xres2) // контроль последнего столбца
$sres2 = 1
END_IF
ELSE
$sres2 = 1
END_IF
END_CYC
END_IF
$clresy=$clresy+1 // следующая линия
IF($clresy<$yres2+1) // контроль последней линии
IF_PIXEL_IN($xres1, $clresy, $xres2, $yres2, $color)
//LOGWRITE("вводX: ", $_return1, " ","вводY: ", $_return2)
$clresx = $_return1
$clresy = $_return2
$nelzya=0
$cut=$temp
WHILE(STRLEN($cut)!0)
$x1=INT(STRCUT2($cut,1,STRPOS($cut,":")-1))
$cut=STRCUT2($cut,STRPOS($cut,":")+1,99999)
IF(INT(STRPOS($cut,":"))!0)
$y1=INT(STRCUT2($cut,1, STRPOS ($cut,":")-1))
$cut=STRCUT2($cut,STRPOS($cut,":")+1,99999)
ELSE
$y1=INT($cut)
$cut=""
END_IF
IF(($clresx>$x1) & ($clresx<$x1+$size) & ($clresy>$y1) & ($clresy<$y1+$size))
$cut="" // прерываем поиск
$nelzya=1
END_IF
END_CYC
IF($nelzya=1)
$temp=STRCONCAT($temp,":",$_return1,":",$_return2)
GOSUB(клик2)
END_IF
ELSE
$sres = 1
END_IF
ELSE
$sres = 1
END_IF
END_CYC
END_IF
Как бы теперь её проверить грамотно. На сегодня хватит дуэлей кликера.