#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h> 
#include <signal.h>

// Define constants for the maximum number of words and tries
#define MAX_WORDS 14
#define MAX_TRIES 6

// Array of words used in the game
const char *words[MAX_WORDS] = {
    "programmation", 
    "ordinateur", 
    "langage", 
    "jeu", 
    "algorithmique", 
    "fontainebleau", 
    "koala", 
    "anticonstitutionnellement", 
    "code", 
    "canard", 
    "gyroscope", 
    "periclitation", 
    "susurrer", 
    "eclesiastique"
};

// Function to display the hangman figure based on the number of tries
void display_hangman(int tries) {
    switch (tries) {
        case 0: printf("  ----\n  |  |\n  |\n  |\n  |\n  |\n--------\n"); break;
        case 1: printf("  ----\n  |  |\n  |  O\n  |\n  |\n  |\n--------\n"); break;
        case 2: printf("  ----\n  |  |\n  |  O\n  |  |\n  |\n  |\n--------\n"); break;
        case 3: printf("  ----\n  |  |\n  |  O\n  | /|\n  |\n  |\n--------\n"); break;
        case 4: printf("  ----\n  |  |\n  |  O\n  | /|\\\n  |\n  |\n--------\n"); break;
        case 5: printf("  ----\n  |  |\n  |  O\n  | /|\\\n  | /\n  |\n--------\n"); break;
        case 6: printf("  ----\n  |  |\n  |  O\n  | /|\\\n  | / \\\n  |\n--------\n"); break;
    }
}
// Fct qui fait sortir du prog après avoir passé 30sec
void alarm_handler(int sig) {
    printf("\nTrop tard ! Vous avez dépassé les 30 secondes.\n");
    exit(1);  
}

//FCT pour calculer le score en fonction du temps mis et des erreurs obtenus
int calculate_score(int mistakes, time_t start_time) {
    time_t end_time = time(NULL);
    int time_taken = (int)difftime(end_time, start_time);
    int base_score = 1000 - (mistakes * 100) - time_taken;
    return (base_score < 0) ? 0 : base_score;
}

//FCT pour ajouter un bonus si le joueur trouve en moins de 3 essais
void apply_bonus(int *score, int tries) {
    if (tries <= 3) {
        *score += 500;
    }
}

// Function to randomly choose words and concatenate them to create a puzzle word
void choose_words(char *chosen_word, int max_length) {
    int total_length = 0, used[MAX_WORDS] = {0}, word_index;
    chosen_word[0] = '\0';

    // Select words until the maximum word length is reached or exceeded
    while (total_length < max_length) {
        word_index = rand() % MAX_WORDS;

        if (!used[word_index] && total_length + strlen(words[word_index]) + (total_length > 0 ? 1 : 0) <= max_length) {
            if (total_length > 0) { strcat(chosen_word, " "); 
                total_length++; 
            }

            strcat(chosen_word, words[word_index]);
            total_length += strlen(words[word_index]);
            used[word_index] = 1;
            if (total_length == max_length) 
                break;
        }

        // Check if all words that could fit are used
        int all_used = 1;
        for (int i = 0; i < MAX_WORDS; i++) {
            if (!used[i] && total_length + strlen(words[i]) + 1 <= max_length) { all_used = 0; 
                break; }
        }
        if (all_used) 
            break;
    }
}

// Function to play the hangman game
void play_game(const char *chosen_word, int word_length, int letters_to_guess) {
    char guessed[word_length + 1];
    int tries = 0, guessed_correctly = 0, score = 0, mistakes = 0;

    // Initialize guessed word display with underscores
    for (int i = 0; i < word_length; i++) 
        guessed[i] = (chosen_word[i] == ' ') ? ' ' : '_';
    guessed[word_length] = '\0';

    signal(SIGALRM, alarm_handler); 
    time_t start_time = time(NULL);  // Début du chronomètre pour le score

    // Main game loop, stops if max tries are reached or the word is guessed
    while (tries < MAX_TRIES && guessed_correctly < letters_to_guess) {
        printf("\nMot à deviner : %s\n", guessed);
        display_hangman(tries);
        
        // Get a letter guess from the player
        char guess;
        alarm(30); //début du compteur des 30 sec a chaque tour
        printf("Entrez une lettre : ");
        scanf(" %c", &guess);
        
        alarm(0); //fin du compteur et sortie du programme via le signal
        int found = 0, already_revealed = 0;

        // Check if the letter is in the word and update guessed word display
        for (int i = 0; i < word_length; i++) {
            if (chosen_word[i] == guess) {
                if (guessed[i] == '_') {
                    guessed[i] = guess;
                    guessed_correctly++;
                    found = 1;
                } else {
                    already_revealed = 1;
                }
            }
        }

        // Increment tries if the letter was not found and not already revealed
        if (!found && !already_revealed) {
            tries++;
            mistakes++;
        }
    }

    score = calculate_score(mistakes, start_time); //calcul le score en fonction des erreurs et du temps écoulé

    // Display win or lose message based on game outcome
    if (guessed_correctly == letters_to_guess) {
    apply_bonus(&score, tries);
        printf("Félicitations ! Vous avez deviné le mot : %s\n", chosen_word);
    } else {
        printf("Désolé, vous avez perdu. Le mot était : %s\n", chosen_word);
        display_hangman(MAX_TRIES);
    }

    printf("Votre score final est : %d\n", score);
}

// Main function to start the game
int main() {
    srand(time(NULL));
    int max_word_length;

    // Prompt user for maximum word length for the puzzle
    printf("Choisissez la taille maximum du mot à deviner : ");
    scanf("%d", &max_word_length);

    // Select a word within the specified length
    char chosen_word[max_word_length];
    choose_words(chosen_word, max_word_length);

    // Calculate total letters to guess (excluding spaces)
    int word_length = strlen(chosen_word), letters_to_guess = 0;
    for (int i = 0; i < word_length; i++)
        if (chosen_word[i] != ' ') letters_to_guess++;

    // Start the game with the chosen word
    play_game(chosen_word, word_length, letters_to_guess);
    return 0;
}