#include <stdio.h> #include <dos.h> #include <conio.h> #include <graphics.h> #include <stdlib.h>
#ifdef __cplusplus #define __CPPARGS ... #else #define __CPPARGS #endif #define MINBOXSIZE 20 /* 最小方块的尺寸 */ #define BGCOLOR 6 /* 背景着色 */ #define GX 200 #define GY 10 #define SJNUM 10000 /* 每当玩家打到一万分等级加一级*/
/* 按键码*/ #define VK_LEFT 0x4b00 #define VK_RIGHT 0x4d00 #define VK_DOWN 0x5000 #define VK_UP 0x4800 #define VK_HOME 0x4700 #define VK_END 0x4f00 #define VK_SPACE 0x3920 #define VK_ESC 0x011b #define VK_ENTER 0x1c0d
/* 定义俄罗斯方块的方向(我定义他为4种)*/ #define F_DONG 0 #define F_NAN 1 #define F_XI 2 #define F_BEI 3
#define NEXTCOL 20 /* 要出的下一个方块的纵坐标*/ #define NEXTROW 12 /* 要出的下一个方块的横从标*/ #define MAXROW 14 /* 游戏屏幕大小*/ #define MAXCOL 20 #define SCCOL 50 /*游戏屏幕大显示器上的相对位置*/ #define SCROW 30
#define X_Z 0 /* 定义方块的形壮(共八种)*/ #define X_REZ 1 #define X_7 2 #define X_RE7 3 #define X_I 4 #define X_REI 5 #define X_TIAN 6 #define X_T 7
int gril[22][16]; /* 游戏屏幕坐标*/ int col=1,row=7; /* 当前方块的横纵坐标*/ int boxfx=0,boxgs=0; /* 当前寺块的形壮和方向*/ int nextboxfx,nextboxgs,maxcol=22;/*下一个方块的形壮和方向*/ int minboxcolor,nextminboxcolor; int num=0; /*游戏分*/ int dj=0,gamedj[10]={18,16,14,12,10,8,6,4,2,1};/* 游戏等级*/ struct all{ int x,y; int fangxiang; int gesu; }; /* 以下我用了一个3维数组来纪录方块的最初形状和方向*/ int boxstr[8][4][4]={{ {0,0,0,0}, {0,0,0,0}, {0,1,1,0}, {0,0,1,1}}, { {0,0,0,0}, {0,0,0,0}, {0,0,1,1}, {0,1,1,0}}, { {0,0,0,0}, {0,0,1,1}, {0,0,0,1}, {0,0,0,1}}, { {0,0,0,0}, {0,0,1,1}, {0,0,1,0}, {0,0,1,0}}, { {0,0,0,1}, {0,0,0,1}, {0,0,0,1}, {0,0,0,1}}, { {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {1,1,1,1}}, { {0,0,0,0}, {0,0,0,0}, {0,0,1,1}, {0,0,1,1}}, { {0,0,0,0}, {0,0,0,0}, {0,1,1,1}, {0,0,1,0}} };
/* 随机得到当前方块和下一个方块的形状和方向*/ void boxrad(){ minboxcolor=nextminboxcolor; boxfx=nextboxfx; boxgs=nextboxgs; nextminboxcolor=random(16); if(nextminboxcolor==6||nextminboxcolor==7) nextminboxcolor=9; nextboxfx=random(4); nextboxgs=random(8); } /*初始化图形模试*/ void init(int gdrive,int gmode){ int errorcode; initgraph(&gdrive,&gmode,"e:\\tc"); errorcode=graphresult(); if(errorcode!=grOk){ printf("error of: %s",grapherrormsg(errorcode)); exit(1); } }
/* 在图形模式下的清屏 */ void cls() { setfillstyle(SOLID_FILL,0); setcolor(0); bar(0,0,640,480); } /*在图形模式下的高级清屏*/ void clscr(int a,int b,int c,int d,int color){ setfillstyle(SOLID_FILL,color); setcolor(color); bar(a,b,c,d); } /*最小方块的绘制*/ void minbox(int asc,int bsc,int color){ int a=0,b=0; a=SCCOL+asc; b=SCROW+bsc; clscr(a+1,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE,color); if(color!=BGCOLOR){ setcolor(15); line(a+1,b+1,a-1+MINBOXSIZE,b+1); line(a+1,b+1,a+1,b-1+MINBOXSIZE); setcolor(0); line(a-1+MINBOXSIZE,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE); line(a+1,b-1+MINBOXSIZE,a-1+MINBOXSIZE,b-1+MINBOXSIZE); } } /*最小方块的高级绘制*/ void box(int a,int b,int color){ clscr(a+1,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE,color); setcolor(15); line(a+1,b+1,a-1+MINBOXSIZE,b+1); line(a+1,b+1,a+1,b-1+MINBOXSIZE); setcolor(0); line(a-1+MINBOXSIZE,b+1,a-1+MINBOXSIZE,b-1+MINBOXSIZE); line(a+1,b-1+MINBOXSIZE,a-1+MINBOXSIZE,b-1+MINBOXSIZE); } /*游戏中出现的文字*/ void txt(int a,int b,char *txt,int font,int color){ setcolor(color); settextstyle(0,0,font); outtextxy(a,b,txt); } /*windows 绘制*/ void win(int a,int b,int c,int d,int bgcolor,char *text,int font,int textcolor){ clscr(a,b,c,d,7); clscr(a+3,b+24,c-3,d-3,bgcolor); clscr(a+3,b+3,c-3,b+20,9); setcolor(15); line(a,b,c,b); line(a,b,a,d); line(a+2,b+21,c-2,b+21); line(c-2,b+2,c-2,b+21); line(a+2,d-2,c-2,d-2); line(c-2,b+23,c-2,d-2); txt(a+5,b+8,text,font,textcolor); setcolor(0); line(a,d,c,d); line(c,b,c,d); line(a+3,b+2,c-3,b+2); line(a+2,b+2,a+2,b+20); line(a+2,b+24,a+2,d-2); line(a+2,b+23,c-3,b+23); } /*把方块的方向旋转fx个90度(fx最大等于3)*/ void re90(int boxxy[4][4],int fx){ int i,j,k,zero; int a[4][4]; for(k=0;k<fx;k++){ for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxxy[3-j][i]; for(i=0;i<4;i++) for(j=0;j<4;j++) boxxy[i][j]=a[i][j]; for(i=0;i<4;i++){ zero=1; for(j=0;j<4;j++) if(boxxy[j][3]!=0) zero=0; if(zero) for(j=0;j<4;j++){ boxxy[j][3]=boxxy[j][2];boxxy[j][2]=boxxy[j][1];boxxy[j][1]=boxxy[j][0];boxxy[j][0]=0; } } } } /* 当前方块的绘制*/ void funbox(int a,int b,int color){ int i,j; int boxz[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) boxz[i][j]=boxstr[boxgs][i][j]; re90(boxz,boxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(boxz[i][j]==1) minbox((j+row+a)*MINBOXSIZE,(i+col+b)*MINBOXSIZE,color); } /*下一个方块的绘制*/ void nextfunbox(int a,int b,int color){ int i,j; int boxz[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) boxz[i][j]=boxstr[nextboxgs][i][j]; re90(boxz,nextboxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(boxz[i][j]==1) minbox((j+a)*MINBOXSIZE,(i+b)*MINBOXSIZE,color); } /*时间中断定义*/ #define TIMER 0x1c int TimerCounter=0; void interrupt ( *oldhandler)(__CPPARGS); void interrupt newhandler(__CPPARGS){ TimerCounter++; oldhandler(); } void SetTimer(void interrupt (*IntProc)(__CPPARGS)){ oldhandler=getvect(TIMER); disable(); setvect(TIMER,IntProc); enable(); } /*由于游戏的规则,消掉都有最小方块的一行*/ void delcol(int a){ int i,j; for(i=a;i>1;i--) for(j=1;j<15;j++){ minbox(j*MINBOXSIZE,i*MINBOXSIZE,BGCOLOR); gril[i][j]=gril[i-1][j]; if(gril[i][j]==1) minbox(j*MINBOXSIZE,i*MINBOXSIZE,minboxcolor); } } /*把数形数转换为字符串*/ char *numgochar(int x){ char k,*a="000000"; int i,j=10; if(x==0) return("0"); for(i=0;x>=1;i++){ a[i]='0'+ (x % 10); x=x/10; } for(j=0;j<=i/2;j++){ k=a[j]; a[j]=a[i-j]; a[i-j]=k; } a[i+1]='\0'; return(a); } /*消掉所有都有最小方块的行*/ void delete(){ int i,j,zero,delgx=0; char *nm; for(i=1;i<21;i++){ zero=0; for(j=1;j<15;j++) if(gril[i][j]==0) zero=1; if(zero==0){ delcol(i); delgx++; } } num=num+delgx*delgx*10; dj=num/10000; nm=numgochar(num); clscr(456,173,500,200,BGCOLOR); txt(456,173,"Number:",1,15); txt(456,193,nm,1,15); } /*时间中断结束*/ void KillTimer(){ disable(); setvect(TIMER,oldhandler); enable(); } /* 测试当前方块是否可以向下落*/ int downok(){ int i,j,k=1,a[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxstr[boxgs][i][j]; re90(a,boxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(a[i][j] && gril[col+i+1][row+j]) k=0; return(k); } /* 测试当前方块是否可以向左行*/ int leftok(){ int i,j,k=1,a[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxstr[boxgs][i][j]; re90(a,boxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(a[i][j] && gril[col+i][row+j-1]) k=0; return(k); } /* 测试当前方块是否可以向右行*/ int rightok(){ int i,j,k=1,a[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxstr[boxgs][i][j]; re90(a,boxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(a[i][j] && gril[col+i][row+j+1]) k=0; return(k); } /* 测试当前方块是否可以变形*/ int upok(){ int i,j,k=1,a[4][4]; for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxstr[boxgs][i][j]; re90(a,boxfx+1); for(i=3;i>=0;i--) for(j=3;j>=0;j--) if(a[i][j] && gril[col+i][row+j]) k=0; return(k); } /*当前方块落下之后,给屏幕坐标作标记*/ void setgril(){ int i,j,a[4][4]; funbox(0,0,minboxcolor); for(i=0;i<4;i++) for(j=0;j<4;j++) a[i][j]=boxstr[boxgs][i][j]; re90(a,boxfx); for(i=0;i<4;i++) for(j=0;j<4;j++) if(a[i][j]) gril[col+i][row+j]=1; col=1;row=7; } /*游戏结束*/ void gameover(){ int i,j; for(i=19;i>=0;i--) for(j=2;j<16;j++) box(j*MINBOXSIZE+SCROW,i*MINBOXSIZE+SCCOL,6); txt(103,203,"Game Over",3,10); } /*按键的设置*/ void call_key(int keyx){ switch(keyx){ case VK_DOWN: { /*下方向键,横坐标加一。*/ if(downok()){ col++; funbox(0,0,minboxcolor);} else{ funbox(0,0,minboxcolor); setgril(); nextfunbox(NEXTCOL,NEXTROW,BGCOLOR); boxrad(); nextfunbox(NEXTCOL,NEXTROW,nextminboxcolor); delete(); } break; } case VK_UP: { /*上方向键,方向形状旋转90度*/ if(upok()) boxfx++; if(boxfx>3) boxfx=0; funbox(0,0,minboxcolor); break; } case VK_LEFT:{ /*左方向键,纵坐标减一*/ if(leftok()) row--; funbox(0,0,minboxcolor); break; } case VK_RIGHT:{ /*右方向键,纵坐标加一*/ if(rightok()) row++; funbox(0,0,minboxcolor); break; } case VK_SPACE: /*空格键,直接落到最后可以落到的们置*/ while(downok()) col++; funbox(0,0,minboxcolor); setgril(); nextfunbox(NEXTCOL,NEXTROW,BGCOLOR); boxrad(); nextfunbox(NEXTCOL,NEXTROW,nextminboxcolor); delete(); break; default: { win(423,53,620,95,15,"Enter Key Error!",1,15); txt(428,80,"Plese Enter Anly Key AG!",1,4); getch(); clscr(420,50,622,97,BGCOLOR); } } }
/*时间中断开始*/ void timezd(void){ int key; SetTimer(newhandler); boxrad(); nextfunbox(NEXTCOL,NEXTROW,nextminboxcolor); for(;;){ if(bioskey(1)){ key=bioskey(0); funbox(0,0,BGCOLOR); if(key==VK_ESC) break; call_key(key); } if(TimerCounter>gamedj[dj]){ TimerCounter=0; if(downok()){ funbox(0,0,BGCOLOR); col++; funbox(0,0,minboxcolor); } else { if(col==1){ gameover(); getch(); break; } setgril(); delete(); funbox(0,0,minboxcolor); col=1;row=7; funbox(0,0,BGCOLOR); nextfunbox(NEXTCOL,NEXTROW,BGCOLOR); boxrad(); nextfunbox(NEXTCOL,NEXTROW,nextminboxcolor); } } } }
/*主程序开始*/ void main(void){ int i,j,color=7; char *nm; init(VGA,VGAHI); cls(); /*屏幕坐标初始化*/ for(i=0;i<=MAXCOL+1;i++) for(j=0;j<=MAXROW+1;j++) gril[i][j]=0; for(i=0;i<=MAXCOL+1;i++) { gril[i][0]=1; gril[i][15]=1; } for(j=1;j<=MAXROW;j++){ gril[0][j]=1; gril[21][j]=1; } clscr(0,0,640,480,15); win(1,1,639,479,BGCOLOR,"Well Come Back My Game 1.0 (Lao Ma office)!",1,15);
setcolor(color); for(i=0;i<=21;i++){ for(j=0;j<=15;j++) { if(gril[i][j]==1) box(j*MINBOXSIZE+SCCOL,i*MINBOXSIZE+SCROW,color); } } nextboxgs=random(8); nextboxfx=random(4); nm=numgochar(num); txt(456,173,"Number:",1,15); txt(456,193,nm,1,15); txt(456,243,"Next Box:",1,15); timezd(); KillTimer(); closegraph(); }
[此贴子已经被作者于2004-07-10 08:54:40编辑过]