/*=====================================================================
// FOOLTRIS.C: Fool tetris game v1.0 by skywind
// 最简俄罗斯，游戏设计入门傻瓜版，林伟 1999年8月11日
//
// 游戏并无任何扩展，仅以最简单的方式向人说明俄罗斯方块的基本功能实现
// 程序运行于MS-DOS，虽然现在写游戏的平台早已变化了许多，
// 但是我尽量容入了一些不变理论，希望才入门的游戏设计者能得到一些帮助
// 用方向键/空格游戏，代码不超过两百行，初学C者皆能读懂，请用TC20编译
//
//=====================================================================*/
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <conio.h>
#include <string.h>
#include <dos.h>

/*---------------------------------------------------------------------
// 基本定义：地图和砖块
//---------------------------------------------------------------------*/
int map[26][10]; /* 游戏地图定义: 所有砖块将被描述在地图中 ............*/

typedef struct { int d[4][4]; } Block;  /* 砖块结构定义 ...............*/
int BlockList[7][4][4] = {      /* 七种传统的方块定义 .................*/
  { { 0, 0, 0, 0 }, { 0, 1, 0, 0 }, { 0, 1, 0, 0 }, { 0, 1, 1, 0 } },
  { { 0, 0, 0, 0 }, { 0, 0, 2, 0 }, { 0, 0, 2, 0 }, { 0, 2, 2, 0 } },
  { { 0, 3, 0, 0 }, { 0, 3, 0, 0 }, { 0, 3, 0, 0 }, { 0, 3, 0, 0 } },
  { { 0, 4, 0, 0 }, { 0, 4, 4, 0 }, { 0, 0, 4, 0 }, { 0, 0, 0, 0 } },
  { { 0, 0, 5, 0 }, { 0, 5, 5, 0 }, { 0, 5, 0, 0 }, { 0, 0, 0, 0 } },
  { { 0, 6, 6, 6 }, { 0, 0, 6, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } },
  { { 0, 0, 0, 0 }, { 0, 7, 7, 0 }, { 0, 7, 7, 0 }, { 0, 0, 0, 0 } }};
unsigned char cmap[]={0,0x72,0x30,0x47,0x57,0x27,0x60,0x74}; /* 颜色表 */
long GameMode = 0, GameSpeed = -1, GameScore = 0; /* 全局定义：各状态 .*/

/*---------------------------------------------------------------------
// 视频相关数据定义
//---------------------------------------------------------------------*/
char far* TextBuf = (char far*)0xb8000000l; /* 文本状态的显存地址 .....*/
char TextBck[20][10];                       /* 文本状态的二级缓存 .....*/
#define SCREEN(x,y) (TextBuf[((y) * 160) + ((x) * 2)])   /* 显存中字符 */
#define SCOLOR(x,y) (TextBuf[((y) * 160) + ((x) * 2) + 1]) /* 屏幕颜色 */

/*---------------------------------------------------------------------
// 基本砖块操作函数
//---------------------------------------------------------------------*/
void Rotate(const Block* src, Block* dest)  /* 旋转砖块src到dest ......*/
{
    int i, j;
    for (j = 0; j < 4; j++) for (i = 0; i < 4; i++)
    dest->d[i][j] = src->d[j][3 - i];
}

int MapCheck(int x, int y) /* 检测地图中某坐标是否有砖块 ..............*/
{
    if (x < 0 || x >=10 || y < 0 || y >= 26) return -1;
    return map[y][x];
}

int BlockCheck(int x, int y, const Block* src) /* 检测砖块位置合法性 ..*/
{
    int i, j;
    for (j = 0; j < 4; j++) for (i = 0; i < 4; i++)
        if (MapCheck(x + j, y - i) && src->d[i][j]) return 0;
    return 1;
}

void CreateBlock(Block* src) /* 随机创建一个砖块，然后保存到src .......*/
{
    int i,j,k = rand() % 7;
    Block t;
    for (i = 0; i < 4; i++) for (j = 0; j < 4; j++)
        src->d[i][j] = BlockList[k][i][j];
    for (i = rand() % 4; i > 0; i--, *src = t) Rotate(src, &t);
}

long TimePass = 0, TimeExit = -1, GameTime = -1, w;
void GameMain(void);
/*---------------------------------------------------------------------
// 程序入口函数
//---------------------------------------------------------------------*/
void main(void)
{
    clrscr();                               /* 初始化：清屏 ...........*/
    randomize();                            /* 初始化：随机数种子 .....*/
    for (w = 0; w < 26; w++) memset(map[w], 0, sizeof(int) * 10);
    for (w = 0; w < 22; w++)                /* 初始化：绘制边框 .......*/
        SCREEN(w,0)=254, SCOLOR(w,0)=8, SCREEN(w,21)=254, SCOLOR(w,21)=8,
        SCREEN(0,w)=254, SCOLOR(0,w)=8, SCREEN(21,w)=254, SCOLOR(21,w)=8;
    GameSpeed = 2;                          /* 初始化：设置速度 .......*/

    GameMain();                             /* 进入游戏主程序 .........*/
}

int readkey(void)           /* 无等待的接收一个键盘消息 ...............*/
{
    if (!kbhit()) return 0; /* 如果当前没有按键消息则直接返回 .........*/
    if ((w = getch()) == 0) return getch();   /* 返回非控制键 .........*/
    return (int)w;
}

int SpeedX[10] = { 17, 15, 13, 11, 9, 7, 5, 4, 3, 2 }; /* 速度级别 ....*/
int x = 3, y = 20, v = 0, level;    /* 全局定义：砖块的坐标，速度 .....*/
Block A, B, C;                      /* 全局定义：A, B, C三个活动砖块 ..*/

