/*******************************************************************
  Ce code n'a pas ete commente car il a ete donne en examen
  http://www-sop.inria.fr/oasis/personnel/Carine.Courbis/c/
*********************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define MAX_CODE 4
#define NB_COULEUR 8

enum {DIFFICILE, FACILE = 4};
typedef enum {FALSE, TRUE} Boolean;
typedef enum {ROUGE, VERT, BLEU, JAUNE, MARRON, GRIS, FUSHIA, LAVANDE} Couleur;
typedef enum {JUSTE, COULEUR_OK, RIEN} Resultat;
typedef struct {
  Couleur code[MAX_CODE];
  Resultat resultat[MAX_CODE];
} Tentative;

#define MAX_TENTATIVES 9

void initMasterMind(Couleur code[]) {
  int i, graine;

  printf("Donner un nombre de depart : ");
  graine = getc(stdin);
  fflush(stdin);
  srand(graine);

  for (i=0; i<MAX_CODE; i++) {
    code[i] = rand()%NB_COULEUR;
  }
}

void afficheCouleur(Couleur couleur) {
  switch(couleur) {
  case ROUGE:
    putchar('r'); break;
  case VERT:
    putchar('v'); break;
  case BLEU:
    putchar('b'); break;
  case JAUNE:
    putchar('j'); break;
  case MARRON:
    putchar('m'); break;
  case GRIS:
    putchar('g'); break;
  case FUSHIA:
    putchar('f'); break;
  case LAVANDE:
    putchar('l'); break;
  default:
    printf("Erreur\n");
  }
  putchar(' ');
}

Boolean afficheResultat(Resultat res[], int niveau) {
  int bienPlacees = 0;
  int couleurOk = 0;
  int i;
  Boolean aGagne = FALSE;

  for (i=0; i<MAX_CODE; i++) {
    switch (*(res+i)) {
    case JUSTE:
      bienPlacees++;
      if (niveau == FACILE)
	putchar('n');
      break;
    case COULEUR_OK:
      couleurOk++;
      if (niveau == FACILE)
	putchar('b');
      break;
    default:
      if (niveau == FACILE)
	putchar('_');
    }
  }

  if (bienPlacees == MAX_CODE) {
    printf("\nBravo! Vous avez gagne\n");
    aGagne = TRUE;
  } else if (niveau == DIFFICILE){
    if (bienPlacees != 0)
      printf(" %dn ", bienPlacees);
    if (couleurOk != 0)
      printf(" %db ", couleurOk);
  }
  putchar('\n');
  return aGagne;
}

int donneCouleur(unsigned char car) {
  int couleur;
  switch (car) {
  case 'r':
    couleur = ROUGE; break;
  case 'j':
    couleur = JAUNE; break;
  case 'v':
    couleur = VERT; break;
  case 'b':
    couleur = BLEU; break;
  case 'f':
    couleur = FUSHIA; break;
  case 'g':
    couleur = GRIS; break;
  case 'm':
    couleur = MARRON; break;
  case 'l' :
    couleur = LAVANDE; break;
  default:
    couleur = -1;
  } 
  return couleur;
}

void saisieTentative(Tentative tentatives[], int nbTentatives, int niveau) {
  int i, j;
  int car;
  int couleur;

  switch (nbTentatives) {
  case 1:
    printf("Donnez la combinaison de votre %dere tentative\n", nbTentatives);
    break;
  case 2:
    printf("Donnez la combinaison de votre %dnde tentative\n", nbTentatives);
    break;
  case MAX_TENTATIVES:
    printf("Donnez la combinaison de votre DERNIERE tentative\n");
    break;
  default:
    printf("Donnez la combinaison de votre %deme tentative\n", nbTentatives);
  }
  printf("Tapez r pour rouge, v pour vert, b pour bleu, j pour jaune\n");
  printf("m pour marron, g pour gris, f pour fushia, l pour lavande\n");

  if (nbTentatives > 1) {
    printf("Precedentes Tentatives\n");
    for (i=0; i<nbTentatives-1; i++) {
      printf("%d ", i+1);
      for (j=0; j<MAX_CODE; j++)  
	afficheCouleur(tentatives[i].code[j]);
      afficheResultat(tentatives[i].resultat, niveau);
    }
    printf("**********************\n");
  }

  for (i=0; i<MAX_CODE;) {
    while(!isalpha(car = getchar()))
      ;
    couleur = donneCouleur((unsigned char)car);
    if (couleur >= 0) {
      tentatives[nbTentatives-1].code[i++] = couleur;
    } else {
      i = 0;
      printf("%c n'est pas une couleur. Recommencez la saisie des 4 pions\n", car);
    }
  }
  fflush(stdin);
}

void compareCodes(Couleur secret[], Tentative * tentative) {
  Boolean utilise[MAX_CODE];
  int i, j;

  for(i=0; i<MAX_CODE; i++) {
    utilise[i] = FALSE;
  }

  for(i=0; i<MAX_CODE; i++) {
    if (secret[i] == tentative->code[i]) {
      tentative->resultat[i] = JUSTE;
      utilise[i] = TRUE;
    } else {
      j =0;
      while (j<MAX_CODE) {
	if ((tentative->code[i] == secret[j]) && (utilise[j] == FALSE) && 
	    (tentative->code[j] != secret[j])) {
	  utilise[j] = TRUE;
	  tentative->resultat[i] = COULEUR_OK;
	  break;
	}
	j++;
      }
      if (j >= MAX_CODE)
	tentative->resultat[i] = RIEN;
    }
  }  
}

void main(int argc, char * argv[]) {
  int i;
  int nbTentatives = 1;
  int niveau = DIFFICILE;
  Couleur code[MAX_CODE];
  Tentative tentatives[MAX_TENTATIVES];
  Boolean aGagne = FALSE;

  if (argc > 1) {
    if (strcmp(argv[1], "f") == 0)
      niveau = FACILE;
  }
  initMasterMind(code);

  do {
    saisieTentative(tentatives, nbTentatives, niveau);
    compareCodes(code, &(tentatives[nbTentatives-1]));
    aGagne = afficheResultat(tentatives[nbTentatives-1].resultat, niveau);
    nbTentatives++;
  } while ((nbTentatives <= MAX_TENTATIVES) && (!aGagne));
  
  if (!aGagne) {
    printf("Perdu!!!!");
    printf("Voila la combinaison gagnante : ");
    for(i=0; i<MAX_CODE; i++) 
      afficheCouleur(code[i]);
    putchar('\n');
  }
}