| 以前写的俄罗斯方块程序，占用资源极少，可以很方便的移植 |
 |
|
 |
|
|
//特 点: //
// 1、功能完整，直接使用 //
// 2、模块独立性强，移植方便，外部仅init和move函数，修改显示和输入即可 //
// 3、对减少内存占用、尽量减少屏幕操作进行适当优化 //
// 4、新方块生成高度随机，绝对无规律 //
// 5、仿真环境为Keil7.5+Proteus6.5,可以联机也可脱机运行 //
//--------------------------------------------------------------------------//
// 源程序大公开 //
// (c) Copyright 2001－2005 xuwenjun //
// All Rights Reserved //
// V1.00 //
//--------------------------------------------------------------------------//
//标 题: 俄罗斯方块程序 ? //
//文件名: xwj_fk.c //
//版 本: V1.00 //
//修改人: 徐文军 E-mail:xuwenjun@21cn.com //
//日 期: 05-05-13 //
//描 述: 俄罗斯方块程序 ? //
//声 明: //
// 以下代码仅免费提供给学习用途，但引用或修改后必须在文件中声明出处. //
// 如用于商业用途请与作者联系. E-mail:xuwenjun@21cn.com //
// 有问题请mailto xuwenjun@21cn.com 欢迎与我交流! //
//--------------------------------------------------------------------------//
//老版本: 无 老版本文件名: //
//创建人: 徐文军 E-mail:xuwenjun@21cn.com //
//日 期: 05-05-13 //
//描 述: //
// 1、功能完整，直接使用 //
// 2、模块独立性强，移植方便，外部仅init和move函数，修改显示和输入即可 //
// 3、对减少内存占用、尽量减少屏幕操作进行适当优化 //
// 4、新方块生成高度随机，绝对无规律 //
// 5、仿真环境为Keil7.5+Proteus6.5,可以联机也可脱机运行 //
// code SIZE = 1845 ---- //
// constANT SIZE = 326 ---- //
// data SIZE = 16 19 //
// idata SIZE = 50 ---- //
// bit SIZE = 1 1 //
//--------------------------------------------------------------------------//
＃i nclude <stdlib.h>
＃i nclude "xwj_lcd16.h" // 字符液晶控制函数声明 //
＃i nclude "xwj_lcd6963.h" // T6963C 公用函数
＃i nclude "xwj_hlkey.h" // P1口行列式键盘 //
＃i nclude "xwj_serial.h" //串口函数集
＃i nclude "change.h" //数制转换
＃i nclude "xwj_fk.h" //俄罗斯方块程序
#define ulong unsigned long
#define uint unsigned int
#define uchar unsigned char
extern void delay(unsigned int x);
//----------------俄罗斯方块内部函数----------------------------------------//
void fk_dot(uchar x,uchar y); //显示1个方块点
void fk_cldot(uchar x,uchar y); //清除1个方块点
void fk_show(void); //显示分数
void fk_reffk(void); //刷新方块
void fk_refnew(void); //刷新预览方块
void fk_refline(yy); //刷新1行背景
bit fk_chk(void); //冲突检查
void fk_new(void); //产生新方块
void fk_add(void); //方块合并
/*
//-----------------俄罗斯方块公用函数--------------------------------------//
void fk_init(void); //方块初始化
void fk_move(unsigned char mode); //移动方块
*/
//-------------------------------------------------------------------------//
#define FULLMAP 0x0fff /*掩码*/
#define LINEGUAN 20 /*20行过一关*/
#define NEWX 15 /*预览方块X位置*/
#define NEWY 12 /*预览方块Y位置*/
#define LINEMAX 21 /*屏幕最高21行*/
uint idata fk_map[LINEMAX+4]; //背景映象
uchar fk_x,fk_y,fk_r; //方块左右、高度、方向
uchar fk_type; //方块形状
uchar fk_oldx,fk_oldy,fk_oldr; //方块上次左右、高度、方向
uchar fk_newtype,fk_newr; //新方块形状、方向
uint score; //总分
uint line; //总行数
uchar speed; //速度
uchar moven; //速度相关计数器
uchar automapn; //随机方块的行数
bit fk_run; //俄罗斯方坑蜗吩诵?
uchar code fk_mod[][4][4]={ //方块模型号,4个方向,4行
0,0,7,2,0,1,3,1,0,0,2,7,0,2,3,2, //_|_
0,0,6,3,0,1,3,2,0,0,6,3,0,1,3,2, //_|~
0,0,3,6,0,2,3,1,0,0,3,6,0,2,3,1, //~|_
0,0,7,4,0,3,1,1,0,0,1,7,0,2,2,3, //|__
0,0,7,1,0,1,1,3,0,0,4,7,0,3,2,2, //__|
0,0,0,15,1,1,1,1,0,0,0,15,1,1,1,1, //____
0,0,3,3,0,0,3,3,0,0,3,3,0,0,3,3, //田字
};
uchar code strmap[4][9]={
"不错！ ","真棒！ ","好极啦！","太棒了！",
};
//--------------------------------------------------------------------------//
void fk_dot(uchar x,uchar y) //显示1个方块点
{
printat(x*3+1, 241-(y-4)*12,"■");
}
//--------------------------------------------------------------------------//
void fk_cldot(uchar x,uchar y) //清除1个方块点
{
// printat(x*3+1, 241-(y-4)*12,"□");
printat(x*3+1, 241-(y-4)*12,"┘");
}
//--------------------------------------------------------------------------//
void fk_show(void) //显示分数
{
printat(50, 12,chnint(score,1));
printat(60, 12,"00");
printat(40, 12,"得分:");
printat(54,36,chnint(line,1));
printat(40, 36,"行数:");
printat(54,60,chnchar(speed,1));
printat(40,60,"速度:");
printat(54,84,chnchar(automapn,1));
printat(40,84,"关数:");
}
//--------------------------------------------------------------------------//
void fk_reffk(void) //刷新方块
{
uchar i,j;
uchar temp;
//----------------------------------------------//清除原来的方块
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_type][fk_oldr][i]);
for (j=fk_oldx;j<fk_oldx+4;j++)
{
if(temp&0x01)
{
fk_cldot(j,fk_oldy+i);
}
temp>>=1;
}
}
//----------------------------------------------//显示新的方块
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_type][fk_r][i]);
for (j=fk_x;j<fk_x+4;j++)
{
if(temp&0x01)
{
fk_dot(j,fk_y+i);
}
temp>>=1;
}
}
fk_oldx=fk_x;fk_oldy=fk_y;fk_oldr=fk_r; //保存新方块位置
}
//--------------------------------------------------------------------------//
void fk_refnew(void) //刷新预览方块
{
uchar i,j;
uchar temp;
//----------------------------------------------//预览方块
for (i=0;i<4;i++)
{
temp=(fk_mod[fk_newtype][fk_newr][i]);
for (j=NEWX;j<NEWX+4;j++)
{
if(temp&0x01)
{
fk_dot(j,NEWY+i);
}
else
{
fk_cldot(j,NEWY+i);
}
temp>>=1;
}
}
}
//--------------------------------------------------------------------------//
void fk_refline(yy) //刷新1行背景
{
uchar i;
uint temp;
if (yy>=4)
{
temp=fk_map[yy];
for (i=0;i<12;i++)
{
if ((temp&0x01) !=0)
fk_dot(i,yy);
else
fk_cldot(i,yy);
temp >>= 1;
}
}
}
//--------------------------------------------------------------------------//
bit fk_chk(void) //冲突检查
{
uchar i;
bit neq=0;
for (i=0;i<4;i++)
{
if ( (((fk_mod[fk_type][fk_r][i])<<fk_x)+(fk_map[fk_y+i])) != (((fk_mod[fk_type][fk_r][i])<<fk_x)|(fk_map[fk_y+i])) )
neq=1;
}
return(neq);
}
//--------------------------------------------------------------------------//
void fk_new(void) //产生新方块
{
srand(rand()+fk_x+fk_y+fk_r);
fk_oldx=fk_x=5;
fk_oldy=fk_y=LINEMAX;
fk_type = fk_newtype;
fk_oldr=fk_newr;
fk_newtype = rand()%7;
fk_newr=rand()%4;
fk_refnew(); //刷新预览方块
if (fk_run)
fk_reffk(); //刷新显示
}
//--------------------------------------------------------------------------//
void fk_add(void) //方块合并
{
uchar i,j;
uchar full=0x00;
uchar fulltemp;
uchar fullline=0x00;
for (i=0;i<4;i++) //方块合并
{
fk_map[fk_y+i] |= (fk_mod[fk_type][fk_r][i])<<fk_x;
full <<= 1;
if ((fk_y+i >= 4) && (fk_map[fk_y+i] == 0xffff)) //满行
{
full |= 0x01;
}
}
if (full != 0) //有满行
{
for (j=0;j<3;j++) //消行闪烁3次
{
delay(300);
fulltemp=full;
for (i=0;i<4;i++) //4行
{
if ((fulltemp&0x08) != 0)
{
fk_map[fk_y+i] ^= FULLMAP;
}
fk_refline(fk_y+i);
fulltemp <<= 1;
}
}
fulltemp=full;
for (i=fk_y;i<LINEMAX+4+fullline;i++) //上面行下移
{
if ((i < LINEMAX+4)&&(fk_map[i-fullline]!=fk_map[i]))
{
fk_map[i-fullline]=fk_map[i];
fk_refline(i-fullline);
}
if ((i >= LINEMAX+4)&&(fk_map[i-fullline]!=~FULLMAP))
{
fk_map[i-fullline]=~FULLMAP; //背景映象
fk_refline(i-fullline);
}
if ((fulltemp&0x08) != 0)
{
fullline++;
}
fulltemp <<= 1;
}
if (((line+fullline)/LINEGUAN) != (line/LINEGUAN))//每20行速度+1
speed ++;
line += fullline; //更新分数、行数
score += (1<<fullline)-1;
printat(46,180,strmap[fullline-1]); //夸奖
fk_show(); //显示分数
fk_new(); //产生新方块
}
else
{
if (fk_y > LINEMAX-10) //在最高位置碰撞且不能消行则游戏结束
printat(46,180,"加油啊！"); //加油啊
if (fk_y > LINEMAX-6) //在最高位置碰撞且不能消行则游戏结束
printat(46,180,"糟糕了！"); //糟糕了
if (fk_y==LINEMAX) //在最高位置碰撞且不能消行则游戏结束
fk_run=0; //方块初始化
else
fk_new(); //产生新方块
}
}
//--------------------------------------------------------------------------//
void fk_init(void) //方块初始化
{
uchar i;
fk_run = 0;
moven=0;
Lcd6963Cls();
Lcd6963Rec(0,0,152,255);
Lcd6963ChHz(0); //切换到16X16点阵
printat(2, 16,"欢迎光临文君阁");
printat(2, 48,"请按键选择：");
printat(2, 80,"-----------------");
printat(2, 96,"7左旋 8右旋 9右旋");
printat(2, 112,"4左移 5右旋 6右移");
printat(2, 128,"4速度 5开始 6关数");
printat(2, 144,"1左移 2下移 3右移");
printat(2, 160,"-----------------");
Lcd6963ChHz(1); //切换到12X12点阵
printat(46,180,"欢迎使用");
fk_show(); //显示分数
while (~fk_run)
{
fk_move(); //等待设置速度关数开始
delay(10);
}
for (i=0;i<4;i++)
{
fk_map[i]=0xffff; //背景映象
} delay(3000);
for (i=4;i<LINEMAX+4;i++)
{
if (i<(automapn+4))
fk_map[i]=rand()-1|~FULLMAP; //背景映象
else
fk_map[i]=~FULLMAP; //背景映象
fk_refline(i); //刷新1行背景
}
fk_show(); //显示分数
// fk_new(); //产生新方块
}
//--------------------------------------------------------------------------//
void fk_move(void) //移动方块
{
unsigned char temp;
if(KeyTest()) //检查有无按键
{
putinbuf(KeyGetcode()); //按键码输入接收缓冲区
}
if (checkin())
{
temp=getbyte();
if (temp!=0) Lcd16Wrcharhh(12,0,temp);
if (temp!=0) Lcd16Wrchar(15,0,temp);
putchar(temp);
}
else
temp=0xff; //无键设为无效键用于下移方块
temp -= '0';
switch(temp)
{
default:
if (--moven) //游戏难度
break;
else
{
moven=(252>>speed)+2;
}
case 2: //下移
if (fk_run) //游戏中下移
{
if(fk_y>0)
{
fk_y--;
if(fk_chk())
{
fk_y++; //有冲突取消操作,执行碰撞组合
fk_add(); //方块合并 //产生新方块
}
}
else //方块到底也执行碰撞组合
{
fk_add(); //方块合并
}
}
else //初始化时
{
fk_new(); //产生新方块
}
break;
case 0: //下移到底
while((fk_y>0)&&~(fk_chk())) //一直下移直到冲突
{
fk_y--;
}
moven=1;
fk_y++; //恢复到未冲突位置
break;
case 3: //右移
case 6: //右移
if (fk_run) //游戏中右移
{
if(fk_x<12)
{
fk_x++;
if(fk_chk())
fk_x--;//有冲突取消操作
}
}
else //初始化时
{
automapn++;
automapn &= 0x0f;
fk_show(); //显示分数
}
break;
case 1: //左移
case 4: //移
if (fk_run) //游戏中左移
{
if(fk_x>0)
{
fk_x--;
if(fk_chk())
fk_x++;//有冲突取消操作
}
}
else //初始化时
{
speed++;
speed &= 0x07;
fk_show(); //显示分数
}
break;
case 9: //右转
case 8: //右转
case 5: //右转
if (fk_run) //游戏中右转
{
fk_r++;
if(fk_chk())
fk_r--; //有冲突取消操作
fk_r &= 0x03;
}
else //初始化时
{
fk_run = 1;
}
break;
case 7: //左转
if (fk_run) //游戏中右转
{
fk_r--;
if(fk_chk())
fk_r++; //有冲突取消操作
fk_r &= 0x03;
}
else //初始化时
{
fk_run = 1;
}
break;
}
if((fk_run)&& ((fk_x!=fk_oldx)||(fk_y!=fk_oldy)||(fk_r!=fk_oldr)) )
{
fk_reffk(); //刷新显示
}
rand();
}
/*
// ---------------------------------------------- // 32字节
void delay(uint x)
{
uint i,j;
for (i=0; i<x;i++) {
for (j=0;j<102; j++) ;
}
}
//--------------------------------------------------------------------------//
void main(void) // 测试用
{
serial_init();
Lcd6963Init(); //Lcd6963复位
Lcd16Reset(); //Lcd16复位
Serial_main(); // 串口测试用主函数
Lcd16main(); //Lcd16临时测试主程序
Lcd6963main(); //Lcd6963测试用
fk_init(); //方块初始化
while(1)
{
if (~fk_run)
fk_init(); //方块初始化
fk_move(); //移动方块
delay(10);
}
}
*/ //本程序由xwj设计的UltraEdit脚本加亮显示,如需要脚本访问我的Blog //或发送邮件至：xwjfile@21cn.com
|  |
 |
 |
 |
 xwj 发表于 2006-2-26 23:31:00 |
