/* Project 1
Angelos Georgios Drapaniotis AM: 2022201600046
Anastasia Vorri AM:2025201000060
*/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>
#include <ctype.h>
#define MIN 3
#define MAX 24

int getCoords(char str[20], int arg);
void bomb(int a, int b, char** level,int N,int M, int *score);
void hammer(int a, int b, char** level, char c,int N,int M, int *score);
void gravity(char **level, int type,int N,int M);

int main()
{
    int i,j, k, N, M, flag, x, y, exit, c=0, levelcomplete, pista=1, temp;
    int *score;
    char str[20];
    char **level;
    //diastaseis ths pistas
    do{
        printf("Dwse arithmo diastasewn.\n");
        scanf("%d%d",&N,&M);
        if(N<MIN||N>MAX||M<MIN||M>MAX)
            printf("\n[!] Oi dunates distaseis einai megaluteres tou %d kai mikroteres tou %d.\n\n",MIN,MAX);
    }while(N<MIN||N>MAX||M<MIN||M>MAX);
    level = (char**) malloc(N * sizeof(char*));
    score = (int*)malloc(sizeof(int));
    exit = 0;
    str[8] = 0;
    srand(time(NULL));
    // xrwmata ston pinaka
    for(i=0;i<N;i++){
        level[i] = (char*) malloc(M * sizeof(char));
        for(j=0;j<M;j++){
            level[i][j] = rand()%9 + 49;
        }
    }
    if(level==NULL||score==NULL){
        exit = 1;
        printf("H KATAXWRHSH MNHMHS APETYXE\n");
    }
    *score = 0;
    do{
        // emfanish pistas
        if(exit==1)
            continue;
        levelcomplete = 0;
        printf("    ");
        for(i=0;i<M;i++){
            printf("%d ",i+1); // sthles
        }
        printf("\n");
        printf(" --");
        if(M>9)
            printf("-");
        for(i=0;i<M;i++){
            if(i>9){
                printf("-");
            }
            printf("--");
        }
        printf("\n");
        for(i=0;i<N;i++) // grammes
        {
            if(i<9){
                printf(" ");
            }
            printf("%d|", i+1);
            for(j=0;j<M;j++)
            {
                if(j<9){
                     printf(" %c",level[i][j]);
                }else
                     printf("  %c",level[i][j]);
            }
            printf("\n");
        }

        flag = 0;
        do{
            // elegxos entolhs pou dwthike apo xrhsth
            if(flag==1)
            {
                printf("\n[!]Kati phge strava, prospathise pali!\n");
            }
            // Emfanizete to score, to epipedo kai dialegei o xrhsths thn kinhsh tou
            printf("\n\nPista #%d, Score: %d\nDialekse thn epomenh kinhsh sou.\n", pista, *score);
            if(c==0)
                while ((c = getchar()) != '\n' && c != EOF);
            c=1;
            fgets(str, 20, stdin);
            printf("\n\n");
            for(i=0;i<20;i++){
                if(str[i]=='\n')
                    str[i]='\0';
            }

            /*
            Typoi Entolwn:

            h A,B
            b A,B
            pr
            pl
            a A,B C(1-9)
            x

            */
            //elegxei na einai swsth h entolh
            flag = 0;
            if((str[0]=='h'||str[0]=='b'||str[0]=='a')&&str[1]==' '){
                i = 1;
                do{
                    i++;
                    if(str[i]<48||str[i]>57){
                       flag = 1;
                    }

                }while(flag==0);
                if(str[i]==','){
                    flag = 0;
                }
                if(flag==0){
                    do{
                        i++;
                        if(str[i]<48||str[i]>57){
                           flag = 1;
                        }

                    }while(flag==0);
                }
                if(str[i]=='\0'&&(str[0]=='h'||str[0]=='b')){
                    flag = 0; // entolh typou h/b A,B
                    x = getCoords(str, 1);
                    y = getCoords(str, 2);
                    if(x > 0 && x <= N && y > 0 && y <= M ){
                        if(str[0]=='b')
                        {
                            bomb(x-1,y-1,level, N, M, score);
                            gravity(level,0,N,M);
                        }else if(str[0]=='h'){
                            hammer(x-1,y-1,level,level[x-1][y-1], N, M, score);
                            gravity(level,0,N,M);
                        }
                    }else{
                        flag = 1;
                    }
                }
                else if(str[i]=' '&&(str[i+1]>=49&&str[i+1]<=57)){
                    flag = 0; //entolh typou a A,B C(1-9)
                    x = getCoords(str, 1);
                    y = getCoords(str, 2);
                    if(x > 0 && x <= N && y > 0 && y <= M ){
                        k=0;
                        while(str[k]!='\0'){
                            k++;
                        }
                        if(level[x-1][y-1]=='.'){
                            level[x-1][y-1]=str[k-1];
                            gravity(level,0,N,M);
                        }
                        else{
                            printf("\n[!]To plakidio prepei na einai keno.\n");
                            flag=1;
                        }
                    }
                    else
                        flag = 1;
                }
            }
            // push right/push left
            else if(str[0]=='p'){
                if(str[1]=='r'&&str[2]=='\0')
                {
                    flag = 0; // entolh pr
                    gravity(level,1,N,M);
                }

                else if(str[1]=='l'&&str[2]=='\0')
                {
                    flag = 0; // entolh pr
                    gravity(level,2,N,M);
                }
            }
            // entolh x
            else if((str[0]=='x'||str[0]=='X')&&str[1]=='\0')
            {
                flag = 0;
                exit = 1;
                printf("\n\nHello darkness, my old friend\nIve come to talk with you again\nBecause a vision softly creeping\nLeft its seeds while I was sleeping\nAnd the vision that was planted in my brain\nStill remains\nWithin the sound of silence\n\nIn restless dreams I walked alone\nNarrow streets of cobblestone\nNeath the halo of a street lamp\nI turned my collar to the cold and damp\nWhen my eyes were stabbed by the flash of a neon light\nThat split the night\nAnd touched the sound of silence\n\nAnd in the naked light I saw\nTen thousand people, maybe more\nPeople talking without speaking\nPeople hearing without listening\nPeople writing songs that voices never share\nNo one dared\nDisturb the sound of silence\n\nFools said I, You do not know\nSilence like a cancer grows\nHear my words that I might teach you\nTake my arms that I might reach you\nBut my words like silent raindrops fell\nAnd echoed in the wells of silence\n\nAnd the people bowed and prayed\nTo the neon god they made\nAnd the sign flashed out its warning\nIn the words that it was forming\n\nAnd the sign said, The words of the prophets\nAre written on the subway walls\nAnd tenement halls\nAnd whispered in the sounds of silence\n\n");
            }
            else
                flag = 1;

        }while(flag == 1);
        levelcomplete = 1;
        i=0;
        do{
            j=0;
            do{
                if(level[i][j]!='.')
                    levelcomplete = 0;
                j++;
            }while(j<M&&levelcomplete==1);
            i++;
        }while(i<N&&levelcomplete==1);
        if(levelcomplete==1){
            free(level);// apodesmeush mnhmhs
            printf("\n\nNikhses thn pista megethous: %d X %d!!!\n",N,M);
            if(N<MAX&&M<MAX){
                N++;
                M++;
                printf("As anevasoume ligo thn duskolia me mia pista megethous: %d X %d\n\n",N,M);// megethos pistas ginete +1
                level = (char**) malloc(N * sizeof(char*));
                for(i=0;i<N;i++){
                    level[i] = (char*) malloc(M * sizeof(char));
                    for(j=0;j<M;j++){
                        level[i][j] = rand()%9 + 49;
                    }
                }
            }
            else{
                printf("Termatises to paixnidi sthn megaluterh pista WOW EISAI TOSO KALOOOOOS!!!!!\n");
                exit=1;
            }
            pista++;
        }

    }while(exit == 0);
    printf("\n\nPerasmenes Pistes: %d\n\nScore: %d\n\n", pista-1, *score);// emfanish teliko score
    free(level);// apodesmeush mnhmhs
    free(score);// apodesmeush mnhmhs

    return 0;
}



