set linedelay 0                         //Установить задержку между строками в 0 мс.
log clear                               //Очистить лог
log mode compact                        //отключить лишнюю инфу лога
log open 1 630 200 100                  //*открыть лог в координатах x=1 y=1 и установить размер окна 200х150 пикселей
set $path "D:\_UOPilot\newimage\Puzzle" //*вставить путь к папке с картинками Викторины начальный этап
dir (%image $path *.png*)               //поиск шаблона для сбора пазла
log В папке найдено: size(%image) шаблонов
for #i 1 size(%image)                   //цикл для поиска шаблона
    set #v findimage(8, 8 509, 509 (%image [#i 1]) %a)   //область Поля поиска шаблона
    //сканируем часть поля и часть картинки для определения № шаблона
    if  #v > 0                          //если шаблон найден
        //???взять из картинки 16 изображений по сетке 4x4
        //записать их в массив запомнив их истинное(верное) положение и координаты
        wait 100
        left 235, 238                   //делаем клик для запуска игры(разбивки пазла на рандомные куски)
        //set #pazl 0                   //переменная для подсчёта правильного положения плитак пазла
        //while #pazl < 16              //выполняем цикл пока все точки не совпадут
        while_not = 16                  //пока не совподают все части пазла, ищем их
            for                         //ищем 1ю часть пазла и проверяем ее с истинным положением
                if                      //если положение верное
                                        //переходим к проверке следующей части пазла
                else
                                        //находим путь и перемещаем ее в нужную область
                end_if
            end_for
        end_while
        log Пазл собрали
    else
        log Не смог найти шаблон
    end_if
end_for
end_script

set linedelay 0                         //Установить задержку между строками в 0 мс.
log clear                               //Очистить лог
log mode compact                        //отключить лишнюю инфу лога
log open 1 630 200 100                  //*открыть лог в координатах x=1 y=1 и установить размер окна 200х150 пикселей

set #v findimage(8, 8 509, 509 (%image [#i 1]) %a)   //область Поля поиска шаблона частей
set %a1 GetImage  (50, 20 55, 25) //запоминаем шаблон и кооодинаты пазла в позиции 1-1 изображение 5х5 пикселей
//log %a1 [1 1] - адрес в памяти
//log %a1 [1 2] - ширина изображения
//log %a1 [1 3] - высота изображения
//log %a1 [1 4] - длина строки в байтах
set %a2 GetImage  (150, 20 155, 25) //запоминаем шаблон и кооодинаты пазла в позиции 1-2
set %a3 GetImage  (250, 20 255, 25)
set %a4 GetImage  (350, 20 355, 25)
set %a5 GetImage  (50, 120 55, 125)
set %a6 GetImage  (150, 120 155, 125)
set %a7 GetImage  (250, 120 255, 125)
set %a8 GetImage  (350, 120 355, 125)
set %a9 GetImage  (50, 220 55, 225)
set %a10 GetImage  (150, 220 155, 225)
set %a11 GetImage  (250, 220 255, 225)
set %a12 GetImage  (350, 320 355, 325)
set %a13 GetImage  (50, 320 55, 325)
set %a14 GetImage  (150, 320 155, 325)
set %a15 GetImage  (250, 320 255, 325)
set %a16 GetImage  (350, 320 355, 325) //запоминаем шаблон и кооодинаты пазла в позиции 4-4

wait 100
left 235, 238                   //делаем клик для запуска игры(разбивки пазла на рандомные куски)

while_not ??? = 16                  // Условие, пока не совподают все части пазла, ищем их
    for                         //проверяем части пазла по очереди на соответствие с истинным положением
        if координаты а1 = a1 текущие???  // плитка находится в нужных координатах то курим бамбук 
            log Пишем что все хорошо                //переходим к проверке следующей части пазла
        else
                                        //ищем путь домой и перемещаем ее в нужную область
        end_if
    end_for
end_while
log Пазл собрали
end_script 

log clear
log mode compact
for #i 0 15
    set #x mod (#i 4)
    set #y #i / 4
    log #i    [#x #y]
end_for
end_script

%a[1 1] - координата X1     %a[1 2] - координата Y1     %a[1 3] - цвет
%a[2 1] - координата X2     %a[2 2] - координата Y2     %a[2 3] - цвет
и т.д.

set #b findcolor (#startX #startY #endX #endY #stepX #stepY (%a[#i 3]) %b 2 1)  // поиск цвета

get color #b (#startX #startY #endX #endY #stepX #stepY (%a[#i 3]) %b 2 1)  // поиск цвета
        set #x %b [2 1] + 2           // прибавляем к координате X размер рамки по X
        set #y %b [2 2]               // прибавляем к координате Y размер рамки по Y, если смещение 0 можно не писать
        set #x %b [16 1] + 6          // прибавляем к координате X размер рамки по X
        set #y %b [16 2] + 6           // прибавляем к координате Y размер рамки по Y

init_arr %a [1 3] //получаем цвет 
set #x #startX + 406
set #y #startY + 406
get color #b

for #i 1 4
  for #j 1 4
    set #Xfind ... бла бла * #j
    set #Yfind ... бла бла * #i
    get color #color #Xfind + j  #Yfind + i   
    ...
  end_for
end_for
 

set #startX 410   // координата X
set #startY 210   // координата Y
set #stepX 100 // шаг по Y
set #stepY 100 // шаг по Y

log clear
log mode compact

set #deltaX 0
set #deltaY 0
set #endX #startX + #stepX * 3 + 6
set #endY #startY + #stepY * 3 + 6

set #a findcolor (#startX #startY #endX #endY (0-16777215) %b)  // поиск
for #k 1 16 1
    log %b[#k 1] %b[#k 2] %b[#k 3] //пишем в лог точки поиска
end_for
log -----------------------------
if  #a > 0
    while_not 457, 282 0  //ждем пока пазл рассыпится
        wait 500
    end_while
    wait 1s
    for #i 1 4
        set #ii #i - 1
        set #y #startY + #ii * #stepY + #deltaY
        set #deltaX 0
        for #j 1 4
            set #jj #j - 1
            set #x #startX + #jj * #stepX + #deltaX
            set #deltaX #deltaX + 2

            set #index #y * (#endX + 1) + #x + 1
            log #x #y   %b [#index 3]
            //move #x #y
            //wait 300
        end_for
        set #deltaY #deltaY + 2
        log
    end_for
end_if
end_script

set #index (#y - #startY) * (#endX - #startX + 1) + #x - #startX + 1

set #a findcolor (#startX #startY #endX #endY (0-16777215) %b)  // поиск