Размял мозги.
Предупреждал, работает не быстро.
Положить рядом с скриптом файл Find.txt, в нём будут результаты.
В логе по окончании количество найденных цветов.
// задаём область
$x1=600
$y1=340
$x2=609
$y2=349
TFCLEAR("Find.txt",0)
$color_find=0
LOGCLEAR
MOVE($_xmax,$_ymax)
WAITMS(50)
GETSCREEN
$y=$y1-1
FOR($y, $y < $y2)
$x=$x1-1
FOR($x, $x < $x2)
$clr = PXL($x,$y) //получаем цвет текущего пиксела
GOSUB(проверка)
END_CYC
END_CYC
LOGWRITE ("Найдено цветов: ",$color_find)
HINTPOPUP("Подсчёт окончен")
HALT
SUB(проверка)
$no_new=0
$i=0
FOR($i, $i<INT(TFCOUNT("Find.txt")))
//LOGWRITE ("i ",$i)
$cut=TFREAD("Find.txt",$i)
$color=INT(STRCUT2($cut,1,STRPOS($cut,":")-1))
//LOGWRITE ("cut ",$cut)
//LOGWRITE ("color ",$color)
IF($clr=$color)
$number=INT(STRCUT2($cut,STRPOS($cut,":")+1,99999))
IF(INT(TFCOUNT("Find.txt"))=1)
TFCLEAR("Find.txt",0)
TFWRITE("Find.txt",STRCONCAT($color,":",$number+1))
ELSE
TFDELETE("Find.txt",$i)
TFWRITE("Find.txt",STRCONCAT($color,":",$number+1),$i)
END_IF
$i=9999999 // прерываем поиск
$no_new=1
WAITMS(3)
END_IF
END_CYC
IF($no_new=0)
INC($color_find)
//LOGWRITE ("color_find ",$color_find)
TFWRITE("Find.txt",STRCONCAT($clr,":1"))
END_IF
END_SUB
