大二时实现的俄罗斯方块

整理硬盘时，找到了大二时实现的俄罗斯方块的代码。
最后修改时间是2003年4月17日16点28分。
佩服当时的自己，虽然代码写的有点稚嫩，但算法还是比较不错。
现在我估计也写不出这样的代码了。
当时用的开发工具是TC2.0， 原封不动贴出来备份一下。

#define TRUE 1
#define FALSE 0

#include<stdio.h>
#include<stdlib.h>
#include"lib.h"

unsigned char block[7][4][2]={{{2,2},{1,2},{3,2},{4,2}},  /*  ---- */
                  {{2,2},{1,2},{3,2},{3,1}},  /*  ___| */
                  {{2,2},{1,1},{1,2},{3,2}},  /* |___  */
                  {{2,2},{1,1},{2,1},{3,2}},  /*   z   */
                  {{2,2},{1,2},{2,1},{3,1}},  /*  -z   */
                  {{1,1},{2,1},{1,2},{2,2}},  /*  88   */
                  {{2,2},{1,2},{2,1},{3,2}}}; /*  _|_   */
char sc[12][22];
char cur[4][2],next[4][2];
char stop=0;
int  score=0;
char gameover=0;
char cu,ne;


 main()
{
 int i,k;
 unsigned long int count=0;
 clrscr();
 init();
 randomize();
 cu=random(7);
/* cu=0;  */
 for(i=0;i<4;i++) {
   cur[i][0]=block[cu][i][0]+5;
   cur[i][1]=block[cu][i][1]+1;}
 Random();
 draw(cur,254);
 while(!gameover){
   if(bioskey(1)) {
      k=getkey();
      switch(k){
    case UP:   turn(cu);break;
    case DOWN :if(legal('d')){
               draw(cur,' ');
               for(i=0;i<4;i++)
             cur[i][1]++;
               draw(cur,254);}
            break;
    case LEFT: if(legal('l')) {
               draw(cur,' ');
               for(i=0;i<4;i++)
              cur[i][0]--;
               draw(cur,254); }
              break;
    case RIGHT: if(legal('r')) {
             draw(cur,' ');
             for(i=0;i<4;i++)
                 cur[i][0]++;
             draw(cur,254);}
             break;
    case ESC :gameover=1;break;
    case ' ' :getkey();break;}
    }/* if(kbhit())    */
   count++;
  if(count==90000) {
   count=0;
   for(i=0;i<4;i++){
    if(cur[i][1]==23) {
             stop=1;
              break;}
   else if(sc[cur[i][0]-2][cur[i][1]-1]==1){ /* next pos whether 1 */
       stop=1;
       break;}}
   if(!stop) {
          draw(cur,' ');
          for(i=0;i<4;i++)
        cur[i][1]++;
          draw(cur,254);}
  else {
     for(i=0;i<4;i++)
       sc[cur[i][0]-2][cur[i][1]-2]=1;
     check();
     for(i=0;i<4;i++) {
       cur[i][0]=next[i][0]+5;
       cur[i][1]=next[i][1]+1;}
     cu=ne;
     Random();
     stop=0;
     draw(cur,254);
     }
  }
  }
 gotoxy(3,11);
 printf("Game Over");
 sleep(1);
 }
turn(char c)
{
 char dx,dy,i;
 char temp[4][2];
 if(c==5)
   return;
 for(i=1;i<4;i++){
      dx=cur[0][0]-cur[i][0];
      dy=cur[0][1]-cur[i][1];
      temp[i][0]=cur[0][0]-dy;
      temp[i][1]=cur[0][1]+dx;
      if(sc[temp[i][0]-2][temp[i][1]-2]||temp[i][0]<2||temp[i][0]>13||temp[i][1]<2||temp[i][1]>23)
         return;
      }
  draw(cur,' ');
  for(i=1;i<4;i++) {
      cur[i][0]=temp[i][0];
      cur[i][1]=temp[i][1];}
  draw(cur,254);
 }

init()
{int i,j;
 SetCursorType(NOCURSOR);
 for(i=0;i<12;i++)
   for(j=0;j<22;j++)
     sc[i][j]=0;
 Bar(1,1,14,24);
 gotoxy(16,3);
 printf("Next :");
 gotoxy(16,6);
 printf("Score : 0");
 gotoxy(16,8);
 printf("ESC-quit");
 gotoxy(16,10);
 printf("SPACE-pause");
}

draw(char ch[][2],int a)
{
 int i;
  for(i=0;i<4;i++) {
    gotoxy(ch[i][0],ch[i][1]);
    putch(a);}
 }
Random()
{
  char i;
  ne=random(7);
/*  ne=0;*/
  for(i=0;i<4;i++) {
    next[i][0]=block[ne][i][0];
    next[i][1]=block[ne][i][1];}
  for(i=0;i<4;i++) {
    gotoxy(24+i,3);
    putch(' ');
    gotoxy(24+i,4);
    putch(' ');}
  for(i=0;i<4;i++) {
    gotoxy(next[i][0]+23,next[i][1]+2);
    putch(254);}
}
 legal(char b)
{int i;
 if(b=='l') {
  for(i=0;i<4;i++)
    if(sc[cur[i][0]-3][cur[i][1]-2]||cur[i][0]==2)
     return FALSE;}
 else if(b=='r') {
   for(i=0;i<4;i++)
     if(sc[cur[i][0]-1][cur[i][1]-2]||cur[i][0]==13)
       return FALSE;}
 else if(b=='d') {
    for(i=0;i<4;i++)
      if(sc[cur[i][0]-2][cur[i][1]-1]||cur[i][1]==23)
     return FALSE;}
 else return TRUE;
}

 check()
{ int i,j,k,m,p;
  char c,temp[4];
 /* for(i=0;i<4;i++) {
     temp[i]=cur[i][1];
  }*/
  temp[0]=cur[0][1];
  temp[1]=cur[1][1];
  temp[2]=cur[2][1];
  temp[3]=cur[3][1];
  c=1;
  for(i=0;i<4;i++) {
    p=1;
    for(j=0;j<12;j++)     /* check whether the line is full */
      if(!sc[j][temp[i]-2]){
     p=0;
     break;
    }
    if(p) {
       score+=(100*c);
       c++;
       for(k=temp[i];k>2;k--)     /*  delete a line  */
      for(m=0;m<12;m++) {
         sc[m][k-2]=sc[m][k-3];
         gotoxy(m+2,k);
         if(sc[m][k-2])   putch(254);
         else             putch(' ');
       }
       printf("/7");
       for(k=i;k<4;k++) {
     if(temp[k]<temp[i])
     temp[k]++;}
       }
    }
    gotoxy(24,6);
    printf("%d",score);
    for(i=0;i<4;i++)
     if(sc[cur[i][0]-2][0]){
    gameover=1;
    break;}
}