打砖块程序参照.pdfVIP

打砖块程序 作者：贾胜华 更新时间： 2005-05-12 刚编的一个打砖块程序，有雏形了！这里公布原代码，希望大家一起改进。 请编译前在主目录下建立一个文本文件（ xia.txt ）内容为： 0 0 0 0 0 哈哈 #includedos.h #includestdio.h #includegraphics.h #includemath.h union REGS regs; unsigned int zhuan[5]; int Msinit(); void Setmouse(int left,int right,int top,int buttom); int Msread(int *xp,int *yp,int *bup); void Draw(int x,int y,int sizex,int sizey); main() {int mode=VGAHI,driver=VGA; unsigned int l; int i,gi,gj,j,flag=1;/*i,j 是循环变量 ,flag 是标记变量 ,-1: 向 x 负半轴移动 ,+1: 向 x double qx,qy,k,b=0.0,speech=0.4,x,y; double r=2.0,bx=60.0,byy=270.0; double pianx=100.0,piany=100.0,tx=20.0,ty=10.0,jx=2.0,jy=2.0; int mx=0,my=0,mb,sum;/*sum 纪录砖块的数目 */ FILE * p; if((p = fopen(xia.txt, r)) == NULL) {printf(The file cannot open!\n); exit(1);} initgraph(driver,mode,\\tc\\BGI); Msinit(); Setmouse((int)(pianx+1+bx/2),(int)((tx+jx)*8+pianx-1-bx/2),(int)byy+piany,(int)byy+p star:cleardevice();/* 程序重载的介入点 */ sum=0; qx=100.0+pianx-10;qy=180.0+pianx-10;k=0.33; setcolor(7); rectangle((int)(pianx-2),(int)(piany-2),(int)((tx+jx)*8+2+pianx),302+piany); setcolor(1); rectangle((int)(pianx-1),(int)(piany-1),(int)((tx+jx)*8+1+pianx),301+piany); /* 读取盘面情况 */ for(i=0;i5;i++) fscanf(p,%x ,zhuan[i]); /* 画砖块 */ for(i=0;i5;i++) {l=1; for(j=0;j16;j++) {if((zhuan[i]l)==0) {Draw((int)((jx+tx)*((16*i+j)%8)+pianx+jx),(int)((jy+ty)*((int)((16*i+j)/8))+piany (int)tx,(int)ty); sum+=1; } l=l*2; } } for(;;) { setfillstyle(1, 0); bar(mx-bx/2,my,mx+bx/2,my+5); Msread(mx, my, mb); Draw(mx-bx/2,my,bx,5); setcolor(0); circle(qx,qy,r); /* 判断求是否反弹 */ if(qx-r=pianx+1 || qx+r=(tx+jx)*8+pianx-1) {flag=-flag;k=-k;} if(qy-r=piany+1) k=-k; for(gi=0;gi5;gi++) {l=1; for(gj=0;gj16;gj++) { if((zhuan[gi]l)==0) {j=(16