/* http://www.mrwadlo.com */
#include <stdio.h>
#include <conio.h>
#include <time.h>
#include <math.h>

int guess;
int question[9];
int answer[9];
int total[7] = { 0,0,0,0,0,0,0 };
int games[7] = { 0,0,0,0,0,0,0 };
int cols = 4;

void createboard();
void drawboard();
void getguess();
char compare();
void rank();
void getrows();
void help();
void load();
void save();
void demo();
void showarrow();

void main()
{
	int i;
	char ext = 'y';
	char win = 'n';

        clrscr();
	textcolor(7);
	textbackground(0);

	load();



	getrows();

        while ( ext != 'q' && ext != 'Q' )
	{
		guess = 0;

		clrscr();
                rank('n');

                createboard();
		drawboard();

		while ( win == 'n' && guess < 20 )
		{
			showarrow();
			getguess();
			win = compare();
		}

                gotoxy(3,24);
		for ( i=0 ; i<cols ; i++ )
		{
			textcolor(answer[i] + 9);
			cprintf("%d", answer[i]);
		}

		textcolor(7);

		gotoxy(cols/2+27,10);
		if (win != 'n')
			printf("You Win!\a");
		else
			printf("You Lost!");

		gotoxy(cols/2+28,12); printf("[P]lay");
		gotoxy(cols/2+28,13); printf("[C]olumns");
		gotoxy(cols/2+28,14); printf("[Q]uit");

		rank('y');

		win = 'n';

		save();

		do {
			ext = getch();
		} while (ext != 'q' && ext != 'Q' &&
			 ext != 'p' && ext != 'P' &&
			 ext != 'c' && ext != 'C');

		if ( ext == 'c' || ext == 'C' )
		{
			getrows();
		}
	}
}
void createboard()
{
	int i;

        srand((unsigned int)time((time_t *)NULL));

	for ( i=0 ; i<cols ; i++ )
	{
		answer[i] = ( rand() + time(NULL) ) % 4 + 1;
        }

	gotoxy(3,24);
	for ( i=0 ; i<cols ; i++ )
	{

		printf("%c", 219);
	}
}
void drawboard()
{
	int i;

	textcolor(7);

	for ( i=3 ; i<cols+3 ; i++ )
	{
		gotoxy(i,2);
		printf("%c", 205);
		gotoxy(i,23);
                printf("%c", 205);
	}
	for ( i=3 ; i<23 ; i++ )
	{
		gotoxy(2,i);
		printf("%c", 186);
		gotoxy(cols+3,i);
		printf("%c", 186);

		gotoxy(cols+7,i);
		printf("%c %c",179,179);
	}

	gotoxy(2,2);		printf("%c", 201);
	gotoxy(cols+3,2);	printf("%c", 187);
	gotoxy(2,23);   	printf("%c", 204);
	gotoxy(cols+3,23);	printf("%c", 185);
	gotoxy(2,24);		printf("%c", 200);
	gotoxy(cols+3,24);	printf("%c", 188);

	gotoxy(cols+5,2);	printf("Correct");
	gotoxy(cols+7,23);	printf("%c%c%c",192,210,217);
	gotoxy(cols+3,24);	printf("%c%c%c%c%c%c",202,205,205,205,205,188);

	gotoxy(cols+6,3);	printf("%c%c %c%c",192,191,218,217);
                                                   
	for ( i=14 ; i<23 ; i++ )
	{
		gotoxy(51,i);
		printf("%c",186);

		gotoxy(61,i);
		printf("%c",179);
		gotoxy(69,i);
		printf("%c",179);

		gotoxy(79,i);
		printf("%c",186);
	}
	for ( i=52 ; i<79 ; i++ )
	{
		gotoxy(i,13);
		printf("%c",205);

		gotoxy(i,15);
		printf("%c",196);

		gotoxy(i,23);
		printf("%c",205);
	}
	gotoxy(51,13);	printf("%c", 201);
	gotoxy(79,13);	printf("%c", 187);
	gotoxy(51,23);	printf("%c", 200);
	gotoxy(79,23);	printf("%c", 188);

	gotoxy(61,15);	printf("%c",197);
	gotoxy(69,15);  printf("%c",197);

	gotoxy(61,13);  printf("%c",209);
	gotoxy(69,13);	printf("%c",209);
	gotoxy(61,23);  printf("%c",207);
	gotoxy(69,23);	printf("%c",207);

	gotoxy(51,15);  printf("%c",199);
	gotoxy(79,15);	printf("%c",182);

	gotoxy(53,14);	printf("Columns");
	gotoxy(63,14);	printf("Games");
	gotoxy(71,14);	printf("Average");

        gotoxy(54,cols+13);
	printf("%c   %c",16,17);

	for ( i=3 ; i<10 ; i++ )
	{
		gotoxy(56,i+13);
		printf("%d", i);
	}

	help();
	
}
void getguess()
{                   
	int i=0;
	char ch;

	guess++;

	gotoxy(3,2+guess);

	while ( i<cols+1 )
	{
		ch = getch() - '0';

		if ( ch == '\b' - '0' && i>0 )
		{
			printf("\b \b");
                        i--;
                }
		else if ( ch > 0 && ch < 5 && i<cols)
		{
			question[i] = ch;

			textcolor(question[i] + 9);
			cprintf("%d", question[i]);


			i++;
		}
		else if ( i == cols && ch == 13 - '0' )
		{
			i++;
		}
                	
	}
	textcolor(7);
}
char compare()
{
	int i = 0;
        int right = 0;

	while ( i<cols )
	{
		if ( question[i] == answer[i] )
                {
			right++;
                }
		i++;
	}

	gotoxy(cols+8,2+guess);
	printf("%d", right);

	if ( right < cols )
		return 'n';
	else
		return 'y';
}
void rank(char ch)
{
	int i;

	if ( ch == 'y' )
	{
        	games[cols-3]++;
		total[cols-3] += guess;
	}

	gotoxy(cols+16,4);

	for ( i=3 ; i<10 ; i++ )
	{
		gotoxy(65,i+13);
		printf("%d", games[i-3]);

		gotoxy(72,i+13);
		if ( games[i-3] > 0 )
		{
			printf("%2d.%1.0f", total[i-3] / games[i-3], ((1.0F * total[i-3] / games[i-3]) - total[i-3]/games[i-3]) * 10);
		}
		else
		{
			printf(" N/A");
		}
        }
}
void getrows()
{                           
        
	int i;
	

	do {

		clrscr();
		textcolor(14);

		for ( i=8 ; i<16 ; i++ )
		{
			gotoxy(21,i);	cprintf("%c",186);
			gotoxy(47,i);	cprintf("%c",186);
		}
		for ( i=22 ; i<47 ; i++ )
		{
			gotoxy(i,7);	cprintf("%c",205);
			gotoxy(i,16);	cprintf("%c",205);
		}

		gotoxy(21,7);	cprintf("%c",201);
		gotoxy(21,16);  cprintf("%c",200);
		gotoxy(47,7);   cprintf("%c",187);
		gotoxy(47,16);  cprintf("%c",188);

		gotoxy(24,11);	cprintf("How many columns 3-9?");
		gotoxy(27,12);	cprintf("(Default is 4)");

		textcolor(7);

		demo();

		cols = getch() - '0';

		if ( cols < 3 || cols > 9 )
		{
			printf("\a");
                }

	} while ( cols < 3 || cols > 9 );
}
void help()
{
	gotoxy(51,2);	printf("Attempt to solve the code by");
	gotoxy(51,3);	printf("entering a sequence of");
	gotoxy(51,4);	printf("numbers, each ranging from 1");
	gotoxy(51,5);	printf("to 4. When a row is filled,");
	gotoxy(51,6);	printf("press enter. To the left of");
	gotoxy(51,7);   printf("of the board is a response of");
	gotoxy(51,8);	printf("how many digits you have in");
	gotoxy(51,9);	printf("the correct order. You have a");
	gotoxy(51,10);	printf("maximum of 20 guesses. Scores");
	gotoxy(51,11);	printf("are displayed below.");
}
void load()
{
	int i;
	FILE *fp; 
	fp = fopen("memory.dat","r"); 
	if (fp != 0) 
	{
		for ( i=3 ; i<10 ; i++ )
			fscanf(fp, "%d ", &games[i-3]); 
		for ( i=3 ; i<10 ; i++ )
			fscanf(fp, "%d ", &total[i-3]);	
	}
	fclose(fp);
}
void save()
{
	int i;
	FILE *fp; 
	fp = fopen("memory.dat","w"); 
	if (fp != 0) 
	{
		for ( i=3 ; i<10 ; i++ )
			fprintf(fp, "%d ", games[i-3]);

                fprintf(fp, "\n");

		for ( i=3 ; i<10 ; i++ )
			fprintf(fp, "%d ", total[i-3]);
	}
	fclose(fp);
}
void demo()
{
	int x=1, y=1, rnd, i;

	if ( cols > 9 || cols < 3 )
	{
		cols = 4;
        }

	drawboard();
	rank('n');

	

	while ( !kbhit() )
        {
		rnd = rand() % 4 + 1;

		gotoxy(x+2,y+3);
                textcolor(rnd+9);
		cprintf("%d", rnd);

 		x++;
		if ( x > cols )
		{
			x=1;
			y++;

			if ( y > 19)
			{
				
				gotoxy(x+2,y+4);
				for ( i=0 ; i<cols ; i++ )
				{
                        		rnd = rand() % 4 + 1;
					textcolor(rnd+9);
					cprintf("%d", rnd);
				}
                                y = 0;
                        }
		}
		if ( x == cols )
		{
			rnd = (rand() % (cols-1)) +1;
			gotoxy(x+8,y+3);

			printf("%d", rnd);
		}
		

	}
	textcolor(7);
}
void showarrow()
{
	gotoxy(cols+4,guess+3);	cprintf("%c%d",17,guess+1);
	if (guess <9 && guess > 0)
		cprintf("%c",16);

        textcolor(8);

	if ( guess > 0 )
	{
		gotoxy(cols+4,guess+2);	cprintf("%c%d",17,guess);
		if (guess-1 <9 && guess-1 > 0)
		cprintf("%c",16);
        }
	if ( guess < 19 )
	{
		gotoxy(cols+4,guess+4);	cprintf("%c%d",17,guess+2);
		if (guess+1 <9)
			cprintf("%c",16);
	}

	if ( guess > 1 )
	{
		gotoxy(cols+4,guess+1);
		cprintf("  ");

		if ( guess > 2 )
                	printf(" ");
	}

	textcolor(7);
}