MINI-FOOLTRS 游戏代码

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