资源描述
请大家指教一下,由于自己算法的问题向左位移有些问题 在 TC2 下通过#include#include#include#include#include#include#include#define ESC 0x011b#define UP 0x4800#define DOWN 0x5000#define LEFT 0x4b00#define RIGHT 0x4d00#define SPACE 0x3920#define Y 0x1579#define N 0x316e#define clearkbd(); while(bioskey(1) bioskey(0); /*清空键盘缓冲队列*/void update();void messagebox();void process();void initremove();void initinfo();void initbox();void initposition();void next_shape();typedef struct shape /*形状单一状态的记录*/int co8;shape;typedef struct RE_AB /*相对,绝对坐标记录*/ int Rx,Ry;int x1,x2,y1,y2;RE_AB;RE_AB RA;shape p19 = RED,0,1,1,0,1,1,2,1 , /*数组中保证y最大的在最后,以便initposition 使用*/ RED,0,1,1,0,1,1,1,2 , RED,0,0,1,0,2,0,1,1 , RED,0,0,0,1,1,1,0,2 , GREEN,0,0,1,0,2,0,3,0 , GREEN,0,0,0,1,0,2,0,3 , CYAN,0,0,0,1,1,0,1,1 , BROWN,0,0,1,0,1,1,2,1 , BROWN,1,0,0,1,1,1,0,2 , BLUE,1,0,2,0,1,1,0,1 , BLUE,0,0,0,1,1,1,1,2 , MAGENTA,0,0,0,1,0,2,1,2 , MAGENTA,2,0,0,1,1,1,2,1, MAGENTA,0,0,1,0,1,1,1,2 , MAGENTA,0,0,0,1,1,0,2,0 , YELLOW,0,2,1,0,1,1,1,2 , YELLOW,0,0,1,0,2,0,2,1 , YELLOW,1,0,0,0,0,1,0,2, YELLOW,0,0,0,1,1,1,2,1 ,;int nback,nleft,nright,r_f1222,rs1,rs2,xcors,xcorb,ycors,ycorb;/*检查方快有没有左,右,下接触,游戏区内所有格子有无颜色记录数组,rs1形状记录,rs2为 提示框用,记录小格子在游戏区中的位置,按键存储*/void interrupt (*oldint)(); /*系统定时中断*/int count_down=0,count_other=0; /*中断记时*/void interrupt newint() /*设置新的中断程序*/ count_down+;count_other+;oldint();void intenable() /*设置中断向量表,启动新的中断程序*/ oldint=getvect(0x1c);disable();setvect(0x1c,newint);enable();void intrestore() /*恢复中断向量*/ disable();setvect(0x1c,oldint);enable();void HZ12(int xO,int y0,int w,int color,char *s) /*根据字模,在 dos 下显示汉字*/*横坐标,纵坐标,字间隔,汉字颜色,汉字字符串*/ FILE *fp;register char buffer24;register char str2;un sig ned long fpos;/*fpos 为最终偏移动量*/fp=fopen(hzk12,r);/*打开 12*12 汉字苦*/while( *s)/*直到字符串结束为止*/if(* s0)/*汉字输出*/ str0=(*s)-0xa0;str1=*(s+1)-0xa0;fpos=(str0-1)*94+(str1-1)*24L;/*计算汉字在 hzk12 的偏移量*/fseek(fp,fpos,SEEK_SET);/* 指针移动到当前位置*/fread(buffe r,24,1,fp);/*读取一个汉字到数组中*/for (i=0;iv12;i+)/*12 行*/for (j=0;j(7-k)&0x1)! = NULL)/* 是一就画点*/putpixel(x0+8*j+k,y0+i,color);s+ = 2;/* 一个汉字占两个字节,现在将指针移动两个字节*/x0+=w;/*显示坐标也按照间隔移动*/else/ *显示非汉字字符*/ settextstyle(0,0,1);setcolor(color);str0=*s;str1=0;outtextxy(x0,y0+3,st r);/*显示单个字符*/x0+=w-7;/*显示单个字符后的x坐标变化*/s+ + ;/ *指针移动到下一个字节*/fclose(fp);void translation() /*把相对坐标解释为绝对坐标*/ if(RA.Rx=1) RA.x1=1; RA.x2=16; else RA.x1=16*(RA.Rx-1); RA.x2=16*RA.Rx; if(RA.Ry=1) RA.y1=1; RA.y2=16; else RA.y1=16*(RA.Ry-1); RA.y2=16*RA.Ry; int check_b() /*检查是否到达低部*/ int x,y,i,zf=0; /*zf 为是否有颜色填充记录*/ for(i=0;i=6)zf+=r_fx-15y-6+1;if(zf=0)return 1;elsereturn 0;int finish() int tfull=0,i; /*判断顶层空间是否有填充*/ for(i=1;i11;i+)tfull+=r_fi1;if(tfull!=0)ret urn 1; /* 告诉 judge()可以结束了*/int check_l() /*检查形状是否与左接触*/for(i=0;i6)zf+=r_fx-15-1y-6; if(y=6&x=16)zf+=1;if(zf=0)return 1;elsereturn 0;int check_r() /*检查形状是否与右接触*/ /*zf 为是否有颜色填充记录*/int x,y,i,zf=0; /*zf 为是否有颜色填充记录*/ for(i=0;i6)zf+=r_fx-15+1y-6; if(y=6&x=25)zf+=1;if(zf=0)return 1;elsereturn 0;void check_touch() nback=check_b();nleft=check_l();nright=check_r();void draw(int cb) /*画形状,cb=1以填充色画形状,cb=2以背景色画形状,cb=3以白色画形状*/ int i,recordx=RA.Rx,recordy=RA.Ry;for(i=0;i7;i+,i+) RA.Rx+=prs1.coi;RA.Ry+=prs1.coi+1;if(RA.Ry=6) RA.Rx=recordx;RA.Ry=recordy;continue;translation();if(cb=1)setfillstyle(1,prs1.attr);elseif(cb=2)setfillstyle(1,BLACK);elseif(cb=3) setfillstyle(1,WHITE);r_fRA.Rx-15RA.Ry-6=1; /*置对应数组标记元素*/bar(RA.x1+1,RA.y1+1,RA.x2-1,RA.y2-1);RA.Ry=recordy;void mov(int key) /*向下,左,右移动方块*/ draw(2);if(key=LEFT&nleft)RA.Rx-;elseif(key=RIGHT&nright)RA.Rx+;elseRA.Ry+;nback=check_b();if(nback) /*判断形状有没有到达底部,有就将其颜色变为白色*/draw(1);elsedraw(3);void change() /*变换形状*/ int status=rs1,buffer,i,x,y,zf=0;if(prs1.attr=prs1+1.attr)rs1+;elsewhile(prs1.attr=prs1-1.attr)rs1-;for(i=0;i6)zf+=r_fx-15y-6;if(zf!=0)rs1=status;buffer=rs1;rs1=status;status=buffer;draw(2);buffer=rs1;rs1=status;status=buffer;nback=check_b(); /*判断变化后的形状是不是到达了低部,这个检查是十分必要的*/if(nback)draw(1);elsedraw(3);void accelerate() if(count_down=1) check_touch(); /*消除上一步动作对方块状态的影响*/count_down=0;if(nback) /*0表示到达底部,1 表示没有到达*/mov(DOWN);void drawbox() /*画方块所在方框*/ int xcor,ycor;for(xcor=xcors;xcor=xcorb;xcor+)for(ycor=ycors;ycor0;j-) for(i=1;i11;i+) r_fij+1=r_fij;RA.Rx=i+15;RA.Ry=j+1+6;translation();if(r_fij+1=1)setfillstyle(1,WHITE);elsesetfillstyle(1,BLACK);bar(RA.x1+1,RA.y1+1,RA.x2-1,RA.y2-1);RA.Rx=recordx;RA.Ry=recordy;void pause() HZ12(450,400,15,BLACK,正常);HZ12(450,400,15,GREEN,暂停);for(;)if(bioskey(1)&bioskey(0)=SPACE) clearkbd();HZ12(450,400,15,BLACK,暂停);HZ12(450,400,15,RED,正常);return;void judge() int i,j,full = O; /*full等于10说明某一行满,该消除了*/ if(finish() /*判断游戏是否该结束了*/messagebox(); /*win 编程里有这个函数*/for(j=1;j21;j+) /*判断某一行是否满了*/ for(i=1;i11;i+)full+=r_fij;if(full=10)erasure(j); /*消除这行*/full=0;void update。/*使程序可以重新运行*/ cleardevice();setbkcolor(BLACK);initinfo(); /*提示信息初始化*/initbox(); /*游戏框架初始化*/sran d(u nsig ned)time(NULL); /* 随机器函数的初始化*/ rs1=random(19);rs2=random(19);next_shape();initposition(); /*方块最开始的出现位置*/initremove(); /*记录每个方格有无颜色填充数组初始化*/HZ12(450,400,15,RED,正常);process();void EXIT() closegraph();intrestore(); /*恢复中断向量*/exit(0);void initremove() int i,j;for(i=0;i12;i+)for(j=0;j=1) count_other=0;if(bioskey(1) /*对按键的处理*/ int key=bioskey(0);clearkbd(); /*清除键盘缓冲队列*/ if(key=ESC)EXIT();if(key=LEFT&nleft&nback)mov(LEFT);if(key=RIGHT&nright&nback) mov(RIGHT);if(key=UP&nback)change();if(key=SPACE)pause();if(key=DOWN) accelerate();if(count_down=4) check_touch(); /*消除上一步动作对方块状态的影响*/ count_down=0;if(nback) /*0表示到达底部,1 表示没有到达*/ mov(DOWN);/*for*/main() int gdriver=DETECT,gmode=0;initgraph(&gdriver,&gmode,d:turboc); /*启动图形与中断部分*/ intenable();update();
展开阅读全文