汉诺塔的源程序

    本程序是一个汉诺塔的游戏程序,用TURBO  C 2.0编写并编译成功,游戏可以让玩家选择盘子的个数(3到7个).并有三种游戏结果(YOU WIN;GAME OVER;YOU PLAY BAD),而且一局成功以后,玩家可以选择退出或继续(如果选择继续,则盘子的个数就会自动加一).
本游戏程序算法简单,界面友好,可玩性强,是第一款在DOS界面下的汉诺塔游戏程序.

作者E_MAIL:   bolm@etang.com

/*---------------------------HANOI TOWER V 1.0--------------------------*/
/*-----------------------------SOURCE PROGRAM---------------------------*/
#include "stdio.h"
#include "conio.h"
#include "stdlib.h"
#include "graphics.h"
#include "math.h"

#define O outtextxy
#define S setcolor
#define F setfillstyle
#define R rectangle
#define C circle
#define L line
#define B bar
#define B3D bar3d

#define X 200
#define Y 30

int step=0;
int record[5]={7,15,31,63,127},rec;
int disk,disknum;
char mark[15];

struct rod
       {
       int disk[8][5];
       int diskname[8];
       }tree[3];

/********************************************/
ntoa(int s)
{
 int b[15];
 int i,j;
 for (i=0;i<15;i++)
   mark[i]='/0';
 for (i=0;s>=10;i++)
   {b[i]=s%10;
   s/=10;}
 b[i]=s;
 for(j=i;j>=0;j--)
   mark[i-j]=b[j]+'0';
}

void drawrod()
{
 F(1,LIGHTBLUE);
 B(118,150,122,400);   /*ROD1*/
 B(318,150,322,400);   /*ROD2*/
 B(518,150,522,400);   /*ROD3*/
 F(6,BLUE);
 B(119,151,123,401);
 B(319,151,323,401);
 B(519,151,522,401);
}

void draw()
{
 S(LIGHTBLUE);
 R(10,10,629,469);
 L(10,30,629,30);      /*UP LINE1*/
 L(10,26,629,26);
 L(10,450,629,450);    /*BOTTOM LINE1*/
 L(10,446,629,446);
 S(GREEN);
 settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
 O(200,452,"HANOI TOWER V1.0");
 S(LIGHTBLUE);
 O(201,453,"HANOI TOWER V1.0");
}

void showrecord()
{
 settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
 F(1,BLACK);
 bar(58,11,80,22);
 ntoa(disk);
 S(RED);
 O(20,15,"DISK:");
 S(GREEN);
 O(60,15,mark);

 bar(318,11,350,22);
 ntoa(rec);
 S(RED);
 O(260,15,"RECORD:");
 S(GREEN);
 O(320,15,mark);

 bar(530,11,600,22);
 ntoa(step);
 S(RED);
 O(490,15,"STEP:");
 S(GREEN);
 O(532,15,mark);
}

void filldisk(int x1,int y1,int x2,int y2,int color,int color1)
{
 S(color);
 F(1,color);
 B3D(x1,y1,x2,y2,5,5);
 F(6,color1);
 B3D(x1+1,y1+1,x2+1,y2+1,5,5);
}

void action()  /**ANIMATION**/
{
 int i;
 S(BLACK);
 for (i=0;i<600;i=i+2)
 {R(i,0,i+40,479);
  delay(100);}
}

int ifwin()
{
  int i,step_sub_rec;
  disknum=0;
  for (i=0;i<disk;i++)
   { if(tree[2].disk[i][0]==1) disknum++;}
  step_sub_rec=step-rec;
  if (disknum==disk)
    { if (step_sub_rec<=10) /**WIN**/
       { action();
  cleardevice();
  S(GREEN);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
  O(230,200,"YOU WIN");
  S(RED);
  O(231,201,"YOU WIN"); }
      else if (step_sub_rec<=20)
       { action();
  cleardevice();
  S(RED);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
  O(220,200,"GAME OVER");
  S(LIGHTBLUE);
  O(221,201,"GAME OVER"); }
       else
       { action();
  cleardevice();
  S(LIGHTBLUE);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
  O(175,200,"YOU PLAY BAD");
  S(CYAN);
  O(176,201,"YOU PLAY BAD"); }

  for (i=0;i<3000;i=i+50)
   {sound(i);
    delay(300);
    nosound();}
  S(RED);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
  O(180,240,"THANK YOU TO PLAY");
  S(GREEN);
  O(181,241,"THANK YOU TO PLAY");
  S(RED);
  R(168,298,473,309);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
  O(170,300,"PRESS ANY KEY TO CONTINUE(ESC TO QUIT)");
  S(YELLOW);
  O(171,301,"PRESS ANY KEY TO CONTINUE(ESC TO QUIT)");

  if(getch()==27) {closegraph();exit(0);}
  else return(1);
    }
    return(0);
}

