IF($first = 0) // это условие сработает 1 раз
$first = 1
// настройка
// массив имен картинок цветов
ARRPUSH($arr_color, "F1") // фиолетовый F1.bmp
ARRPUSH($arr_color, "F2") // ФИОЛЕТОВЫЙ F2.bmp
ARRPUSH($arr_color, "O1") // другие цвета
ARRPUSH($arr_color, "O2")
// массив имен картинок форм
ARRPUSH($arr_form, "CRUG1") // круг CRUG1.bmp
ARRPUSH($arr_form, "CRUG2") // КРУГ CRUG2.bmp
ARRPUSH($arr_form, "KVADRAT1") // и тд.
ARRPUSH($arr_form, "KVADRAT2")
END_IF
SUB(scan)
$color = 0
$form = 0
GETSCREEN
FOR($a=0,$a<ARRSIZE($arr_color)) // просчитываем все цвета
IF_PICTURE_IN (0,0, $_xmax,$_ymax, STRCONCAT($arr_color[$a], ".bmp"), -1, 100)
$color = STRFILTER($arr_color[$a], "1234567890", 0) // удаляем все цифры из имени
$a=ARRSIZE($arr_color)
END_IF
END_CYC
FOR($a=0,$a<ARRSIZE($arr_form)) // просчитываем все формы
IF_PICTURE_IN (0,0, $_xmax,$_ymax, STRCONCAT($arr_form[$a], ".bmp"), -1, 100)
$form = STRFILTER($arr_form[$a], "1234567890", 0)
$a=ARRSIZE($arr_form)
END_IF
END_CYC
IF(($color ! 0)&($form ! 0)) // если оба найдены
LOGWRITE ("Цвет: ", $color, " Форма: ", $form)
$pict = STRCONCAT($color, "_", $form) // составляем имя искомой картинки цвет_форма
ELSE
LOGWRITE ("Не найдено!")
LOGWRITE ("Цвет: ", $color, " Форма: ", $form)
HALT
END_IF
END_SUB
scan() // определение цвета и формы фигуры
LOGWRITE ($pict) // в итоге должно получиться например F_CRUG
HALT
