#include<stdio.h>
#include<stdlib.h>
#include<windows.h>
#include<time.h>
#include<conio.h>
 
#define MOD 28
#define SIZE_N 19
#define SIZE_M 12
 
int cur_x,cur_y;
int score,mark,next,map[SIZE_N][SIZE_M],Gamespeed=300;
 
int shape[28][6]={
 {0,-1,0,-2,1,0}, {0,1,1,0,2,0}, {-1,0,0,1,0,2}, {0,-1,-1,0,-2,0},
 {0,-1,0,1,-1,0}, {0,1,1,0,-1,0}, {1,0,0,-1,0,1}, {1,0,-1,0,0,-1},
 {-1,1,0,1,1,0}, {0,-1,1,0,1,1}, {-1,0,0,-1,1,-1}, {-1,-1,-1,0,0,1},
 {-1,0,0,1,1,1}, {0,1,1,-1,1,0}, {-1,0,0,1,1,1}, {0,1,1,-1,1,0},
 {-1,0,0,-1,0,-2}, {-1,0,-2,0,0,1}, {0,1,0,2,1,0}, {0,-1,1,0,2,0},
 {0,1,1,0,1,1}, {0,-1,1,0,1,-1}, {-1,0,0,-1,-1,-1}, {-1,0,-1,1,0,1},
 {0,1,0,2,0,3}, {1,0,2,0,3,0}, {0,-1,0,-2,0,-3}, {-1,0,-2,0,-3,0}
};
 
void gotoxy(int x,int y){
 COORD c;
 c.X=x-1; c.Y=y-1;
 SetConsoleCursorPosition (GetStdHandle(STD_OUTPUT_HANDLE), c);
}
void Gameover(){
 int i,j,flag=0;
 for(j=1;j<SIZE_M-1;j++){
 if(map[1][j]!=0){
  flag=1;break;
 }
 }
 if(flag==1){
 for(i=1;i<SIZE_N-1;i++){
  gotoxy(2,i+1);
  for(j=1;j<SIZE_M-1;j++){
  printf("□");
  }puts("");
 }
 gotoxy(7,9);
 printf("GAME OVER!");
 gotoxy(1,SIZE_N+1);
 exit(0);
 }
}
void ShowMap(int id){
 int i,j;
 gotoxy(1,1);
 if(id!=-1){
 for(i=0;i<SIZE_N;i++){
  for(j=0;j<SIZE_M;j++){
  if(i==0&&j==0 || i==0&&j==SIZE_M-1 || j==0&&i==SIZE_N-1 || j==SIZE_M-1&&i==SIZE_N-1)printf(" ");
  else if(i==0 || i==SIZE_N-1)printf("--");
  else if(j==0 || j==SIZE_M-1)printf("|");
  else if(map[i][j]==2) printf("■");
  else if(i==cur_x+shape[id][0] && j==cur_y+shape[id][1] ||
   i==cur_x+shape[id][2] && j==cur_y+shape[id][3] ||
   i==cur_x+shape[id][4] && j==cur_y+shape[id][5] ||
   i==cur_x && j==cur_y)
   printf("■");
  else if(map[i][j]==0) printf(" "); 
  }
  if(i==1)printf(" 下一個 :");
  if(i==11)printf(" 等分 : %d",score);
  if(i==14)printf(" 速度 : %d",score/100+1);
  puts("");
 }
 }
 else {
 mark=1;
 for(i=0;i<SIZE_N;i++){
  for(j=0;j<SIZE_M;j++){
  if(i==0&&j==0 || i==0&&j==SIZE_M-1 || j==0&&i==SIZE_N-1 || j==SIZE_M-1&&i==SIZE_N-1)printf(" ");
  else if(i==0 || i==SIZE_N-1)printf("--");
  else if(j==0 || j==SIZE_M-1)printf("|");
  else if(map[i][j]==2) printf("■");
  else if(map[i][j]==0) printf(" "); 
  }
  if(i==1)printf(" next:");
  if(i==11)printf(" score : %d",score);
  if(i==14)printf(" speed : %d",score/100+1);
  puts("");
 }
 }
 
 gotoxy(30,6); printf(" ");
 for(i=0;i<6;i=i+2){
 gotoxy(30+2*shape[id][i+1],6+shape[id][i]); printf(" ");
 }
 gotoxy(30,6); printf("■");
 for(i=0;i<6;i=i+2){
 gotoxy(30+2*shape[next][i+1],6+shape[next][i]); printf("■");
 }
 Sleep(Gamespeed);
}
 
void init(int id){
 int i,j;
 memset(map,0,sizeof(map));
 for(i=0;i<SIZE_N;i++){
 for(j=0;j<SIZE_M;j++)
  if(i==SIZE_N-1 || j==0 || j==SIZE_M-1)
  map[i][j]=-1;
 }
 cur_x=0; cur_y=5;
 ShowMap(id);
}
 
int judge_in(int x,int y,int id){
 int i;
 if(map[x][y]!=0)return 0;
 for(i=0;i<6;i=i+2){
 if(map[ x+shape[id][i] ][ y+shape[id][i+1] ]!=0)return 0;
 }return 1;
}
 
void fun_score(){
 int i,j,ii,jj;
 for(i=1;i<SIZE_N-1;i++){
 int flag=0;
 for(j=1;j<SIZE_M-1;j++){
  if(map[i][j]!=2){ flag=1;break; }
 }
 if(flag==0){
  int k=3;
  while(k--){
  gotoxy(2,i+1);
  for(ii=1;ii<SIZE_M-1;ii++){
   if(map[i][ii]==2){
   if(k%2==1)printf(" ");
   else printf("■");
   }
  }Sleep(100);
  }
  for(ii=i;ii>1;ii--){
  for(jj=1;jj<SIZE_M-1;jj++) map[ii][jj]=map[ii-1][jj];
  }
  ShowMap(-1);
  score+=10;
  if(score%100==0 && score!=0)Gamespeed-=50;
 }
 }
}
 
int main(){
 int i,id,set=1;
 
 srand(time(NULL));
 id=rand()%MOD; id=(id+MOD)%MOD;
 next=rand()%MOD; next=(next+MOD)%MOD;
 
 init(id);
 
 while(1){
Here: mark=0;
 if(set==0){
  id=next;
  next=rand()%MOD; next=(next+MOD)%MOD;
  cur_x=0;cur_y=5;
  set=1;
 }
  
 while(!kbhit()){
  Gameover();
  if(judge_in(cur_x+1,cur_y,id)==1) cur_x++;
  else {
  map[cur_x][cur_y]=2;
  for(i=0;i<6;i=i+2)
   map[ cur_x+shape[id][i] ][ cur_y+shape[id][i+1] ]=2;
  fun_score();
  set=0;
  }
  if(mark!=1)ShowMap(id);
  goto Here;
 }
  
 char key;
 key=getch();
  
 if(key==72){
  int tmp=id;
  id++;
  if( id%4==0 && id!=0 )id=id-4;
  if(judge_in(cur_x,cur_y,id)!=1)id=tmp;
 }
 else if(key==80 && judge_in(cur_x+1,cur_y,id)==1)cur_x++;
 else if(key==75 && judge_in(cur_x,cur_y-1,id)==1)cur_y--;
 else if(key==77 && judge_in(cur_x,cur_y+1,id)==1)cur_y++;
 else if(key==27){gotoxy(1,SIZE_N+1);exit(0);}
 }
 getch();
 return 0; 
}