void helpmessage()
{
 S(BLUE);
 R(20,258,619,405);
 L(20,260,619,260);
 L(20,376,619,376);
 S(RED);
 O(124,230,">>>");
 settextstyle(SANS_SERIF_FONT,HORIZ_DIR,1);
 O(23,265,"HELP MESSAGE:");
 settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
 S(LIGHTBLUE);
 O(30,290,"1). KEY: <-,->,A,D :MOVE THE RED BALL TO SELECT A ROD");
 O(30,315,"2). KEY: UP,W      :TO SELECT THE TOP DISK");
 O(30,340,"3). KEY: DOWN,S    :TO GET DOWN THE DISK WHICH SELECT");
 O(30,365,"4). KEY: ESC       :QUIT THE GAME");
 S(RED);
 O(30,382,"5). IF   STEP-RECORD<10  THAN  :YOU WIN");
 O(30,393,"6). ELSE                       :GAME OVER");
}

/************************---GAME---**************************/
void game()
{
 int movedisk[4],updiskname1,updiskname2,updisknum1,updisknum2,havemove=0,i,j,rn=0;
 int stage,stage1,stage2,rn1,rn2;
 int x1,y1,x2,y2;
 int a=0,b=0;
 int name=1;
 char c;
 rec=record[disk-3];
 draw();
 drawrod();
 showrecord();

for (i=0;i<3;i++)         /*****---EXIST BIT=0---********/
  for (j=0;j<7;j++)
    {tree[i].disk[j][0]=0;
     tree[i].diskname[j]=0;}

for (i=0;i<disk;i++)     /****DRAW THE DISKS OF THE FIRST ROD***/
 {
  tree[rn].diskname[i]=name;
  tree[rn].disk[i][0]=1;      /*DISK i-----exist bit*/
  tree[rn].disk[i][1]=40+a;   /*--X1--*/
  tree[rn].disk[i][2]=380-b;  /*--y1--*/
  tree[rn].disk[i][3]=200-a;  /*--X2--*/
  tree[rn].disk[i][4]=400-b;  /*--y2--*/

  name=name+1;
  a=a+10;
  b=b+30;
 }

for (i=0;i<disk;i++)     /*********DRAW THE DISKS***********/
    filldisk(tree[rn].disk[i][1],tree[rn].disk[i][2],tree[rn].disk[i][3],tree[rn].disk[i][4],9,1);
for (i=0;i<4;i++)
    movedisk[i]=0;
 drawrod();
/*-----------------------------------------------------------------*/

F(1,BLACK);
       B(20,100,609,130);
       F(1,RED);
       S(RED);
       C(118+(rn*200),115,10);
       floodfill(118+(rn*200),115, RED);

while(1)
    {if(kbhit())
      switch(c=getch())
       {case 75:     /**left**/
        case 'A':
        case 'a':
           rn=((rn==0)?2:rn-1);
    break;

 case 77:     /**right**/
        case 'D':
        case 'd':
           rn=((rn==2)?0:rn+1);
    break;

 case 72:     /**up**/
        case 'W':
 case 'w':
    for (i=0;tree[rn].disk[i][0]!=0;i++);
    if (i<1) break;
    else
      {
        updiskname1=tree[rn].diskname[i-1];
        updisknum1=i-1;
        stage1=i-1;
        rn1=rn;
    for (i=0;i<4;i++)
        movedisk[i]=tree[rn].disk[updisknum1][i+1];
        havemove=0;
    /*    tree[rn].diskname[updisknum1]=0;
   tree[rn].disk[updisknum1][0]=0;   */
       }
    break;

 case 80:     /**down**/
        case 'S':
 case 's':
    if (movedisk[0]==0) break;
    for (i=0;tree[rn].disk[i][0]!=0;i++);
    if (i<1)
      {  if (havemove==1) break;
        stage2=0;rn2=rn;
        tree[rn].diskname[0]=updiskname1;
        tree[rn].disk[0][0]=1;      /**exist bit-->1**/
  tree[rn1].diskname[updisknum1]=0;
  tree[rn1].disk[updisknum1][0]=0;
        stage=stage1-stage2;
        x1=movedisk[0]+(rn2-rn1)*X;
        y1=movedisk[1]+stage*Y;
        x2=movedisk[2]+(rn2-rn1)*X;
        y2=movedisk[3]+stage*Y;

        tree[rn].disk[0][1]=x1;
        tree[rn].disk[0][2]=y1;
        tree[rn].disk[0][3]=x2;
        tree[rn].disk[0][4]=y2;
      }
     else
      {
        updiskname2=tree[rn].diskname[i-1];
        updisknum2=i;
        stage2=i;
        rn2=rn;
        if (updiskname1>updiskname2)
    {
    if (havemove==1) break;
      tree[rn].diskname[updisknum2]=updiskname1;
      tree[rn].disk[updisknum2][0]=1; /**exist bit-->1**/
       tree[rn1].diskname[updisknum1]=0;
       tree[rn1].disk[updisknum1][0]=0;
      stage=stage1-stage2;
      x1=movedisk[0]+(rn2-rn1)*X;
      y1=movedisk[1]+stage*Y;
      x2=movedisk[2]+(rn2-rn1)*X;
      y2=movedisk[3]+stage*Y;

      tree[rn].disk[updisknum2][1]=x1;
      tree[rn].disk[updisknum2][2]=y1;
      tree[rn].disk[updisknum2][3]=x2;
      tree[rn].disk[updisknum2][4]=y2;
    }
    else
      {sound(1000);
       delay(300);
       nosound();
       break;     }
      }
      filldisk(movedisk[0],movedisk[1],movedisk[2],movedisk[3],7,9);
      delay(2000);
      filldisk(movedisk[0],movedisk[1],movedisk[2],movedisk[3],0,0);
      filldisk(x1,y1,x2,y2,9,1);
      step=step+1;
      showrecord();
      drawrod();

      for(i=0;i<4;i++)
         movedisk[i]=0;
         havemove=1;
     if (ifwin()==1) return;       /****check if moves are finished****/
    break;

 case 27:closegraph(); exit(0);
 default:break;
       }
F(1,BLACK);
       B(20,100,609,130);
       F(1,RED);
       S(RED);
       C(118+(rn*200),115,10);
       floodfill(118+(rn*200),115, RED);

}
}