void bomb(int a, int b, char** level,int N,int M, int *score){

    if(level[a][b] != '.'){
        level[a][b] = '.';
        *score+=10;
    }
    if((a-1>=0)&&b-1>=0&&level[a-1][b-1] != '.'){
        level[a-1][b-1] = '.';
        *score+=10;
    }
    if((a+1<=N-1)&&(b+1<=M-1)&&level[a+1][b+1] != '.'){
        level[a+1][b+1] = '.';
        *score+=10;
    }
    if((a-1>=0)&&b+1<=M-1&&level[a-1][b+1] != '.'){
        level[a-1][b+1] = '.';
        *score+=10;
    }
    if((a+1<=N-1)&&b-1>=0&&level[a+1][b-1] != '.'){
        level[a+1][b-1] = '.';
        *score+=10;
    }
    if(b-1>=0&&level[a][b-1] != '.'){
        level[a][b-1] = '.';
        *score+=10;
    }
    if(b+1<=M-1&&level[a][b+1] != '.'){
        level[a][b+1] = '.';
        *score+=10;
    }
    if(a-1>=0&&level[a-1][b] != '.'){
        level[a-1][b] = '.';
        *score+=10;
    }
    if(a+1<=N-1&&level[a+1][b] != '.'){
        level[a+1][b] = '.';
        *score+=10;
    }
    printf("\n");
}

