俄罗斯方块程序.doc

/* 1.方块图标坐标举例: 7高位4 3低位0 对于上幅方块图像,所示处为(0,0)点,2.RAM坐标举例 31X40(x,y): | |(0, 1) (0,1) . (0, 40) | |(1, 1) | | . | | . | | . | |(30,1) . (30,40) | | |_| 第0列第41列第31行为游戏的边界线/line:31 colum:5*8unsigned char idata tidu315=0x01,0x00,0x00,0x00,0x00,0x02,0x00,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x00,0x08,0x00,0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0x02,0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x00,;3.(x,y)x:line.y:colum(0,0) |(0,1)-(0,40)| (0,41)(1,0) |(1,1)-(1,40)| (1,41)(2,0) |(2,1)-(2,40)| (2,41)- |-|-(30,0)|(30,1)-(30,40)| (30,41)_-(31,0)|(31,1)-(31,40)|(31,41)外面为游戏边界区：第0列，第41列，第31行里面为游戏区：第0列，第41列，第31行之间的区域4 /zook0k/*/* * 功能: 方块的图形代码,每四个字节表示一个图形* 每行表示一个内容,只表示了第一个状态的样子* 其它按顺时针转图形可得 */unsigned char code TtrsBlck= /* Middle 0 0*/0x04,0x0E,0x00,0x00,0x08,0x0C,0x08,0x00,0x0E,0x04,0x00,0x00,0x04,0x0C,0x04,0x00,/* Left 16 1*/0x08,0x0E,0x00,0x00,0x0C,0x08,0x08,0x00,0x0E,0x02,0x00,0x00,0x04,0x04,0x0C,0x00,/* Right 32 2*/0x02,0x0E,0x00,0x00,0x08,0x08,0x0C,0x00,0x0E,0x08,0x00,0x00,0x0C,0x04,0x04,0x00,/* Z 48 3*/0x0C,0x06,0x00,0x00,0x04,0x0C,0x08,0x00,/* Z_Reversal 56 4*/0x06,0x0C,0x00,0x00,0x08,0x0C,0x04,0x00,/* Line 64 5*/0x0F,0x00,0x00,0x00,0x08,0x08,0x08,0x08,/* Stone 72 6*/0x0C,0x0C,0x00,0x00;/* * 功能: 图形指针数组* 指示了各种方块在图形代码里的最初指针*/char code TtrsBlckPoint = 0, /Middle 16, /Left 32, /Right 48, /Z 56, /Z-twist 64, /Line 72 /Stone ;/* * 名称: INT8U code TtrsBlckStsNum* 功能: 方块状态个数* 表示每种方块的状态的个数 */char code TtrsBlckStsNum = 4, /Middle 4, /Left 4, /Right 2, /Z 2, /Z-twist 2, /Line 1 /Stone ; typedef struct unsigned char BlckIndex :4; /对象序号06 unsigned char Status :4; /每个对象当前形状03 unsigned char code * pPIC; /对应于图形区的指针 unsigned char x,y; /位置TETRIS;TETRIS this;char code fig1017= 0x00,0x0F,0x10,0x20,0x20,0x10,0x0F,0x00,0x00,0xE0,0x10,0x08,0x08,0x10,0xE0,0x00,/0 0x00,0x20,0x20,0x3F,0x20,0x20,0x00,0x00,0x00,0x10,0x10,0xF8,0x00,0x00,0x00,0x00,0x00,0x30,0x28,0x24,0x22,0x21,0x30,0x00,0x00,0x70,0x08,0x08,0x08,0x88,0x70,0x00,0x00,0x18,0x20,0x20,0x20,0x11,0x0E,0x00,0x00,0x30,0x08,0x88,0x88,0x48,0x30,0x00,0x00,0x07,0x04,0x24,0x24,0x3F,0x24,0x00,0x00,0x00,0xC0,0x20,0x10,0xF8,0x00,0x00,0x00,0x19,0x21,0x20,0x20,0x11,0x0E,0x00,0x00,0xF8,0x08,0x88,0x88,0x08,0x08,0x00,0x00,0x0F,0x11,0x20,0x20,0x11,0x0E,0x00,0x00,0xE0,0x10,0x88,0x88,0x18,0x00,0x00,0x00,0x00,0x00,0x3F,0x00,0x00,0x00,0x00,0x00,0x38,0x08,0x08,0xC8,0x38,0x08,0x00,0x00,0x1C,0x22,0x21,0x21,0x22,0x1C,0x00,0x00,0x70,0x88,0x08,0x08,0x88,0x70,0x00,0x00,0x00,0x31,0x22,0x22,0x11,0x0F,0x00,0x00,0xE0,0x10,0x08,0x08,0x10,0xE0,0x00;/9void Box_Generate(void);void Write_Box_ditu(void); /* 初始化while(1)生成一个方块，如失败结束while(1)检测按键并移动方块如果方块不能移动则判断有无重复行并消除程序跳出循环*/#include #include/液晶引脚初始化sbitRs_Lcd=P35;sbitRw_Lcd=P36;sbitEn_Lcd=P37;sbitCs1_Lcd=P10;sbitCs2_Lcd=P11;sfr DataBuss=0xa0;/P0作为Lcd的数据线unsigned char dat=0;/按键引脚及其状态机初始值#define key_state_00#define key_state_11#define key_state_22unsigned char key_state4=0,0,0,0;sbit key_up=P14;sbit key_down=P33;sbit key_left=P13;sbit key_right=P32;unsigned char i=0,j=0; unsigned char down_time=0;unsigned char crack_state=0;unsigned char score=1;/液晶函数初始化char RdStateLcd();char WrCommandIc(unsigned char Command);char WrCommandLcd(unsigned char Command);char WrDataLcd(unsigned char dat);char SetStarLine(char line);void InitDis(void);char SysInit(void);char SetPageAddr(char page);char SetYAddr(char y);void ClrScreen(void); /一个像素点的显示清除void Dispoint(unsigned char page,unsigned char y);void Clrpoint(unsigned char page,unsigned char y);/延时和读取按键void delay_us(unsigned int a);void delay_ms(unsigned int a);unsigned char read_key(unsigned char a,unsigned char key);/四个个像素点的显示清除void onepoint(unsigned char x,unsigned char y);void clr_onepoint(unsigned char x,unsigned char y);/显示地图void show_ditu(void);/show game linevoid game_line(void);/show scorevoid show_score(void);/mode:line(01 23 45 67):colum(08-120128):state void DisChar(unsigned char *p,unsigned char page,unsigned char y,char state);/消除地图的全1行void check_ditu(void);/写进地图0或1void write_ditu(unsigned char x,unsigned char y,unsigned char z);/读出地图unsigned char read_ditu(unsigned char x,unsigned char y);/产生一个方块void Box_Generate(void);/写一个方块to地图void Write_Box_ditu(void);/from titu erase a fangkuaivoid Clr_Box_ditu(void);/if there hava boxunsigned char Check_Box_ditu();/if there is the game lineunsigned char Check_Box_gameline();/check if the box can ratateunsigned char Check_Box_ditu_ratation(void);/movevoid mov_left(void);void mov_right(void);void mov_ratation(void);void mov_down(void);/line:31 colum:5*8unsigned char idata tidu315=0x00,0x00,0x00,0x00,0x00,/00x00,0x00,0x00,0x00,0x00,/10x00,0x00,0x00,0x00,0x00,/20x00,0x00,0x00,0x00,0x00,/30x00,0x00,0x00,0x00,0x00,/40x00,0x00,0x00,0x00,0x00,/50x00,0x00,0x00,0x00,0x00,/60x00,0x00,0x00,0x00,0x00,/70x00,0x00,0x00,0x00,0x00,/80x00,0x00,0x00,0x00,0x00,/90x00,0x00,0x00,0x00,0x00,/100x00,0x00,0x00,0x00,0x00,/110x00,0x00,0x00,0x00,0x00,/120x00,0x00,0x00,0x00,0x00,/130x00,0x00,0x00,0x00,0x00,/140x00,0x00,0x00,0x00,0x00,/150x00,0x00,0x00,0x00,0x00,/160x00,0x00,0x00,0x00,0x00,/170x00,0x00,0x00,0x00,0x00,/180x00,0x00,0x00,0x00,0x00,/190x00,0x00,0x00,0x00,0x00,/200x00,0x00,0x00,0x00,0x00,/210x00,0x00,0x00,0x00,0x00,/220x00,0x00,0x00,0x00,0x00,/230x00,0x00,0x00,0x00,0x00,/240x00,0x00,0x00,0x00,0x00,/250x00,0x00,0x00,0x00,0x00,/260xff,0xff,0xff,0xff,0xef,/300xff,0xff,0xff,0xff,0xef,/300xff,0xff,0xff,0xff,0xef,/300x00,0xff,0xff,0xff,0xef,/30;void main()char SonState; P0=0xff;P1=0xff;P2=0xff;P3=0xff;delay_ms(20);do SonState=SysInit( ); while(SonState!=0);ClrScreen(); game_line();show_ditu(); /mode:line(01 23 45 67):colum(08-120128):state DisChar(fig0,6,104,0);DisChar(fig0,6,112,0);DisChar(fig0,6,120,0);while(1)Box_Generate();if(Check_Box_ditu()=0) Write_Box_ditu();/no crackelse break; /crack game overwhile(1)if(read_key(0,key_left)mov_left();if(read_key(1,key_right)mov_right();if(read_key(2,key_up)mov_ratation();if(read_key(3,key_down)mov_down();if(down_time250)mov_down();delay_us(200);down_time+;if(crack_state=1)crack_state=0;break;/while(1)/while(1)/basic function/x:line y:columvoid onepoint(unsigned char x,unsigned char y)/show one point(2*2) unsigned char i=0,j=0;x=2*x;y=2*y;for(i=x;i(x+2);i+)for(j=y;j(y+2);j+)Dispoint(i,j);/x:line y:columvoid clr_onepoint(unsigned char x,unsigned char y)/clear one point(2*2) unsigned char i=0,j=0;x=2*x;y=2*y;for(i=x;i(x+2);i+)for(j=y;j(y+2);j+)Clrpoint(i,j);void show_ditu()/show ditu:line(0-30)colum(1-40) ,line31 colun0&41 game linefor(j=0;j31;j+)for(i=0;i0;j-)/form down to upif(tiduj0=0xff)&(tiduj1=0xff)&(tiduj2=0xff)&(tiduj3=0xff)&(tiduj4=0xff)/full aaa=1; score+;for(i=j;i0;i-)tidui0=tidui-10;tidui1=tidui-11;tidui2=tidui-12;tidui3=tidui-13;tidui4=tidui-14;/show_one_Line(i);tidu00=0;tidu01=0;tidu02=0;tidu03=0;/add ampty one line/if there are many full lines togetherif(tiduj0=0xff)&(tiduj1=0xff)&(tiduj2=0xff)&(tiduj3=0xff)&(tiduj4=0xff)j+;/for(j=30;j0;j-)/updata ditu beacuse there have full lineif(aaa=1)ClrScreen(); game_line();show_ditu();show_score();/the better is show the change lines ,the no change not clear /void check_ditu() /显示分数void show_score(void)unsigned char ge_wei=0,shi_wei=0,bai_wei=0;if(score10) ge_wei=score;else if(score100) shi_wei=score/10;ge_wei=score%10;else bai_wei=score/100;shi_wei=score%100/10;ge_wei=score%10;DisChar(figbai_wei,6,104,0);DisChar(figshi_wei,6,112,0);DisChar(figge_wei,6,120,0);/写进地图x:line y:colum z=1写1 z=0写0 updata is fastvoid write_ditu(unsigned char x,unsigned char y,unsigned char z)char i=0,j=0;/ditu0 form 1 not from 0/ditu0=y-1y-;i=y/8;j=y%8;if(z=1) tiduxi|=1j; onepoint(x,y+1);else if(z=0) tiduxi&=(1j); clr_onepoint(x,y+1);/读出地图x:line y:colum unsigned char read_ditu(unsigned char x,unsigned char y)char i=0,j=0,k=0;/ditu0 form 1 not from 0/ditu0=y-1y-;i=y/8;j=y%8;k|=1j;if(tiduxi&k) return 1;/have point else return 0;/no point /generate a boxvoid Box_Generate() static unsigned char box_no=5;this.x=0;this.y=20; this.BlckIndex = (box_no+)%7; this.Status = 0; this.pPIC = TtrsBlck + TtrsBlckPointthis.BlckIndex + (this.Status) * 4;/if there is the game lineunsigned char Check_Box_gameline()for(i=0;i30)|(this.y+1)40)|(this.y+1)30)|(this.y+2)40)|(this.y+2)30)|(this.y+3)40)|(this.y+3)30)|(this.y+4)40)|(this.y+4)30)|(this.y+1)40) return 1;/have pointif(this.pPICi&0x04)if(this.x+i30)|(this.y+2)40) return 1;/have pointif(this.pPICi&0x02)if(this.x+i30)|(this.y+3)40) return 1;/have pointif(this.pPICi&0x01)if(this.x+i30)|(this.y+4)40) return 1;/have pointreturn 0;/no point/if there hava boxunsigned char Check_Box_ditu()for(i=0;i4;i+)if(this.pPICi&0x08)if(read_ditu(this.x+i,this.y+1) return 1;/have pointif(this.pPICi&0x04)if(read_ditu(this.x+i,this.y+2)return 1;/have pointif(this.pPICi&0x02)if(read_ditu(this.x+i,this.y+3)return 1;/have pointif(this.pPICi&0x01)if(read_ditu(this.x+i,this.y+4)return 1;/have pointreturn 0;/no point/if it can ratation/unsigned char Check_Box_ditu_ratation()for(i=0;i27)return 1;/bottom lineif(this.y37)return 1;/right linereturn 0;/no point/write a boxvoid Write_Box_ditu()for(i=0;i4;i+)if(this.pPICi&0x08) onepoint(this.x+i,this.y+1); write_ditu(this.x+i,this.y+1,1);if(this.pPICi&0x04) onepoint(this.x+i,this.y+2); write_ditu(this.x+i,this.y+2,1);if(this.pPICi&0x02) onepoint(this.x+i,this.y+3); write_ditu(this.x+i,this.y+3,1);if(this.pPICi&0x01) onepoint(this.x+i,this.y+4); write_ditu(this.x+i,this.y+4,1);/clear a boxvoid Clr_Box_ditu()for(i=0;i4;i+)if(this.pPICi&0x08) clr_onepoint(this.x+i,this.y+1); write_ditu(this.x+i,this.y+1,0);if(this.pPICi&0x04) clr_onepoint(this.x+i,this.y+2); write_ditu(this.x+i,this.y+2,0);if(this.pPICi&0x02) clr_onepoint(this.x+i,this.y+3); write_ditu(this.x+i,this.y+3,0);if(this.pPICi&0x01) clr_onepoint(this.x+i,this.y+4); write_ditu(this.x+i,this.y+4,0);void game_line()for(i=0;i32;i+)onepoint(i,0); onepoint(i,41);for(i=0;i= TtrsBlckStsNumthis.BlckIndex) this.Status = 0; this.pPIC = TtrsBlck + TtrsBlckPointthis.BlckIndex + (this.Status) * 4;Write_Box_ditu();/crack_state=0;can move down/crack_state=1;can not move dow