w=8;//количество фишек по ширине
h=6;//количество фишек по высоте
for(i=0; i<w;i+=1){
    for(j=0; j<h; j+=1){
    _map[i,j]=0;
    _piece[i,j]=0;//массив объектов фишек
}
}

type = 0; //тип фишки
xx = 0;//позиция х в матрице
yy = 0;//позиция у в матрице

draw_sprite(sprite_index, type-1, x,y);//”type-1” - индекс кадра с фишкой, т.к 0 - пустая фишка

//позиция в матрице поля
_x=argument0;
_y=argument1;

_map[_x,_y]=irandom_range(1,6);// рандомно назначим тип фишек

// сразу расставим фишки по позициям, координатам
//и передадим им необходимые данные
_piece[_x,_y] = instance_create(30+48*_x,+30+48*_y,o_piece)
_piece[_x,_y].xx=_x;
_piece[_x,_y].yy=_y;
_piece[_x,_y].type=_map[_x,_y];

_map[i,j]=0;
_piece[i,j]=0;//массив объектов фишек

scr_piece_new(i,j);

match_list = ds_list_create();

prew_piece=0;//для записи типа начала “ряда”
num_piece=1;//количество повторов фишки

sc = false;//данная переменная нужна что бы посмотреть нужно удалять что-то или нет
// так же можно в нее записывать количество набранных очков…

//тут просто прогоняем по циклу все фишки горизонтально
for(i=0;i<w;i+=1){

//обнуляем значения что бы не переносить их на новую строку
prew_piece=0;
num_piece=1;
    for(j=0;j<h;j+=1){
        if(_map[i,j]!=prew_piece ){//проверяем текущую фишку на соответствие подбераемому ряду и если не сходиться...
            prew_piece=_map[i,j] передаем новый тип фишек для подбора,
            if(num_piece>=3){ проверяем сколько было подобных фишек(если больше 3-х)...
            sc=true;//ставим флаг, что проверка нашла хоть один ряд,
                while(num_piece>0)//просматриваем количество фишек в ряду
                {
                    ds_list_add(match_list,_piece[i,j-num_piece]);//добавляем фишки из найденного ряда в “смертники”
                    num_piece-=1;//уменьшаем количество до 0
                }
            }
            num_piece=1;
        }
        else// если фишка соответствует ряду...
        {
        num_piece+=1;просто добавляем количество
        }
        if (j==h-1 && num_piece>=3){//Дополнительная проверка “крайних” фишек
            sc=true;
                while(num_piece>0)
                {
                    ds_list_add(match_list,_piece[i,j-(num_piece-1)]);
                    num_piece-=1;
                }
        }    
   }
  
}

//Повторяем то же самое но вертикально(главное не запутаться и правильно все заменить)
for(j=0;j<h;j+=1){
prew_piece=0;
num_piece=1;
    for(i=0;i<w;i+=1){
        if(_map[i,j]!=prew_piece){
            prew_piece=_map[i,j]
            if(num_piece>=3){
            sc=true;
                while(num_piece>0)
                {
                    ds_list_add(match_list,_piece[i-num_piece,j]);
                    num_piece-=1;
                }
            }
            num_piece=1;
        }
        else
        {
        num_piece+=1;
        }
        if (i==w-1 && num_piece>=3){
            sc=true;
                while(num_piece>0)
                {
                    ds_list_add(match_list,_piece[i-(num_piece-1),j]);
                    num_piece-=1;
                }
        }
   }
   
}

return sc;//возвращаем результат проверки(true - есть “ряды”, false - нету)

while(ds_list_size(match_list)>0)//проверяем наш лист на наличие в нем фишек
{
with(ds_list_find_value(match_list,ds_list_size(match_list)-1))//выбераем последнюю из списка
{
    instance_destroy();//удаляем
    score+=50;//добавляем очки
}
ds_list_delete(match_list,ds_list_size(match_list)-1);//убераем из списка
}

o_control._map[xx,yy]=0//делаем ячейку поля пустой

alarm[0] = .5*room_speed;//задержим на пол секунды

if(scr_line_test())//если есть что удалять...
alarm[1]=5;

scr_line_clear()//очищаем поле от собранных рядов

if (y<30+yy*48)//смотрим как изначально расположили фишки
y+=16//двигаем фишку
if (y>30+yy*48)
y-=16
if (x<30+xx*48)
x+=16
if (x>30+xx*48)
x-=16

next=true

while(next)//повторям, пока не заполним все
{
next=false;
for(i=0;i<w;i+=1){
    for(j=h-1;j>=0;j-=1){прогоняем цикл задом наперед
        if (_map[i,j]=0){//если фишка отсутствует...
        next=true;
            if (j=0){//если это верхний ряд...
                scr_piece_new(i,j)//создаем новую фишку в этом ряду
            }
            else{//если нет то подмениваем значения
                _map[i,j] = _map[i,j-1]
                _piece[i,j]=_piece[i,j-1]
                if(instance_exists(_piece[i,j])){
                    _piece[i,j].xx=i;
                    _piece[i,j].yy=j;
                    }
                _map[i,j-1]=0
                
            }
        }
    }
}   
}
if(scr_line_test())//когда все пустоты заполнены снова проверяем нужно ли убрать чего...
    alarm[1]=5;//если нужно, возвращаемся к удалению

g1=-1;//ссылка на первую выбранную фишку
g2=-1;//на вторую