void hammer(int a, int b, char** level,char c,int N,int M,int *score){

    if(level[a][b] != '.'){
        level[a][b] = '.';
        *score+=30;
        if(a-1>=0)
            if(level[a-1][b] == c)
            {
                hammer(a-1,b,level,c,N,M,score);
            }
        if(a+1<=N-1)
            if(level[a+1][b] == c)
            {
                hammer(a+1,b,level,c,N,M,score);
            }
        if(b-1>=0)
            if(level[a][b-1] == c)
            {
                hammer(a,b-1,level,c,N,M,score);
            }
        if(b+1<=M-1)
            if(level[a][b+1] == c)
            {
                hammer(a,b+1,level,c,N,M,score);
            }
    }
}


void gravity(char **level, int type,int N,int M)
{
    int i,j,k,max;
    if(N>M)
        max = N;
    else
        max = M;
    for(k=0;k<max+1;k++){
        for(i=0;i<N;i++)
        {
            for(j=0;j<M;j++)
            {
                if(type==0&&i+1<=N-1)
                {

                    if(level[i+1][j] =='.')//gravity
                    {
                        level[i+1][j] = level[i][j];
                        level[i][j] = '.';
                    }
                }
                else if(type==1&&j+1<=M-1)
                {

                    if(level[i][j+1] =='.')//pr/pl
                    {
                        level[i][j+1] = level[i][j];
                        level[i][j] = '.';
                    }
                }
                else if(type==2&&j-1>=0)
                {

                    if(level[i][j-1] =='.')//pr/pl
                    {
                        level[i][j-1] = level[i][j];
                        level[i][j] = '.';
                    }
                }
            }
        }

    }

}

int getCoords(char str[20], int arg){//vriskei suntetagmenes kai tis metatrepei apo xarakthres ascii se arithmous
    int i,m,j, coord;
    char stop='\0';
    i = -1;
    m = 0;
    coord = 0;
    if(str[0]=='a')
        stop=' ';
    if(arg == 1){
        do{
            i++;
        }while(str[i]!=',');
        do{
            i--;
            if(m==0)//metatroph apo xarakthra se arithmo mesw ascii
                coord +=(str[i]-48);
            else if(m==1)
                coord += (str[i]-48)*10;
            m++;
        }while(str[i-1]!=' ');
    }
    else{
        do{
            i++;
        }while(str[i]!=stop); //stop: '\0' or ' '
        if(stop ==' '){
            do{
                i++;
            }while(str[i]!=1); //stop: ' '

        }
        do{
            i--;
            if(m==0)
                coord +=(str[i]-48);
            else if(m==1)
                coord += (str[i]-48)*10;
            m++;
        }while(str[i-1]!=',');
    }

    return coord;
}