#include<stdio.h>
#include<stdlib.h>
#include<time.h>
#include<curses.h>
/*頭文件*/
int i,j,a[4][4]={};/*二維數(shù)組a[4][4]全為0*/
void kaishi()/*生成開(kāi)始界面*/
{
  printf("Welcome to 2048\n");
  printf("  1).新游戲\n");
  printf("  2).幫助\n");
}
int defen(int a[][4])/*計(jì)分函數(shù)*/
{
  int max=a[0][0];
  int static sum=0;
  for(i=0;i<4;i++)
    for(j=0;j<4;j++)
      if(a[i][j]>max)
        max=a[i][j];
  sum+=max;
  return sum;/*以最大數(shù)的累加作為得分*/
}
void jiemian(int a[][4])
{
  int b[2]={2,4},c[4]={0,1,2,3},sum,n,m;
  do
  {
    srand((int)time(NULL));/*以時(shí)間作為隨機(jī)數(shù)種子*/
    m=c[rand()%4];
    n=c[rand()%4];
    /*隨機(jī)生成坐標(biāo)*/
    if(a[m][n]==0)/*判斷是否為空格*/
    {
      a[m][n]=b[rand()%2];/*隨機(jī)生成2或4*/
      break;/*跳出循環(huán)*/
    }
  }while(1);
  printf("%d %d %d\n",m,n,a[m][n]);
  for(i=0;i<4;i++)
  {
    printf("-------------------------\n");
    for(j=0;j<4;j++)
      {
        if((m==i)&&(n==j))
          printf("| %d ",a[m][n]);/*輸出隨機(jī)生成的2或4*/
        else
        {
          if(a[i][j]>0)
            printf("| %d ",a[i][j]);/*如果a[i][j]有數(shù)字，則輸出數(shù)字*/
          else
            printf("|   ");/*如果a[i][j]無(wú)數(shù)字則輸出空格*/
        }
      }
    printf("|\n");
  }
    printf("-------------------------\n");
    printf("     得分:%d\n",sum=defen(a));
}
void hebingup(int a[][4])/*向上合并*/
{
  int m;
  for(j=0;j<4;j++)
    for(i=0;i<3;i++)
      if(a[i][j]>0)/*若a[i][j]不為0則進(jìn)行判斷，否則直接跳到下一項(xiàng)*/
        if(a[i][j]==a[i+1][j]&&a[i][j]!=0)/*判讀相鄰兩項(xiàng)是否相等*/
        {
          a[i][j]=2*a[i][j];/*上面一項(xiàng)變成兩倍*/
          if(i==2)
            a[i+1][j]=0;
          else
            for(m=i+1;m<3;m++)
            {
              a[m][j]=a[m+1][j];
              a[m+1][j]=0;
            }
          /*將下面的數(shù)整體上移，再循環(huán)*/
        }
}
void hebingdown(int a[][4])/*向下合并*/
{
  int m;
  for(j=0;j<4;j++)
    for(i=3;i>0;i--)
      if(a[i][j]>0)
        if(a[i][j]==a[i-1][j])
        {
          a[i][j]=2*a[i][j];
          if(i==1)
            a[i-1][j]=0;
          else
            for(m=i-1;m>0;m--)
            {
              a[m][j]=a[m-1][j];
              a[m-1][j]=0;
            }
        }
}
void hebingleft(int a[][4])/*向左合并*/
{
  int m;
  for(i=0;i<4;i++)
    for(j=0;j<3;j++)
      if(a[i][j]>0)
        if(a[i][j]==a[i][j+1])
        {
          a[i][j]=2*a[i][j];
          if(j==2)
            a[i][j+1]=0;
          else
            for(m=j+1;m<3;m++)
            {
              a[i][m]=a[i][m+1];
              a[i][m+1]=0;
            }
        }
}
void hebingright(int a[][4])/*向右合并*/
{
  int m;
  for(i=0;i<4;i++)
    for(j=3;j>0;j--)
      if(a[i][j]>0)
        if(a[i][j]==a[i][j-1])
        {
          a[i][j]=2*a[i][j];
          if(j==1)
            a[i][j-1]=0;
          else
            for(m=j-1;m>0;m--)
            {
              a[i][m]=a[i][m-1];
              a[i][m-1]=0;
            }
        }
}
void yidong(char b)
{
  int x,m;
  switch(b)
  {
    case 'w' :
      for(j=0;j<4;j++)
        for(i=1;i<=3;i++)
          for(x=i,m=i;x>0;x--,m--)/*x為循環(huán)次數(shù)，m替代i使循環(huán)繼續(xù)*/
          {
            if(a[m-1][j]>0)
              break;/*若上一位非0，則跳到下一位*/
            else
            {
              a[m-1][j]=a[m][j];
              a[m][j]=0;
            }
          }
      hebingup(a);
      break;
    case 's' :
      for(j=0;j<4;j++)
        for(i=2;i>=0;i--)
          for(x=3-i,m=i;x>0;x--,m++)
          {
            if(a[m+1][j]>0)
              break;
            else
            {
              a[m+1][j]=a[m][j];
              a[m][j]=0;
            }
          }
      hebingdown(a);
      break;
    case 'a' :
      for(i=0;i<4;i++)
        for(j=1;j<=3;j++)
          for(x=j,m=j;x>0;x--,m--)
          {
            if(a[i][m-1]>0)
              break;
            else
            {
              a[i][m-1]=a[i][m];
              a[i][m]=0;
            }
          }
      hebingleft(a);
      break;
    case 'd' :
      for(i=0;i<4;i++)
        for(j=2;j>=0;j--)
          for(x=3-j,m=j;x>0;x--,m++)
          {
            if(a[i][m+1]>0)
              break;
            else
            {
              a[i][m+1]=a[i][m];
              a[i][m]=0;
            }
          }
      hebingright(a);
      break;
  }
}
int main(int argc,char *argv[])
{
  int flag=1;
  char c,k;
  system("stty -icanon");
outloop:;
  kaishi();
  k=getchar();
  printf("\n");
  if(k=='1')
  {
    while(flag==1)
    {
      jiemian(a);
      c=getchar();
      printf("\n");
      yidong(c);
      for(i=0;i<4;i++)
        for(j=0;j<4;j++)
        {
          if(a[i][j]==0)
          {
            flag=1;
            goto end;/*如果棋盤(pán)中存在一個(gè)空格，則跳出判斷，繼續(xù)生成隨機(jī)數(shù)*/
          }
          else
            flag=0;
        }
       end:;
    }
  }
  if(k=='2')
  {
    do
    {
      printf("游戲規(guī)則：通過(guò)點(diǎn)擊<w>,<s>,<a>,<d>鍵來(lái)實(shí)現(xiàn)數(shù)字的上下左右的移動(dòng)，使相同的數(shù)字相加，每個(gè)格子中的數(shù)的累加將作為得分，當(dāng)格子填滿(mǎn)且無(wú)法移動(dòng)時(shí)，游戲結(jié)束。\n");
      printf("  3).返回\n");
      k=getchar();
    }while(k!=3);
    goto outloop;/*跳到開(kāi)始界面*/
  }
  printf("     游戲結(jié)束\n");
  return 0;
}