/*	Puzzle Game Project.
*	Written By : Ahmad Siavashi,
*	Summer 1391 - 2012.
*/
#include <Windows.h>
#include <stdio.h>
#include <time.h>

void gotoxy(int x,int y);
void DrawTable(void);
void StartGame(void);
void GeneratingNums(int **board);
void HashTheNums(int **board);
void PuttingNumsInTable(int **board);
void GameControl(int **board);

int BoardSize,Hardness;

int main()
{
	printf("Enter the dimension of the table : ");
	scanf("%d",&BoardSize);
	printf("\nEnter level of hardness : ");
	scanf("%d",&Hardness);
	system("cls");
	DrawTable();
	StartGame();
	return EXIT_SUCCESS;
}

// The Game Begins.
void StartGame(void)
{
	int i;
	int **board = (int **)malloc(BoardSize * sizeof(int));
	for(i=0;i<BoardSize;++i)
		board[i] = (int *)malloc(BoardSize * sizeof(int));
	GeneratingNums(board);
	HashTheNums(board);
	PuttingNumsInTable(board);
	GameControl(board);
}

// Puting Numbers In The Table.
void PuttingNumsInTable(int **board)
{
	int i,j;
	int k,l;
	int x=3,y=2;
	COORD EmptyPos;
	enum Places {MOVE_RL=6,MOVE_UD=4};
	gotoxy(x,y);
	for(j=0;j<BoardSize;++j)
	{
		for(i=0;i<BoardSize;++i)
		{
			if(board[j][i]!=0)
				printf("%d",board[j][i]);
			gotoxy(x+=MOVE_RL,y);
		}
		gotoxy(x=3,y+=MOVE_UD);
	}
	for(k=0;k<BoardSize;++k)
		for(l=0;l<BoardSize;++l)
			if(board[k][l] == 0)
			{
				EmptyPos.X=l;
				EmptyPos.Y=k;
			}
}

