/* MASTERMIND game.  Invoke as	mast pick from maxx */
#include "windows.h"
#include <time.h>
#include <math.h>
#include <string.h>

#define WIDTH 4
#define HEIGHT 4
#define SMALL 1
#define PICK 4
#define FROM 6
FILE *file;

struct DATA
    {char name[10];
	int type;
	char datelastran[9];
	int prevgames;
	double prevavg;
	int totalgames;
	double overallavg;
    };
struct DATA mm;

int winnum(MOUSEPTR mouse,int numwindows,int winwidth);
int which(MOUSEPTR mouse);
void message(WINDOWPTR wp,int count,double *rounds,double *average,int navg);
void readmm(FILE *file, struct DATA *mm, char *nameseek, int typeseek);
void updatemm(MOUSEPTR mouse,FILE *file,struct DATA *mm,
				   int presentgames,double presentavg);

int pick;
main(int argc, char *argv[])
{
  MOUSEPTR m1;
  WINDOWPTR w1[FROM],w2,w3[13*(PICK+1)];
  int watrib[FROM],watrib2,watrib3[PICK];
  int maxx,from,batrib=0,batrib2,ntar[PICK];
  int color[]={RED,CYAN,MAGENTA,GREEN,BLUE,YELLOW};
  int i,j,row,col,nx,no,n[FROM],flag,nrow,count,xpos[]={30,32,34,36,38};
  int typeseek,navg;
  static char player[10],letter,list[]="ABCDEF";
  char target[PICK+1],savestr[PICK+1],guess[PICK+1];
  double average,rounds=0;
  time_t ltime;

  if(argc>=2)	  /* set number of pegs to pick */
   {pick=atoi(argv[1]);
    if(pick>PICK)pick=PICK;
   }
  else
    pick=PICK;

  if(argc>=3)	  /* set number of a available colors */
   {from=atoi(argv[2]);
    if(from>FROM)from=FROM;
   }
  else
    from=FROM;

  if(argc>=4)	  /* set maximum number of occurences of each color */
    maxx=atoi(argv[3]);
  else
    maxx=2;

  nx=time(&ltime)%100; /* randomize */
  for (i=0;i<nx;i++) rand();

  if((file=fopen("mm.log","a+"))==NULL)
      {printf("File not opened\n");exit();}
  printf("Please enter your first name:\n");
  gets(player);
  system("mode co80");

  typeseek=100*pick+10*from+maxx;
  readmm(file, &mm, player, typeseek);
  navg=mm.overallavg+1.0;
  if(navg==0)navg=6;
  getch();
  v_cls(NORMAL);		/* clear the screen */
  batrib2 = (BLUE << 4) | WHITE; /* border atrib     */
  watrib2 = (WHITE <<4);
  w2 = wn_open(0,0,45,33,15,watrib2,batrib2);
  if(w2==0)
    {printf("Open failed first window\n"); exit();}
  else
    {wn_wrap(w2,1);  /* Display Instructions */
     wn_title(w2,"M A S T E R M I N D");
     wn_printf(w2,
     "Use mouse left button to select\n%d pegs from the %d colors\navailable."
     " There are at most %d\npegs of the same color. "
     "Select\nall RED to give up or all CYAN\nto quit.\n\n",pick,from,maxx);
     wn_printf(w2,
     "Each X in the clue means you got\none peg exactly right in color "
     "\nand position.  Each O means you\nhave the right color but the"
     "\nwrong position.  Good luck!\n\n");
    }

  for(row=col=i=0;i<from;i++,col+=WIDTH)       /*paint next 6 windows */
    {watrib[i]=(color[i] << 4) ;
     w1[i] = wn_open(1000,row,col,WIDTH,HEIGHT,watrib[i],batrib);
     if(!w1[i]){wn_printf(w2,"Open failed window %d\n",i);exit();}
    }

  m1 = (MOUSEPTR)mo_reset();	      /* init mouse */
  if(m1==0){wn_printf(w2,"No mouse present.\n");exit(0);}
  mo_setptr(m1, 0x02, NORMAL);	      /* set mouse pointer style */
  mo_reigon(m1, 0, 0, from*WIDTH, HEIGHT);   /* set mouse "window*/
  mo_show(m1);			      /* show the critter */

  nrow=-2;
  count=0;
   do{	    /* Generate new string to be solved*/
	 flag=0;
      for (i=0;i<from;i++) n[i]=0;
      for (i=0;i<pick;i++)
	{do {j=rand()%from; n[j]++;} while (n[j] > maxx);
	 target[i]=list[j];
	 ntar[i]=j;
	}
	 target[pick]='\0';
	 if(strncmp(target,"AAAA",pick)==0)continue;
	 if(strncmp(target,"BBBB",pick)==0)continue;
      do{   /* Restore generated string and read new trial */
	 nrow+=2;
	 strcpy(savestr,target);
	 for(i=0;i<pick;i++)
	   {j=winnum(m1,from,WIDTH);
	    guess[i]=list[j];
	    w3[count]=wn_open(1000,nrow,xpos[i],SMALL,1,watrib[j],batrib);
	    if(!w3[count])
	      {wn_printf(w2,"Open failed window %d\n",count);
		flag=2;
		break;
	      }
	    count++;
	   }
	 guess[pick]='\0';
	 w3[count]=wn_open(1000,nrow,xpos[pick],pick,1,watrib2,batrib2);
	 if(!w3[count])
	   {wn_printf(w2,"Open failed window %d\n",count);
	    flag=2;
	    break;
	   }
	 count++;
	 if (strncmp(guess,"AAAA",pick)==0)  /*Give up */
	     {wn_printf(w2,"Press Left Button to Continue\n"
			   "or Right One to Give Up.\n");
		 if(which(m1)==2)  /* 2 ==> right button */
	      {for(i=0;i<pick;i++)
		{j=count+i-pick-1;
		  wn_close(w3[j]);
		  w3[j]=
		   wn_open(1000,nrow,xpos[i],SMALL,1,watrib[ntar[i]],batrib);
		       if(!w3[j])
			 {wn_printf(w2,"Open failed window %d\n",j);
			  flag=2;
			  break;
			 }
		      }
		     wn_printf(w3[count-1],"give");
	       wn_printf(w2,"Oh, I'm so sorry.\n");
	       which(m1);
	       flag=1;
	       break;
		 }
	   }
	 if (strncmp(guess,"BBBB",pick)==0)  /*Quit*/
	   {wn_printf(w2,"Press Left Button to Continue\n"
			 "or Right One to Quit.\n");
		 if(which(m1)==2)
	       {wn_printf(w3[count-1],"quit");
		which(m1);
		flag=2;
		updatemm(m1,file,&mm,(int)rounds,average);
		break;
	       }
	   }
	 nx=0;
	 no=0;
	 for(i=0;i<pick;i++)
	   {if(guess[i] == savestr[i])
	      {nx++;
	       guess[i]='#';
	       savestr[i]='$';
	      }
	   }
	 if(nx!=pick)
	 for (j=0;j<pick;j++)
	   {if(guess[j]!='#')
	       {for (i=0;i<pick;i++)
		 {if(i!=j && savestr[i] == guess[j])
		    {no++;
		     savestr[i]='$';
		     guess[j]='#';
		     break;
		    }
		 }
	       }
	   }
	 if(nx+no==0) wn_printf(w3[count-1],"----");
	 else
	   {for (i=0;i<nx;i++) wn_printf(w3[count-1],"X");
	    for (j=0;j<no;j++) wn_printf(w3[count-1],"O");
	   }
	 if(count>=13*(pick+1) && nx!=pick)
	   {wn_printf(w2,"Sorry. You lost.\n");
	    winnum(m1,from,WIDTH);
	    flag=1;
	    break;
	   }

	}while(nx!=pick && flag!=2);
      if(flag==0)
	{message(w2,count,&rounds,&average,navg);
	 winnum(m1,from,WIDTH);
	}

       for(i=0;i<count;i++)wn_close(w3[i]);
       nrow=-2;
       count=0;
     } while (flag!=2);
v_cls(NORMAL);			    /* clear screen */
v_locate(0,0,0);		    /* home cursor */
mo_hide(m1);			    /* hide mouse */
m1 = (MOUSEPTR)mo_reset();	    /* reset mouse */
exit(0);			    /* finito */


}