/********************MAIN*******************/
void main()
{
  int gd=DETECT,gm=0;
  int input,i;
  initgraph(&gd,&gm,"");
  setbkcolor(BLACK);
  S(YELLOW);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,4);
  O(150,204,"HANOI TOWER");
  S(LIGHTBLUE);
  O(149,203,"HANOI TOWER");
  S(YELLOW);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,3);
  O(267,254,"V 1.0");
  S(LIGHTBLUE);
  O(266,253,"V 1.0");
  S(LIGHTBLUE);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
  O(243,300,"--MADE BY CHENCHENG--");
  S(CYAN);
  O(242,299,"--MADE BY CHENCHENG--");
  sleep(2);
  cleardevice();
  helpmessage();
  S(GREEN);
  settextstyle(DEFAULT_FONT,HORIZ_DIR,1);
for (i=1;i<75;i++)
  {delay(500);          /*SPEED OF THE SENTENCE*/
  setviewport(0,0,50+i*8,479,1);
  O(155,230,"PLEASE INPUT THE NUMBERS OF DISKS(3..7):");
  }
while((input=getch())<'3'||input>'7');
  input=input-48;
  disk=input;
  delay (1000);
  action();
  cleardevice();
ag:
  game();              /********GAME*******/
  cleardevice();
  if (disk<7) disk++;
  step=0;
  goto ag;
}