/*
	All of the below was authored by me.
	By using any part of this source code, you agree to waive all liabilities from the author.
	Furthermore, you agree that you will not use this source code for personal (or corporate) gain.
	Finally, should you change any part of this source code, you agree to give credit to the author where such credit is due.

	This code utilizes pointers, and creates one-dimensional arrays using "pointer = (cast) malloc (arguments);".
	When modifying this code, it is important to keep in mind that variables declared within a function, and variables declared inside a function arguement list are function specific (local).
*/

#include <stdio.h>
#include <stdlib.h>

void config(int *colors, int *size, int *guesses);
void gen_arr(int *arr, int colors, int size);
void get_arr(int *arr, int colors, int size);
void arr_copy(int *arr, int *arrcopy, int size);
int pos_chk(int *gss, int *brd, int size);
int clr_chk(int *gss, int *gss_cpy, int *brd, int size);

int main() {
	int *brd, *gss, *gss_cpy, i, exit, colors, size, guesses, won, lost, win, pos_cor, clr_cor;
	printf("---=== Mastermind ===---\n");
	for (won=lost=0,exit=1;exit;)	{
		do {
			config(&colors, &size, &guesses);
			/* sizeof(int) == 4 */
			gss = (int *) malloc(size * 4);
			gss_cpy = (int *) malloc(size * 4);
			brd = (int *) malloc(size * 4);
			if (brd==NULL || gss==NULL || gss_cpy==NULL)
				printf("Uh Oh! Your computer doesn't like me. Try setting FEWER positions.");
		} while (brd==NULL || gss==NULL || gss_cpy==NULL);
		printf("\n\n\n%d colors to choose from, each represented by POSITIVE integers (1 to %d).\nEnter 0 to change previous position.\nYou have %d tries.\nGood Luck!\n\n\n",colors,colors,guesses);
		
		gen_arr(brd,colors,size);			// This initializes the "brd" array created using "pointer = malloc(arguments);"
		for (i=1; i<=guesses;i++) {
			get_arr(gss,colors,size);		// This initializes the "gss" array
			pos_cor = pos_chk(gss,brd,size);	// Checks if gss and brd arrays are identical; if not, how many values are the same
			if (pos_cor!=4) {
				clr_cor = clr_chk(gss,gss_cpy,brd,size);
				printf("\n\n\n%d colors correct with %d in proper position.\n%d tries remaining.\n\n\n",clr_cor,pos_cor,guesses-i);
				win=0;
			}
			else { win=1; break; }
		}
		if(!win) {
			lost++;
			putchar(10);  					// ASCII character 10 is the newline character
			for (i=0; i<size; i++)	printf(" %d",*(brd+i));
			printf(" was the answer.\n\nBetter Luck Next Time.\n\n");
		}
		else { won++; printf("Congratulations! You solved the puzzle!\n"); }

		/*
			This only displays how many times you have played for THIS time of running the executable.
			This does NOT store any information on the computer running the executable.
			You are welcome to code in some way of keeping track of this; however,  do so at your own risk
		*/

		printf("You have played %d time (%d wins %d losses).\n\nEnter 0 to exit.  ",won+lost,won,lost);
		scanf("%d",&exit);
		free(gss); free(gss_cpy); free(brd);
		gss=NULL; gss_cpy=NULL; brd=NULL;
		fflush(stdin);						// Clears Input Buffer
	}
	system("pause");return 0;
}

void config(int *colors, int *size, int *guesses) {
	do{	printf("Number of different colors (Minimum: 6): ");	scanf("%d",colors);	} while (*colors<6);
	do{	printf("Number of positions (Minimum: 4):        ");	scanf("%d",size);	} while (*size<4);
	do{	printf("Number of guesses (Minimum: 1):          ");	scanf("%d",guesses);	} while (!(*size));	
}

void gen_arr(int *arr,int colors, int size) {
	int i;
	srand ((unsigned) time(NULL));
	for (i=0; i<size; i++) 	*(arr+i)=rand()%colors+1;
	return;
}

void get_arr (int *arr,int colors, int size) {
	int i;
	for (i=0; i<size; i++)
		do	{
			if (i<0) i=0;
			printf("Color of Position %d: ",i+1);
			scanf("%d", arr+i);
			if (*(arr+i)>colors || *(arr+i)<0)
			printf("Invalid Color Integer. Please choose between 1 and %d inclusive.\n",colors);
			else if (!*(arr+i))	i-=2;
		} while (*(arr+i)>colors || *(arr+i)<0);
	return;		
}

void arr_copy(int *arr, int *arrcopy, int size) {
	int i;
	for (i=0;i<size;i++)
		*(arrcopy+i) = *(arr+i);
	return;
}

int pos_chk(int *gss, int *brd, int size) {
	int i,correct;
	for (correct=i=0;i<size;i++)
		if (*(gss+i) == *(brd+i)) correct++;
	return correct;
}

int clr_chk(int *gss, int *gss_cpy, int *brd, int size) {
	int i,j,correct;
	putchar(10);
	arr_copy(gss, gss_cpy, size);
	for (correct=i=0;i<size;i++)
		for (j=0;j<size;j++) {
			if (*(gss+j) != *(brd+i))	continue;
			else					{	*(gss+j)= -1;	correct++;	break;	}
		}
	arr_copy(gss_cpy,gss,size);
	return correct;
}