類似華容道遊戲源碼

#include <conio.h>

#include <dos.h>

#include <stdio.h>

#include<stdlib.h>

#define PSTARTX 30

#define PSTARTY  6

#define PWIDTH   20

#define PHEIGHT  11

puzzlemain()

{

 char scrbuff[1000];

 gettext(PSTARTX,PSTARTY,PSTARTX+PWIDTH,PSTARTY+PHEIGHT,scrbuff);

 play();

 puttext(PSTARTX,PSTARTY,PSTARTX+PWIDTH,PSTARTY+PHEIGHT,scrbuff);

}

ispass(int num[4][4])

{

 int i,j;

 for(i=0;i<4;i++)

  for(j=0;j<4;j++)

   if (num[i][j]!=i*4+j+1)

    return 0;

   return 1;

}

beep(int d)

{

 char originalbits,bits;

 bits=originalbits=inportb(0x61);

 outportb(0x61,bits&0xfc);

 outportb(0x43,0xb6);

 outportb(0x42,989);

 outportb(0x42,5);

 outportb(0x61,bits|3);

 delay(d);

 outportb(0x61,bits&0xfc);

 outportb(0x61,originalbits);

}

move(int direct,int *l,int *c,int num[4][4])

{

 static char *str[16]={" 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9",

  "10","11","12","13","14","15","  "};

 int pass=0;

 int t;

 setscrcolor(BLUE,WHITE);

 switch(direct)

    {

 case 1:

  if ((*l>=0)&&(*l<=2))

  { *l=*l+1;

  t=num[*l][*c];

  num[*l][*c]=num[*l-1][*c];

  num[*l-1][*c]=t;

  putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l)*2,str[num[*l][*c]-1]);

  putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l-1)*2,str[num[*l-1][*c]-1]);

  beep(500);

  if (ispass(num))

   pass=1;

  }

  else

   beep(5000);

  break;

 case 2:

  if ((*c>=0)&&(*c<=2))

  { *c=*c+1;

  t=num[*l][*c];

  num[*l][*c]=num[*l][*c-1];

  num[*l][*c-1]=t;

  putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l)*2,str[num[*l][*c]-1]);

  putsxy(PSTARTX+3+(*c-1)*4,PSTARTY+2+(*l)*2,str[num[*l][*c-1]-1]);

  beep(500);

  if (ispass(num))

   pass=1;

  }

  else

   beep(5000);

  break;

 case 3:

  if ((*c<=3)&&(*c>0))

  {

   *c=*c-1;

   t=num[*l][*c];

   num[*l][*c]=num[*l][*c+1];

   num[*l][*c+1]=t;

   putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l)*2,str[num[*l][*c]-1]);

   putsxy(PSTARTX+3+(*c+1)*4,PSTARTY+2+(*l)*2,str[num[*l][*c+1]-1]);

   beep(500);

   if(ispass(num))

    pass=1;

  }

  else beep(5000);

  break;

 case 4:

  if ((*l<=3)&&(*l>0))

  {

   *l=*l-1;

   t=num[*l][*c];

   num[*l][*c]=num[*l+1][*c];

   num[*l+1][*c]=t;

   putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l)*2,str[num[*l][*c]-1]);

   putsxy(PSTARTX+3+(*c)*4,PSTARTY+2+(*l+1)*2,str[num[*l+1][*c]-1]);

   beep(500);

   if(ispass(num))

    pass=1;

  }

  else beep(5000);

  break;

    }

 return pass;

}

play()

