大二时实现的俄罗斯方块

整理硬盘时，找到了大二时实现的俄罗斯方块的代码。
最后修改时间是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 ;}
}