*=====================================================================
// 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);
}