if (o_control.g1=-1)//если “первая” фишка еще не выбрана...
{
    o_control.g1=id передаем указателю свой айди
}
else // в противном случае
{
    if(abs(o_control.g1.xx-xx)=1 && (o_control.g1.yy=yy))//проверяем соседство по горизонтали данной фишки с “первой”...
    {
        o_control.g2=id если все впорядке то присваиваем указателю что это 2-ая фишка
    }
    else if(abs(o_control.g1.yy-yy)=1 && (o_control.g1.xx=xx))//тоже самое по вертикали
    {
        o_control.g2=id
    }
    else //если не сосед то делаем ее “первой”
    {
        o_control.g1=id
    }
}

gg=false;

var ds;//0 - прямая замена, 1 обратная
    ds=argument2;
var p1,p2;//это фишки для замены
    p1 = argument0
    p2 = argument1
var t1,t2;// тип фишек
    t1=o_control._map[p1.xx,p1.yy]
    t2=o_control._map[p2.xx,p2.yy]
var px1,py1,px2,py2;//координаты фишек
    px1=p1.xx;
    py1=p1.yy;
    px2=p2.xx;
    py2=p2.yy;
//тут идет простая подмена информации
o_control._map[px1,py1] = t2
o_control._piece[px1,py1] = p2
o_control._piece[px1,py1].xx =px1
o_control._piece[px1,py1].yy =py1
o_control._map[px2,py2] = t1
o_control._piece[px2,py2] = p1
o_control._piece[px2,py2].xx =px2
o_control._piece[px2,py2].yy =py2
//за анимацию не беспокоимся уже все сделано
if(scr_line_test())проверяем на наличие рядов
{
    alarm[1]=5
//обнуляем ссылки
    o_control.g1=-1
    o_control.g2=-1
}
else if ds=0//если не сходиться и выбрана прямая замена то шаманим в o_control(alarm 2)
{
    alarm[2]=5
    gg=true//нужно , что бы не зациклить замену
}
else
{
    o_control.g1=-1
    o_control.g2=-1
    gg=false//заканчивает обратную замену
}

if (g1!=-1 && g2!=-1 && gg=false)//проверяем выбранные и делаем замену
    scr_piece_remove(g1,g2,0)

scr_piece_remove(g1,g2,1)//это обратная замена, если ход был ошибочным

if (o_control.g1=id)
o_control.g1=-1;
else if (o_control.g2=id)
o_control.g2=-1;

var piece_type;// тип проверяемой фишки

for(i=0;i<w;i+=1){ прогоняем все поле горизонтально
    for(j=0;j<h;j+=1){
    piece_type=_map[i,j];
         if (j+1<h){//проверяем на выход за границы
         if (board_map[i,j+1]=piece_type){//проверяем следующую фишку
            if (j+3<h)//проверяем на выход за границы
                if (board_map[i,j+3]=piece_type){
                return true;
                }
            if (j+2<h && i+1<w)//проверяем на выход за границы
                if (_map[i+1,j+2]=piece_type){проверка “оранжевой” фишки
                return true;//выходим из проверки, все впорядке
                }
//дальше по аналогии проверяем остальное
            if (j+2<h && i-1>0)
                if (_map[i-1,j+2]=piece_type){
                return true;
                }
            if (j-2>0)
                if (_map[i,j-2]=piece_type){
                return true;
                }
            if (j-1>0 && i-1>0)
                if (_map[i-1,j-1]=piece_type){
                return true;
                }
            if (j-1>0 && i+1<w)
                if (_map[i+1,j-1]=piece_type){
                return true;
                }
         }}
         if (j+2<h){
         if (_map[i,j+2]=piece_type){
            if (i-1>0)
                if (_map[i-1,j+1]=piece_type){
                return true;
                }
            if (i+1<w)
                if (_map[i+1,j+1]=piece_type){
                return true;
                }
            if (j+3<h)
                if (_map[i,j+3]=piece_type){
                return true;
                }
         }}
    }
}

//проверяем вертикально
for(j=0;j<h;j+=1){
    for(i=0;i<w;i+=1){
    piece_type=_map[i,j];
         if (i+1<w){
         if (_map[i+1,j]=piece_type){
            if (i+3<w)
                if (_map[i+3,j]=piece_type){
                return true;
                }
            if (i+2<w && j+1<h)
                if (_map[i+2,j+1]=piece_type){
                return true;
                }
            if (i+2<w && j-1>0)
                if (_map[i+2,j-1]=piece_type){
                return true;
                }
            if (i-2>0)
                if (_map[i-2,j]=piece_type){
                return true;
                }
            if (i-1>0 && j-1>0)
                if (_map[i-1,j-1]=piece_type){
                return true;
                }
            if (i-1>0 && j+1<h)
                if (_map[i-1,j+1]=piece_type){
                return true;
                }
         }}
         if (i+2<w){
         if (_map[i+2,j]=piece_type){
            if (j-1>0)
                if (_map[i+1,j-1]=piece_type){
                return true;
                }
            if (j+1<h)
                if (_map[i+1,j+1]=piece_type){
                return true;
                }
            if (i+3<h)
                if (_map[i+3,j]=piece_type){
                return true;
                }
         }}
    }
}

return false;//если все проверки не дали результата то ходов больше нету

if(scr_line_test())
    alarm[1]=5;
else if !scr_line_end_test()//если ходов больше нет...
    game_end();//тут может быть перебор поля или еще что...

if(scr_line_test())
    alarm[1]=5;