{

 int key;

 int exitgame=0;

 int l,c;

 static char *str[16]={" 1"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9",

  "10","11","12","13","14","15","  "};

 static int num[4][4];

 drawframe(num,str,&l,&c);

 while(!exitgame)

 {

  while(bioskey(1)==0);

  key=bioskey(0);

  switch(key)

  {

  case UPA:

   if(move(1,&l,&c,num))

   {

    if(!getyesno("    Passed! Play again?"))

     exitgame=1;

    else

     drawframe(num,str,&l,&c);

   }

   break;

  case DOWNA:

   if(move(4,&l,&c,num))

   {

    if(!getyesno("    Passed! Play again?"))

     exitgame=1;

    else

     drawframe(num,str,&l,&c);

   }

   break;

  case LEFTA:

   if(move(2,&l,&c,num))

   {

    if(!getyesno("    Passed! Play again?"))

     exitgame=1;

    else

     drawframe(num,str,&l,&c);

   }

   break;

  case RIGHTA:

   if(move(3,&l,&c,num))

   {

    if(!getyesno("    Passed! Play again?"))

     exitgame=1;

    else

     drawframe(num,str,&l,&c);

   }

   break;

  case RETURN:

   break;

  case ESC:

   if(!getyesno("  Do you want play again?"))

    exitgame=1;

   else

    drawframe(num,str,&l,&c);

   break;

  default:

   break;

  }

    }

}

getyesno(char *s)

{

 int key=0;

 int yesno=1;

 char buff[400];

 gettext(25,8,55,13,buff);

 setscrcolor(BLUE,WHITE);

 box(25,8,30,5);

 putsxy(27,9,s);

 setscrcolor(RED,YELLOW);

 putsxy(32,11,"Yes");

 setscrcolor(LIGHTGRAY,WHITE);

 putsxy(45,11,"No");

 while(key!=RETURN)

 {

  while(bioskey(1)==0);

  key=bioskey(0);

  switch(key)

  {

  case LEFTA:

  case RIGHTA:

   if (yesno)

   {

    yesno=0;

    setscrcolor(LIGHTGRAY,WHITE);

    putsxy(32,11,"Yes");

    setscrcolor(RED,YELLOW);

    putsxy(45,11,"No");

   }

   else

   {

    yesno=1;

    setscrcolor(RED,YELLOW);

    putsxy(32,11,"Yes");

    setscrcolor(LIGHTGRAY,WHITE);

    putsxy(45,11,"No");

   }

   break;

  default:

   break;

  }

 }

 puttext(25,8,55,13,buff);

 return yesno;

}

initnumber(int num[4][4],int *l,int *c)

{

 int i,j,t;

 int n[20][16]={

  {1,6,2,3,5,13,4,8,16,10,14,7,9,15,11,12},

  {1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16},

  {1,16,2,3,5,6,7,4,9,10,11,8,13,14,15,12},

  {2,3,7,16,6,11,14,4,1,10,13,8,5,9,15,12},

  {10,16,15,7,8,2,3,4,1,6,11,12,9,5,13,14},

  {8,3,15,2,13,6,1,14,10,5,11,7,4,9,16,12},

  {9,10,5,6,15,14,1,3,11,13,2,4,16,7,12,8},

  {5,6,1,2,10,4,14,3,9,13,12,8,15,11,16,7},

  {13,6,14,2,1,5,7,4,10,15,12,3,16,9,11,8},

  {6,2,3,8,1,14,13,12,9,4,11,16,5,10,7,15},

  {2,3,8,7,6,9,15,4,1,13,10,12,5,14,16,11},

  {3,2,8,12,1,11,13,15,5,6,16,7,9,10,14,4}

 };

 t=random(12);

 for(i=0;i<4;i++)

  for(j=0;j<4;j++)

  {

   num[i][j]=n[t][i*4+j];

   if (num[i][j]==16)

    *l=i,*c=j;

  }

}

drawframe(int num[4][4],char *str[16],int *l,int *c)

{

 int i,j;

 setscrcolor(LIGHTGRAY,GREEN);

 initnumber(num,l,c);

 box(PSTARTX,PSTARTY,PWIDTH,PHEIGHT);

 setscrcolor(BLUE,YELLOW);

 for(i=0;i<4;i++)

  for(j=0;j<4;j++)

   putsxy(PSTARTX+3+j*4,PSTARTY+2+i*2,str[num[i][j]-1]);

}.