// Hashing the numbers.
void HashTheNums(int **board)
{
	int direction,i;
	int j,k;
	int temp;
	COORD EmptyPos;	// Coordinates of the empty place.
	enum Arrows { UP = 2, LEFT = 1, RIGHT = 3, DOWN = 4 };
	srand(time(NULL));
	for(i=0;i<Hardness;++i)
	{
		for(j=0;j<BoardSize;++j)
			for(k=0;k<BoardSize;++k)
				if(board[j][k] == 0)
				{
					EmptyPos.X=k;
					EmptyPos.Y=j;
				}
SET_DIRECTION:	
			direction=(rand() % 4 + 1);
            switch(direction)
			{
				case UP:
					if(EmptyPos.Y+1<BoardSize)
					{
						temp = board[EmptyPos.Y+1][EmptyPos.X];
						board[EmptyPos.Y+1][EmptyPos.X] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					else
						goto SET_DIRECTION;
					break;
				case DOWN:
					if(EmptyPos.Y-1>=0)
					{
						temp = board[EmptyPos.Y-1][EmptyPos.X];
						board[EmptyPos.Y-1][EmptyPos.X] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					else
						goto SET_DIRECTION;
					break;
				case LEFT:
					if(EmptyPos.X+1<BoardSize)
					{
						temp = board[EmptyPos.Y][EmptyPos.X+1];
						board[EmptyPos.Y][EmptyPos.X+1] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					else
						goto SET_DIRECTION;
					break;
				case RIGHT:
					if(EmptyPos.X-1>=0)
					{
						temp = board[EmptyPos.Y][EmptyPos.X-1];
						board[EmptyPos.Y][EmptyPos.X-1] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					else
						goto SET_DIRECTION;
					break;
            }
	}
}

// Generating Numbers of the board.
void GeneratingNums(int **board)
{
	int i,j,n=1;
	for(j=0;j<BoardSize;++j)
		for(i=0;i<BoardSize;++i,++n)
			board[j][i]=n;
	if(j>0 && i>0)
		board[--j][--i]=0;
}

void gotoxy(int x, int y)
{
	//	Initialize the coordinates
	COORD coord = {x, y};
	//	Set the position
	SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE), coord);
}

// Draws the table of the game.
void DrawTable()
{
	int i,j;
	int x,y;
	for(j=0,x=y=0;j<=BoardSize;++j)
	{
		for(i=0;i<BoardSize;++i)
			printf(" -----");
	y+=4;
	gotoxy(x,y);
	}
	gotoxy(x=0,y=1);
	for(j=0;j<=BoardSize;++j)
	{
		for(i=0;i<BoardSize;++i)
		{
			printf("|\n");
			gotoxy(x,++y);
			printf("|\n");
			gotoxy(x,++y);
			printf("|\n");
			gotoxy(x,++y);
			printf("\n");
			gotoxy(x,++y);
		}
	x+=6;
	gotoxy(x,y=1);
	}
}

// Moving Numbers by keyboard.
void GameControl(int **board)
{
	int key;
	int i,j;
	int m,n;
	int temp;
	const int x=3,y=2;
	COORD EmptyPos;	// Coordinates of the empty place.
	enum Places {MOVE_RL=6,MOVE_UD=4};
	enum Arrows { UP = 72, LEFT = 75, RIGHT = 77, DOWN = 80 };
	while(TRUE){
		if(getch()==224){
            key=getch();
			for(m=0;m<BoardSize;++m)
				for(n=0;n<BoardSize;++n)
					if(board[m][n] == 0)
					{
						EmptyPos.X=n;
						EmptyPos.Y=m;
						goto NEXT;
					}
NEXT:
					gotoxy(x+EmptyPos.X*MOVE_RL,y+EmptyPos.Y*MOVE_UD);
            switch(key)
			{
                case UP:
					if(EmptyPos.Y+1<BoardSize)
					{
						gotoxy(x+EmptyPos.X*MOVE_RL,y+EmptyPos.Y*MOVE_UD);
						printf("%d",board[EmptyPos.Y+1][EmptyPos.X]);
						gotoxy(x+(EmptyPos.X)*MOVE_RL,y+(EmptyPos.Y+1)*MOVE_UD);
						printf("   \b\b\b");
						temp = board[EmptyPos.Y+1][EmptyPos.X];
						board[EmptyPos.Y+1][EmptyPos.X] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					break;
				case DOWN:
					if(EmptyPos.Y-1>=0)
					{
						gotoxy(x+EmptyPos.X*MOVE_RL,y+EmptyPos.Y*MOVE_UD);
						printf("%d",board[EmptyPos.Y-1][EmptyPos.X]);
						gotoxy(x+(EmptyPos.X)*MOVE_RL,y+(EmptyPos.Y-1)*MOVE_UD);
						printf("   \b\b\b");
						temp = board[EmptyPos.Y-1][EmptyPos.X];
						board[EmptyPos.Y-1][EmptyPos.X] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					break;
				case LEFT:
					if(EmptyPos.X+1<BoardSize)
					{
						gotoxy(x+EmptyPos.X*MOVE_RL,y+EmptyPos.Y*MOVE_UD);
						printf("%d",board[EmptyPos.Y][EmptyPos.X+1]);
						gotoxy(x+(EmptyPos.X+1)*MOVE_RL,y+(EmptyPos.Y)*MOVE_UD);
						printf("   \b\b\b");
						temp = board[EmptyPos.Y][EmptyPos.X+1];
						board[EmptyPos.Y][EmptyPos.X+1] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					break;
				case RIGHT:
					if(EmptyPos.X-1>=0)
					{
						gotoxy(x+EmptyPos.X*MOVE_RL,y+EmptyPos.Y*MOVE_UD);
						printf("%d",board[EmptyPos.Y][EmptyPos.X-1]);
						gotoxy(x+(EmptyPos.X-1)*MOVE_RL,y+(EmptyPos.Y)*MOVE_UD);
						printf("   \b\b\b");
						temp = board[EmptyPos.Y][EmptyPos.X-1];
						board[EmptyPos.Y][EmptyPos.X-1] = board[EmptyPos.Y][EmptyPos.X];
						board[EmptyPos.Y][EmptyPos.X] = temp;
					}
					break;
				}
		}
	}
}