| |
|
| 回复:以前写的俄罗斯方块程序，占用资源极少，可以很方 |
| isbit(游客)发表评论于2006-7-12 15:00:00 |
| |
|
| 回复:以前写的俄罗斯方块程序，占用资源极少，可以很方 |
| xwj(游客)发表评论于2006-5-8 12:25:00 |
| |
|
| 回复:以前写的俄罗斯方块程序，占用资源极少，可以很方 |
|
|
|
|
|
 以下引用彬彬(游客)在2006-4-29 16:28:00的评论:
请你解释以下你的这段程序：如果要得到一个“口”行的方块应该怎么写啊？谢谢！
uchar code fk_mod[][4][4]={ //方块模型号,4个方向,4行
0,0,7,2,0,1,3,1,0,0,2,7,0,2,3,2, //_|_
0,0,6,3,0,1,3,2,0,0,6,3,0,1,3,2, //_|~
0,0,3,6,0,2,3,1,0,0,3,6,0,2,3,1, //~|_
0,0,7,4,0,3,1,1,0,0,1,7,0,2,2,3, //|__
0,0,7,1,0,1,1,3,0,0,4,7,0,3,2,2, //__|
0,0,0,15,1,1,1,1,0,0,0,15,1,1,1,1, //____
0,0,3,3,0,0,3,3,0,0,3,3,0,0,3,3, //田字
};
| |
|
|
|
| xwj(游客)发表评论于2006-5-8 12:13:00 |
| |
|
| 回复:以前写的俄罗斯方块程序，占用资源极少，可以很方 |
|
|
|
|
|
请你解释以下你的这段程序：如果要得到一个“口”行的方块应该怎么写啊？谢谢！
uchar code fk_mod[][4][4]={ //方块模型号,4个方向,4行
0,0,7,2,0,1,3,1,0,0,2,7,0,2,3,2, //_|_
0,0,6,3,0,1,3,2,0,0,6,3,0,1,3,2, //_|~
0,0,3,6,0,2,3,1,0,0,3,6,0,2,3,1, //~|_
0,0,7,4,0,3,1,1,0,0,1,7,0,2,2,3, //|__
0,0,7,1,0,1,1,3,0,0,4,7,0,3,2,2, //__|
0,0,0,15,1,1,1,1,0,0,0,15,1,1,1,1, //____
0,0,3,3,0,0,3,3,0,0,3,3,0,0,3,3, //田字
};
| |
|
|
|
| 彬彬(游客)发表评论于2006-4-29 16:28:00 |
| |
|
| 老大！！ |
|
|
|
|
|
老大，能不能在你的blog里增加下载呢？能不能介绍点用液晶画图的程序呢？谢谢！
| |
|
|
|
| 代成志(游客)发表评论于2006-3-2 20:54:00 |
| |
|
|
