*=====================================================================

// FOOLTRS.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);

}