/*       puzzle.c
  Author: zmofun 1999.12.7
  All rights is reserved.    */
#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]);
}