Версия для печати темы

// Поиск числа с помощью 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] - координаты числа

///////// начало скрипта  //////////
init_arr %GetImage (1) 0 0 129, 78     // координаты для поиска, 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:\Number"                     // папка с картинками
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 картинка

dir (%path $path $bmp)
////////////////////


// тут нужные действия

// поиск чисел
set size(%result)                        // уничтожить массив с предыдущими результатами
call test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc     // процедура поиска
if  size(%result) > 0         // если число найдено

    ///// замена 0,1,2...на 00,01,02..
    for #i 1 3
        for #j 0 eval(size(%symbol) - 1)
            if  %result [1 #i] = #j
                set %result [1 #i] 0#j
            end_if
        end_for
    end_for
    /////

end_if
log %result [1]

// тут нужные действия
end_script


// саму процедуру в конец скрипта
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc
    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 #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

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

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

// Поиск числа с помощью 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

// Поиск числа с помощью 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

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

// Закрашивание фона
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

set %a getimage (402, 395 442, 438)

set workwindow windowhandle
// закрасить первый пиксель в белый цвет
set #blue %a [1 1]
set #green %a [1 1] + 1
set #red %a [1 1] + 2
writemem 255 #blue b
writemem 255 #green b
writemem 255 #red b

// закрасить второй пиксель в чёрный цвет
set #blue %a [1 1] + 3
set #green %a [1 1] + 4
set #red %a [1 1] + 5
writemem 0 #blue b
writemem 0 #green b
writemem 0 #red b
// сохранить изменённую картинку
set $bmp SaveImage (%a[1 1] C:\qqq.bmp)
end_script

// Поиск числа с помощью 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

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 $bmp "*.bmp*"                           // формат картинок
set #deltaY 8                               // расстояние между строками (можно указать высоту картинок)
set #deltaspace 12                          // допустимое расстояние между цифрами, иначе будет считаться что это не одно число
set #accuracy 90                            // точность поиска для Findimage
set #deviation 3                            // погрешность оттенка  для Findimage
set #wait 2                                 // пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
set #timeproc 2000                          // время (в мсек) для поиска картинок, если 0 не выйдет из процедуры пока не найдётся хотя бы 1 картинка

// 4 папки с картинками, цифры во всех папках назвать одинаково 0.bmp, 1.bmp и т. д.
set $path1 "C:\l2number1"                   // папка с картинками верхнего числа
set $path2 "C:\l2number2"                   // папка с картинками левого
set $path3 "C:\l2number3"                   // папка с картинками правого
set $path4 "C:\l2number4"                   // папка с картинками нижнего

// 4 массива с координатами
init_arr %GetImage1 (1) 132, 54 167, 83     // координаты для поиска верхнего числа
init_arr %GetImage2 (1) 50, 100 82, 126     // координаты для поиска левого
init_arr %GetImage3 (1) 229, 105 248, 124   // координаты для поиска правого
init_arr %GetImage4 (1) 142, 148 167, 171   // координаты для поиска нижнего


dir (%path1 $path1 $bmp)
dir (%path2 $path2 $bmp)
dir (%path3 $path3 $bmp)
dir (%path4 $path4 $bmp)

while 1 = 1
    // тут ваш скрипт
    gosub find   // переход к подпрограмме поиска цифр
end_while


 // подпрограмма поиска цифр
:find
    // поиск картиноки из папки C:\l2number1, координаты %GetImage1
    set size(%result)                        // уничтожить массив с предыдущими результатами
    call test %picture %symbol %GetImage1 %path1 #deltaY #deltaspace #accuracy #deviation #wait #timeproc     // процедура поиска
    if  size(%result) > 0         // если размер массива больше 0
        // ТУТ НУЖНЫЕ ДЕЙСТВИЯ, например
        if %result [1 1] = 25    // если число равно 25
            log Число равно 25 !!!!!!
        else                    // иначе
            log Число равно %result [1 1]
        end_if
    end_if

    // поиск картиноки из папки C:\l2number2, координаты %GetImage2
    set size(%result)                        // уничтожить массив с предыдущими результатами
    call test %picture %symbol %GetImage2 %path2 #deltaY #deltaspace #accuracy #deviation #wait #timeproc     // процедура поиска, ищутся картинки из папки C:\l2number2
    if  size(%result) > 0         // если размер массива больше 0
        if %result [1 1] = 25    // если число равно 25
            log Число равно 25 !!!!!!
        end_if
    end_if

    // для остальных дописать
return


// процедура поиска и сортировки
proc test %picture %symbol %GetImage %path #deltaY #deltaspace #accuracy #deviation #wait #timeproc
    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 #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

// Поиск числа с помощью 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   0a 1a 2a 3a 4a 5a 6a 7a 8a 9a   0b 1b 2b 3b 4b 5b 6b 7b 8b 9b   0c 1c 2c 3c 4c 5c 6c 7c 8c 9c   // имена картинок (0.bmp, 1.bmp и т. д.)
init_arr %symbol 0 1 2 3 4 5 6 7 8 9   0 1 2 3 4 5 6 7 8 9   0 1 2 3 4 5 6 7 8 9   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

// Поиск числа с помощью 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:\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:\resultarr.txt     // массив с результатами поиска
    // save_array %coord C:\coordarr.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]
                    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]
                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 %coord_tmp [#z1 #i] %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

if %result [1 1] = 25             // если моб 25 уровня
    set $coord %coord [1 1]       // записываем в переменную координаты
    gosub find_star               // переход в подпрограмму поиска звёзд
end_if
if %result [2 1] = 25             // если моб 25 уровня
    set $coord %coord [2 1]       // записываем в переменную координаты
    gosub find_star
end_if

:find_star
    init_arr %temp (1) $coord     // разделяем координаты на 2 элемента массива, %temp [1 1] - X, %temp [1 2] - Y
    // считаем область поиска звёзд относительно числа
    set #startX %temp [1 1] - 50
    set #startY %temp [1 2] - 60
    set #endX %temp [1 1] + 30
    set #endY %temp [1 2] - 30
    set #a findimage (#startX #startY #endX #endY (фиолетовая_звезда) %star)
    if #a > 0
        log Количество звёзд: size(%star)
    end_if
    set #a findimage (#startX #startY #endX #endY (жёлтая_звезда) %star)
    if #a > 0
        log Количество звёзд: size(%star)
    end_if
return

// Поиск числа с помощью 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

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

set $path_star_purple C:\Users\abc\Desktop\star_purple.bmp    // путь к картинке фиолетовой звезды
set $path_star_yellow C:\Users\abc\Desktop\star_yellow.bmp    // путь к картинке жёлтой звезды

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

set %star [1] LoadImage ($path_star_purple)     // загрузка картинок звёзд в память
set %star [2] LoadImage ($path_star_yellow)
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))
        /////////////

        // поиск звёзд и проверка достиг ли моб максимального уровня
        for #i 1 size(%result)
            for #j 1 size(%result[])
                if  %result [#i #j] != ""
                    set $coord %coord [#i #j]
                    gosub find_star     // подпрограмма поиска звёзд
                end_if
            end_for
        end_for

        end_script   // убрать 
        
    else
        hint Картинки не найдены
    end_if

end_while

:find_star
    init_arr %tmp (1) $coord
    set #mindistX 5
    set #mindistY 5
    set #startX %tmp[1 1] - 50
    set #startY %tmp[1 2] - 60
    set #endX %tmp[1 1] + 30
    set #endY %tmp[1 2] - 30
    set #a Findimage(#startX #startY #endX #endY (%star[1 1]) %arr 2 90 -1 10) // фиолетовые звёзды
    if  #a > 0
        gosub del_double  // удаление лишних картинок
        gosub level       // проверка уровня моба в зависимости от количества звёзд
    end_if
    set #a Findimage(#startX #startY #endX #endY (%star [2 1]) %arr 2 90 -1 12) // жёлтые звёзды
    if  #a > 0
        gosub del_double  // удаление лишних картинок
        gosub level       // проверка уровня моба в зависимости от количества звёзд
    end_if
return

:del_double
    set #ii -1
    while #ii < size(%arr)
        set #ii #ii + 1
        set #double 1
        while #double = 1
            set #double 0
            set #iii #ii + 1
            set #jj #iii
            while #jj < size(%arr)
                set #jj #jj + 1
                set #distX abs(eval(%arr [#iii 1] - %arr [#jj 1]))
                set #distY abs(eval(%arr [#iii 2] - %arr [#jj 2]))
                if  #distX < #mindistX and #distY < #mindistY
                    delete_array %arr -#jj
                    set #jj #jj - 1
                    set #double 1
                end_if
            end_while
        end_while
    end_while
return

:level
    switch size(%arr)
        case 2: log Количество звёзд 2
            if %result [#i #j] = 20
                log Моб достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
                move %coord [#i #j]
                wait 500
            else
                log Моб не достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
            end_if
            break
        case 3: log Количество звёзд 3
            if %result [#i #j] = 25
                log Моб достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
                move %coord [#i #j]
                wait 500
            else
                log Моб не достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
            end_if
            break
        case 4: log Количество звёзд 4
            if %result [#i #j] = 30
                log Моб достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
                move %coord [#i #j]
                wait 500
            else
                log Моб не достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
            end_if
            break
        case 5: log Количество звёзд 5
            if %result [#i #j] = 35
                log Моб достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
                move %coord [#i #j]
                wait 500
            else
                log Моб не достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
            end_if
            break
        case 6: log Количество звёзд 6
            if %result [#i #j] = 40
                log Моб достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
                move %coord [#i #j]
                wait 500
            else
                log Моб не достиг максимального уровня
                log Уровень моба: %result [#i #j]
                log
            end_if
    end_switch
return

// процедура поиска и сортировки
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

do
    -- Символы для поиска.
    -- Возможно указать в двух вариантах синтаксиса: упрощенном и полном.
    -- Упрощенный синтаксис:
    -- В упрощенном варианте синтаксиса допускается не указывать
    -- соответствие имен файлов и строке/символу,
    -- который они обозначают: считается, что они идентичны.
    -- Пример упрощенного синтаксиса:
    -- local symbols = {"0", "1", "2", "3", "a", "b", "c", "test"}
    -- Полный синтаксис:
    -- Полный синтаксис бывает необходим при использовании
    -- нескольких изображений соответсвующих одной и той же строке/символу.
    -- Допускаются переносы строк:
    -- local symbols = {
    --       "0" = {"zero1", "zero2"},
    --       "1" = {"1a", "1b"},
    --       "2" = {"two", "second"}
    --      }
    -- Оба варианта синтаксиса можно сочетать:
    -- local symbols = {"0", "1", "2" = {"two", "second"}, "3"}


    local default = {}
    -- набор стандартных символов
    default.symbols      = {["0"]={"0"}, ["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"}, ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}}
    default.crds         = {0, 0, 1920, 1080} -- Координаты поиска
    default.path         = "c:\\image"        -- Папка с картинками
    default.ext          = ".bmp"             -- Расширение картинок
    default.deltaY       = 8                  -- Расстояние между строками (можно указать высоту картинок)
    default.deltaSpace   = 12                 -- Допустимое расстояние между цифрами, иначе будет считаться что это не одно число
    default.accuracy     = 95                 -- Точность поиска для Findimage
    default.deviation    = 3                  -- Погрешность оттенка  для Findimage
    default.wait         = 2                  -- Пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
    default.timeProc     = 2000               -- Время в секундах (может быть не целым) для поиска картинок, если -1 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
    default.repeatImage  = 2                  -- Допустимое смещение координат, если используется несколько видов одной картинки
    default.window       = "workwindow"       -- Метод|хендл_окна в котором происходит поиск (если указан источник изображения(source), то параметр будет проигнорирован)
    default.abs          = 0                  -- Использовать abs координаты.
    default.source       = nil                -- Изображение в котором производится поиск. nil приведет к захвату изображения с экрана.
    default.bufferAddNew = 1                  -- Добавлять изображения в буфер
    default.bufferIgnore = 0                  -- Игнорировать изображения находящиеся в буфере
    default.bufferUpdate = 1                  -- Обновить изображения содержащиеся в буфере.
    default.loadPath     = nil                -- Путь по которому будут загружены все изображения с указанными расширением. Имя файла будет соответсвовать имени символа.


    -- Буфер
    -- Буфер
    -- Буфер

    local buffer = {} -- Массив с загруженными картинками.
    imageToStringBuffer = {} -- набор функций по управлению буфером.
    -- Полностью очищаем массив.
    function imageToStringBuffer.flush()
        for k,_ in pairs(buffer) do buffer[v] = nil end
    end
    -- Удаляем элемент из буфера
    function imageToStringBuffer.flush(element)
        buffer[element] = nil
    end
    -- Добавляем изображение в буфер
    function imageToStringBuffer.flush(element, val)
        buffer[element] = val
    end


    -- Поиск
    -- Поиск
    -- Поиск

    function imageToString(options)

        -- Проверяем переданные параметры. Если они отсутствуют - подставляем параметры по умолчанию.
        if  options              == nil then options              = {}                    end
        if  options.symbols      == nil then options.symbols      = default.symbols       end
        if  options.crds         == nil then options.crds         = default.crds          end
        if  options.path         == nil then options.path         = default.path          end
        if  options.ext          == nil then options.ext          = default.ext           end
        if  options.deltaY       == nil then options.deltaY       = default.deltaY        end
        if  options.deltaSpace   == nil then options.deltaSpace   = default.deltaSpace    end
        if  options.accuracy     == nil then options.accuracy     = default.accuracy      end
        if  options.deviation    == nil then options.deviation    = default.deviation     end
        if  options.wait         == nil then options.wait         = default.wait          end
        if  options.timeProc     == nil then options.timeProc     = default.timeProc      end
        if  options.repeatImage  == nil then options.repeatImage  = default.repeatImage   end
        if  options.window       == nil then options.window       = default.window        end
        if  options.abs          == nil then options.abs          = default.abs           end
        if  options.source       == nil then options.source       = default.source        end
        if  options.bufferAddNew == nil then options.bufferAddNew = default.bufferAddNew  end
        if  options.bufferIgnore == nil then options.bufferIgnore = default.bufferIgnore  end
        if  options.bufferUpdate == nil then options.bufferUpdate = default.bufferUpdate  end
        if  options.loadPath     == nil then options.loadPath     = default.loadPath      end


        --Добавляем при необходимости обратный слэш в путь.
        if  string.sub(options.path, -1) ~= "\\" then options.path = options.path .. "\\" end

        -- Преобразуем урощенный синтаксис в полноценный.
        for symbolName, imageName in pairs(options.symbols) do
            if type(options.symbols[symbolName]) ~= "table" then
                options.symbols[imageName] = {imageName}
            end
        end

        -- Преобразуем ссылку на папку с изображениями
        -- в полноценный синтаксис.
        --local fileList = {}
        --log (options.path, options.ext)
        --fileList = dir(options.path, options.ext)
        --table.show(fileList, "fileList")

        -- Удаляем параметры переданные, как упрощенные (теперь уже содежатся в полном виде)
        for i=1, #options.symbols do
            table.remove(options.symbols, i)
        end

        -- Приводим options.abs к виду пригодному для финдимиджа.
        if     options.abs == 1 then options.abs = "abs"
        elseif options.abs == 0 then options.abs = ""
        end
        --table.show(options)


        -- Загрузка картинок
        local images={}     --Загружает в память изображения {имя символа, {адреса в памяти}}
        local loadError = 0
        for symbolName, fileList in pairs(options.symbols) do
            images[symbolName] = {}
            for i=1, #fileList, 1 do
                -- Загружен ли файл в буфер, если нет, то подгружаем.
                local filePath = options.path..fileList[i]..options.ext
                if  options.bufferIgnore == 0 and options.bufferUpdate == 0 and buffer[filePath] == nil then
                    images[symbolName][i] = buffer[filePath]
                else
                    -- В буфере изображения нет, загружаем с диска.
                    --log(filePath.."В буфере изображения нет, загружаем с диска.")
                    images[symbolName][i] = loadimage(filePath)
                    -- Обновляем загруженное в буфер изображение
                    if  buffer[filePath] ~= nil then
                        DeleteImage(buffer[filePath])
                        buffer[filePath] =  images[symbolName][i]
                    elseif options.bufferAddNew == 1 and options.bufferIgnore == 0 then
                        -- Добавляем в буфер новое изображение.
                        buffer[filePath] = images[symbolName][i]
                    end
                end
                -- Поиск ошибок загрузки.
                if images[symbolName][i] < 0  then
                    loadError = loadError + 1
                    log("Image loading fail. Error file: "..filePath..'.')
                end
            end
        end
        -- При загрузке изображений произошли ошибки. Останавливаем скрипт.
        if  loadError > 0 then
            log("Error loading count: "..loadError..'.')
            stop_script()
        end
        --table.show(images)


        local timeout = os.clock() + options.timeProc
        crdsRaw={} -- Массив со всеми найденными изображениями, возможны дубли, не сортированный.
        repeat  -- Повторяем пока что-то не найдем или не выйдет время на поиск (options.timeProc).
            -- Получаем изображение с экрана, если источник не указан.
            local screenshot = nil
            if  options.source == nil then
                screenshot = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
            else
                screenshot = options.source
            end
            --log(screenshot)
            for symbolName, imageAddress in pairs(images) do
                tmp = {}
                findResult = findimage(
                    options.crds[1] .. " " .. options.crds[2] .. " " ..
                    options.crds[3] .. " " .. options.crds[4] .. " " ..
                    "(" .. options.path .. symbolName .. options.ext .. ") " ..
                    "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                if  findResult ~= "0" and not string.find(findResult, "-") then
                    -- Добавляем найденные значения в общий результат поисков.
                    --table.show(tmp,"tmp")
                    for i = 1, #tmp, 1 do
                        -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                        -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                        -- после фикса просто удалить "tonumber(parm)" оставив parm.
                        table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),symbolName=symbolName})
                    end
                end
            end

            -- Удаляем изображение, если делали скриншот.
            if  options.source ~= nil then
                deleteimage(screenshot)
            end

            --table.show(images, "images")
            --log (#crdsRaw, timeout, os.clock(), options.timeProc)
            --log ("until")
            local clock = os.clock()
        until not ((#crdsRaw == 0) and (timeout > clock or options.timeProc == -1))
        --table.show(crdsRaw, "crdsRaw")

        --  Изображения не были найдены, выходим из поиска.
        if  #crdsRaw < 1 then
            return nil
        end
        -- Удаляем дубли.
        crdsClear={} -- Массив без дублей.
        for i=1, #crdsRaw, 1 do
            local catch = 0 -- Флаг найденного дубля.
            for n=i+1, #crdsRaw, 1 do
                --log(
                --  crdsRaw[i].symbolName.." == "..crdsRaw[n].symbolName.." and "..
                --  math.abs(crdsRaw[i].x - crdsRaw[n].x).." <= "..options.repeatImage.." and "..
                --  math.abs(crdsRaw[i].y - crdsRaw[n].y).." <= "..options.repeatImage
                --)
                if  crdsRaw[i].symbolName == crdsRaw[n].symbolName and
                  math.abs(crdsRaw[i].x - crdsRaw[n].x) <= options.repeatImage and
                  math.abs(crdsRaw[i].y - crdsRaw[n].y) <= options.repeatImage then
                    catch = 1
                    break
                end
            end
            --log(catch)
            if  catch == 0 then -- не дубль, копируем значение в чистый массив.
                table.insert(crdsClear,crdsRaw[i])
            end
        end

        -- Сортируем элементы.
        -- Сортировка происходит, как по X координате,
        -- так и по Y учитывая возможность нескольких строк.
        -- Межстрочный интервал задается с помощью options.deltaY.
        -- Для уплотнения поиска options.deltaY может быть отрицательным.
        -- Отрицательный options.deltaY в первую очередь необходим,
        -- если изображения символов содержат сверху и снизу от символа фон.
        -- crdsClear был предварительно очищен от дублей, теперь сортируется.

        --table.show(crdsClear,"crdsClear")
        --table.toInit(crdsClear)
        table.sort(crdsClear,
            function(a,b)
                if  math.abs(a.y - b.y) <= options.deltaY then
                    if  a.x < b.x then
                        return true
                    else
                        return false
                    end
                else
                    if a.y < b.y then
                        return true
                    else
                        return false
                    end
                end
            end
        )
        --table.show(crdsClear,"crdsClear")

        -- Собираем строку
        --log(#crdsClear)
        local result = {{crdsClear[1].symbolName}}
        local resultX, resultY = 1, 1
        for i=2, #crdsClear, 1 do
            -- Добавляем перенос и символ, возрващем каретку.
            if  crdsClear[i-1].y  + options.deltaY < crdsClear[i].y then
                resultX = resultX + 1
                resultY = 1 -- возврат картеки
                result[resultX]={crdsClear[i].symbolName}
            -- Добавляем пробел и символ
            elseif crdsClear[i-1].x  + options.deltaSpace < crdsClear[i].x then
                resultY = resultY + 1
                result[resultX][resultY] = crdsClear[i].symbolName
            -- Добавляем символ
            else
                result[resultX][resultY] = result[resultX][resultY].. crdsClear[i].symbolName
            end
            --table.show(result,"result")
        end
        --table.show(result,"result")
        return result
    end
end

do
    local tab = ""
    local deep = 0
    function table.show(t, comment)
        -- Пишем в лог комментарий.
        deep = deep + 1 -- Уровень вложенности вызовов функции.
        --log(comment .. commentSended .. deep)
        if  comment ~= nil and deep == 1 then
            log(comment)
        end


        if     type(t) == "nil"     then log("table is nil")
        elseif type(t) == "string"  then log('table is string: "'..t..'"')
        elseif type(t) == "number"  then log('table is number: '..t)
        elseif type(t) == "table"   then
            local elementsInTable = 0
            for k,v in pairs(t) do
                if  type (v) == "table" then
                    log(tab.."table: "..k)
                    tab = tab .. "    "
                    table.show(v)
                    tab = string.sub(tab, 1, -5)
                    elementsInTable = elementsInTable + 1
                else
                    elementsInTable = elementsInTable + 1
                    if type(v) == "string" then v = '"'..v..'"' end
                    if type(k) == "string" then k = '"'..k..'"' end
                    log(tab..""..k.." = "..v)
                end
            end
            if elementsInTable == 0 then log("table is empty") end
        else
            log('table is unknow data type')
        end
        -- Пишем в лог комментарий.
        deep = deep - 1 -- Уровень вложенности вызовов функции.
    end
end

function table.toInit(t)
        log("mode compact")
        log('table_name={')
        for k,v in pairs (t) do
           local str = "    {"
           for k2,v2 in pairs(v) do
               str = str .. k2.. "=" .. v2 .. ","
           end
           str = str .. "},"
           log(str)
        end
        log("}")
end

for symbolName, imageAddress in pairs(images) do
    for _, j in pairs(imageAddress) do     -- цикл, если для одного символа несколько картинок
        tmp = {}
        findResult = findimage(
        options.crds[1] .. " " .. options.crds[2] .. " " ..
        options.crds[3] .. " " .. options.crds[4] .. " " ..
        "(" .. j .. ") " ..                         -- передаём j - адрес в памяти
        "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
        -- log("symoblName: ".. symbolName .. " findResult: " .. findResult)
        -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.

        if  findResult ~= "0" and not string.find(findResult, "-") then
        -- Добавляем найденные значения в общий результат поисков.
        --table.show(tmp,"tmp")
            for i = 1, #tmp, 1 do
                -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                -- после фикса просто удалить "tonumber(parm)" оставив parm.
                table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),symbolName=symbolName})
            end
        end
    end
end 

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

do
    -- Символы для поиска.
    -- Возможно указать в двух вариантах синтаксиса: упрощенном и полном.
    -- Упрощенный синтаксис:
    -- В упрощенном варианте синтаксиса допускается не указывать
    -- соответствие имен файлов и строке/символу,
    -- который они обозначают: считается, что они идентичны.
    -- Пример упрощенного синтаксиса:
    -- local symbols = {"0", "1", "2", "3", "a", "b", "c", "test"}
    -- Полный синтаксис:
    -- Полный синтаксис бывает необходим при использовании
    -- нескольких изображений соответсвующих одной и той же строке/символу.
    -- Допускаются переносы строк:
    -- local symbols = {
    --       ["0"] = {"zero1", "zero2"},
    --       ["1"] = {"1a", "1b"},
    --       ["2"] = {"two", "second"}
    --      }
    -- Оба варианта синтаксиса можно сочетать:
    -- local symbols = {"0", "1", ["2"] = {"two", "second"}, "3"}


    local default = {}
    default.crds         = {0, 0, 1920, 1080} -- Координаты поиска
    default.path         = "c:\\image"        -- Папка с картинками
    default.ext          = ".bmp"             -- Расширение картинок
    default.loadFolder   = nil                -- Путь по которому будут загружены все изображения с указанными расширением {path=путь, mask=маска, sub=1|0}(sub - подпапки). Имя файла будет соответсвовать имени символа.
    default.deltaY       = 8                  -- Расстояние между строками (можно указать высоту картинок)
    default.deltaSpace   = 2                  -- Допустимое расстояние между цифрами, иначе будет считаться что это не одно число
    default.accuracy     = 95                 -- Точность поиска для Findimage
    default.deviation    = 3                  -- Погрешность оттенка  для Findimage
    default.wait         = 2                  -- Пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
    default.timeProc     = 2                  -- Время в секундах (может быть не целым) для поиска картинок, если -1 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
    default.repeatImage  = 2                  -- Допустимое смещение координат, если используется несколько видов одной картинки
    default.window       = "workwindow"       -- Метод|хендл_окна в котором происходит поиск (если указан источник изображения(source), то параметр будет проигнорирован)
    default.abs          = 0                  -- Использовать abs координаты.
    default.source       = nil                -- Изображение в котором производится поиск. Должен быть задан таблицей {адрес, ширина, высота}, nil вместо таблицы приведет к захвату изображения с экрана.
    default.bufferAddNew = 1                  -- Добавлять изображения в буфер
    default.bufferIgnore = 0                  -- Игнорировать изображения находящиеся в буфере
    default.bufferUpdate = 0                  -- Обновить изображения содержащиеся в буфере.
    default.secondFrame  = 0                  -- Ожидание прогрузки значений. Изображение будет проанализировано только после secondFrame секунд с первой успешной попытки считать любое из избражений.
    -- набор стандартных символов
    default.symbols      = {["0"]={"0"}, ["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"}, ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}}


    -- Буфер
    -- Буфер
    -- Буфер

    local buffer = {} -- Массив с загруженными картинками.
    imageToStringBuffer = {} -- набор функций по управлению буфером.
    -- Полностью очищаем массив.
    function imageToStringBuffer.flush()
        for k,_ in pairs(buffer) do buffer[v] = nil end
    end
    -- Удаляем элемент из буфера
    function imageToStringBuffer.flush(element)
        buffer[element] = nil
    end
    -- Добавляем изображение в буфер
    function imageToStringBuffer.flush(element, val)
        buffer[element] = val
    end
    -- Читаем изображение из буфера
    function imageToStringBuffer.flush(element)
        return buffer[element]
    end


    -- Поиск
    -- Поиск
    -- Поиск

    function imageToString(options)

        -- Проверяем переданные параметры. Если они отсутствуют - подставляем параметры по умолчанию.
        if  options              == nil then local options        = {}                    end
        if  options.crds         == nil then options.crds         = default.crds          end
        if  options.path         == nil then options.path         = default.path          end
        if  options.ext          == nil then options.ext          = default.ext           end
        if  options.loadFolder   == nil then options.loadFolder   = default.loadFolder    end
        if  options.deltaY       == nil then options.deltaY       = default.deltaY        end
        if  options.deltaSpace   == nil then options.deltaSpace   = default.deltaSpace    end
        if  options.accuracy     == nil then options.accuracy     = default.accuracy      end
        if  options.deviation    == nil then options.deviation    = default.deviation     end
        if  options.wait         == nil then options.wait         = default.wait          end
        if  options.timeProc     == nil then options.timeProc     = default.timeProc      end
        if  options.repeatImage  == nil then options.repeatImage  = default.repeatImage   end
        if  options.window       == nil then options.window       = default.window        end
        if  options.abs          == nil then options.abs          = default.abs           end
        if  options.source       == nil then options.source       = default.source        end
        if  options.bufferAddNew == nil then options.bufferAddNew = default.bufferAddNew  end
        if  options.bufferIgnore == nil then options.bufferIgnore = default.bufferIgnore  end
        if  options.bufferUpdate == nil then options.bufferUpdate = default.bufferUpdate  end
        if  options.secondFrame  == nil then options.secondFrame  = default.secondFrame   end
        if  options.symbols      == nil then
            if  options.loadFolder   == nil then
                options.symbols = default.symbols
            else
                options.symbols = {}
            end
        end


        --Добавляем при необходимости обратный слэш в путь.
        if  string.sub(options.path, -1) ~= "\\" then options.path = options.path .. "\\" end

        -- Папка для загрузки изображений не задана, загружаем обычным методом.
        if  options.loadFolder.path == nil then

            -- Преобразуем урощенный синтаксис в полноценный, преобразуем пути в полные.
            do
                local tmp = {} --Массив в который временно помещаются преобразованные данные.
                for symbolName, imageName in pairs(options.symbols) do
                    -- Если занчение задано строкой/числом, приводим его к таблице, дописываем путь до полного.
                    if  type(options.symbols[symbolName]) == "number" then
                        options.symbols[symbolName] = {options.path..tostring(imageName)..options.ext}
                    elseif  type(options.symbols[symbolName]) == "string" then
                        options.symbols[symbolName] = {options.path..imageName..options.ext}
                    --  Значение задано таблицей, преобразоываем числа в строки, дописываем путь до полного.
                    elseif  type(options.symbols[symbolName]) == "table" then
                        for n=1, #options.symbols[symbolName] do
                            if  type(options.symbols[symbolName][n]) == "number" then
                                options.symbols[symbolName][n] = options.path..tostring(options.symbols[symbolName][n])..options.ext
                            elseif  type(options.symbols[symbolName][n]) == "string" then
                                options.symbols[symbolName][n] = options.path..options.symbols[symbolName][n]..options.ext
                            else
                                msg ("Ошибочный тип значения картинок символов в таблице. Остановка скрипта")
                                stop_script()
                            end
                        end
                    else
                        msg ("Ошибочный тип значения картинок символов. Остановка скрипта")
                        stop_script()
                    end

                    -- Если ключ цифровой, преобразуем к строке
                    if  type(symbolName) == "number" then
                        tmp[tostring(symbolName)] = options.symbols[symbolName]
                    elseif  type(symbolName) == "string" then
                        tmp[symbolName] = options.symbols[symbolName]
                    else
                        msg ("Ошибочный тип ключа символов. Остановка скрипта")
                        stop_script()
                    end
                end
                options.symbols = tmp
            end
        else
            -- Загружаем папку с изображениями.
            -- Имя файла = имя символа.
            -- Допускается несколько одинаковых символов в различных подпапках.
            -- Приводим к понятному для пилота виду флаг чтение подпапок.

            -- Прилепляем кавычки к пути чтобы пилот не путал путь и маску.
            options.loadFolder.path = '"'..options.loadFolder.path..'"'
            if options.loadFolder.sub ~= 0 then options.loadFolder.sub = "norecursion" else options.loadFolder.sub = nil end
            -- Приводим маску к надлежащему виду, если она не задана.
            if options.loadFolder.mask == nil then options.loadFolder.mask = "*" end

            fileList = dir(options.loadFolder.path, options.loadFolder.mask, options.loadFolder.sub)
            for k, v in pairs (fileList) do
                -- символ уже существует (несколько вариантов изображения)
                if  options.symbols[v[3]] ~= nil then
                    table.insert(options.symbols[v[3]], v[1])
                else
                    options.symbols[v[3]] = {v[1]}
                end
            end
        end
        --table.show(options.symbols)
        --if 1 then return end



        -- Приводим options.abs к виду пригодному для финдимиджа.
        if     options.abs == 1 then options.abs = "abs"
        elseif options.abs == 0 then options.abs = ""
        end
        --table.show(options.symbols)


        -- Загрузка картинок
        local images={}     --Загружает в память изображения {имя символа, {адреса в памяти}}
        local loadError = 0
        for symbolName, fileList in pairs(options.symbols) do
            images[symbolName] = {}
            for i=1, #fileList, 1 do
                -- Загружен ли файл в буфер, если нет, то подгружаем.
                local filePath = fileList[i]
                if  options.bufferIgnore == 0 and options.bufferUpdate == 0 and buffer[filePath] ~= nil then
                    images[symbolName][i] = buffer[filePath]
                else
                    -- В буфере изображения нет, загружаем с диска.
                    --log(filePath.."В буфере изображения нет, загружаем с диска.")
                    images[symbolName][i] = loadimage(filePath)
                    -- Обновляем загруженное в буфер изображение
                    if  buffer[filePath] ~= nil then
                        deleteimage(buffer[filePath])
                        buffer[filePath] =  images[symbolName][i]
                    elseif options.bufferAddNew == 1 and options.bufferIgnore == 0 then
                        -- Добавляем в буфер новое изображение.
                        buffer[filePath] = images[symbolName][i]
                    end
                end
                -- Поиск ошибок загрузки.
                if images[symbolName][i] < 0  then
                    loadError = loadError + 1
                    log("Image loading fail. Error file: "..filePath..'.')
                end
            end
        end
        -- При загрузке изображений произошли ошибки. Останавливаем скрипт.
        if  loadError > 0 then
            log("Error loading count: "..loadError..'.')
            stop_script()
        end
        --table.show(images)


        local timeout = os.clock() + options.timeProc

        -- log(options.secondFrame)
        -- Таймаут на прогрузку. Поиск для детекта изображений.
        if options.secondFrame > 0 then
            -- Создаем карман области видимости.
            -- Реузльататы блока не нужны для остального скрипта.
            do
                local catch = 0
                -- Если вермя ожидания после детекта не уложится в общий
                -- таймаут, то выходим из цикла без дальшейших попыток найти изображение.
                secondFrameTimeout = timeout - options.secondFrame
                while true do -- выход внутри цикла  timeout < os.clock()
                    local screenshot, width, height = nil, nil, nil
                    if  options.source == nil then
                        screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
                    else
                        screenshot, width, height = options.source[1],options.source[2],options.source[3]
                    end
                    for symbolName, imageAddressArray in pairs(images) do
                        for _, imageAddress in pairs(imageAddressArray) do
                            local tmp = {}
                            findResult = findimage(
                                0 .. " " .. 0 .. " " ..
                                width .. " " .. height .. " " ..
                                "(" .. imageAddress .. ") " ..
                                "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                            --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                            -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                            if  findResult ~= "0" and not string.find(findResult, "-") then
                                catch = 1
                                --log("break")
                                wait(math.floor(options.secondFrame * 1000))
                                break
                            end
                            -- Время на всю функцию истекло
                            if  timeout - options.secondFrame < os.clock() then
                                return
                            end
                        end
                        if catch == 1 then break end
                    end
                    if catch == 1 then break end
                end
            end
        end


        -- Ищем изображения
        local crdsRaw={} -- Массив со всеми найденными изображениями, возможны дубли, не сортированный.
        repeat  -- Повторяем пока что-то не найдем или не выйдет время на поиск (options.timeProc).
            -- Получаем изображение с экрана, если источник не указан.
            local screenshot, width, height = nil
            if  options.source == nil then
                screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
            else
                screenshot, width, height = options.source[1],options.source[2],options.source[3]
            end
            --log(screenshot)
            for symbolName, imageAddressArray in pairs(images) do
                for _, imageAddress in pairs(imageAddressArray) do
                    tmp = {}
                    findResult = findimage(
                        0 .. " " .. 0 .. " " ..
                        width .. " " .. height .. " " ..
                        "(" .. imageAddress .. ") " ..
                        "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                    --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                    -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                    if  findResult ~= "0" and not string.find(findResult, "-") then
                        -- Добавляем найденные значения в общий результат поисков.
                        table.show(tmp,"tmp")
                        for i = 1, #tmp, 1 do
                            -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                            -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                            -- после фикса просто удалить "tonumber(parm)" оставив parm.
                            table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),xEnd=tonumber(tmp[i][3]),symbolName=symbolName})
                        end
                    end
                end
            end

            -- Удаляем изображение, если делали скриншот.
            if  options.source == nil then
                deleteimage(screenshot)
            end

            --table.show(images, "images")
            --log (#crdsRaw, timeout, os.clock(), options.timeProc)
            log ("until")
            local clock = os.clock()
        until not ((#crdsRaw == 0) and (timeout > clock or options.timeProc == -1))
        --table.show(crdsRaw, "crdsRaw")

        --  Изображения не были найдены, выходим из поиска.
        if  #crdsRaw < 1 then
            return nil
        end
        -- Удаляем дубли.
        local crdsClear={} -- Массив без дублей.
        for i=1, #crdsRaw, 1 do
            local catch = 0 -- Флаг найденного дубля.
            for n=i+1, #crdsRaw, 1 do
                --log(
                --  crdsRaw[i].symbolName.." == "..crdsRaw[n].symbolName.." and "..
                --  math.abs(crdsRaw[i].x - crdsRaw[n].x).." <= "..options.repeatImage.." and "..
                --  math.abs(crdsRaw[i].y - crdsRaw[n].y).." <= "..options.repeatImage
                --)
                if  crdsRaw[i].symbolName == crdsRaw[n].symbolName and
                  math.abs(crdsRaw[i].x - crdsRaw[n].x) <= options.repeatImage and
                  math.abs(crdsRaw[i].y - crdsRaw[n].y) <= options.repeatImage then
                    catch = 1
                    break
                end
            end
            --log(catch)
            if  catch == 0 then -- не дубль, копируем значение в чистый массив.
                table.insert(crdsClear,crdsRaw[i])
            end
        end

        -- Сортируем элементы.
        -- Сортировка происходит, как по X координате,
        -- так и по Y учитывая возможность нескольких строк.
        -- Межстрочный интервал задается с помощью options.deltaY.
        -- Для уплотнения поиска options.deltaY может быть отрицательным.
        -- Отрицательный options.deltaY в первую очередь необходим,
        -- если изображения символов содержат сверху и снизу от символа фон.
        -- crdsClear был предварительно очищен от дублей, теперь сортируется.

        --table.show(crdsClear,"crdsClear")
        --table.toInit(crdsClear)
        table.sort(crdsClear,
            function(a,b)
                if  math.abs(a.y - b.y) <= options.deltaY then
                    if  a.x < b.x then
                        return true
                    else
                        return false
                    end
                else
                    if a.y < b.y then
                        return true
                    else
                        return false
                    end
                end
            end
        )
        --table.show(crdsClear,"crdsClear")

        -- Собираем строку
        --log(#crdsClear)
        local result = {{crdsClear[1].symbolName}}
        local resultX, resultY = 1, 1
        for i=2, #crdsClear, 1 do
            -- Добавляем перенос и символ, возрващем каретку.
            if  crdsClear[i-1].y  + options.deltaY < crdsClear[i].y then
                resultX = resultX + 1
                resultY = 1 -- возврат картеки
                result[resultX]={crdsClear[i].symbolName}
            -- Добавляем пробел и символ
            elseif crdsClear[i-1].xEnd  + options.deltaSpace < crdsClear[i].x then
                resultY = resultY + 1
                result[resultX][resultY] = crdsClear[i].symbolName
            -- Добавляем символ
            else
                result[resultX][resultY] = result[resultX][resultY].. crdsClear[i].symbolName
            end
            --table.show(result,"result")
        end
        --table.show(result,"result")
        return result
    end
end

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

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

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

do

-- Раскомментировать, если в отладке будет использоват table.show.
--[[do
    local tab = ""
    local deep = 0
    function table.show(t, comment)
        -- Пишем в лог комментарий.
        deep = deep + 1 -- Уровень вложенности вызовов функции.
        --log(comment .. commentSended .. deep)
        if  comment ~= nil and deep == 1 then
            log(comment)
        end


        if     type(t) == "nil"     then log("table is nil")
        elseif type(t) == "string"  then log('table is string: "'..t..'"')
        elseif type(t) == "number"  then log('table is number: '..t)
        elseif type(t) == "table"   then
            local elementsInTable = 0
            for k,v in pairs(t) do
                if  type (v) == "table" then
                    if type(k) == "string" then
                        log(tab..'table: "'..k..'"')
                    else
                        log(tab..'table: '..k)
                    end
                    tab = tab .. "    "
                    table.show(v)
                    tab = string.sub(tab, 1, -5)
                    elementsInTable = elementsInTable + 1
                else
                    elementsInTable = elementsInTable + 1
                    if type(v) == "string" then v = '"'..v..'"' end
                    if type(k) == "string" then k = '"'..k..'"' end
                    log(tab..""..k.." = "..v)
                end
            end
            if elementsInTable == 0 then log("table is empty") end
        else
            log('table is unknow data type')
        end
        -- Пишем в лог комментарий.
        deep = deep - 1 -- Уровень вложенности вызовов функции.
    end
end
]]


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


    local default = {}
    default.crds         = {0, 0, 1920, 1080} -- Координаты поиска
    default.path         = "c:\\image"        -- Папка с картинками
    default.ext          = ".bmp"             -- Расширение картинок
    default.loadFolder   = nil                -- Путь по которому будут загружены все изображения с указанной маской {path=путь, mask=маска, sub=1|0}(sub - подпапки). Имя файла будет соответсвовать имени символа.
    default.deltaY       = 8                  -- Расстояние между строками (можно указать высоту картинок)
    default.deltaSpace   = 2                  -- Допустимое расстояние между цифрами, иначе будет считаться что это не одно число
    default.accuracy     = 95                 -- Точность поиска для Findimage
    default.deviation    = 3                  -- Погрешность оттенка  для Findimage
    default.wait         = 2                  -- Пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
    default.timeProc     = 2                  -- Время в секундах (может быть не целым) для поиска картинок, если -1 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
    default.repeatImage  = 2                  -- Допустимое смещение координат, если используется несколько видов одной картинки
    default.window       = "workwindow"       -- Метод|хендл_окна в котором происходит поиск (если указан источник изображения(source), то параметр будет проигнорирован)
    default.abs          = 0                  -- Использовать abs координаты.
    default.source       = nil                -- Изображение в котором производится поиск. Должен быть задан таблицей {адрес, ширина, высота}, nil вместо таблицы приведет к захвату изображения с экрана.
    default.bufferAddNew = 1                  -- Добавлять изображения в буфер
    default.bufferIgnore = 0                  -- Игнорировать изображения находящиеся в буфере
    default.bufferUpdate = 0                  -- Обновить изображения содержащиеся в буфере.
    default.secondFrame  = 0                  -- Ожидание прогрузки значений. Изображение будет проанализировано только после secondFrame секунд с первой успешной попытки считать любое из избражений.
    default.saveImage    = nil                -- Путь по которому будет сохранено изображение в котором происходит поиск.
    -- набор стандартных символов
    default.symbols      = {["0"]={"0"}, ["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"}, ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}}


    -- Буфер
    -- Буфер
    -- Буфер

    local buffer = {} -- Массив с загруженными картинками.
    imageToStringBuffer = {} -- набор функций по управлению буфером.
    -- Полностью очищаем массив.
    function imageToStringBuffer.flush()
        for k,_ in pairs(buffer) do buffer[v] = nil end
    end
    -- Удаляем элемент из буфера
    function imageToStringBuffer.flush(element)
        buffer[element] = nil
    end
    -- Добавляем изображение в буфер
    function imageToStringBuffer.flush(element, val)
        buffer[element] = val
    end
    -- Читаем изображение из буфера
    function imageToStringBuffer.flush(element)
        return buffer[element]
    end


    -- Поиск
    -- Поиск
    -- Поиск

    function imageToString(options)

        -- Проверяем переданные параметры. Если они отсутствуют - подставляем параметры по умолчанию.
        if  options              == nil then local options        = {}                    end
        if  options.crds         == nil then options.crds         = default.crds          end
        if  options.path         == nil then options.path         = default.path          end
        if  options.ext          == nil then options.ext          = default.ext           end
        if  options.loadFolder   == nil then options.loadFolder   = default.loadFolder    end
        if  options.deltaY       == nil then options.deltaY       = default.deltaY        end
        if  options.deltaSpace   == nil then options.deltaSpace   = default.deltaSpace    end
        if  options.accuracy     == nil then options.accuracy     = default.accuracy      end
        if  options.deviation    == nil then options.deviation    = default.deviation     end
        if  options.wait         == nil then options.wait         = default.wait          end
        if  options.timeProc     == nil then options.timeProc     = default.timeProc      end
        if  options.repeatImage  == nil then options.repeatImage  = default.repeatImage   end
        if  options.window       == nil then options.window       = default.window        end
        if  options.abs          == nil then options.abs          = default.abs           end
        if  options.source       == nil then options.source       = default.source        end
        if  options.bufferAddNew == nil then options.bufferAddNew = default.bufferAddNew  end
        if  options.bufferIgnore == nil then options.bufferIgnore = default.bufferIgnore  end
        if  options.bufferUpdate == nil then options.bufferUpdate = default.bufferUpdate  end
        if  options.secondFrame  == nil then options.secondFrame  = default.secondFrame   end
        if  options.saveImage    == nil then options.saveImage    = default.saveImage     end
        if  options.symbols      == nil then
            if  options.loadFolder   == nil then
                options.symbols = default.symbols
            else
                options.symbols = {}
            end
        end


        --Добавляем при необходимости обратный слэш в путь.
        if  string.sub(options.path, -1) ~= "\\" then options.path = options.path .. "\\" end

        -- Папка для загрузки изображений не задана, загружаем обычным методом.
        if  options.loadFolder == nil then
            -- Преобразуем урощенный синтаксис в полноценный, преобразуем пути в полные.
            do
                local tmp = {} --Массив в который временно помещаются преобразованные данные.
                for symbolName, imageName in pairs(options.symbols) do
                    -- Если занчение задано строкой/числом, приводим его к таблице, дописываем путь до полного.
                    if  type(options.symbols[symbolName]) == "number" then
                        options.symbols[symbolName] = {options.path..tostring(imageName)..options.ext}
                    elseif  type(options.symbols[symbolName]) == "string" then
                        options.symbols[symbolName] = {options.path..imageName..options.ext}
                    --  Значение задано таблицей, преобразоываем числа в строки, дописываем путь до полного.
                    elseif  type(options.symbols[symbolName]) == "table" then
                        for n=1, #options.symbols[symbolName] do
                            if  type(options.symbols[symbolName][n]) == "number" then
                                options.symbols[symbolName][n] = options.path..tostring(options.symbols[symbolName][n])..options.ext
                            elseif  type(options.symbols[symbolName][n]) == "string" then
                                options.symbols[symbolName][n] = options.path..options.symbols[symbolName][n]..options.ext
                            else
                                msg ("Ошибочный тип значения картинок символов в таблице. Остановка скрипта")
                                stop_script()
                            end
                        end
                    else
                        msg ("Ошибочный тип значения картинок символов. Остановка скрипта")
                        stop_script()
                    end

                    -- Если ключ цифровой, преобразуем к строке
                    if  type(symbolName) == "number" then
                        tmp[tostring(symbolName)] = options.symbols[symbolName]
                    elseif  type(symbolName) == "string" then
                        tmp[symbolName] = options.symbols[symbolName]
                    else
                        msg ("Ошибочный тип ключа символов. Остановка скрипта")
                        stop_script()
                    end
                end
                options.symbols = tmp
            end
        else
            -- Загружаем папку с изображениями.
            -- Имя файла = имя символа.
            -- Допускается несколько одинаковых символов в различных подпапках.
            -- Приводим к понятному для пилота виду флаг чтение подпапок.

            -- Прилепляем кавычки к пути чтобы пилот не путал путь и маску.
            options.loadFolder.path = '"'..options.loadFolder.path..'"'
            if options.loadFolder.sub == 1 then options.loadFolder.sub = nil else options.loadFolder.sub = "norecursion" end
            -- Приводим маску к надлежащему виду, если она не задана.
            if options.loadFolder.mask == nil then options.loadFolder.mask = "*" end
            fileList = dir(options.loadFolder.path, options.loadFolder.mask, options.loadFolder.sub)
            --table.show(fileList, "fileList")
            for k, v in pairs (fileList) do
                -- символ уже существует (несколько вариантов изображения)
                if  options.symbols[v[3]] ~= nil then
                    table.insert(options.symbols[v[3]], v[1])
                else
                    options.symbols[v[3]] = {v[1]}
                end
            end
        end
        --table.show(options.symbols)


        -- Приводим options.abs к виду пригодному для финдимиджа.
        if      options.abs == 1 then options.abs = "abs"
        elseif  options.abs == 0 then options.abs = ""
        end


        -- Загрузка картинок
        local images={}     --Загружает в память изображения {имя символа, {адреса в памяти}}
        local loadError = 0
        for symbolName, fileList in pairs(options.symbols) do
            images[symbolName] = {}
            for i=1, #fileList, 1 do
                -- Загружен ли файл в буфер, если нет, то подгружаем.
                local filePath = fileList[i]
                if  options.bufferIgnore == 0 and options.bufferUpdate == 0 and buffer[filePath] ~= nil then
                    images[symbolName][i] = buffer[filePath]
                else
                    -- В буфере изображения нет, загружаем с диска.
                    --log(filePath.."В буфере изображения нет, загружаем с диска.")
                    images[symbolName][i] = loadimage(filePath)
                    -- Обновляем загруженное в буфер изображение
                    if  buffer[filePath] ~= nil then
                        deleteimage(buffer[filePath])
                        buffer[filePath] =  images[symbolName][i]
                    elseif options.bufferAddNew == 1 and options.bufferIgnore == 0 then
                        -- Добавляем в буфер новое изображение.
                        buffer[filePath] = images[symbolName][i]
                    end
                end
                -- Поиск ошибок загрузки.
                if images[symbolName][i] < 0  then
                    loadError = loadError + 1
                    log("Image loading fail. Error file: "..filePath..'.')
                end
            end
        end
        -- При загрузке изображений произошли ошибки. Останавливаем скрипт.
        if  loadError > 0 then
            log("Error loading count: "..loadError..'.')
            stop_script()
        end
        if  images == nil then
            log("Файлы изображений не найдены. Скрипт остановлен.")
            stop_script()
        end
        --table.show(images,"images")


        local timeout = os.clock() + options.timeProc


        -- log(options.secondFrame)
        -- Таймаут на прогрузку. Поиск для детекта изображений.
        if options.secondFrame > 0 then
            -- Создаем карман области видимости.
            -- Реузльататы блока не нужны для остального скрипта.
            do
                local catch = 0
                -- Если вермя ожидания после детекта не уложится в общий
                -- таймаут, то выходим из цикла без дальшейших попыток найти изображение.
                local secondFrameTimeout = timeout - options.secondFrame
                while true do -- выход внутри цикла  timeout < os.clock()
                    local screenshot, width, height = nil, nil, nil
                    if  options.source == nil then
                        screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
                    else
                        screenshot, width, height = options.source[1],options.source[2],options.source[3]
                    end
                    for symbolName, imageAddressArray in pairs(images) do
                        for _, imageAddress in pairs(imageAddressArray) do
                            local tmp = {}
                            findResult = findimage(
                                0 .. " " .. 0 .. " " ..
                                width .. " " .. height .. " " ..
                                "(" .. imageAddress .. ") " ..
                                "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                            --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                            -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                            if  findResult ~= "0" and not string.find(findResult, "-") then
                                catch = 1
                                --log("break")
                                wait(math.floor(options.secondFrame * 1000))
                                break
                            end
                            -- Время на всю функцию истекло
                            if  secondFrameTimeout < os.clock() and options.timeProc ~= -1 then
                                return
                            end
                        end
                        if catch == 1 then break end
                    end
                    if catch == 1 then break end
                end
            end
        end


        -- Ищем изображения
        local crdsRaw={} -- Массив со всеми найденными изображениями, возможны дубли, не сортированный.
        repeat  -- Повторяем пока что-то не найдем или не выйдет время на поиск (options.timeProc).
            -- Получаем изображение с экрана, если источник не указан.
            local screenshot, width, height = nil
            if  options.source == nil then
                screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
            else
                screenshot, width, height = options.source[1],options.source[2],options.source[3]
            end
            --log(screenshot)
            for symbolName, imageAddressArray in pairs(images) do
                for _, imageAddress in pairs(imageAddressArray) do
                    tmp = {}
                    findResult = findimage(
                        0 .. " " .. 0 .. " " ..
                        width .. " " .. height .. " " ..
                        "(" .. imageAddress .. ") " ..
                        "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                    --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                    -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                    if  findResult ~= "0" and not string.find(findResult, "-") then
                        -- Добавляем найденные значения в общий результат поисков.
                        --table.show(tmp,"tmp")
                        for i = 1, #tmp, 1 do
                            -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                            -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                            -- после фикса просто удалить "tonumber(parm)" оставив parm.
                            table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),xEnd=tonumber(tmp[i][3]),symbolName=symbolName})
                        end
                    end
                end
            end

            -- Сохраняем изображение.
            if  options.saveImage ~= nil then
                saveimage(screenshot, options.saveImage)
            end
            -- Удаляем изображение, если получали его из приложения.
            if  options.source == nil then
                deleteimage(screenshot)
            end

            --table.show(images, "images")
            --log (#crdsRaw, timeout, os.clock(), options.timeProc)
            --log ("until")
            local clock = os.clock()
        until not ((#crdsRaw == 0) and (timeout > clock or options.timeProc == -1))
        --table.show(crdsRaw, "crdsRaw")

        --  Изображения не были найдены, выходим из поиска.
        if  #crdsRaw < 1 then
            return nil
        end
        -- Удаляем дубли.
        local crdsClear={} -- Массив без дублей.
        for i=1, #crdsRaw, 1 do
            local catch = 0 -- Флаг найденного дубля.
            for n=i+1, #crdsRaw, 1 do
                --log(
                --  crdsRaw[i].symbolName.." == "..crdsRaw[n].symbolName.." and "..
                --  math.abs(crdsRaw[i].x - crdsRaw[n].x).." <= "..options.repeatImage.." and "..
                --  math.abs(crdsRaw[i].y - crdsRaw[n].y).." <= "..options.repeatImage
                --)
                if  crdsRaw[i].symbolName == crdsRaw[n].symbolName and
                  math.abs(crdsRaw[i].x - crdsRaw[n].x) <= options.repeatImage and
                  math.abs(crdsRaw[i].y - crdsRaw[n].y) <= options.repeatImage then
                    catch = 1
                    break
                end
            end
            --log(catch)
            if  catch == 0 then -- не дубль, копируем значение в чистый массив.
                table.insert(crdsClear,crdsRaw[i])
            end
        end

        -- Сортируем элементы.
        -- Сортировка происходит, как по X координате,
        -- так и по Y учитывая возможность нескольких строк.
        -- Межстрочный интервал задается с помощью options.deltaY.
        -- Для уплотнения поиска options.deltaY может быть отрицательным.
        -- Отрицательный options.deltaY в первую очередь необходим,
        -- если изображения символов содержат сверху и снизу от символа фон.
        -- crdsClear был предварительно очищен от дублей, теперь сортируется.

        --table.show(crdsClear,"crdsClear")
        --table.toInit(crdsClear)
        table.sort(crdsClear,
            function(a,b)
                if  math.abs(a.y - b.y) <= options.deltaY then
                    if  a.x < b.x then
                        return true
                    else
                        return false
                    end
                else
                    if a.y < b.y then
                        return true
                    else
                        return false
                    end
                end
            end
        )
        --table.show(crdsClear,"crdsClear")

        -- Собираем строку
        --log(#crdsClear)
        local result = {{crdsClear[1].symbolName}}
        local resultX, resultY = 1, 1
        for i=2, #crdsClear, 1 do
            -- Добавляем перенос и символ, возрващем каретку.
            if  crdsClear[i-1].y  + options.deltaY < crdsClear[i].y then
                resultX = resultX + 1
                resultY = 1 -- возврат картеки
                result[resultX]={crdsClear[i].symbolName}
            -- Добавляем пробел и символ
            elseif crdsClear[i-1].xEnd  + options.deltaSpace < crdsClear[i].x then
                resultY = resultY + 1
                result[resultX][resultY] = crdsClear[i].symbolName
            -- Добавляем символ
            else
                result[resultX][resultY] = result[resultX][resultY].. crdsClear[i].symbolName
            end
            --table.show(result,"result")
        end
        --table.show(result,"result")
        return result
    end
end

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

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

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

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

do

    -- Раскомментировать, если в отладке будет использоват table.show.
    --[[do
        local tab = ""
        local deep = 0
        function table.show(t, comment)
            -- Пишем в лог комментарий.
            deep = deep + 1 -- Уровень вложенности вызовов функции.
            --log(comment .. commentSended .. deep)
            if  comment ~= nil and deep == 1 then
                log(comment)
            end


            if     type(t) == "nil"     then log("table is nil")
            elseif type(t) == "string"  then log('table is string: "'..t..'"')
            elseif type(t) == "number"  then log('table is number: '..t)
            elseif type(t) == "table"   then
                local elementsInTable = 0
                for k,v in pairs(t) do
                    if  type (v) == "table" then
                        if type(k) == "string" then
                            log(tab..'table: "'..k..'"')
                        else
                            log(tab..'table: '..k)
                        end
                        tab = tab .. "    "
                        table.show(v)
                        tab = string.sub(tab, 1, -5)
                        elementsInTable = elementsInTable + 1
                    else
                        elementsInTable = elementsInTable + 1
                        if type(v) == "string" then v = '"'..v..'"' end
                        if type(k) == "string" then k = '"'..k..'"' end
                        log(tab..""..k.." = "..v)
                    end
                end
                if elementsInTable == 0 then log("table is empty") end
            else
                log('table is unknow data type')
            end
            -- Пишем в лог комментарий.
            deep = deep - 1 -- Уровень вложенности вызовов функции.
        end
    end
    ]]

    local function deepcopy(orig)
        local orig_type = type(orig)
        local copy
        if orig_type == 'table' then
            copy = {}
            for orig_key, orig_value in next, orig, nil do
                copy[deepcopy(orig_key)] = deepcopy(orig_value)
            end
            setmetatable(copy, deepcopy(getmetatable(orig)))
        else -- number, string, boolean, etc
            copy = orig
        end
        return copy
    end

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


    local default = {}
    default.crds         = {0, 0, 1920, 1080} -- Координаты поиска
    default.path         = "c:\\image"        -- Папка с картинками
    default.ext          = ".bmp"             -- Расширение картинок
    default.loadFolder   = nil                -- Путь по которому будут загружены все изображения с указанной маской {path=путь, mask=маска, sub=1|0}(sub - подпапки). Имя файла будет соответсвовать имени символа.
    default.deltaY       = 8                  -- Расстояние между строками (можно указать высоту картинок)
    default.deltaSpace   = 2                  -- Допустимое расстояние между цифрами, иначе будет считаться что это не одно число
    default.accuracy     = 95                 -- Точность поиска для Findimage
    default.deviation    = 3                  -- Погрешность оттенка  для Findimage
    default.wait         = 2                  -- Пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
    default.timeProc     = 2                  -- Время в секундах (может быть не целым) для поиска картинок, если -1 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
    default.repeatImage  = 2                  -- Допустимое смещение координат, если используется несколько видов одной картинки
    default.window       = "workwindow"       -- Метод|хендл_окна в котором происходит поиск (если указан источник изображения(source), то параметр будет проигнорирован)
    default.abs          = 0                  -- Использовать abs координаты.
    default.source       = nil                -- Изображение в котором производится поиск. Должен быть задан таблицей {адрес, ширина, высота}, nil вместо таблицы приведет к захвату изображения с экрана.
    default.bufferAddNew = 1                  -- Добавлять изображения в буфер
    default.bufferIgnore = 0                  -- Игнорировать изображения находящиеся в буфере
    default.bufferUpdate = 0                  -- Обновить изображения содержащиеся в буфере.
    default.secondFrame  = 0                  -- Ожидание прогрузки значений. Изображение будет проанализировано только после secondFrame секунд с первой успешной попытки считать любое из избражений.
    default.saveImage    = nil                -- Путь по которому будет сохранено изображение в котором происходит поиск.
    -- набор стандартных символов
    default.symbols      = {["0"]={"0"}, ["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"}, ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}}


    -- Буфер
    -- Буфер
    -- Буфер

    local buffer = {} -- Массив с загруженными картинками.
    imageToStringBuffer = {} -- набор функций по управлению буфером.
    -- Полностью очищаем массив.
    function imageToStringBuffer.flush()
        for k,_ in pairs(buffer) do buffer[v] = nil end
    end
    -- Удаляем элемент из буфера
    function imageToStringBuffer.flush(element)
        buffer[element] = nil
    end
    -- Добавляем изображение в буфер
    function imageToStringBuffer.flush(element, val)
        buffer[element] = val
    end
    -- Читаем изображение из буфера
    function imageToStringBuffer.flush(element)
        return buffer[element]
    end


    -- Поиск
    -- Поиск
    -- Поиск

    function imageToString(options)

        -- Проверяем переданные параметры. Если они отсутствуют - подставляем параметры по умолчанию.
        if  options              == nil then local options        = {}                    end
        if  options.crds         == nil then options.crds         = default.crds          end
        if  options.path         == nil then options.path         = default.path          end
        if  options.ext          == nil then options.ext          = default.ext           end
        if  options.loadFolder   == nil then options.loadFolder   = default.loadFolder    end
        if  options.deltaY       == nil then options.deltaY       = default.deltaY        end
        if  options.deltaSpace   == nil then options.deltaSpace   = default.deltaSpace    end
        if  options.accuracy     == nil then options.accuracy     = default.accuracy      end
        if  options.deviation    == nil then options.deviation    = default.deviation     end
        if  options.wait         == nil then options.wait         = default.wait          end
        if  options.timeProc     == nil then options.timeProc     = default.timeProc      end
        if  options.repeatImage  == nil then options.repeatImage  = default.repeatImage   end
        if  options.window       == nil then options.window       = default.window        end
        if  options.abs          == nil then options.abs          = default.abs           end
        if  options.source       == nil then options.source       = default.source        end
        if  options.bufferAddNew == nil then options.bufferAddNew = default.bufferAddNew  end
        if  options.bufferIgnore == nil then options.bufferIgnore = default.bufferIgnore  end
        if  options.bufferUpdate == nil then options.bufferUpdate = default.bufferUpdate  end
        if  options.secondFrame  == nil then options.secondFrame  = default.secondFrame   end
        if  options.saveImage    == nil then options.saveImage    = default.saveImage     end
        if  options.symbols      == nil then
            if  options.loadFolder   == nil then
                options.symbols = deepcopy(default.symbols)
            else
                options.symbols = {}
            end
        end

        --Добавляем при необходимости обратный слэш в путь.
        if  string.sub(options.path, -1) ~= "\\" then options.path = options.path .. "\\" end

        -- Папка для загрузки изображений не задана, загружаем обычным методом.
        if  options.loadFolder == nil then
            -- Преобразуем урощенный синтаксис в полноценный, преобразуем пути в полные.
            do
                local tmp = {} --Массив в который временно помещаются преобразованные данные.
                for symbolName, imageName in pairs(options.symbols) do
                    -- Если занчение задано строкой/числом, приводим его к таблице, дописываем путь до полного.
                    if  type(options.symbols[symbolName]) == "number" then
                        options.symbols[symbolName] = {options.path..tostring(imageName)..options.ext}
                    elseif  type(options.symbols[symbolName]) == "string" then
                        options.symbols[symbolName] = {options.path..imageName..options.ext}
                    --  Значение задано таблицей, преобразоываем числа в строки, дописываем путь до полного.
                    elseif  type(options.symbols[symbolName]) == "table" then
                        for n=1, #options.symbols[symbolName] do
                            if  type(options.symbols[symbolName][n]) == "number" then
                                options.symbols[symbolName][n] = options.path..tostring(options.symbols[symbolName][n])..options.ext
                            elseif  type(options.symbols[symbolName][n]) == "string" then
                                options.symbols[symbolName][n] = options.path..options.symbols[symbolName][n]..options.ext
                            else
                                msg ("Ошибочный тип значения картинок символов в таблице. Остановка скрипта")
                                stop_script()
                            end
                        end
                    else
                        msg ("Ошибочный тип значения картинок символов. Остановка скрипта")
                        stop_script()
                    end

                    -- Если ключ цифровой, преобразуем к строке
                    if  type(symbolName) == "number" then
                        tmp[tostring(symbolName)] = options.symbols[symbolName]
                    elseif  type(symbolName) == "string" then
                        tmp[symbolName] = options.symbols[symbolName]
                    else
                        msg ("Ошибочный тип ключа символов. Остановка скрипта")
                        stop_script()
                    end
                end
                options.symbols = tmp
            end
        else
            -- Загружаем папку с изображениями.
            -- Имя файла = имя символа.
            -- Допускается несколько одинаковых символов в различных подпапках.
            -- Приводим к понятному для пилота виду флаг чтение подпапок.

            -- Прилепляем кавычки к пути чтобы пилот не путал путь и маску.
            options.loadFolder.path = '"'..options.loadFolder.path..'"'
            if options.loadFolder.sub == 1 then options.loadFolder.sub = nil else options.loadFolder.sub = "norecursion" end
            -- Приводим маску к надлежащему виду, если она не задана.
            if options.loadFolder.mask == nil then options.loadFolder.mask = "*" end
            fileList = dir(options.loadFolder.path, options.loadFolder.mask, options.loadFolder.sub)
            --table.show(fileList, "fileList")
            for k, v in pairs (fileList) do
                -- символ уже существует (несколько вариантов изображения)
                if  options.symbols[v[3]] ~= nil then
                    table.insert(options.symbols[v[3]], v[1])
                else
                    options.symbols[v[3]] = {v[1]}
                end
            end
        end
        --table.show(options.symbols)


        -- Приводим options.abs к виду пригодному для финдимиджа.
        if      options.abs == 1 then options.abs = "abs"
        elseif  options.abs == 0 then options.abs = ""
        end


        -- Загрузка картинок
        local images={}     --Загружает в память изображения {имя символа, {адреса в памяти}}
        local loadError = 0
        for symbolName, fileList in pairs(options.symbols) do
            images[symbolName] = {}
            for i=1, #fileList, 1 do
                -- Загружен ли файл в буфер, если нет, то подгружаем.
                local filePath = fileList[i]
                if  options.bufferIgnore == 0 and options.bufferUpdate == 0 and buffer[filePath] ~= nil then
                    images[symbolName][i] = buffer[filePath]
                else
                    -- В буфере изображения нет, загружаем с диска.
                    --log(filePath.."В буфере изображения нет, загружаем с диска.")
                    images[symbolName][i] = loadimage(filePath)
                    -- Обновляем загруженное в буфер изображение
                    if  buffer[filePath] ~= nil then
                        deleteimage(buffer[filePath])
                        buffer[filePath] =  images[symbolName][i]
                    elseif options.bufferAddNew == 1 and options.bufferIgnore == 0 then
                        -- Добавляем в буфер новое изображение.
                        buffer[filePath] = images[symbolName][i]
                    end
                end
                -- Поиск ошибок загрузки.
                if images[symbolName][i] < 0  then
                    loadError = loadError + 1
                    log("Image loading fail. Error file: "..filePath..'.')
                end
            end
        end
        -- При загрузке изображений произошли ошибки. Останавливаем скрипт.
        if  loadError > 0 then
            log("Error loading count: "..loadError..'.')
            stop_script()
        end
        if  images == nil then
            log("Файлы изображений не найдены. Скрипт остановлен.")
            stop_script()
        end
        --table.show(images,"images")


        local timeout = os.clock() + options.timeProc


        -- log(options.secondFrame)
        -- Таймаут на прогрузку. Поиск для детекта изображений.
        if options.secondFrame > 0 then
            -- Создаем карман области видимости.
            -- Реузльататы блока не нужны для остального скрипта.
            do
                local catch = 0
                -- Если вермя ожидания после детекта не уложится в общий
                -- таймаут, то выходим из цикла без дальшейших попыток найти изображение.
                local secondFrameTimeout = timeout - options.secondFrame
                while true do -- выход внутри цикла  timeout < os.clock()
                    local screenshot, width, height = nil, nil, nil
                    if  options.source == nil then
                        screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
                    else
                        screenshot, width, height = options.source[1],options.source[2],options.source[3]
                    end
                    for symbolName, imageAddressArray in pairs(images) do
                        for _, imageAddress in pairs(imageAddressArray) do
                            local tmp = {}
                            findResult = findimage(
                                0 .. " " .. 0 .. " " ..
                                width .. " " .. height .. " " ..
                                "(" .. imageAddress .. ") " ..
                                "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                            --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                            -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                            if  findResult ~= "0" and not string.find(findResult, "-") then
                                catch = 1
                                --log("break")
                                wait(math.floor(options.secondFrame * 1000))
                                break
                            end
                            -- Время на всю функцию истекло
                            if  secondFrameTimeout < os.clock() and options.timeProc ~= -1 then
                                return
                            end
                        end
                        if catch == 1 then break end
                    end
                    if catch == 1 then break end
                end
            end
        end


        -- Ищем изображения
        local crdsRaw={} -- Массив со всеми найденными изображениями, возможны дубли, не сортированный.
        repeat  -- Повторяем пока что-то не найдем или не выйдет время на поиск (options.timeProc).
            -- Получаем изображение с экрана, если источник не указан.
            local screenshot, width, height = nil
            if  options.source == nil then
                screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
            else
                screenshot, width, height = options.source[1],options.source[2],options.source[3]
            end
            --log(screenshot)
            for symbolName, imageAddressArray in pairs(images) do
                for _, imageAddress in pairs(imageAddressArray) do
                    tmp = {}
                    findResult = findimage(
                        0 .. " " .. 0 .. " " ..
                        width .. " " .. height .. " " ..
                        "(" .. imageAddress .. ") " ..
                        "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                    --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                    -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                    if  findResult ~= "0" and not string.find(findResult, "-") then
                        -- Добавляем найденные значения в общий результат поисков.
                        --table.show(tmp,"tmp")
                        for i = 1, #tmp, 1 do
                            -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                            -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                            -- после фикса просто удалить "tonumber(parm)" оставив parm.
                            table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),xEnd=tonumber(tmp[i][3]),symbolName=symbolName})
                        end
                    end
                end
            end

            -- Сохраняем изображение.
            if  options.saveImage ~= nil then
                saveimage(screenshot, options.saveImage)
            end
            -- Удаляем изображение, если получали его из приложения.
            if  options.source == nil then
                deleteimage(screenshot)
            end

            --table.show(images, "images")
            --log (#crdsRaw, timeout, os.clock(), options.timeProc)
            --log ("until")
            local clock = os.clock()
        until not ((#crdsRaw == 0) and (timeout > clock or options.timeProc == -1))
        --table.show(crdsRaw, "crdsRaw")

        --  Изображения не были найдены, выходим из поиска.
        if  #crdsRaw < 1 then
            return nil
        end
        -- Удаляем дубли.
        local crdsClear={} -- Массив без дублей.
        for i=1, #crdsRaw, 1 do
            local catch = 0 -- Флаг найденного дубля.
            for n=i+1, #crdsRaw, 1 do
                --log(
                --  crdsRaw[i].symbolName.." == "..crdsRaw[n].symbolName.." and "..
                --  math.abs(crdsRaw[i].x - crdsRaw[n].x).." <= "..options.repeatImage.." and "..
                --  math.abs(crdsRaw[i].y - crdsRaw[n].y).." <= "..options.repeatImage
                --)
                if  crdsRaw[i].symbolName == crdsRaw[n].symbolName and
                  math.abs(crdsRaw[i].x - crdsRaw[n].x) <= options.repeatImage and
                  math.abs(crdsRaw[i].y - crdsRaw[n].y) <= options.repeatImage then
                    catch = 1
                    break
                end
            end
            --log(catch)
            if  catch == 0 then -- не дубль, копируем значение в чистый массив.
                table.insert(crdsClear,crdsRaw[i])
            end
        end

        -- Сортируем элементы.
        -- Сортировка происходит, как по X координате,
        -- так и по Y учитывая возможность нескольких строк.
        -- Межстрочный интервал задается с помощью options.deltaY.
        -- Для уплотнения поиска options.deltaY может быть отрицательным.
        -- Отрицательный options.deltaY в первую очередь необходим,
        -- если изображения символов содержат сверху и снизу от символа фон.
        -- crdsClear был предварительно очищен от дублей, теперь сортируется.

        --table.show(crdsClear,"crdsClear")
        --table.toInit(crdsClear)
        table.sort(crdsClear,
            function(a,b)
                if  math.abs(a.y - b.y) <= options.deltaY then
                    if  a.x < b.x then
                        return true
                    else
                        return false
                    end
                else
                    if a.y < b.y then
                        return true
                    else
                        return false
                    end
                end
            end
        )
        --table.show(crdsClear,"crdsClear")

        -- Собираем строку
        --log(#crdsClear)
        local result = {{crdsClear[1].symbolName}}
        local resultX, resultY = 1, 1
        for i=2, #crdsClear, 1 do
            -- Добавляем перенос и символ, возрващем каретку.
            if  crdsClear[i-1].y  + options.deltaY < crdsClear[i].y then
                resultX = resultX + 1
                resultY = 1 -- возврат картеки
                result[resultX]={crdsClear[i].symbolName}
            -- Добавляем пробел и символ
            elseif crdsClear[i-1].xEnd  + options.deltaSpace < crdsClear[i].x then
                resultY = resultY + 1
                result[resultX][resultY] = crdsClear[i].symbolName
            -- Добавляем символ
            else
                result[resultX][resultY] = result[resultX][resultY].. crdsClear[i].symbolName
            end
            --table.show(result,"result")
        end
        --table.show(result,"result")
        return result
    end
end

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

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

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

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

do

-- Раскомментировать, если в отладке будет использоват table.show.
--[[do
    local tab = ""
    local deep = 0
    function table.show(t, comment)
        -- Пишем в лог комментарий.
        deep = deep + 1 -- Уровень вложенности вызовов функции.
        --log(comment .. commentSended .. deep)
        if  comment ~= nil and deep == 1 then
            log(comment)
        end


        if     type(t) == "nil"     then log("table is nil")
        elseif type(t) == "string"  then log('table is string: "'..t..'"')
        elseif type(t) == "number"  then log('table is number: '..t)
        elseif type(t) == "table"   then
            local elementsInTable = 0
            for k,v in pairs(t) do
                if  type (v) == "table" then
                    if type(k) == "string" then
                        log(tab..'table: "'..k..'"')
                    else
                        log(tab..'table: '..k)
                    end
                    tab = tab .. "    "
                    table.show(v)
                    tab = string.sub(tab, 1, -5)
                    elementsInTable = elementsInTable + 1
                else
                    elementsInTable = elementsInTable + 1
                    if type(v) == "string" then v = '"'..v..'"' end
                    if type(k) == "string" then k = '"'..k..'"' end
                    log(tab..""..k.." = "..v)
                end
            end
            if elementsInTable == 0 then log("table is empty") end
        else
            log('table is unknow data type')
        end
        -- Пишем в лог комментарий.
        deep = deep - 1 -- Уровень вложенности вызовов функции.
    end
end
]]

function dc(orig)
    local orig_type = type(orig)
    local copy
    if orig_type == 'table' then
        copy = {}
        for orig_key, orig_value in next, orig, nil do
            copy[dc(orig_key)] = dc(orig_value)
        end
        setmetatable(copy, dc(getmetatable(orig)))
    else -- number, string, boolean, etc
        copy = orig
    end
    return copy
end

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


    local default = {}
    default.crds         = {0, 0, 1920, 1080} -- Координаты поиска
    default.path         = "c:\\image"        -- Папка с картинками
    default.ext          = ".bmp"             -- Расширение картинок
    default.loadFolder   = nil                -- Путь по которому будут загружены все изображения с указанной маской {path=путь, mask=маска, sub=1|0}(sub - подпапки). Имя файла будет соответсвовать имени символа.
    default.deltaY       = 8                  -- Расстояние между строками (можно указать высоту картинок)
    default.deltaSpace   = 2                  -- Допустимое расстояние между цифрами, иначе будет считаться что это не одно число
    default.accuracy     = 95                 -- Точность поиска для Findimage
    default.deviation    = 3                  -- Погрешность оттенка  для Findimage
    default.wait         = 2                  -- Пауза между поиском картинок, если указать меньше искать будет быстрее, но нагрузит процессор
    default.timeProc     = 2                  -- Время в секундах (может быть не целым) для поиска картинок, если -1 не выйдет из процедуры пока не найдётся хотя бы 1 картинка
    default.repeatImage  = 2                  -- Допустимое смещение координат, если используется несколько видов одной картинки
    default.window       = "workwindow"       -- Метод|хендл_окна в котором происходит поиск (если указан источник изображения(source), то параметр будет проигнорирован)
    default.abs          = 0                  -- Использовать abs координаты.
    default.source       = nil                -- Изображение в котором производится поиск. Должен быть задан таблицей {адрес, ширина, высота}, nil вместо таблицы приведет к захвату изображения с экрана.
    default.bufferAddNew = 1                  -- Добавлять изображения в буфер
    default.bufferIgnore = 0                  -- Игнорировать изображения находящиеся в буфере
    default.bufferUpdate = 0                  -- Обновить изображения содержащиеся в буфере.
    default.secondFrame  = 0                  -- Ожидание прогрузки значений. Изображение будет проанализировано только после secondFrame секунд с первой успешной попытки считать любое из избражений.
    default.saveImage    = nil                -- Путь по которому будет сохранено изображение в котором происходит поиск.
    -- набор стандартных символов
    default.symbols      = {["0"]={"0"}, ["1"]={"1"}, ["2"]={"2"}, ["3"]={"3"}, ["4"]={"4"}, ["5"]={"5"}, ["6"]={"6"}, ["7"]={"7"}, ["8"]={"8"}, ["9"]={"9"}}


    -- Буфер
    -- Буфер
    -- Буфер

    local buffer = {} -- Массив с загруженными картинками.
    imageToStringBuffer = {} -- набор функций по управлению буфером.
    -- Полностью очищаем массив.
    function imageToStringBuffer.flush()
        for k,_ in pairs(buffer) do buffer[v] = nil end
    end
    -- Удаляем элемент из буфера
    function imageToStringBuffer.flush(element)
        buffer[element] = nil
    end
    -- Добавляем изображение в буфер
    function imageToStringBuffer.flush(element, val)
        buffer[element] = val
    end
    -- Читаем изображение из буфера
    function imageToStringBuffer.flush(element)
        return buffer[element]
    end


    -- Поиск
    -- Поиск
    -- Поиск

    function imageToString(options)

        -- Проверяем переданные параметры. Если они отсутствуют - подставляем параметры по умолчанию.
        if  options              == nil then local options        = {}                     end
        if  options.crds         == nil then options.crds         = default.crds           end
        if  options.path         == nil then options.path         = default.path           end
        if  options.ext          == nil then options.ext          = default.ext            end
        if  options.loadFolder   == nil then options.loadFolder   = dc(default.loadFolder) end
        if  options.deltaY       == nil then options.deltaY       = default.deltaY         end
        if  options.deltaSpace   == nil then options.deltaSpace   = default.deltaSpace     end
        if  options.accuracy     == nil then options.accuracy     = default.accuracy       end
        if  options.deviation    == nil then options.deviation    = default.deviation      end
        if  options.wait         == nil then options.wait         = default.wait           end
        if  options.timeProc     == nil then options.timeProc     = default.timeProc       end
        if  options.repeatImage  == nil then options.repeatImage  = default.repeatImage    end
        if  options.window       == nil then options.window       = default.window         end
        if  options.abs          == nil then options.abs          = default.abs            end
        if  options.source       == nil then options.source       = dc(default.source)     end
        if  options.bufferAddNew == nil then options.bufferAddNew = default.bufferAddNew   end
        if  options.bufferIgnore == nil then options.bufferIgnore = default.bufferIgnore   end
        if  options.bufferUpdate == nil then options.bufferUpdate = default.bufferUpdate   end
        if  options.secondFrame  == nil then options.secondFrame  = default.secondFrame    end
        if  options.saveImage    == nil then options.saveImage    = default.saveImage      end
        if  options.symbols      == nil then
            if  options.loadFolder   == nil then
                options.symbols = dc(default.symbols)
            else
                options.symbols = {}
            end
        end

        --Добавляем при необходимости обратный слэш в путь.
        if  string.sub(options.path, -1) ~= "\\" then options.path = options.path .. "\\" end

        -- Папка для загрузки изображений не задана, загружаем обычным методом.
        if  options.loadFolder == nil then
            -- Преобразуем урощенный синтаксис в полноценный, преобразуем пути в полные.
            do
                local tmp = {} --Массив в который временно помещаются преобразованные данные.
                for symbolName, imageName in pairs(options.symbols) do
                    -- Если занчение задано строкой/числом, приводим его к таблице, дописываем путь до полного.
                    if  type(options.symbols[symbolName]) == "number" then
                        options.symbols[symbolName] = {options.path..tostring(imageName)..options.ext}
                    elseif  type(options.symbols[symbolName]) == "string" then
                        options.symbols[symbolName] = {options.path..imageName..options.ext}
                    --  Значение задано таблицей, преобразоываем числа в строки, дописываем путь до полного.
                    elseif  type(options.symbols[symbolName]) == "table" then
                        for n=1, #options.symbols[symbolName] do
                            if  type(options.symbols[symbolName][n]) == "number" then
                                options.symbols[symbolName][n] = options.path..tostring(options.symbols[symbolName][n])..options.ext
                            elseif  type(options.symbols[symbolName][n]) == "string" then
                                options.symbols[symbolName][n] = options.path..options.symbols[symbolName][n]..options.ext
                            else
                                msg ("Ошибочный тип значения картинок символов в таблице. Остановка скрипта")
                                stop_script()
                            end
                        end
                    else
                        msg ("Ошибочный тип значения картинок символов. Остановка скрипта")
                        stop_script()
                    end

                    -- Если ключ цифровой, преобразуем к строке
                    if  type(symbolName) == "number" then
                        tmp[tostring(symbolName)] = options.symbols[symbolName]
                    elseif  type(symbolName) == "string" then
                        tmp[symbolName] = options.symbols[symbolName]
                    else
                        msg ("Ошибочный тип ключа символов. Остановка скрипта")
                        stop_script()
                    end
                end
                options.symbols = tmp
            end
        else
            -- Загружаем папку с изображениями.
            -- Имя файла = имя символа.
            -- Допускается несколько одинаковых символов в различных подпапках.
            -- Приводим к понятному для пилота виду флаг чтение подпапок.

            -- Прилепляем кавычки к пути чтобы пилот не путал путь и маску.
            options.loadFolder.path = '"'..options.loadFolder.path..'"'
            if options.loadFolder.sub == 1 then options.loadFolder.sub = nil else options.loadFolder.sub = "norecursion" end
            -- Приводим маску к надлежащему виду, если она не задана.
            if options.loadFolder.mask == nil then options.loadFolder.mask = "*" end
            fileList = dir(options.loadFolder.path, options.loadFolder.mask, options.loadFolder.sub)
            --table.show(fileList, "fileList")
            for k, v in pairs (fileList) do
                -- символ уже существует (несколько вариантов изображения)
                if  options.symbols[v[3]] ~= nil then
                    table.insert(options.symbols[v[3]], v[1])
                else
                    options.symbols[v[3]] = {v[1]}
                end
            end
        end
        --table.show(options.symbols)


        -- Приводим options.abs к виду пригодному для финдимиджа.
        if      options.abs == 1 then options.abs = "abs"
        elseif  options.abs == 0 then options.abs = ""
        end


        -- Загрузка картинок
        local images={}     --Загружает в память изображения {имя символа, {адреса в памяти}}
        local loadError = 0
        for symbolName, fileList in pairs(options.symbols) do
            images[symbolName] = {}
            for i=1, #fileList, 1 do
                -- Загружен ли файл в буфер, если нет, то подгружаем.
                local filePath = fileList[i]
                if  options.bufferIgnore == 0 and options.bufferUpdate == 0 and buffer[filePath] ~= nil then
                    images[symbolName][i] = buffer[filePath]
                else
                    -- В буфере изображения нет, загружаем с диска.
                    --log(filePath.."В буфере изображения нет, загружаем с диска.")
                    images[symbolName][i] = loadimage(filePath)
                    -- Обновляем загруженное в буфер изображение
                    if  buffer[filePath] ~= nil then
                        deleteimage(buffer[filePath])
                        buffer[filePath] =  images[symbolName][i]
                    elseif options.bufferAddNew == 1 and options.bufferIgnore == 0 then
                        -- Добавляем в буфер новое изображение.
                        buffer[filePath] = images[symbolName][i]
                    end
                end
                -- Поиск ошибок загрузки.
                if images[symbolName][i] < 0  then
                    loadError = loadError + 1
                    log("Image loading fail. Error file: "..filePath..'.')
                end
            end
        end
        -- При загрузке изображений произошли ошибки. Останавливаем скрипт.
        if  loadError > 0 then
            log("Error loading count: "..loadError..'.')
            stop_script()
        end
        if  images == nil then
            log("Файлы изображений не найдены. Скрипт остановлен.")
            stop_script()
        end
        --table.show(images,"images")


        local timeout = os.clock() + options.timeProc


        -- log(options.secondFrame)
        -- Таймаут на прогрузку. Поиск для детекта изображений.
        if options.secondFrame > 0 then
            -- Создаем карман области видимости.
            -- Реузльататы блока не нужны для остального скрипта.
            do
                local catch = 0
                -- Если вермя ожидания после детекта не уложится в общий
                -- таймаут, то выходим из цикла без дальшейших попыток найти изображение.
                local secondFrameTimeout = timeout - options.secondFrame
                while true do -- выход внутри цикла  timeout < os.clock()
                    local screenshot, width, height = nil, nil, nil
                    if  options.source == nil then
                        screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
                    else
                        screenshot, width, height = options.source[1],options.source[2],options.source[3]
                    end
                    for symbolName, imageAddressArray in pairs(images) do
                        for _, imageAddress in pairs(imageAddressArray) do
                            local tmp = {}
                            findResult = findimage(
                                0 .. " " .. 0 .. " " ..
                                width .. " " .. height .. " " ..
                                "(" .. imageAddress .. ") " ..
                                "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                            --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                            -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                            if  findResult ~= "0" and not string.find(findResult, "-") then
                                catch = 1
                                --log("break")
                                wait(math.floor(options.secondFrame * 1000))
                                break
                            end
                            -- Время на всю функцию истекло
                            if  secondFrameTimeout < os.clock() and options.timeProc ~= -1 then
                                return
                            end
                        end
                        if catch == 1 then break end
                    end
                    if catch == 1 then break end
                end
            end
        end


        -- Ищем изображения
        local crdsRaw={} -- Массив со всеми найденными изображениями, возможны дубли, не сортированный.
        repeat  -- Повторяем пока что-то не найдем или не выйдет время на поиск (options.timeProc).
            -- Получаем изображение с экрана, если источник не указан.
            local screenshot, width, height = nil
            if  options.source == nil then
                screenshot, width, height = getimage(options.crds[1],options.crds[2],options.crds[3],options.crds[4], options.window)
            else
                screenshot, width, height = options.source[1],options.source[2],options.source[3]
            end
            --log(screenshot)
            for symbolName, imageAddressArray in pairs(images) do
                for _, imageAddress in pairs(imageAddressArray) do
                    tmp = {}
                    findResult = findimage(
                        0 .. " " .. 0 .. " " ..
                        width .. " " .. height .. " " ..
                        "(" .. imageAddress .. ") " ..
                        "%tmp " .. screenshot .. " " .. options.accuracy .. " -1 " .. options.deviation .. " " .. options.abs)
                    --log("symoblName: ".. symbolName .. " findResult: " .. findResult)
                    -- проверяем на возрват нуля или ошбики, со стрингом нормально не сравнить.
                    if  findResult ~= "0" and not string.find(findResult, "-") then
                        -- Добавляем найденные значения в общий результат поисков.
                        --table.show(tmp,"tmp")
                        for i = 1, #tmp, 1 do
                            -- Напрямую вернуть таблицу в функцию нельзя из-за синтаксиса.
                            -- FIX. Нужен фикс функции findimage пилота (возвращает координаты стрингом)
                            -- после фикса просто удалить "tonumber(parm)" оставив parm.
                            table.insert(crdsRaw,{x=tonumber(tmp[i][1]),y=tonumber(tmp[i][2]),xEnd=tonumber(tmp[i][3]),symbolName=symbolName})
                        end
                    end
                end
            end

            -- Сохраняем изображение.
            if  options.saveImage ~= nil then
                saveimage(screenshot, options.saveImage)
            end
            -- Удаляем изображение, если получали его из приложения.
            if  options.source == nil then
                deleteimage(screenshot)
            end

            --table.show(images, "images")
            --log (#crdsRaw, timeout, os.clock(), options.timeProc)
            --log ("until")
            local clock = os.clock()
        until not ((#crdsRaw == 0) and (timeout > clock or options.timeProc == -1))
        --table.show(crdsRaw, "crdsRaw")

        --  Изображения не были найдены, выходим из поиска.
        if  #crdsRaw < 1 then
            return nil
        end
        -- Удаляем дубли.
        local crdsClear={} -- Массив без дублей.
        for i=1, #crdsRaw, 1 do
            local catch = 0 -- Флаг найденного дубля.
            for n=i+1, #crdsRaw, 1 do
                --log(
                --  crdsRaw[i].symbolName.." == "..crdsRaw[n].symbolName.." and "..
                --  math.abs(crdsRaw[i].x - crdsRaw[n].x).." <= "..options.repeatImage.." and "..
                --  math.abs(crdsRaw[i].y - crdsRaw[n].y).." <= "..options.repeatImage
                --)
                if  crdsRaw[i].symbolName == crdsRaw[n].symbolName and
                  math.abs(crdsRaw[i].x - crdsRaw[n].x) <= options.repeatImage and
                  math.abs(crdsRaw[i].y - crdsRaw[n].y) <= options.repeatImage then
                    catch = 1
                    break
                end
            end
            --log(catch)
            if  catch == 0 then -- не дубль, копируем значение в чистый массив.
                table.insert(crdsClear,crdsRaw[i])
            end
        end

        -- Сортируем элементы.
        -- Сортировка происходит, как по X координате,
        -- так и по Y учитывая возможность нескольких строк.
        -- Межстрочный интервал задается с помощью options.deltaY.
        -- Для уплотнения поиска options.deltaY может быть отрицательным.
        -- Отрицательный options.deltaY в первую очередь необходим,
        -- если изображения символов содержат сверху и снизу от символа фон.
        -- crdsClear был предварительно очищен от дублей, теперь сортируется.

        --table.show(crdsClear,"crdsClear")
        --table.toInit(crdsClear)
        table.sort(crdsClear,
            function(a,b)
                if  math.abs(a.y - b.y) <= options.deltaY then
                    if  a.x < b.x then
                        return true
                    else
                        return false
                    end
                else
                    if a.y < b.y then
                        return true
                    else
                        return false
                    end
                end
            end
        )
        --table.show(crdsClear,"crdsClear")

        -- Собираем строку
        --log(#crdsClear)
        local result = {{crdsClear[1].symbolName}}
        local resultX, resultY = 1, 1
        for i=2, #crdsClear, 1 do
            -- Добавляем перенос и символ, возрващем каретку.
            if  crdsClear[i-1].y  + options.deltaY < crdsClear[i].y then
                resultX = resultX + 1
                resultY = 1 -- возврат картеки
                result[resultX]={crdsClear[i].symbolName}
            -- Добавляем пробел и символ
            elseif crdsClear[i-1].xEnd  + options.deltaSpace < crdsClear[i].x then
                resultY = resultY + 1
                result[resultX][resultY] = crdsClear[i].symbolName
            -- Добавляем символ
            else
                result[resultX][resultY] = result[resultX][resultY].. crdsClear[i].symbolName
            end
            --table.show(result,"result")
        end
        --table.show(result,"result")
        return result
    end
end

--Получение текста из изображения:
t = imageToString.get{[parms],[parms],[parms],...}

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

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

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

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

t = imageToString.get{[parms],[parms],[parms],...}

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

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