// игра: http://kibor-bot.com/online_games.html
external(INT, "Sort", "Sort", pathfolder()+"\math.dll" ); // функция сортировки из длл

int row=7, col=7; // размеры поля (количество строк и столбцов)

// параметры для findimage
int r=60; // разбежность для поиска картинок (подобрать, если не находит картинки)
int p=75; // точность поиска (подобрать, если не находит картинки)
int fon=-1; // цвет фона, если не используется указать -1
int sx=77, sy=85, fx=243, fy=254; // координаты для findimage
////////////

// картинки должны иметь имена '0.bmp', '1.bmp' и т.д.
int image[8][40][40]; // массив на 8 картинок размером не более чем 40*40
string path="C:\Users\yacir\Desktop\3_v_ryad\"; // путь к картинкам
////////////



// тут ничего не менять
int size_field=row*col; // размер поля
new int field[row][col]; // поле
new int arr[size_field][3]; // массив для всех найденных картинок, хранит координаты и номер картинки
new int posX[size_field];
new int posY[size_field]; // массивы для координат картинок
new int scren[fx-sx+1][fy-sy+1]; // массив для скрина экрана
int count_image = sizearray(image), found;
for(int i=0; i<count_image; i++)loadimage(#image[i][0][0], path+format(i)+".bmp" ); // загрузка картинок
int stepX=(fx-sx)/col, stepY=(fy-sy)/row; // расстояние между картинками
////////////

loop()
{
dynamic(); // поиск динамики, ждёт когда фишки перестанут сдвигаться
found=find(); // поиск картинок и их сортировка

////// вывод количества найденных картинок (можно убрать)
if(found==size_field)textbkcolor(16000000, 65280);
else textbkcolor(65280, 300);
textout(99, 300, 300, "Найдено картинок: "+format(found)+" из "+format(row*col), 0);
////////

if(found==size_field) // если найдено нужное количество картинок
{
SaveArray(); // сохранение массива в файл (можно убрать)
find_hod() // поиск хода и ход
}
sleep(100);
}

function dynamic()
{
int x, y;
loop()
{
finddynamic(0, #x, #y, 0, 0, 0, 0, sx, sy, fx, fy, -1); sleep(200);
if (finddynamic(1, #x, #y, 1, 1, 5, 5, sx, sy, fx, fy, -1)==0)
{
finddynamic(0, #x, #y, 0, 0, 0, 0, sx, sy, fx, fy, -1); sleep(200);
if (finddynamic(1, #x, #y, 1, 1, 5, 5, sx, sy, fx, fy, -1)==0)break;
}
}
}

function SaveArray()
{
int i, j, k;
// сохранение массива в файл, сохраняется рядом с каринками
if(fopen(path+"Array.txt", "w")!=0)
{

string tmp;
for (i=0; i<row; i++)
{
tmp="";
for (j=0; j<col; j++)
{
for (k=0; k<count_image; k++)
{
if(field[i][j]==k){tmp=tmp+format(k)+" "; break;}
}
}
fwrite(tmp);fwrite(ENDL);
}
fclose();
}
}

function find()
{
int i, j, z=0;
// поиск картинок
screen (#scren[0][0], sx, sy, fx, fy, -1); // скрин
for(i=0; i<count_image; i++)
{
int a=findimage(size_field, #image[i][0][0],fon, #posX[0], #posY[0], 0,0,fx-sx,fy-sy,r,r,r,r,r,r,p,1,#scren[0][0] );
//messagebox(a); // сколько найдено
if(a>0)
{
for(j=0;j<a;j++)
{
if(z<size_field)
{
arr[z][0]=posX[j]; // координата X
arr[z][1]=posY[j]; // координата Y
arr[z][2]=i; // номер картинки
z++;
}
}
}
}
if(z==size_field)sort_image(#arr[0][0], #field[0][0], row, col ); // если найдено нужное количество картинок, то они сортируются
return z;
}

// сортировка картинок по полю
function sort_image(int #m, int #m1, int row, int column)
{
int i, j;
new int temp[row][3]; // дополнительный массив
Sort(address(#m[0][0]), row*column, 3, 0 ); // сортировка массива по первому столбцу (по координате X)

for(i=0; i<column; i++)
{
for(j=0; j<row; j++)
{
temp[j][0]=m[i*row+j][0];
temp[j][1]=m[i*row+j][1];
temp[j][2]=m[i*row+j][2];
}
Sort(address(#temp[0][0]), row, 3, 1); // сортировка массива по второму столбцу (по координате Y)
for(j=0; j<row; j++)m1[j][i]=temp[j][2];
}
delete temp;
}


function find_hod()
{
int i, j;
for(i=0; i<row; i++){
for(j=0; j<col-1; j++){if(field[i][j]==field[i][j+1]){
if(j+3<col){if(field[i][j]==field[i][j+3]){hod(i, j+3, i, j+2); return}}
if(j>=2){if(field[i][j]==field[i][j-2]){hod(i, j-2, i, j-1); return}}
if(j+2<col){if(i>0){if(field[i][j]==field[i-1][j+2]){hod(i-1, j+2, i, j+2); return}}
if(i+1<row){if(field[i][j]==field[i+1][j+2]){hod(i+1, j+2, i, j+2); return}}}
if(j>=1){if(i>0){if(field[i][j]==field[i-1][j-1]){hod(i-1, j-1, i, j-1); return}}
if(i+1<row){if(field[i][j]==field[i+1][j-1]){hod(i+1, j-1, i, j-1); return}}}}}}

for(i=0; i<col; i++){
for(j=0; j<row-1; j++){if(field[j][i]==field[j+1][i]){
if(j+3<row){if(field[j][i]==field[j+3][i]){hod(j+3, i, j+2, i); return}}
if(j>=2){if(field[j][i]==field[j-2][i]){hod(j-2, i, j-1, i); return}}
if(j+2<row){if(i>0){if(field[j][i]==field[j+2][i-1]){hod(j+2, i-1, j+2, i); return}}
if(i+1<col){if(field[j][i]==field[j+2][i+1]){hod(j+2, i+1, j+2, i); return}}}
if(j>=1){if(i>0){if(field[j][i]==field[j-1][i-1]){hod(j-1, i-1, j-1, i); return}}
if(i+1<col){if(field[j][i]==field[j-1][i+1]){hod(j-1, i+1, j-1, i); return}}}}}}

for(i=0; i<row; i++){
for(j=0; j<col-2; j++){if(field[i][j]==field[i][j+2]){
if(i>0){if(field[i][j]==field[i-1][j+1]){hod(i, j+1, i-1, j+1); return}}
if(i+1<row){if(field[i][j]==field[i+1][j+1]){hod(i, j+1, i+1, j+1); return}}}}}

for(i=0; i<col; i++){
for(j=0; j<row-2; j++){
if(field[j][i]==field[j+2][i]){
if(i>0){if(field[j][i]==field[j+1][i-1]){hod(j+1, i, j+1, i-1); return}}
if(i+1<col){if(field[j][i]==field[j+1][i+1]){hod(j+1, i, j+1, i+1); return}}}}}
}


function hod(int x1, int y1, int x2, int y2)
{
mouse(LEFT, sx+stepX*y1+stepX/2, sy+stepY*x1+stepY/2 ); sleep(300);
mouse(LEFT, sx+stepX*y2+stepX/2, sy+stepY*x2+stepY/2 ); sleep(300);
mousemove(sx-10, sy); sleep(300);
}