int winnum(MOUSEPTR mouse,int numwindows,int winwidth)
{  int num,stat,col,row,click,slick=0;
   do{
	 mo_wait(mouse);
	 mo_press(mouse,MO_LEFT,&stat,&click,&row,&col);
	 slick+=click;
	}while(slick==0);
   num=col/winwidth;
   return num;
}

void message(WINDOWPTR wp,int count,double *rounds,double *average,int navg)
{ int n;
  static double sum=0;
  n=count/(pick+1);
  *average=(sum+=n)/(++*rounds);
  n=navg-n;
  wn_printf(wp,"%2d ",(int)*rounds);
  if(*rounds>1)wn_printf(wp,"average=%.2f  ",*average);
  if(n>=3)wn_printf(wp,"LUCKEYYY!");
  else if(n==2)wn_printf(wp,"WOW!");
  else if(n==1)wn_printf(wp,"Fantastic!");
  else if(n==0)wn_printf(wp,"Super!");
  else if(n==-1)wn_printf(wp,"Good!");
  wn_printf(wp,"\n");
}
int which(MOUSEPTR mouse)
{  int num,stat,col,row,click,crick,slick=0;
   do{
	 mo_wait(mouse);
      mo_press(mouse,MO_LEFT,&stat,&click,&row,&col);
      mo_press(mouse,MO_RIGHT,&stat,&crick,&row,&col);
	 slick+=(click+crick);
	}while(slick==0);
   num=(click>crick) ? 1 : 2;
   return num;
}
void updatemm(MOUSEPTR mouse, FILE *file, struct DATA *mm,
				      int presentgames, double presentavg)
{
   double temp,denom;
   long pos;
   if(presentgames>0)
    {_strdate(mm->datelastran);
     denom=mm->totalgames+presentgames;
     temp =mm->overallavg * mm->totalgames + presentavg * presentgames;
     mm->overallavg=temp/denom;
     mm->totalgames=denom;
     pos=ftell(file);
     fseek(file,pos,SEEK_SET);
     fprintf(file,"%s %d %s %d %.2f %d %.2f\n",mm->name,mm->type,
	   mm->datelastran,presentgames,presentavg,mm->totalgames,
	   mm->overallavg);
     system("mode co80");
     printf("%s, you just played %d games at an average of %.2f.\n",
	   mm->name,presentgames,presentavg);
     if(mm->totalgames>presentgames)
       printf("Overall,\nyou have played %d games at an average of %.2f.\n",
	   mm->totalgames,mm->overallavg);
     getch();
    }
   fclose(file);
}
void readmm(FILE *file, struct DATA *mm, char *nameseek, int typeseek)

{    struct DATA tt;
     int flag=0;
     do{
	if(fscanf(file,"%s %d %s %d %lf %d %lf",tt.name,&tt.type,tt.datelastran,
	    &tt.prevgames,&tt.prevavg,&tt.totalgames,&tt.overallavg)==EOF)
	  break;

	   if(strcmpi(tt.name,nameseek)==0 && tt.type==typeseek)
	     {*mm=tt;
	   flag=1;
	  }
       }while(1);
    if(flag)
       printf("%s, you last played game type %d on %s,\nwhen you played %d "
	  "games with an average score of %.2f.\nOverall,\nyou have "
	  "played %d games with an average score of %.2f.\n"
	  "Good luck on improving your score this time!\n",
	  mm->name,mm->type,mm->datelastran,mm->prevgames,mm->prevavg,
	      mm->totalgames,mm->overallavg);
    else
       {printf("%s, Enjoy Your Game of MASTERMIND!\n",nameseek);
	mm->prevgames=0;
	mm->prevavg=0.00;
	mm->totalgames=0;
	mm->overallavg=0.0;
	mm->type=typeseek;
	strcpy(mm->name,nameseek);
       }
}