Поиск числа с помощью Findimage, Готовый скрипт Опции

[cirus]

Данный скрипт предназначен для распознавания чисел, текста и различных символов (например, значков серебра, голда).
Есть 2 версии скрипта: одна на языке пилота, вторая на языке lua.

Версия 1 (на языке пилота):

Минимальная версия пилота 2.39. Запускать от администратора.

Поиск числа с помощью Findimage 4.0 (на языке пилота)

Код

// Поиск числа с помощью FindImage
init_arr %GetImage (1) 0 0 245, 98      // координаты для поиска, StartX StartY EndX EndY

set linedelay 0
init_arr %picture 0 1 2 3 4 5 6 7 8 9     // имена картинок (0.bmp, 1.bmp и т. д.)
init_arr %symbol 0 1 2 3 4 5 6 7 8 9    // символ соответствующий имени, т. е. картинка 0.bmp соответствует 0
set $path "C:\Image3"                     // папка с картинками
set $bmp "*.bmp*"                           // формат картинок
set #deltaY 8                               // расстояние между строками (можно указать высоту картинок)
set #deltaspace 12                          // допустимое расстояние между цифрами, иначе будет считаться что это не одно число
set #accuracy 90                            // точность поиска для Findimage
set #deviation 3                            // погрешность оттенка  для Findimage
set #wait 2                                 // пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
set #timeproc 2000                          // время (в мсек) для поиска картинок, если 0 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
set #repeatimage 2                          // допустимое смещение координат, если используется несколько видов одной картинки

dir (%path $path $bmp)
set delimiter '   '
while 1 = 1
    set size(%result)                        // уничтожить массив с предыдущими результатами
    set size(%coord)                         // уничтожить массив с предыдущими координатами
    call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage    // процедура поиска
