#include "game.h"
#include <stdlib.h>
#include <string.h>
#include <time.h>

#define MAX_RAND_TRIES_PER_WORD 100
#define EMPTY_CHAR 0

// Enum zur sauberen Unterscheidung der Platzierungsrichtung
typedef enum {
    DIR_HORIZONTAL = 0,
    DIR_VERTICAL = 1
} Direction;

int createWordSalad(char salad[MAX_SEARCH_FIELD_LEN][MAX_SEARCH_FIELD_LEN], unsigned int wordCount, char words[][100], unsigned int gridSize)
{
    // 1. Spielfeld vollständig zurücksetzen
    memset(salad, EMPTY_CHAR, MAX_SEARCH_FIELD_LEN * MAX_SEARCH_FIELD_LEN);

    int placedWordsCount = 0;

    // 2. Wörter im Spielfeld platzieren
    for (unsigned int i = 0; i < wordCount; i++) {
        unsigned int len = (unsigned int)strlen(words[i]);

        // Wörter ignorieren, die zu lang für das eingestellte Spielfeld sind
        if (len == 0 || len > gridSize) {
            continue;
        }

        // Versuche, eine freie und kollisionsfreie Position zu finden
        for (int attempt = 0; attempt < MAX_RAND_TRIES_PER_WORD; attempt++) {
            Direction dir = (rand() % 2 == 0) ? DIR_HORIZONTAL : DIR_VERTICAL;

            int dr = (dir == DIR_VERTICAL) ? 1 : 0;
            int dc = (dir == DIR_HORIZONTAL) ? 1 : 0;

            // Startkoordinaten so wählen, dass das Wort nicht aus dem Spielfeld herausragt
            unsigned int maxRow = (dir == DIR_VERTICAL) ? (gridSize - len + 1) : gridSize;
            unsigned int maxCol = (dir == DIR_HORIZONTAL) ? (gridSize - len + 1) : gridSize;

            unsigned int row = (unsigned int)(rand() % maxRow);
            unsigned int col = (unsigned int)(rand() % maxCol);

            // Prüfen, ob die Felder frei oder mit demselben Buchstaben belegt sind
            int canPlace = 1;
            for (unsigned int k = 0; k < len; k++) {
                char current = salad[row + k * dr][col + k * dc];
                if (current != EMPTY_CHAR && current != words[i][k]) {
                    canPlace = 0;
                    break;
                }
            }

            // Wort eintragen, wenn der Platz gültig ist
            if (canPlace) {
                for (unsigned int k = 0; k < len; k++) {
                    salad[row + k * dr][col + k * dc] = words[i][k];
                }
                placedWordsCount++;
                break;
            }
        }
    }

    // 3. Verbleibende leere Felder innerhalb der gridSize mit Zufallsbuchstaben ('A'-'Z') füllen
    for (unsigned int r = 0; r < gridSize; r++) {
        for (unsigned int c = 0; c < gridSize; c++) {
            if (salad[r][c] == EMPTY_CHAR) {
                salad[r][c] = 'A' + (rand() % 26);
            }
        }
    }

    return placedWordsCount;
}