/*-------------------------------------------------------*//*  sunwise 整理于 2002/5/27/14:35  Original 1999   *//*                                                       */ /*-------------------------------------------------------*/ /*-------------  Compile  ------------------------------ *//*        [in os mode:]                                  *//*            bgiobj  egavga                             *//*            tlib    lib\graphics.lib+egavga            *//*        [in TC: ]      *//*       make exe      */ /*-------------------------------------------------------*/#include <stdlib.h>#include <graphics.h>#include <bios.h>#define mDRAW     5#define mLINE     6#define mADOWN    7#define mGEN      8#define mLEFT     75#define mRIGHT    77#define mSPACE    57#define mDOWN     80#define mESC      1#define TIMEINT   2#define MAXX      9#define MAXY   30#define BACKCOLOR BLACK#define WINX      50#define WINY      470#define GAP       6#define AREAX     (WINX+GAP)#define AREAY     (WINY-GAP)#define BOXW      15 int oldarea[MAXY+1][MAXX];int area[MAXY+1][MAXX];int actW,actH,actX,actY;int curX,curY,curColor,curW,curH;int newX,newY,newColor,newW,newH;int active;int box[4][4];int FORCOLOR;int MESSAGE;int BOX[7][4][4]={ {  {1,1,1,1},  {0,0,0,0},  {0,0,0,0},  {0,0,0,0} },{  {1,1,1,0},  {1,0,0,0},  {0,0,0,0},  {0,0,0,0} },{  {1,1,1,0},  {0,0,1,0},  {0,0,0,0},  {0,0,0,0}  },{  {1,1,1,0},  {0,1,0,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,0,0,0} },{  {1,1,0,0},  {1,1,0,0},  {0,0,0,0},  {0,0,0,0} }}; void init();void draw();int genBox();int getKey();void lineFull();int moveLeft();int moveRight();int moveDown();int rotate();int getW();int getH();void clearOldBox();void putNewBox();int collisionRotate(int box[][4]);void getMessage();void dispatchMessage();int timeCome();void fallDown();int gameOver(); main(){ int i;/*printf("This program is made by xiezhijian");*/ init(); do {  getMessage();  dispatchMessage(); } while(!gameOver());  getch(); closegraph();} void getMessage(){ if(MESSAGE) return; if(timeCome()) {  MESSAGE=mADOWN;  return; } if(bioskey(1)) {  MESSAGE=bioskey(0)>>8;  return; }} void dispatchMessage(){ switch(MESSAGE) {  case mLEFT:  moveLeft();break;  case mRIGHT: moveRight();break;  case mADOWN: moveDown();break;  case mSPACE: rotate();break;  case mDOWN:  fallDown(); break;  case mDRAW:  draw();break;  case mLINE:  lineFull();break;  case mGEN:   genBox();break;  case mESC:   closegraph(); exit(0);  default:     MESSAGE=0; }} void fallDown(){ while(active) {  moveDown(); draw(); }  MESSAGE=mLINE;} int timeCome(){  static long tm, old; tm=biostime(0,tm); if(tm-old<TIMEINT) return 0; else {  old=tm; return 1; }} void init(){ int i,j,x1,y1,x2,y2; int driver=DETECT, mode=0; randomize(); registerbgidriver(EGAVGA_driver); initgraph(&driver,&mode,""); cleardevice(); setfillstyle(SOLID_FILL,BLUE); bar(0,0,639,479); x1=AREAX; y1=AREAY-BOXW*MAXY; x2=AREAX+MAXX*BOXW; y2=AREAY; rectangle(--x1,--y1,++x2,++y2); setfillstyle(SOLID_FILL,BLACK); bar(++x1,++y1,--x2,--y2); y1=AREAY-MAXY*BOXW; y2=AREAY; setcolor(DARKGRAY); for(i=0;i<MAXX;i++) {  x1=AREAX+i*BOXW;  line(x1,y1,x1,y2); }  x1=AREAX; x2=x1+MAXX*BOXW; for(j=0;j<MAXY;j++) {  y1=AREAY-j*BOXW;  line(x1,y1,x2,y1); } for(j=0;j<MAXY;j++)  for(i=0;i<MAXX;i++)   area[j][i]=oldarea[j][i]=0; actX=0; actY=0; actW=MAXX-1; actH=MAXY-1; draw(); MESSAGE=mGEN;} int genBox(){ int i,j,boxidx; boxidx=random(7); FORCOLOR=random(7)+1; for(j=0;j<4;j++)  for(i=0;i<4;i++)   box[j][i]=BOX[boxidx][j][i]; curW=getW(); curH=getH(); curX=(MAXX+curW)/2; if(curX+curW>=MAXX)curX=MAXX-1-curW; curY=MAXY-1-curH; newX=curX; newY=curY; actX=curX;actY=curY; actW=newW=curW; actH=newH=curH; active=1; if(collision(box)) return 0; putNewBox(); draw(); MESSAGE=0; return 1;} void lineFull(){ int row,col, rowEnd,full,i,j; rowEnd=newY+newH; if(rowEnd>=MAXY-1) rowEnd=MAXY-2; for(row=newY; row<=rowEnd;) {  full=1;  for(col=0;col<MAXX;col++)   if(!area[row][col]){full=0; break;}  if(!full){++row; continue;}  for(j=row; j<MAXY-1;j++)   for(i=0;i<MAXX;i++)    area[j][i]=area[j+1][i];  actX=0;actY=row; actW=MAXX-1; actH=MAXY-1-row;  draw(); rowEnd--; } MESSAGE=mGEN;} void draw(){ int row,col,x1,y1,x2,y2; for(row=actY;row<=actY+actH;row++)  for(col=actX;col<=actX+actW;col++)   if(area[row][col]!=oldarea[row][col])   {    if(area[row][col]==0)     setfillstyle(SOLID_FILL,BACKCOLOR);    else     setfillstyle(SOLID_FILL,FORCOLOR);     x1=AREAX+col*BOXW; x2=x1+BOXW;    y1=AREAY-(row+1)*BOXW; y2=y1+BOXW;    bar(++x1,++y1,--x2,--y2);    oldarea[row][col]=area[row][col];   }  MESSAGE=0;} int moveLeft(){ newX=curX-1; clearOldBox(); if(collision(box)) {  newX=curX;  putNewBox();  MESSAGE=0;  return 0; } putNewBox(); actW=curW+1; actX=curX=newX; MESSAGE=mDRAW; return 1;} int moveRight(){ newX=curX+1; clearOldBox(); if(collision(box)) {  newX=curX;  putNewBox();  MESSAGE=0;  return 0; } putNewBox(); actW=curW+1; actX=curX; curX=newX; MESSAGE=mDRAW; return 1;} int moveDown(){ int i,j; newY=curY-1; clearOldBox(); if(collision(box)) {  newY=curY;  putNewBox();  active=0;  MESSAGE=mLINE;  return 0; } putNewBox(); actH=curH+1; actY=newY; curY=newY; MESSAGE=mDRAW; return 1;} int rotate(){ int newBox[4][4]; int i,j; clearOldBox();  for(j=0;j<4;j++)  for(i=0;i<4;i++)   newBox[j][i]=0;  for(j=0;j<4;j++)  for(i=0;i<4;i++)   newBox[curW-i][j]=box[j][i]; newW=curH; newH=curW; if(collisionRotate(newBox)) {  newW=curW; newH=curH; newX=curX; newY=curY;  putNewBox();  MESSAGE=0;  return 0; }  for(j=0;j<4;j++)  for(i=0;i<4;i++)   box[j][i]=newBox[j][i]; putNewBox(); actH=newH>curH? newH:curH; actW=curX+actH-newX; actX=newX; actY=newY; curX=newX; curY=newY; curW=newW; curH=newH; MESSAGE=mDRAW; return 1;} int getW(){ int i,j; for(i=3;i>0;i--)  for(j=0;j<4;j++)   if(box[j][i]) return i; return 0;} int getH(){ int i,j; for(j=3;j>0;j--)  for(i=0;i<4;i++)   if(box[j][i]) return j; return 0;} void clearOldBox(){ int i,j; for(j=0;j<=curH; j++)  for(i=0;i<=curW; i++)   if(box[j][i])    area[curY+j][curX+i]=0;} void putNewBox(){ int i,j; for(j=0;j<=newH;j++)  for(i=0;i<=newW;i++)   if(box[j][i])    area[newY+j][newX+i]=FORCOLOR;} int collision(int cbox[][4]){ int i,j; if(newX<0) return 1; if(newX+newW>=MAXX) return 1; if(newY<0) return 1; for(j=0;j<=newH;j++)  for(i=0;i<=newW;i++)   if(area[newY+j][newX+i]&&cbox[j][i]) return 1; return 0;} int collisionRotate(int cbox[][4]){ int i,j; if(newX+newW>=MAXX) newX=MAXX-1-newW; if(newY+newH>=MAXY) newY=MAXY-1-newH; if(collision(cbox)) return 1; for(i=0;i<=newW;i++)  for(j=0;j<=newH;j++)   if(area[newY+j][newX+i])   {    newX-=newW-i+1; goto L;   } L: return collision(cbox);} int gameOver(){ if(!active &&(curY+curH>MAXY-3)) return 1; else return 0;} /*                  the end                              */  

评论