//     save_array %result C:\Users\abc\Desktop\result111.txt     // массив с результатами поиска
//     save_array %coord C:\Users\abc\Desktop\coord111.txt     // массив с координатами чисел
    if  size(%result) > 0         // если размер массива больше 0
        // ТУТ НУЖНЫЕ ДЕЙСТВИЯ
        ///////////// для примера вывод в hint того что нашлось (можно убрать)
        set $str
        set %z [1] \n
        for #i 1 size(%result)
            set $str $str%result[#i]
            if  #i != size(%result)
                set $str $str%z [1]
            end_if
        end_for
        hint (14 clBlue 409, 265 ($str))
        /////////////
    else
        hint Картинки не найдены
    end_if
end_while

// процедура поиска и сортировки
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
    set #GetStartX %GetImage [1 1]
    set #GetStartY %GetImage [1 2]
    set #GetEndX %GetImage [1 3]
    set #GetEndY %GetImage [1 4]
    set #current_script current_script
    // загрузка картинок в память
    if  size(%path) > 0                  // если картинки найдены
        for #i 1 size(%path)
            for #j 1 size(%picture)
                if  %path [#i 3] = %picture [#j]
                    set #n #n + 1
                    set %image [#n] LoadImage(%path [#i 1])
                    set %number [#n] %symbol [#j]
                    break
                end_if
            end_for
        end_for
    else
        log Картинки в: $path   не найдены
        log Скрипт остановлен
        stop_script #current_script
    end_if
    // поиск картинок и их сортировка
    set size(%result1)
    set size(%coord_tmp)
    while size(%result1) = 0 and (#timeproc > timer or #timeproc = 0)
        set #z 0
        set %get GetImage(#GetStartX #GetStartY #GetEndX #GetEndY)      // сохранить часть экрана в память
        set #v %get [1 1]
        for #i 1 size(%number)
            set #a Findimage(0 0 %get [1 2] %get [1 3] (%image[#i 1]) %a #v #accuracy -1 #deviation)   // поиск
            if  #a < 0
                log Ошибка поиска картинки. Код ошибки: #a
                log Скрипт остановлен
                stop_script #current_script
            end_if
            if  #a > 0
                for #j 1 size(%a)
                    set #z #z + 1
                    init_arr %result1 (1 1 #z) %number[#i] %a[#j 1] %a[#j 2]   // запись результатов поиска в массив
                end_for
            end_if
            wait #wait
        end_for
        if  size(%result1) > 0
            gosub sortY        // сортировка по Y и X
        end_if
        set $b DeleteImage(%get[1 1])    // удалить изображение, полученное GetImage
    end_while
    goto end                 // выйти из процедуры

    :sortY
    ///// удаление повторных координат, если используется несколько видов одной картинки
        set #size 0
        set %tmp %result1
        set size(%result1)
        for #i 1 size(%tmp[1])
            set #break 0
            for #n 1 #size
                set #xrepeat %tmp[2 #i] - %result1[2 #n]
                set #yrepeat %tmp[3 #i] - %result1[3 #n]
                if  abs(#xrepeat) <= #repeatimage and abs(#yrepeat) <= #repeatimage
                    set #break 1
                    break
                end_if
            end_for
            if  #break = 0
                set #size #size + 1
                init_arr %result1 (1 1 #size) %tmp [1 #i]  %tmp [2 #i] %tmp [3 #i]
            end_if
        end_for
     ///////

        set #z 0
        set #z1 0
        set #z2 1
        set #z4 0
        sort_array %result1 -3
        while 1 = 1
            set #z 0
            set size(%tmp)
            for #i #z2 eval(size(%result1 [1]) - 1)
                set #j #i + 1
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) < #deltaY
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                else
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                    break
                end_if
            end_for
            set #z2 #z2 + #z
            if  #z2 = size(%result1[])
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) > #deltaY
                    set #jj #j
                    sort_array %tmp -2
                    set #z1 #z1 + 1
                    init_arr %result (#z1) %tmp [1]
                    set %coord_tmp [#z1] %tmp [2 1], %tmp [3 1]
                    set %coord.#current_script [#z1] %tmp [2 #z], %tmp [3 #z]
                    gosub space
                    set size(%tmp)
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #jj]  %result1 [2 #jj] %result1 [3 #jj]
                    set #z1 #z1 + 1
                    set %result.#current_script [#z1] %tmp [1]
                    set %coord.#current_script [#z1] %tmp [2 #z], %tmp [3 #z]
                    gosub end
                end_if
                set #z #z + 1
                init_arr %tmp (1 1 #z) %result1 [1 #j]  %result1 [2 #j] %result1 [3 #j]
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                set %coord_tmp [#z1] %tmp [2 1], %tmp [3 1]
                gosub space
                break
            else
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                set %coord_tmp [#z1] %tmp [2 1], %tmp [3 1]
                gosub space
            end_if
        end_while
    return

    :space
        set #z3 0
        set size(%space)
        set #z4 #z4 + 1
        //посчитать где нужны пробелы
        for #i 1 eval(size(%tmp[]) - 1)
            set #j #i + 1
            set #space  %tmp [2 #i] - %tmp [2 #j]
            if  abs(#space) > #deltaspace
                set #z3 #z3 + 1
                set %space[#z3] #j
                set #size_coord 1
                while %coord_tmp[#z1 #size_coord] != ""
                    set #size_coord #size_coord + 1
                end_while
                set %coord_tmp [#z1 #size_coord] %tmp [2 #j], %tmp [3 #j]
            end_if
        end_for
        // вставить пробелы
        for #i 1 size(%space)
            set $str %result [#z4]
            set $str insert(" " $str %space[#i])
            set #j #i + 1
            set %space[#j] %space[#j] + #i
            set %result [#z4] $str
        end_for
        // сохранение массива в основном скрипте
        for #i 1 size(%result)
            set size(%tmp1)
            init_arr %tmp1 (1) %result [#i]
            for #j 1 size(%tmp1[1])
                set %result.#current_script [#i #j] %tmp1 [1 #j]
                set %coord.#current_script [#i #j] %coord_tmp [#i #j]
            end_for
        end_for
    return

    :end
end_proc

Результат поиска

Код

%result [1 1] - первая строка, первое число    %coord [1 1] - координаты числа
%result [1 2] - первая строка, второе число    %coord [1 2] - координаты числа
%result [2 1] - вторая строка, первое число    %coord [2 1] - координаты числа

Видео работы скрипта

https://youtu.be/pxPEjszKvK4

Версия 2 (на языке lua):

Функция

 FindString.lua ( 45,96 килобайт ) Кол-во скачиваний: 830

Мануал

Автор скрипта DarkMaster.
Вопросы, баги, предложения на форум
в специальную тему по этому скрипту
https://forum.uokit.com/index.php?showtopic=30000

Мануал по использованию:

Данный скрипт предназначен для распознавания чисел,
текста и различных символов (например, значков серебра, голда).
Скрипт учитывает возможные пробелы и переносы строк.
Параметры в квадратных [] скобках являются не обязательными,
параметры в угловых скобках <> указываются всегда.
Квадратные и фигурные скобки при вызове функций не пишутся,
они лишь указывают на возможность не задавать параметр.
Фигурные {} и круглые () скобки пишутся там, где указаны.
Символ '|' означает исключающее или, например, sub=0|1 означает,
что значение sub может быть равно либо 0, либо 1.

Для удобства использования необходимо
сохранить скрипт в отдельный файл
и подгружать в начале вашего скрипта:
imageToString = require("luaPlugins\\FindString")
Вызов данной команды загрузит модуль
FindString.lua из папки luaPlugins,
расположенной рядом с пилотом.
Т.е. "luaPlugins\FindString.lua"


Скрипт включает в себя следующие функции:

Управление буфером:
Добавление изображения в буфер (вернет адрес):
imageToString.bufferAdd(<путь>,

Получение адреса в памяти загруженного в буфер изображения:
imageToString.bufferGet(<путь>)[адрес])

Удаление изображения из буфера:
imageToString.bufferDelete(<путь>)

Полная очистка буфера:
imageToString.bufferFlush()


Получение текста из изображения:
t = imageToString.get{[parms],[parms],[parms],...}
Внимание! Скобки фигурные!
Указывается либо папка либо набор символов!
[loadFolder] | [[symbols],[path],[ext]]

Полный синтаксис:
t = imageToString.get{

Параметр(все необязательные) Значение по умолчанию
window=<хендл|метод> -- workwindow()
loadFolder={<path="путь">, [mask="маска"], [sub=0|1]} -- nil
symbols={"0", "1", ["2"] = {"two", "second"}, "3"} -- {["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"},
-- ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}, ["0"]={"0"}}
path=<"путь"> -- "images\\"
ext=<"расширение"> -- "*.bmp"
crds={<xStart>, <yStart>, <xEnd>, <yEnd>, [abs=0|1]} -- размер окна (workwindow(), если окно явно не указано), если не задано - рабочего стола.
accuracy=<число> -- 95
deviation=<число> -- 2
deltaSpace=<число> -- 2
deltaY=<число> -- 8
dupImage=<число> -- 3
toNumber=<0|1> -- 1
source={<address>, <width>, <height>} -- nil
saveImage=<"путь"> -- nil
wait=<число> -- 2
durationMax=<число> -- 0
secondFrame=<число> -- 0
bufferAddNew=<0|1> -- 1
bufferUpdate=<0|1> -- 0
bufferIgnore=<0|1> -- 0
}


Результат при поиске текста:

t = imageToString.get{[parms],[parms],[parms],...}
Функция возвращает двумерную таблицу,
где первый индекс является номером строки,
второй номером слова.
Если ничего не найдет, вернет nil.
Например, при распознавании текста:

Съешь еще
этих
мягких французских булок.

Массив будет содержать следующие значения:
t[1][1] -- Съешь
t[1][2] -- еще
t[2][1] -- этих
t[3][1] -- мягких
t[3][2] -- французских
t[3][3] -- булок


Параметры при поиске текста:

Данный оператор имеет большое количество возможных параметров,
все они являются необязательными.
В теле скрипта есть блок значений
параметров, используемых по умолчанию,
которые вы при желании можете изменить (таблица default).

window=<хендл|метод>
Хендл окна в котором происходит поиск либо метод 1|2.
Поиск в перекрытых окнах происходит только при указании хендла.
При указании хендла для корректного считывания изображения может
понадобиться указывать хендл родительского окна.
Значение по умолчанию: workwindow().

loadFolder={<path="путь">, [mask="маска"], [sub=0|1]}
Загрузка всех изображений из указанной папки.
Имена файлов должны соответствовать символу
который они означают (расширение не учитывается).
Допускаются файлы с одинаковым именем в разных папках.
<path="путь"> - абсолютный путь по которому находится папка.
Для преобразования относительного пути в абсолютный можно
использовать конструкцию: path=homepath() .. "относительный путь".
[mask="маска"] - маска по которой будут загружены файлы.
Допускается использование символов '?' и '*'.
? - означает один любой символ,
* - любое количество неизвестных символов.
Обратите внимание, что mask=".bmp" означает
точное совпадение полного имени файла с указанной маской,
т.к. символы подстановки не использованы.
Если же указать mask="*.bmp",
то будут загружены все файлы, заканчивающиеся сочетанием ".bmp".
Значение по умолчанию: "*.bmp".
[sub=0|1] - флаг, указывающий на загрузку изображений,
в том числе из подпапок.
При указании loadFolder будут проигнорированы параметры:
symbols, path, ext.
Значение по умолчанию: nil.

symbols={}
Символы для поиска.
Набор символов возможно указать в двух вариантах синтаксиса:
упрощенном и полном.
Упрощенный вариант синтаксиса допускает не указывать
соответствие имен файлов и строке/символу,
который они обозначают: считается, что они идентичны.
Пример упрощенного синтаксиса:
symbols = {"0", "1", "2", "3", "a", "b", "c", "test"}
Полный синтаксис бывает необходим при использовании нескольких
изображений, соответствующих одной и той же строке/символу.
Допускаются переносы строк:
symbols = {
["0"] = {"zero1", "zero2"},
["1"] = {"1a", "1b"},
["2"] = {"two", "second"}
}
Оба варианта синтаксиса можно сочетать:
symbols = {"0", "1", ["2"] = {"two", "second"}, "3"}
Данный параметр игнорируется,
если указана загрузка папки (loadFolder).
Значение по умолчанию:
{["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"},
["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}, ["0"]={"0"}}

path=<"путь">
Путь, по которому находятся изображения, указанные в symbols.
Путь может быть задан относительным или абсолютным.
Данный параметр игнорируется,
если указана загрузка папки (loadFolder).
Все символы '\' должны быть удвоены (escape-последовательность).
Пример:
path="c:\\image.bmp"
Если путь будет начинаться с символа '\',
то он будет восприниматься относительно корня диска.
Пример:
Если пилот находится по адресу d:\uopilot\uopilot.exe,
то параметр path="\\myFolder"
будет указывать на папку d:\myFolder.
Значение по умолчанию: "images\\".
Это относительный путь, указывающий на папку images,
которая находится рядом с .exe пилота (создается пользователем).

ext=<"расширение">
Расширение картинок, указанных в symbols.
Данный параметр игнорируется,
если указана загрузка папки (loadFolder).
Значение по умолчанию: ".bmp".

crds={<xStart>, <yStart>, <xEnd>, <yEnd>, [abs=0|1]}
Координаты, в которых необходимо производить поиск.
При указании флага abs=1 координаты будут считаться
относительно левого верхнего угла экрана,
в противном случае координаты рассчитываются
относительно левого верхнего угла приложения.
Значение по умолчанию:
размер окна с которым работает функция и относитльные координаты,
если окно не указано и привязка плиота отсутствует, то
используется разрешение рабочего стола и абсолютные координаты.

accuracy=<число>
Точность поиска изображений.
Для текста рекомендуется указывать 95-100.
Значение по умолчанию: 95.

deviation=<число>
Допустимое отклонение оттенка в процентах (255/100*deviation).
Если цвет 50 100 150, то при указании deviation=2
допустимыми значениями будут являться 44-55 94-105 144-155.
Дробная часть при вычислении диапазона
не округляется, а отбрасывается.
Значение по умолчанию: 2.

deltaSpace=<число>
Допустимое расстояние по горизонтали между изображениями.
Если значение превышено считается,
что началось новое слово (присутствует пробел).
Значение по умолчанию: 2.

deltaY=<число>
Смещение по высоте при превышении которого считается,
что символы принадлежат к разным строкам.
Значение по умолчанию: 5.

dupImage=<число>
Смещение, при котором два найденных изображения
будут считаться дубликатом одного.
Значение по умолчанию: 3.

symbolPrio={symbol_1, symbol_2, symbol_3, ...}
Устатнавливает приоритет удаления дублей.
Часть симоволов может содержаться в других символах.
Например при распозновании "Q" очень велика вероятность,
что будет надена буква Q и буква O, аналогично в парах:
7 и 1, 4 и 1 и т.д.
Приоритет определяется позицией символа в массиве,
чем меньше индекс, тем выше приоритет.
Например: {"q", "o", "7", "4", "1"}
заменит О на Q, 1 на 4, 4 на 7 и т.д.,
если они обнаружены в пределах области
считающейся дублями.
Для выключения использовать: {}
Значение по умолчанию: {"q", "o", "7", "4", "1"}

toNumber=<0|1>
Флаг, при котором слова, состоящие только из цифр
будут преобразованы из строки в числовой тип данных.
Это необходимо для арифметических действий, а также
для сравнения чисел.
Значение по умолчанию: 1.

source={<address>, <width>, <height>}
Источник загруженного в память изображения
в котором производить поиск.
<address> - адрес в памяти
<width> - ширина изображения
<height> - высота изображения
Изображение возможно загрузить в память при помощи
getimage() или loadimage().
Значение по умолчанию: nil.

saveImage=<"путь">
Путь, по которому будет сохранено изображение
в котором происходил поиск.
Значение по умолчанию: nil.

wait=<число>
Пауза в миллисекундах (1000мс=1сек) между поиском изображений.
Используется для снижения нагрузки на процессор
ценой увеличения времени поиска.
Значение по умолчанию: 2.

durationMax=<число>
Время в течении которого будут происходить
повторные попытки найти изображение.
Значение может быть дробным, например:
durationMax=2.5.
При указании durationMax=-1 поиск будет происходить
бесконечно до тех пор, пока изображение не будет найдено.
Если первое изображение было найдено,
то остальные будут обработаны полностью
вне зависимости от таймера,
т.е. вы не получите обрезанный текст.
При первом успешном распознавании текста функция завершит работу
и передаст результат, не дожидаясь окончания таймера.
Значение по умолчанию: 0.

secondFrame=<число>
Параметр позволяет задать паузу между
первым нахождением изображения и началом
считывания изображений для распознавания текста.
Позволяет дождаться полной прогрузки
текста перед обработкой.
Обратите внимание, что параметр durationMax учитывает значение
secondFrame и не позволит функции работать дольше,
чем указано в durationMax. Значение по умолчанию:0.

bufferAddNew=<0|1>
Флаг разрешающий добавлять в память буфера изображения,
которые отсутствовали в буфере и были считаны с диска.
Данный параметр игнорируется,
если указан bufferIgnore=1.
Значение по умолчанию: 1.

bufferUpdate=<0|1>
Флаг указывающий на то,
что изображения в буфере должны быть обновлены.
Они будут считаны с диска заново.
Обновятся только те изображения,
которые будут участвовать в поиске.
Данный параметр игнорируется, если указан bufferIgnore=1.
Значение по умолчанию: 0.

bufferIgnore=<0|1>
Флаг, запрещающий работать с буфером.
Данный из буфера считаны не будут,
загрузка искомых изображений произойдет с диска.
Никаких данных в буфер не сохраняется.
Значение по умолчанию: 0.


Пример вызова:
local cell = fs.get{
loadFolder = {path = "image\\comeback", mask="*"},
crds ={x*254, y*36, 108+x*254, 17+y*36},
deltaSpace = 10
}

Если в области для распознования содержатся посторонние данные,
то может быть полезено вызвать функцию несколько раз с областями
непосредственно содержащими данные.
Пример функции для сбора значений представленных в виде таблицы:
get_prices = function(offset_x, offset_y)
local img, w, h, l = getimage(offset_x, offset_y,
410+offset_x, 340+offset_y)
local price = {}
for x = 0, 1 do
for y = 0, 9 do
local cell = fs.get{
loadFolder = {path = "image\\comeback", mask="*"},
source = {img, w, h},
crds ={x*254, y*36, 108+x*254, 17+y*36},
deltaSpace = 10
}
if cell then
price[#price+1] = cell[1][1]
end
end
end
deleteimage(img)
return price
end

Changelog

История изменений:

1.0.9
Добавлено: установление приоритетов символов при удалении дублей. 4 и 1 - будет удалено 1, O и Q удалено O и т.д.
Добавлено: пример вызова, пример для сбора табличных данных.
Фикс: исправлены проблемы findimage пилота при поиске в уже загруженном изображении (getimage/loadimage)

1.0.8
Фикс: Убраны кавычки из пути при loadFolder. В связи с апдейтом пилота и фиксом функции dir этого более не требуется(приводит к битым путям).
Фикс: В связи с отправкой в мусорку crystalLua убраны костыли в виде доп параметра в управлении буфером. Приветствуем luajit!
Фикс: При одновременном использовании secondFrame и абсолютных координат область поиска предварительного обнаружения изображения могла быть искажена.
Фикс: В связи с правками в пилоте убран старый синтаксис передачи параметров в findimage стрингом. Теперь параметры передаются без дополнительных конвертаций и вынужденных глобальных переменных. Небольшое увеличение производительности.
Фикс: В связи с правками в пилоте убрано преобразование возвращаемых координат из строки в число. Небольшое увеличение производительности.
Фикс: В связи с правками в пилоте окно по умолчанию теперь задается функций workwindow(), а не строкой и не зарезервированной переменной.
Фикс: Исправлено описание функций. workwindow и homepath в пилоте теперь функции - workwindow() и homepath().
Добавлено: Значение по умолчанию теперь изменено с фиксированного 0, 0, 1919, 1079, abs=0 на динамическое: используется размер окна с которым идет работа(по умолчанию workwinodow()), если окно не указано и привязка пилота отсутствует, то используется разрешение рабочего стола и абсолютные координаты.
Изменено: значение по умолчанию deltaY с 8 до 5.
Рефакторинг: В связи с правками в пилоте убраны костыли для обхода бага с координатами поиска (начальные нельзя было задать отличные от нуля, после поиска происходил отсев). Небольшое повышение производительности.
Рефакторинг: В связи с правками в пилоте убрано добавление пробела перед флгом рекурсии при получении списка файлов для loadFolder. Переработана инициализация параметра. Синтаксис и результат не изменился.
Рефакторинг: переработана инициализация параметра symbols. Синтаксис и результат не изменился.
Рефакторинг: переработана инициализация параметра crds.abs. Синтаксис и результат не изменился.

1.0.7
Фикс: убрано принудительное преобразование строк в числа - игнорировалась опция toNumber=<0|1>.

1.0.6
Правки орфографии, пунктуации в описании.

1.0.5
Фикс: убраны сообщения отладки в лог.
Добавлено: imageToString.buffer.add теперь возвращает адрес загруженного изображения.

1.0.4
Фикс: добавлен набор костылей для адекватной передачи параметров при вызове функций буфера.
Добавлено: опция toNumber для преобразования строк в числа.

1.0
Фикс: при передаче источника изображения (source) игнорировались координаты поиска.
Изменено: timeProc переименован в durationMax.
Изменено: глобальная переменная, которую необходимо использовать из-за проблем финдимиджа переименована из tmp в tmpOtNiAotNiaorNCOsnaOT.

Фикс: загрузка файлов из папки теперь различает папки и файлы и больше не пытается загрузить папку, как изображение.
Изменено: конечные координаты области поиска равняются (ширина - 1) и (высота - 1) от забранного изображения. (отсчет с нуля)

Фикс: имена функций буфера.
Добавлено: возможность помещать в буфер изображения с диска.
Добавлено: возможность считать адрес в памяти буферизированного изображения.
Изменено: параметр abs теперь задается внутри crds{}

Фикс: символы по умолчанию больше не переписываются, сделано корректное копирование массива.

Фикс: флаг чтения подпапок был инвертирован.
Фикс: secondFrameTimeout больше не глобальная и используется по назначению.
Фикс: При default.durationMax = -1 и default.secondFrame > 0 не выходит преждевременно из функции.
Фикс: Почистил отладочные выводы в лог.
Добавлено: сохранение изображение в котором происходил поиск.

Баг: из-за особенностей костыля финдимиджа создается НЕ локальная переменная tmp.
Фикс: изображение не добавлялось в буфер.
Фикс: расчет пробела от конечной х координаты.
Фикс: очистка буфера после захвата изображения.
Фикс: область поиска при источнике из getimage должна быть с нуля.
Фикс: искалось только одно изображение из-за недостающего вложенного цикла.
Фикс: буфер теперь действительно буферизует.
Переработано преобразование из упрощенного синтаксиса в полноценный. Добавлена защита от дурака (типы данных).
Добавлено: загрузка папки с изображениями.
Добавлено: ожидание прогрузки изображений (options.secondFrame).
Добавлено: чтение из буфера.

Сообщение отредактировал DarkMaster - 24.11.2022, 9:00

[dron4938]

#accuracy -1 #deviation вместо -1, надо 1

не, это не работает, он все равно лопатит всю строку, находит 3 картинки и пишет 3 раза число (IMG:style_emoticons/default/stars.gif)

[cirus]

set #a Findimage(0 0 %get [1 2] %get [1 3] (%image[#i 1]) %a #v #accuracy -1 #deviation)
#accuracy -1 #deviation вместо -1, надо 1
кстати, а зачем -1, так же поиск будет дольше

А если надо найти число, например, 33? Будет найдена первая 3 и поиск остановится.

Собственно вопрос: как прописать, чтобы если поиск нашел 2 совпадения, то в итоге 1 число подставлял?

Если время будет допишу в выходные.
Пока попробуйте скриптом сделать картинку.

код

Код

// Поиск статичных точек на нескольких картинках

set %path [1] "C:\Users\abc\Desktop"     // путь для сохранения готовой картинки
set $path "C:\Users\abc\Desktop\22"     // путь к анализируемым картинкам
init_arr %rgb (1) 255 0 0          // цвет для закрашивания фона в формате RGB
set #deviat 5                      // погрешность в цвете

// остальное не менять
dir(%picture $path *.bmp*)
for #i 1 size(%picture)
    set %a [#i] Loadimage (%picture [#i 1])
end_for

set linedelay 0
set $imya prompt (Введите имя картинки)
set %imya [1] $imya

set workwindow windowhandle
set #r %rgb [1 1]
set #g %rgb [1 2]
set #b %rgb [1 3]
writemem #b %a [1 1] b
writemem #g eval(%a [1 1] + 1) b
writemem #r eval(%a [1 1] + 2) b


set #delta %a [1 4] - (%a [1 4] - %a [1 2] * 3 + 1)
for #j 0 eval(%a [1 3] - 1)
    for #i 0 #delta 3
        for #k 2 size(%a)
            set #z %a [1 1] + %a [1 4] * #j + #i
            set #z1 %a [1 1] + %a [1 4] * #j + #i + 1
            set #z2 %a [1 1] + %a [1 4] * #j + #i + 2
            readmem #b1 #z b
            readmem #g1 #z1 b
            readmem #r1 #z2 b

            set #z3 %a [#k 1] + %a [#k 4] * #j + #i
            set #z4 %a [#k 1] + %a [#k 4] * #j + #i + 1
            set #z5 %a [#k 1] + %a [#k 4] * #j + #i + 2
            readmem #b #z3 b
            readmem #g #z4 b
            readmem #r #z5 b
            gosub rgb

            if  #rmin > #r1 or #rmax < #r1 or #gmin > #g1 or #gmax < #g1 or #bmin > #b1 or #bmax < #b1
                set #rpaint %rgb [1 1]
                set #gpaint %rgb [1 2]
                set #bpaint %rgb [1 3]
                writemem #bpaint #z b
                writemem #gpaint #z1 b
                writemem #rpaint #z2 b
                break
            end_if
        end_for
    end_for
end_for

hint (20 clRed 500 500 (Картинка сохранена))
wait 1000
hint (10 clblack 1920 1 (1))
set $bmp SaveImage (%a [1 1] %path [1]\%imya [1].bmp)
end_script

:rgb
    set #rmin #r - 255 * #deviat / 100
    set #rmax #r + 255 * #deviat / 100
    set #gmin #g - 255 * #deviat / 100
    set #gmax #g + 255 * #deviat / 100
    set #bmin #b - 255 * #deviat / 100
    set #bmax #b + 255 * #deviat / 100

    set #dev 255 * #deviat / 100
    set #bmin #b - #dev
    set #bmax #b + #dev
    if  #bmax > 255
        set #bmax 255
    end_if
    if  #bmin < 0
        set #bmin 0
    end_if
    set #gmin #g - #dev
    set #gmax #g + #dev
    if  #gmax > 255
        set #gmax 255
    end_if
    if  #gmin < 0
        set  #gmin 0
    end_if
    set #rmin #r - #dev
    set #rmax #r + #dev
    if  #rmax > 255
        set #rmax 255
    end_if
    if  #rmin < 0
        set #rmin 0
    end_if
return

Закидываете в папку несколько картинок одной цифры, например 1, 1a, 1b. Скрипт сравнит картинки. Пиксели, которые присутствуют на всех картинках будут оставлены, остальные закрашены. Подберите погрешность по цвету, чтобы не слишком много было закрашено. Попробуйте искать полученную картинку.
Важно:
1. Картинки 1, 1a, 1b должны быть одного размера.
2. В скрипте поиска числа

Код

set #deviation 3      // указывать ту же (или больше) погрешность что и при сравнении картинок

3. Попробуйте уменьшить точность поиска.

[cirus]

Собственно вопрос: как прописать, чтобы если поиск нашел 2 совпадения, то в итоге 1 число подставлял?

Попробуй этот:

код

Код

// Поиск числа с помощью FindImage
init_arr %GetImage (1) 0 0 99, 58     // координаты для поиска, StartX StartY EndX EndY

set linedelay 0
init_arr %picture 0 1 2 3 4 5 6 7 8 9     // имена картинок (0.bmp, 1.bmp и т. д.)
init_arr %symbol 0 1 2 3 4 5 6 7 8 9    // символ соответствующий имени, т. е. картинка 0.bmp соответствует 0
set $path "C:\Number2"                     // папка с картинками
set $bmp "*.bmp*"                           // формат картинок
set #deltaY 8                               // расстояние между строками (можно указать высоту картинок)
set #deltaspace 12                          // допустимое расстояние между цифрами, иначе будет считаться что это не одно число
set #accuracy 90                            // точность поиска для Findimage
set #deviation 3                            // погрешность оттенка  для Findimage
set #wait 2                                 // пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
set #timeproc 2000                          // время (в мсек) для поиска картинок, если 0 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
set #repeatimage 2                          // допустимое смещение координат, если используется несколько видов одной картинки

dir (%path $path $bmp)
set delimiter '   '
while 1 = 1
    set size(%result)                        // уничтожить массив с предыдущими результатами
    call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage    // процедура поиска
    // save_array %result C:\resultarr.txt     // массив с результатами поиска

    if  size(%result) > 0         // если размер массива больше 0
        // ТУТ НУЖНЫЕ ДЕЙСТВИЯ
        ///////////// для примера вывод в hint того что нашлось (можно убрать)
        set $str
        set %z [1] \n
        for #i 1 size(%result)
            set $str $str%result[#i]
            if  #i != size(%result)
                set $str $str%z [1]
            end_if
        end_for
        hint (14 clBlue 409, 265 ($str))
        /////////////
    else
        hint Картинки не найдены
    end_if
end_while

// процедура поиска и сортировки
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
    set #GetStartX %GetImage [1 1]
    set #GetStartY %GetImage [1 2]
    set #GetEndX %GetImage [1 3]
    set #GetEndY %GetImage [1 4]
    set #current_script current_script
    // загрузка картинок в память
    if  size(%path) > 0                  // если картинки найдены
        for #i 1 size(%path)
            for #j 1 size(%picture)
                if  %path [#i 3] = %picture [#j]
                    set #n #n + 1
                    set %image [#n] LoadImage(%path [#i 1])
                    set %number [#n] %symbol [#j]
                    break
                end_if
            end_for
        end_for
    else
        log Картинки в: $path   не найдены
        log Скрипт остановлен
        stop_script #current_script
    end_if
    // поиск картинок и их сортировка
    set size(%result1)
    while size(%result1) = 0 and (#timeproc > timer or #timeproc = 0)
        set #z 0
        set %get GetImage(#GetStartX #GetStartY #GetEndX #GetEndY)      // сохранить часть экрана в память
        set #v %get [1 1]
        for #i 1 size(%number)
            set #a Findimage(0 0 %get [1 2] %get [1 3] (%image[#i 1]) %a #v #accuracy -1 #deviation)   // поиск
            if  #a < 0
                log Ошибка поиска картинки. Код ошибки: #a
                log Скрипт остановлен
                stop_script #current_script
            end_if
            if  #a > 0
                for #j 1 size(%a)
                    set #z #z + 1
                    init_arr %result1 (1 1 #z) %number[#i] %a[#j 1] %a[#j 2]   // запись результатов поиска в массив
                end_for
            end_if
            wait #wait
        end_for
        if  size(%result1) > 0
            gosub sortY        // сортировка по Y и X
        end_if
        set $b DeleteImage(%get[1 1])    // удалить изображение, полученное GetImage
    end_while
    goto end                 // выйти из процедуры

    :sortY
    ///// удаление повторных координат, если используется несколько видов одной картинки
        set #size 0
        set %tmp %result1
        set size(%result1)
        for #i 1 size(%tmp[1])
            set #break 0
            for #n 1 #size
                set #xrepeat %tmp[2 #i] - %result1[2 #n]
                set #yrepeat %tmp[3 #i] - %result1[3 #n]
                if  abs(#xrepeat) <= #repeatimage and abs(#yrepeat) <= #repeatimage
                    set #break 1
                    break
                end_if
            end_for
            if  #break = 0
                set #size #size + 1
                init_arr %result1 (1 1 #size) %tmp [1 #i]  %tmp [2 #i] %tmp [3 #i]
            end_if
        end_for
     ///////

        set #z 0
        set #z1 0
        set #z2 1
        set #z4 0
        sort_array %result1 -3
        while 1 = 1
            set #z 0
            set size(%tmp)
            for #i #z2 eval(size(%result1 [1]) - 1)
                set #j #i + 1
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) < #deltaY
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                else
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                    break
                end_if
            end_for
            set #z2 #z2 + #z
            if  #z2 = size(%result1[])
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) > #deltaY
                    set #jj #j
                    sort_array %tmp -2
                    set #z1 #z1 + 1
                    init_arr %result (#z1) %tmp [1]
                    gosub space
                    set size(%tmp)
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #jj]  %result1 [2 #jj] %result1 [3 #jj]
                    set #z1 #z1 + 1
                    set %result.#current_script [#z1] %tmp [1]
                    gosub end
                end_if
                set #z #z + 1
                init_arr %tmp (1 1 #z) %result1 [1 #j]  %result1 [2 #j] %result1 [3 #j]
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
                break
            else
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
            end_if
        end_while
    return

    :space
        set #z3 0
        set size(%space)
        set #z4 #z4 + 1
        //посчитать где нужны пробелы
        for #i 1 eval(size(%tmp[]) - 1)
            set #j #i + 1
            set #space  %tmp [2 #i] - %tmp [2 #j]
            if  abs(#space) > #deltaspace
                set #z3 #z3 + 1
                set %space[#z3] #j
            end_if
        end_for
        // вставить пробелы
        for #i 1 size(%space)
            set $str %result [#z4]
            set $str insert(" " $str %space[#i])
            set #j #i + 1
            set %space[#j] %space[#j] + #i
            set %result [#z4] $str
        end_for
        // сохранение массива в основном скрипте
        for #i 1 size(%result)
            set size(%tmp1)
            init_arr %tmp1 (1) %result [#i]
            for #j 1 size(%tmp1[1])
                set %result.#current_script [#i #j] %tmp1 [1 #j]
            end_for
        end_for
    return

    :end
end_proc

Добавлен поиск и удаление лишних координат, если для поиска цифры используется несколько видов этой цифры. Особо не тестил.

[dron4938]

Попробуй этот:

код

Код

// Поиск числа с помощью FindImage
init_arr %GetImage (1) 0 0 99, 58     // координаты для поиска, StartX StartY EndX EndY

set linedelay 0
init_arr %picture 0 1 2 3 4 5 6 7 8 9     // имена картинок (0.bmp, 1.bmp и т. д.)
init_arr %symbol 0 1 2 3 4 5 6 7 8 9    // символ соответствующий имени, т. е. картинка 0.bmp соответствует 0
set $path "C:\Number2"                     // папка с картинками
set $bmp "*.bmp*"                           // формат картинок
set #deltaY 8                               // расстояние между строками (можно указать высоту картинок)
set #deltaspace 12                          // допустимое расстояние между цифрами, иначе будет считаться что это не одно число
set #accuracy 90                            // точность поиска для Findimage
set #deviation 3                            // погрешность оттенка  для Findimage
set #wait 2                                 // пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
set #timeproc 2000                          // время (в мсек) для поиска картинок, если 0 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
set #repeatimage 2                          // допустимое смещение координат, если используется несколько видов одной картинки

dir (%path $path $bmp)
set delimiter '   '
while 1 = 1
    set size(%result)                        // уничтожить массив с предыдущими результатами
    call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage    // процедура поиска
    // save_array %result C:\resultarr.txt     // массив с результатами поиска

    if  size(%result) > 0         // если размер массива больше 0
        // ТУТ НУЖНЫЕ ДЕЙСТВИЯ
        ///////////// для примера вывод в hint того что нашлось (можно убрать)
        set $str
        set %z [1] \n
        for #i 1 size(%result)
            set $str $str%result[#i]
            if  #i != size(%result)
                set $str $str%z [1]
            end_if
        end_for
        hint (14 clBlue 409, 265 ($str))
        /////////////
    else
        hint Картинки не найдены
    end_if
end_while

// процедура поиска и сортировки
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
    set #GetStartX %GetImage [1 1]
    set #GetStartY %GetImage [1 2]
    set #GetEndX %GetImage [1 3]
    set #GetEndY %GetImage [1 4]
    set #current_script current_script
    // загрузка картинок в память
    if  size(%path) > 0                  // если картинки найдены
        for #i 1 size(%path)
            for #j 1 size(%picture)
                if  %path [#i 3] = %picture [#j]
                    set #n #n + 1
                    set %image [#n] LoadImage(%path [#i 1])
                    set %number [#n] %symbol [#j]
                    break
                end_if
            end_for
        end_for
    else
        log Картинки в: $path   не найдены
        log Скрипт остановлен
        stop_script #current_script
    end_if
    // поиск картинок и их сортировка
    set size(%result1)
    while size(%result1) = 0 and (#timeproc > timer or #timeproc = 0)
        set #z 0
        set %get GetImage(#GetStartX #GetStartY #GetEndX #GetEndY)      // сохранить часть экрана в память
        set #v %get [1 1]
        for #i 1 size(%number)
            set #a Findimage(0 0 %get [1 2] %get [1 3] (%image[#i 1]) %a #v #accuracy -1 #deviation)   // поиск
            if  #a < 0
                log Ошибка поиска картинки. Код ошибки: #a
                log Скрипт остановлен
                stop_script #current_script
            end_if
            if  #a > 0
                for #j 1 size(%a)
                    set #z #z + 1
                    init_arr %result1 (1 1 #z) %number[#i] %a[#j 1] %a[#j 2]   // запись результатов поиска в массив
                end_for
            end_if
            wait #wait
        end_for
        if  size(%result1) > 0
            gosub sortY        // сортировка по Y и X
        end_if
        set $b DeleteImage(%get[1 1])    // удалить изображение, полученное GetImage
    end_while
    goto end                 // выйти из процедуры

    :sortY
    ///// удаление повторных координат, если используется несколько видов одной картинки
        set #size 0
        set %tmp %result1
        set size(%result1)
        for #i 1 size(%tmp[1])
            set #break 0
            for #n 1 #size
                set #xrepeat %tmp[2 #i] - %result1[2 #n]
                set #yrepeat %tmp[3 #i] - %result1[3 #n]
                if  abs(#xrepeat) <= #repeatimage and abs(#yrepeat) <= #repeatimage
                    set #break 1
                    break
                end_if
            end_for
            if  #break = 0
                set #size #size + 1
                init_arr %result1 (1 1 #size) %tmp [1 #i]  %tmp [2 #i] %tmp [3 #i]
            end_if
        end_for
     ///////

        set #z 0
        set #z1 0
        set #z2 1
        set #z4 0
        sort_array %result1 -3
        while 1 = 1
            set #z 0
            set size(%tmp)
            for #i #z2 eval(size(%result1 [1]) - 1)
                set #j #i + 1
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) < #deltaY
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                else
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                    break
                end_if
            end_for
            set #z2 #z2 + #z
            if  #z2 = size(%result1[])
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) > #deltaY
                    set #jj #j
                    sort_array %tmp -2
                    set #z1 #z1 + 1
                    init_arr %result (#z1) %tmp [1]
                    gosub space
                    set size(%tmp)
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #jj]  %result1 [2 #jj] %result1 [3 #jj]
                    set #z1 #z1 + 1
                    set %result.#current_script [#z1] %tmp [1]
                    gosub end
                end_if
                set #z #z + 1
                init_arr %tmp (1 1 #z) %result1 [1 #j]  %result1 [2 #j] %result1 [3 #j]
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
                break
            else
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
            end_if
        end_while
    return

    :space
        set #z3 0
        set size(%space)
        set #z4 #z4 + 1
        //посчитать где нужны пробелы
        for #i 1 eval(size(%tmp[]) - 1)
            set #j #i + 1
            set #space  %tmp [2 #i] - %tmp [2 #j]
            if  abs(#space) > #deltaspace
                set #z3 #z3 + 1
                set %space[#z3] #j
            end_if
        end_for
        // вставить пробелы
        for #i 1 size(%space)
            set $str %result [#z4]
            set $str insert(" " $str %space[#i])
            set #j #i + 1
            set %space[#j] %space[#j] + #i
            set %result [#z4] $str
        end_for
        // сохранение массива в основном скрипте
        for #i 1 size(%result)
            set size(%tmp1)
            init_arr %tmp1 (1) %result [#i]
            for #j 1 size(%tmp1[1])
                set %result.#current_script [#i #j] %tmp1 [1 #j]
            end_for
        end_for
    return

    :end
end_proc

Добавлен поиск и удаление лишних координат, если для поиска цифры используется несколько видов этой цифры. Особо не тестил.

Да, то что нужно, вроде работает отлично, буду дальше тестить. С меня пивасик (IMG:style_emoticons/default/rolleyes.gif)

[dron4938]

скрипт

Код

// Поиск числа с помощью FindImage
init_arr %GetImage (1) 939, 512 1115, 524     // координаты для поиска, StartX StartY EndX EndY

set linedelay 0
init_arr %picture 0a 0b 0c 1a 1b 2a 2b 2c 2d 2e 3a 3b 4a 4b 4c 5a 5b 5c 6a 6b 7a 7b 7c 8a 8b 8c 9a 9b 9c 9d 9e  // имена картинок (0.bmp, 1.bmp и т. д.)
init_arr %symbol  0 0 0 1 1 2 2 2 2 2 3 3 4 4 4 5 5 5 6 6 7 7 7 8 8 8 9 9 9 9 9 // символ соответствующий имени, т. е. картинка 0.bmp соответствует 0
set $path "C:\Users\Andrey\Desktop\Pil\ica\a"                     // папка с картинками
set $bmp "*.bmp*"                           // формат картинок
set #deltaY 8                               // расстояние между строками (можно указать высоту картинок)
set #deltaspace 12                          // допустимое расстояние между цифрами, иначе будет считаться что это не одно число
set #accuracy 94                            // точность поиска для Findimage
set #deviation 22                            // погрешность оттенка  для Findimage
set #wait 0                                 // пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
set #timeproc 500                          // время (в мсек) для поиска картинок, если 0 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
set #repeatimage 2                          // допустимое смещение координат, если используется несколько видов одной картинки

dir (%path $path $bmp)
set delimiter '   '

while 1 = 1
:aaa ////////// ПОИСК 1
set $path "C:\Users\Andrey\Desktop\Pil\ica\a"
dir (%path $path $bmp)
    set size(%result)                        // уничтожить массив с предыдущими результатами
    call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
    if  size(%result) > 0         // если размер массива больше 0
        set $str
        set %z [1] \n
        for #i 1 size(%result)
            set $str $str%result[#i]
            if  #i != size(%result)
                set $str $str%z [1]
            end_if
        end_for
    else
        set $str 00
    end_if

:bbb ///////// ПОИСК 2
set $path "C:\Users\Andrey\Desktop\Pil\ica\b"
dir (%path $path $bmp)
set size(%result)
call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
if  size(%result) > 0         // если размер массива больше 0
        set $str2
        set %z [1] \n
        for #i 1 size(%result)
            set $str2 $str2%result[#i]
            if  #i != size(%result)
                set $str2 $str2%z [1]
            end_if
        end_for
    else
        set $str2 00
    end_if

:ccc ///////// ПОИСК 3
set $path "C:\Users\Andrey\Desktop\Pil\ica\c"
dir (%path $path $bmp)
set size(%result)
call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
if  size(%result) > 0         // если размер массива больше 0
        set $str3
        set %z [1] \n
        for #i 1 size(%result)
            set $str3 $str3%result[#i]
            if  #i != size(%result)
                set $str3 $str3%z [1]
            end_if
        end_for
        hint (14 clBlue 409, 265 ($str $str2 $str3)) // РЕЗУЛЬТАТ 3 ПОИСКОВ = 3 ЧИСЛА
    else
        set $str3 00
        hint (14 clBlue 409, 265 ($str $str2 $str3)) // РЕЗУЛЬТАТ 3 ПОИСКОВ = 3 ЧИСЛА
    end_if
end_while




// процедура поиска и сортировки
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc #repeatimage
    set #GetStartX %GetImage [1 1]
    set #GetStartY %GetImage [1 2]
    set #GetEndX %GetImage [1 3]
    set #GetEndY %GetImage [1 4]
    set #current_script current_script
    // загрузка картинок в память
    if  size(%path) > 0                  // если картинки найдены
        for #i 1 size(%path)
            for #j 1 size(%picture)
                if  %path [#i 3] = %picture [#j]
                    set #n #n + 1
                    set %image [#n] LoadImage(%path [#i 1])
                    set %number [#n] %symbol [#j]
                    break
                end_if
            end_for
        end_for
    else
        log Картинки в: $path   не найдены
        log Скрипт остановлен
        stop_script #current_script
    end_if
    // поиск картинок и их сортировка
    set size(%result1)
    while size(%result1) = 0 and (#timeproc > timer or #timeproc = 0)
        set #z 0
        set %get GetImage(#GetStartX #GetStartY #GetEndX #GetEndY)      // сохранить часть экрана в память
        set #v %get [1 1]
        for #i 1 size(%number)
            set #a Findimage(0 0 %get [1 2] %get [1 3] (%image[#i 1]) %a #v #accuracy -1 #deviation)   // поиск
            if  #a < 0
                log Ошибка поиска картинки. Код ошибки: #a
                log Скрипт остановлен
                stop_script #current_script
            end_if
            if  #a > 0
                for #j 1 size(%a)
                    set #z #z + 1
                    init_arr %result1 (1 1 #z) %number[#i] %a[#j 1] %a[#j 2]   // запись результатов поиска в массив
                end_for
            end_if
            wait #wait
        end_for
        if  size(%result1) > 0
            gosub sortY        // сортировка по Y и X
        end_if
        set $b DeleteImage(%get[1 1])    // удалить изображение, полученное GetImage
    end_while
    goto end                 // выйти из процедуры
    :sortY
    ///// удаление повторных координат, если используется несколько видов одной картинки
        set #size 0
        set %tmp %result1
        set size(%result1)
        for #i 1 size(%tmp[1])
            set #break 0
            for #n 1 #size
                set #xrepeat %tmp[2 #i] - %result1[2 #n]
                set #yrepeat %tmp[3 #i] - %result1[3 #n]
                if  abs(#xrepeat) <= #repeatimage and abs(#yrepeat) <= #repeatimage
                    set #break 1
                    break
                end_if
            end_for
            if  #break = 0
                set #size #size + 1
                init_arr %result1 (1 1 #size) %tmp [1 #i]  %tmp [2 #i] %tmp [3 #i]
            end_if
        end_for
     ///////

        set #z 0
        set #z1 0
        set #z2 1
        set #z4 0
        sort_array %result1 -3
        while 1 = 1
            set #z 0
            set size(%tmp)
            for #i #z2 eval(size(%result1 [1]) - 1)
                set #j #i + 1
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) < #deltaY
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                else
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #i]  %result1 [2 #i] %result1 [3 #i]
                    break
                end_if
            end_for
            set #z2 #z2 + #z
            if  #z2 = size(%result1[])
                set #x %result1 [3 #i] - %result1 [3 #j]
                if  abs(#x) > #deltaY
                    set #jj #j
                    sort_array %tmp -2
                    set #z1 #z1 + 1
                    init_arr %result (#z1) %tmp [1]
                    gosub space
                    set size(%tmp)
                    set #z #z + 1
                    init_arr %tmp (1 1 #z) %result1 [1 #jj]  %result1 [2 #jj] %result1 [3 #jj]
                    set #z1 #z1 + 1
                    set %result.#current_script [#z1] %tmp [1]
                    gosub end
                end_if
                set #z #z + 1
                init_arr %tmp (1 1 #z) %result1 [1 #j]  %result1 [2 #j] %result1 [3 #j]
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
                break
            else
                sort_array %tmp -2
                set #z1 #z1 + 1
                init_arr %result (#z1) %tmp [1]
                gosub space
            end_if
        end_while
    return

    :space
        set #z3 0
        set size(%space)
        set #z4 #z4 + 1
        //посчитать где нужны пробелы
        for #i 1 eval(size(%tmp[]) - 1)
            set #j #i + 1
            set #space  %tmp [2 #i] - %tmp [2 #j]
            if  abs(#space) > #deltaspace
                set #z3 #z3 + 1
                set %space[#z3] #j
            end_if
        end_for
        // вставить пробелы
        for #i 1 size(%space)
            set $str %result [#z4]
            set $str insert(" " $str %space[#i])
            set #j #i + 1
            set %space[#j] %space[#j] + #i
            set %result [#z4] $str
        end_for
        // сохранение массива в основном скрипте
        for #i 1 size(%result)
            set size(%tmp1)
            init_arr %tmp1 (1) %result [#i]
            for #j 1 size(%tmp1[1])
                set %result.#current_script [#i #j] %tmp1 [1 #j]
            end_for
        end_for
    return

    :end
end_proc

//////////////////////////////////////////////////
 

Сделал 3 последовательных поиска. Работает, но долго ищет, примерно за 3 секунды находятся все 3 числа, можно ускорить немного?)))
hint (14 clBlue 409, 265 ($str $str2 $str3)) // РЕЗУЛЬТАТ 3 ПОИСКОВ = 3 ЧИСЛА

set #timeproc 500 выставил 180
по логу через таймер все 3 числа находит за 1400мс, все равно долговато(

[cirus]

set #deviation 22 // погрешность оттенка для Findimage

Уменьшить, это слишком много.
Слежение за ходом выключить, если включено.

[dron4938]

Уменьшить, это слишком много.

Если уменьшить, то бывает не находит числа(
Я игрался с разными значениями

set #accuracy 94
set #deviation 22

такое вышло оптимальным.если уменьшать и то и то, то другие цифры бывает находит

Слежение за ходом- это что?

[cirus]

Слежение за ходом- это что?

[dron4938]

уф со слежением 1400мс
без слежения 700мс
ну уже нормик)

[cirus]

Быстрее не будет, 3 поиска по 30+ картинок. Только если меньше картинок искать. Попробуйте скриптом, который выше, сделать из нескольких картинок одну.

[dron4938]

Быстрее не будет, 3 поиска по 30+ картинок. Только если меньше картинок искать. Попробуйте скриптом, который выше, сделать из нескольких картинок одну.

Ладно, сейчас испробую, интересно что выйдет из этого)

[dron4938]

4 картинки одной цифры сделал. Вообщем она полностью в красный закрашивается при #deviat 10
Архив с картинками прилепил, может что не так делаю.
А может можно искать картинку по вырезанному фону?)))

(IMG:https://i.yapx.ru/HqB4.png)

[cirus]

Пусть будет больше deviation, тогда меньше закрасит. В любом случае искать 1 картинку быстрее, чем 4.

А может можно искать картинку по вырезанному фону?)))

Получится искать фон, а не число, т. е. даже если чисел нет вообще, то все картинки будут найдены. Т. к. чёрный фон найдётся, а пиксели цифр не сравниваются, т. к. закрашены.

[DarkMaster]

set #accuracy 94
set #deviation 22

попробуйте где-то 80-90 и 7-12.

[FREEON]

код

Код

// Поиск статичных точек на нескольких картинках

set %path [1] "C:\Users\abc\Desktop"     // путь для сохранения готовой картинки
set $path "C:\Users\abc\Desktop\22"     // путь к анализируемым картинкам
init_arr %rgb (1) 255 0 0          // цвет для закрашивания фона в формате RGB
set #deviat 5                      // погрешность в цвете

// остальное не менять
dir(%picture $path *.bmp*)
for #i 1 size(%picture)
    set %a [#i] Loadimage (%picture [#i 1])
end_for

set linedelay 0
set $imya prompt (Введите имя картинки)
set %imya [1] $imya

set workwindow windowhandle
set #r %rgb [1 1]
set #g %rgb [1 2]
set #b %rgb [1 3]
writemem #b %a [1 1] b
writemem #g eval(%a [1 1] + 1) b
writemem #r eval(%a [1 1] + 2) b
set #delta %a [1 4] - (%a [1 4] - %a [1 2] * 3 + 1)
for #j 0 eval(%a [1 3] - 1)
    for #i 0 #delta 3
        for #k 2 size(%a)
            set #z %a [1 1] + %a [1 4] * #j + #i
            set #z1 %a [1 1] + %a [1 4] * #j + #i + 1
            set #z2 %a [1 1] + %a [1 4] * #j + #i + 2
            readmem #b1 #z b
            readmem #g1 #z1 b
            readmem #r1 #z2 b

            set #z3 %a [#k 1] + %a [#k 4] * #j + #i
            set #z4 %a [#k 1] + %a [#k 4] * #j + #i + 1
            set #z5 %a [#k 1] + %a [#k 4] * #j + #i + 2
            readmem #b #z3 b
            readmem #g #z4 b
            readmem #r #z5 b
            gosub rgb

            if  #rmin > #r1 or #rmax < #r1 or #gmin > #g1 or #gmax < #g1 or #bmin > #b1 or #bmax < #b1
                set #rpaint %rgb [1 1]
                set #gpaint %rgb [1 2]
                set #bpaint %rgb [1 3]
                writemem #bpaint #z b
                writemem #gpaint #z1 b
                writemem #rpaint #z2 b
                break
            end_if
        end_for
    end_for
end_for

hint (20 clRed 500 500 (Картинка сохранена))
wait 1000
hint (10 clblack 1920 1 (1))
set $bmp SaveImage (%a [1 1] %path [1]\%imya [1].bmp)
end_script

:rgb
    set #rmin #r - 255 * #deviat / 100
    set #rmax #r + 255 * #deviat / 100
    set #gmin #g - 255 * #deviat / 100
    set #gmax #g + 255 * #deviat / 100
    set #bmin #b - 255 * #deviat / 100
    set #bmax #b + 255 * #deviat / 100

    set #dev 255 * #deviat / 100
    set #bmin #b - #dev
    set #bmax #b + #dev
    if  #bmax > 255
        set #bmax 255
    end_if
    if  #bmin < 0
        set #bmin 0
    end_if
    set #gmin #g - #dev
    set #gmax #g + #dev
    if  #gmax > 255
        set #gmax 255
    end_if
    if  #gmin < 0
        set  #gmin 0
    end_if
    set #rmin #r - #dev
    set #rmax #r + #dev
    if  #rmax > 255
        set #rmax 255
    end_if
    if  #rmin < 0
        set #rmin 0
    end_if
return

Закидываете в папку несколько картинок одной цифры, например 1, 1a, 1b. Скрипт сравнит картинки. Пиксели, которые присутствуют на всех картинках будут оставлены, остальные закрашены. Подберите погрешность по цвету, чтобы не слишком много было закрашено. Попробуйте искать полученную картинку.
Важно:
1. Картинки 1, 1a, 1b должны быть одного размера.
2. В скрипте поиска числа

Код

set #deviation 3      // указывать ту же (или больше) погрешность что и при сравнении картинок

3. Попробуйте уменьшить точность поиска.

А есть скрипт для закраски фона? Что бы в ручную не красить а то мне нуно в ручную 600 картинок перекрашивать. Желательно, что бы моно было задавать несколько цветов фона (2-4 ЦВЕТА)

[cirus]

А есть скрипт для закраски фона?

код

Код

// Закрашивание фона
set %path [1] "C:\Users\abc\Desktop\567"     // путь для сохранения картинок, сохранятся с теми же именами что и были
set $path "C:\Users\abc\Desktop\33"     // путь к анализируемым картинкам
init_arr %rgb (1) 255 0 0          // цвет для закрашивания фона в формате RGB

// цвета фона в формате RGB или десятичном, указывать можно любое количество
init_arr %fon (1) 16777215
//init_arr %fon (2) 255 182 102
//init_arr %fon (3) 0
//init_arr %fon (4)

set #deviat 5               // погрешность в цвете


// остальное менять не нужно
for #i 1 size(%fon)
    if  %fon [#i 2] = "" and  %fon [#i 3] = ""
        set #colortmp %fon [#i 1]
        set #rgb colortorgb (#colortmp  %fon[#i])
    end_if
end_for

dir(%picture $path *.bmp*)
for #i 1 size(%picture)
    set %a [#i] Loadimage (%picture [#i 1])
end_for

set linedelay 0
set workwindow windowhandle

for #k 1 size(%a)
set #delta %a [#k 4] - (%a [#k 4] - %a [#k 2] * 3 + 1)
    set #r %rgb [1 1]
    set #g %rgb [1 2]
    set #b %rgb [1 3]
    writemem #b %a [#k 1] b
    writemem #g eval(%a [#k 1] + 1) b
    writemem #r eval(%a [#k 1] + 2) b
    for #j 0 eval(%a [#k 3] - 1)
        for #i 0 #delta 3
            set #z3 %a [#k 1] + %a [#k 4] * #j + #i
            set #z4 %a [#k 1] + %a [#k 4] * #j + #i + 1
            set #z5 %a [#k 1] + %a [#k 4] * #j + #i + 2
            readmem #b #z3 b
            readmem #g #z4 b
            readmem #r #z5 b
            gosub rgb

            for #l 1 size(%fon)
                if  #rmin <= %fon [#l 1] and #rmax >= %fon [#l 1] and #gmin <= %fon [#l 2] and #gmax >= %fon [#l 2] and #bmin <= %fon [#l 3] and #bmax >= %fon [#l 3]
                    set #rpaint %rgb [1 1]
                    set #gpaint %rgb [1 2]
                    set #bpaint %rgb [1 3]
                    writemem #rpaint #z5 b
                    writemem #gpaint #z4 b
                    writemem #bpaint #z3 b
                    break
                end_if
            end_for
        end_for
    end_for
    set $bmp SaveImage (%a [#k 1] %path [1]\%picture [#k 3].bmp)
end_for

hint (20 clRed 500 500 (Картинки сохранены))
wait 1000
hint (10 clblack 1920 1 (1))
end_script

:rgb
    set #rmin #r - 255 * #deviat / 100
    set #rmax #r + 255 * #deviat / 100
    set #gmin #g - 255 * #deviat / 100
    set #gmax #g + 255 * #deviat / 100
    set #bmin #b - 255 * #deviat / 100
    set #bmax #b + 255 * #deviat / 100

    set #dev 255 * #deviat / 100
    set #bmin #b - #dev
    set #bmax #b + #dev
    if  #bmax > 255
        set #bmax 255
    end_if
    if  #bmin < 0
        set #bmin 0
    end_if
    set #gmin #g - #dev
    set #gmax #g + #dev
    if  #gmax > 255
        set #gmax 255
    end_if
    if  #gmin < 0
        set  #gmin 0
    end_if
    set #rmin #r - #dev
    set #rmax #r + #dev
    if  #rmax > 255
        set #rmax 255
    end_if
    if  #rmin < 0
        set #rmin 0
    end_if
return

Накидал, пробуйте что получилось.
Подправил немного.

[FREEON]

код

Код

// Закрашивание фона
set %path [1] "C:\Users\abc\Desktop\567"     // путь для сохранения картинок, сохранятся с теми же именами что и были
set $path "C:\Users\abc\Desktop\22"     // путь к анализируемым картинкам
init_arr %rgb (1) 255 0 0          // цвет для закрашивания фона в формате RGB

// цвета фона в формате RGB, указывать можно любое количество
init_arr %fon (1) 10 25 31
init_arr %fon (2) 26 37 34
//init_arr %fon (3) 45 52 37
//init_arr %fon (4)

set #deviat 5               // погрешность в цвете
// остальное менять не нужно
dir(%picture $path *.bmp*)
for #i 1 size(%picture)
    set %a [#i] Loadimage (%picture [#i 1])
end_for

set linedelay 0
set workwindow windowhandle

set #delta %a [1 4] - (%a [1 4] - %a [1 2] * 3 + 1)
for #k 1 size(%a)
    set #r %rgb [1 1]
    set #g %rgb [1 2]
    set #b %rgb [1 3]
    writemem #b %a [#k 1] b
    writemem #g eval(%a [#k 1] + 1) b
    writemem #r eval(%a [#k 1] + 2) b
    for #j 0 eval(%a [1 3] - 1)
        for #i 0 #delta 3
            set #z3 %a [#k 1] + %a [#k 4] * #j + #i
            set #z4 %a [#k 1] + %a [#k 4] * #j + #i + 1
            set #z5 %a [#k 1] + %a [#k 4] * #j + #i + 2
            readmem #b #z3 b
            readmem #g #z4 b
            readmem #r #z5 b
            gosub rgb

            for #l 1 size(%fon)
                if  #rmin <= %fon [#l 1] and #rmax >= %fon [#l 1] and #gmin <= %fon [#l 2] and #gmax >= %fon [#l 2] and #bmin <= %fon [#l 3] and #bmax >= %fon [#l 3]
                    set #rpaint %rgb [1 1]
                    set #gpaint %rgb [1 2]
                    set #bpaint %rgb [1 3]
                    writemem #rpaint #z5 b
                    writemem #gpaint #z4 b
                    writemem #bpaint #z3 b
                    break
                end_if
            end_for
        end_for
    end_for
   set $bmp SaveImage (%a [#k 1] %path [1]\%picture [#k 3].bmp)
end_for

hint (20 clRed 500 500 (Картинки сохранены))
wait 1000
hint (10 clblack 1920 1 (1))
end_script

:rgb
    set #rmin #r - 255 * #deviat / 100
    set #rmax #r + 255 * #deviat / 100
    set #gmin #g - 255 * #deviat / 100
    set #gmax #g + 255 * #deviat / 100
    set #bmin #b - 255 * #deviat / 100
    set #bmax #b + 255 * #deviat / 100

    set #dev 255 * #deviat / 100
    set #bmin #b - #dev
    set #bmax #b + #dev
    if  #bmax > 255
        set #bmax 255
    end_if
    if  #bmin < 0
        set #bmin 0
    end_if
    set #gmin #g - #dev
    set #gmax #g + #dev
    if  #gmax > 255
        set #gmax 255
    end_if
    if  #gmin < 0
        set  #gmin 0
    end_if
    set #rmin #r - #dev
    set #rmax #r + #dev
    if  #rmax > 255
        set #rmax 255
    end_if
    if  #rmin < 0
        set #rmin 0
    end_if
return

Накидал, пробуйте что получилось.
Подправил немного.

Благодарю, работает. Но есть маленький нюанс - Скрипт закрашивает по размеру пикселей первого изображения. Поэтому, что бы закрашивало всё изображения первое должно быть больше размером чем все остальные, либо все должны быть равными.

[cirus]

Но есть маленький нюанс - Скрипт закрашивает по размеру пикселей первого изображения.

Исправил. Теперь можно указывать цвет фона в десятичном формате.

[FREEON]

Исправил. Теперь можно указывать цвет фона в десятичном формате.

Извиняюсь может я не так пользуюсь. Но разницы не вижу. Цвет в десятичном коде у меня не задается и размер обработки изображения прежний (IMG:style_emoticons/default/sad.gif)

Извиняюсь может я не так пользуюсь. Но разницы не вижу. Цвет в десятичном коде у меня не задается и размер обработки изображения прежний (IMG:style_emoticons/default/sad.gif)

ой сори я рачело, случайно код из своего спойлера вставил (IMG:style_emoticons/default/laugh.gif)

[dron4938]

Можете чуть пояснить как set #accuracy работает.

Пример 1. картинка 10х10- содержит 100 пикселей
set #accuracy 100
set #deviation 0
(IMG:https://i.yapx.ru/H5J9.png)

если #accuracy 100 , то в этой картинке должны совпасть все 100 пикселей.
если #accuracy 89, то в этой картинке должны совпасть любых 89 пикселей.
Правильно я понимаю?

Пример 2. картинка 9х10 - содержит 90 пикселей
(IMG:https://i.yapx.ru/H5LK.png)

если #accuracy 100 , то в этой картинке должны совпасть все 90 пикселей.
если #accuracy 89, то в этой картинке должны совпасть 89% от 90 = 89 х (1 / 100) Ч 90 = 80,1 пикселей.

Пример 3. картинка 5х7 - содержит 35 пикселей
(IMG:https://i.yapx.ru/H5LR.png)
если #accuracy 100 , то в этой картинке должны совпасть все 35 пикселей.
если #accuracy 89, то в этой картинке должны совпасть 89% от 35 = 89 х (1 / 100) Ч 35 = 31,15 пикселей.

Правильно я понимаю? Или немного не так?

Далее в картинке есть фон, который пилот вырезает и не учитывает.
(IMG:https://i.yapx.ru/H5Le.png)

минусуем 6 пикселей фона
35-6= 29
в итоге если #accuracy 89, то в этой картинке должны совпасть 89% от 29 = 89 Ч (1 / 100) Ч 29 = 25,81

округлим = 26 пикселей
Чтобы картинка нашлась в ней должно совпасть 26 пикселей из 29
и вывод: для мелких картинок можно ставить set #accuracy 100, ибо 2-3 пикселя погоды не сделают, скорость поиска от этого не упадет

------------------------------------------------------------------------------------
#accuracy 89
(IMG:https://i.yapx.ru/H5QR.png)
26 пикселей из 29 - картинка найдена
------------------------------------------------
#accuracy 89
(IMG:https://i.yapx.ru/H5QZ.png)
26 пикселей из 29 - картинка найдена
в данном случае пилот проходит по в 28 пикселям в картинке, а это тоже самое, что #accuracy 97-99
------------------------------------------------
#accuracy 89
(IMG:https://i.yapx.ru/H5Qn.png)
26 пикселей из 29 - картинка НЕ найдена (найдено всего 25 пикселей)
в данном случае пилот проходит по всем 29 пикселям в картинке, а это тоже самое, что #accuracy 100