russion.c

用C语言编写的俄罗斯方块

#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();
}