#include<stdio.h>
#include<stdlib.h>
#include<time.h>
#include<windows.h>
#include<conio.h>
int i,j,M[100][100],ans;
void Disgm(){
    for (i=0;i<=5;i++){
        M[i][0]=1;
        M[0][i]=1;
        M[i][5]=1;
        M[5][i]=1;
    }
}
int pd(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (!M[i][j]) return 1;
    return 0;
}
void DisP(){
    int tx=rand()%4+1; int ty=rand()%4+1;
    int num=rand()%2+1; num*=2;
    if (pd()){
        while (M[tx][ty]) {
            tx=rand()%4+1;
            ty=rand()%4+1;
        }
        M[tx][ty]=num;
    }
}
void up(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (M[i][j]){
                int u=i,v=j;
                while (M[u][v]==M[u-1][v] || M[u-1][v]==0){
                    if (M[u-1][v]==0) {
                        M[u-1][v]=M[u][v];
                        M[u][v]=0;
                    }
                    else if (M[u-1][v]==M[u][v]) {
                        M[u-1][v]*=2;
                        M[u][v]=0;
                        ans+=M[u-1][v];
                    }
                    u--;
                }
            }
}
void down(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (M[i][j]){
                int u=i,v=j;
                while (M[u][v]==M[u+1][v] || M[u+1][v]==0){
                    if (M[u+1][v]==0) {
                        M[u+1][v]=M[u][v];
                        M[u][v]=0;
                    }
                    else if (M[u+1][v]==M[u][v]) {
                        M[u+1][v]*=2;
                        M[u][v]=0;
                        ans+=M[u+1][v];
                    }
                    u++;
                }
            }
}
void left(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (M[i][j]){
                int u=i,v=j;
                while (M[u][v]==M[u][v-1] || M[u][v-1]==0){
                    if (M[u][v-1]==0) {
                        M[u][v-1]=M[u][v];
                        M[u][v]=0;
                    }
                    else if (M[u][v-1]==M[u][v]) {
                        M[u][v-1]*=2;
                        M[u][v]=0;
                        ans+=M[u][v-1];
                    }
                    v--;
                }
            }
}
void right(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (M[i][j]){
                int u=i,v=j;
                while (M[u][v]==M[u][v+1] || M[u][v+1]==0){
                    if (M[u][v+1]==0) {
                        M[u][v+1]=M[u][v];
                        M[u][v]=0;
                    }
                    else if (M[u][v+1]==M[u][v]) {
                        M[u][v+1]*=2;
                        M[u][v]=0;
                        ans+=M[u][v+1];
                    }
                    v++;
                }
            }
}
void Play(){
    
    char key;
    do {
	key=getch();
    }while (key!='w' && key!='s' && key!='a' && key!='d');
    if (key=='w') up();
    if (key=='s') down();
    if (key=='a') left();
    if (key=='d') right();
    DisP();
}
void Print(){
    for (i=1;i<=26;i++) printf("#");
	puts("");
    for (i=1;i<=4;i++,printf("  #"),puts("")){
        printf("#  ");
		for (j=1;j<=4;j++)
            printf("%5d",M[i][j]);
    }
    for (i=1;i<=26;i++) printf("#");
    puts("");
    printf("score:%d\n",ans);
}
int GameOver(){
    for (i=1;i<=4;i++)
        for (j=1;j<=4;j++)
            if (M[i][j]==M[i-1][j] || M[i][j]==M[i+1][j] || M[i][j]==M[i][j-1] || M[i][j]==M[i][j+1]) return 0;
    return 1;
}
int main(){
    puts("遊戲名稱：2048");
    getch(); puts("");
    puts("遊戲目標：略");
    getch(); puts("");
    puts("遊戲規則：略");
    getch(); puts("");
    puts("By steven_cnyali");
    getch(); puts("");
    system("cls");
    for (i=3;i>=1;i--) {
        printf("遊戲即將開始...(%d)",i);
        Sleep(1000);
        system("cls");
    }
    Disgm();
    DisP();
    Print();
    while (!GameOver()){
        Play();
        system("cls");
        Print();
    }
    system("cls");
    puts("Game Over!");
    system("pause");
    return 0;
}