void GameDriver(void);
void GameView(void);

/*---------------------------------------------------------------------
// 游戏逻辑核心(重要): 每秒循环18.2次，处理砖块移动/下落/消除等逻辑
//---------------------------------------------------------------------*/
void GameMain(void)
{
    long key, i, j, m, n, old_time = 0;         /* 定义各变量 .........*/
    CreateBlock(&A); CreateBlock(&C);           /* 初始化砖块 .........*/

    for (GameMode = 0, v = SpeedX[GameSpeed]; GameMode == 0; TimePass++)
    {
        while (clock() == old_time);   /* 速度控制，clock()为 18.2Hz ..*/
        old_time = clock();
        nosound();
        key = readkey();               /* 读入一个键盘消息 ............*/
        if (key == 75) if (BlockCheck(x - 1, y, &A)) x--;   /* 左移 ...*/
        if (key == 77) if (BlockCheck(x + 1, y, &A)) x++;   /* 右移 ...*/
        if (key == 80) v = 0;                   /* 下落: SET v = 0 ....*/
        if (key == ' ') {                       /* 直接下落 ...........*/
            for (i = y; i >= 0; i--) if (!BlockCheck(x, i - 1, &A)) break;
            y = i; v = 0;
        }
        if (key == 27) GameMode = 1;            /* ESC: 退出游戏 ......*/
        if (key == 72) {                        /* UP: 转动砖块 .......*/
            Rotate(&A, &B);
            if (BlockCheck(x, y, &B)) A = B;
        }
        if (--v <= 0) {                     /* 到达了下落的时间 .......*/
            v = SpeedX[GameSpeed];          /* 重置砖块速度 ...........*/
            if (BlockCheck(x, y - 1, &A) == 0) {/* 如果到达map底部 ....*/
                for (i=0, m=y; i<4; i++,m--) for (j=0,n=x; j<4; j++,n++) 
                    if (MapCheck(n,m)==0 && A.d[i][j]) /* 将A复制到map */
                        map[m][n] = A.d[i][j];
                A = C;                          /* 将C复制到A .........*/
                CreateBlock(&C);                /* 创建新的C砖块 ......*/
                if (y >= 20) GameMode = -1;     /* 判断死亡 ...........*/
                else y = 20, x = 3;
                GameDriver();                   /* 消除完成的行 .......*/
            }   else y--;                       /* 否则：下降 .........*/
        }
        GameView();                             /* 显示: 更新屏幕 .....*/
    }
    while (kbhit()) getch();                    /* 按任意键结束 .......*/
    while (!kbhit());
    nosound();                                  /* 关闭扬声器 .........*/
}

void GameDriver(void)      /* 处理消除行 ..............................*/
{
    int inc[5]={10,100,300,600,1000}, count = 0, x, y, k, i, j;

    for (y = 0; y < 25; y++) for (; ; count++) { /* 扫描map测试消行 ...*/
        for (x = 0, k = 0; x < 10; x++) k += (map[y][x])? 1 : 0;
        if (k < 10) break;              /* 计算一行是否可以消去 .......*/
        for (j = y; j < 25; j++) memcpy(map[j], map[j+1], 10 * sizeof(int));
    }
    if ((GameScore / 10000) != ((GameScore + inc[count]) / 10000))
    GameSpeed = (GameSpeed + 1) % 10;       /* 计算速度升级 ...........*/
    GameScore += inc[count];                /* 计算新的分数 ...........*/
    sound((count == 0)? 75 : 900);
}

void GameView(void)        /* 绘制：将map里面的砖块绘制到屏幕 .........*/
{
    int i, j, m, n;

    for (i=0; i<10; i++) for (j=0; j<20; j++) /* 更新TextBck二级缓存 ..*/
        TextBck[j][i] = map[j][i];
    for (i=0, n=x; i<4; i++, n++) for (j = 0, m=y; j < 4; j++, m--)
        if (m>=0&&m<20 && n>=0&&n<10 && A.d[j][i]) TextBck[m][n] = A.d[j][i];

    for (i = 0; i < 10; i++) for (j = 0; j < 20; j++) { /* 显示地图 ...*/
        m = TextBck[19 - j][i], n = i * 2;
        SCREEN(n+1,j+1) = (m)? '[':'.', SCOLOR(n+1,j+1) = (m)? cmap[m] : 8;
        SCREEN(n+2,j+1) = (m)? ']':'.', SCOLOR(n+2,j+1) = (m)? cmap[m] : 8;
    }
    for (j = 0; j < 4; j++) for (i = 0; i < 4; i++) {   /* 显示下个砖块*/
        m = C.d[j][i], n = 160 * (j + 8) + 4 * i + 58;
        TextBuf[n+0] = (m)? '[':'.', TextBuf[n+1] = (m)? cmap[m] : 8;
        TextBuf[n+2] = (m)? ']':'.', TextBuf[n+3] = (m)? cmap[m] : 8;
    }
    if (TimePass & 3) return;
    textcolor(0xa-8);
    gotoxy(30,1); printf("POSITION: [%2d,%2d]", x, y);  /* 显示分数等 .*/
    gotoxy(30,2); printf("SPEED: %d", GameSpeed);
    gotoxy(30,6); printf("SCORE: "); cprintf("%ld", GameScore);
    gotoxy(30,5); printf("TIME:  ");                    /* 显示时间 ...*/
    m = (int)(TimePass / 18.2) / 60, n = (int)(TimePass / 18.2) % 60;
    cprintf("%d%d:%d%d", (m/10), (m%10), (n/10), (n%10));
    gotoxy(1, 23);
}