Игра 3 в ряд

#include "C:\Лучший_ход.txt" // скрипт, тот что с глобальной переменной mas_pole
int kx1, ky1, kx2, ky2;

external(INT, "Sort", "Sort", pathfolder()+"\math.dll" ); // функция сортировки из длл

int row=8, col=8; // размеры поля (количество строк и столбцов)
int count_image = 7; // сколько картинок
string path="C:\Users\yacir\Desktop\"; // путь для сохранения массива
////////////

// параметры для findheapcolor
int r=10; // разбежность для поиска картинок (подобрать, если не находит картинки)
int sx=331, sy=90, fx=951, fy=721; // координаты для findimage

int color1[1], color2[1], color3[1], color4[1], color5[1], color6[1], color7[1];
color1[0]=16055294; // череп
color2[0]=13049233; // фиолетовый
color3[0]=3329668; // зелёный
color4[0]=12683820; // синий
color5[0]=5753324; // жёлтый
color6[0]=4007637; // красный
color7[0]=4277098; // коричневый

int kol1[1], kol2[1], kol3[1], kol4[1], kol5[1], kol6[1], kol7[1];
kol1[0]=100;
kol2[0]=100;
kol3[0]=100;
kol4[0]=100;
kol5[0]=100;
kol6[0]=100;
kol7[0]=100;
////////////



// тут ничего не менять
int size_mas_pole=row*col; // размер поля
new int mas_pole[row][col]; // поле
new int arr[size_mas_pole][3]; // массив для всех найденных картинок, хранит координаты и номер картинки
new int posX[size_mas_pole];
new int posY[size_mas_pole]; // массивы для координат картинок
int found;
int stepX=(fx-sx)/col, stepY=(fy-sy)/row; // расстояние между картинками
////////////

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

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

if(found==size_mas_pole) // если найдено нужное количество картинок
{
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, 10, 10, 20, 20, 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, 10, 10, 20, 20, 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(mas_pole[i][j]==k){tmp=tmp+format(k)+" "; break;}
}
}
fwrite(tmp);fwrite(ENDL);
}
fclose();
}
}

function find()
{
int i=0, z=0, a;

// поиск картинок
a=findheapcolor(size_mas_pole, #color1[0], #kol1[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // поиск черепов
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color2[0], #kol2[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // фиолетовые
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color3[0], #kol3[0], 1, 1, #posX[0], #posY[0], stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // зелёные
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color4[0], #kol4[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // синие
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color5[0], #kol5[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // жёлтые
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color6[0], #kol6[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // красные
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

a=findheapcolor(size_mas_pole, #color7[0], #kol7[0], 1, 1, #posX[0], #posY[0],stepX/2,stepY/2,stepX,stepY,sx,sy,fx,fy,r,r,r,r,r,r,-1); // коричневые
//messagebox(a); // сколько найдено
if(a>0){coord(a, i, #z); i++;}

if(z==size_mas_pole)sort_image(#arr[0][0], #mas_pole[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()
{
if (perebor(row, col, #kx1, #ky1, #kx2, #ky2)>2)
{
//messagebox(format(kx1)+" "+format(ky1)+" "+format(kx2)+" "+format(ky2));
hod(kx1, ky1, kx2, ky2);
}
}


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);
}


function coord(int aa, int ii, int #zz)
{
for(int j=0;j<aa;j++)
{
if(zz<size_mas_pole)
{
arr[zz][0]=posX[j]; // координата X
arr[zz][1]=posY[j]; // координата Y
arr[zz][2]=ii; // номер картинки
zz++;
}
}
}

function proverka(int X, int Y)//Оценивает после замены ситуацию. Находит все совпавшие линии ровные присваивая им оценку равную кол фишек.
{
int tOcenka=-1;
int x, y;

string R="(\d)\1{7}|(\d)\2{6}|(\d)\3{5}|(\d)\4{4}|(\d)\5{3}|(\d)\6{2}"; // подряд идущие числа от 8 до 3, например 55555 или 3333333
string temp="";

for (y=0; y<Y; y++){for (x=0; x<X; x++)temp=temp+format(mas_pole[x][y]);temp=temp+" ";} // массив в 1 строку
if(regexsearch(1, #temp, temp, R)>0){if (size(temp)>tOcenka)tOcenka=size(temp);} // поиск подряд идущих чисел от 8 до 3

for (x=0; x<X; x++){for (y=0; y<Y; y++)temp=temp+format(mas_pole[x][y]);temp=temp+" ";} // массив в 1 строку
if(regexsearch(1, #temp, temp, R)>0){if (size(temp)>tOcenka)tOcenka=size(temp);} // поиск подряд идущих чисел от 8 до 3

return tOcenka;
}