/* 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]);
}.