#include "game.h"      // Bindet die Definitionen fuer das Spielfeld ein.
#include <stdlib.h>    // Stellt die Zufallsfunktion rand() bereit.
#include <string.h>    // Stellt die Funktion strlen() bereit.

#define MAX_RAND_TRIES_PER_WORD 10 // Legt fest, wie oft eine Position versucht wird.
#define EMPTY_CHAR 0               // Kennzeichnet ein leeres Feld.

int createWordSalad( // Erstellt das Spielfeld und gibt die Anzahl platzierter Woerter zurueck.
    char salad[MAX_SEARCH_FIELD_LEN][MAX_SEARCH_FIELD_LEN], // Speichert alle Buchstaben im Spielfeld.
    unsigned int gitter_zeilen_spalten_anzahl,              // Gibt die tatsaechliche Spielfeldgroesse an.
    const char words[][MAX_WORD_LEN],                      // Enthaelt die einzutragenden Woerter.
    unsigned int wordCount)                                // Gibt die Anzahl der Woerter an.
{
    if (gitter_zeilen_spalten_anzahl == 0 || gitter_zeilen_spalten_anzahl > MAX_SEARCH_FIELD_LEN) // Prueft die Spielfeldgroesse.
    {
        return 0; // Beendet die Funktion bei ungueltiger Groesse.
    }

    for (unsigned int zeile = 0; zeile < gitter_zeilen_spalten_anzahl; zeile++) // Durchlaeuft alle Zeilen.
    {
        for (unsigned int spalte = 0; spalte < gitter_zeilen_spalten_anzahl; spalte++) // Durchlaeuft alle Spalten.
        {
            salad[zeile][spalte] = EMPTY_CHAR; // Setzt jedes Feld auf leer.
        }
    }

    unsigned int placedWords = 0; // Zaehlt die erfolgreich platzierten Woerter.

    for (unsigned int w = 0; w < wordCount; w++) // Durchlaeuft alle Woerter aus der Wortliste.
    {
        unsigned int len = (unsigned int)strlen(words[w]); // Ermittelt die Laenge des aktuellen Wortes.

        if (len == 0 || len > gitter_zeilen_spalten_anzahl) // Prueft, ob das Wort in das Spielfeld passt.
        {
            continue; // Ueberspringt ein ungueltiges oder zu langes Wort.
        }

        for (int attempt = 0; attempt < MAX_RAND_TRIES_PER_WORD; attempt++) // Versucht verschiedene Positionen.
        {
            int direction = rand() % 2; // Waehlt 0 fuer waagerecht oder 1 fuer senkrecht.

            unsigned int maxzeile = direction == 0 ? gitter_zeilen_spalten_anzahl : gitter_zeilen_spalten_anzahl - len + 1; // Berechnet die Anzahl moeglicher Startzeilen.
            unsigned int maxspalte = direction == 0 ? gitter_zeilen_spalten_anzahl - len + 1 : gitter_zeilen_spalten_anzahl; // Berechnet die Anzahl moeglicher Startspalten.

            unsigned int zeile = (unsigned int)rand() % maxzeile; // Bestimmt die zufaellige Startzeile.
            unsigned int spalte = (unsigned int)rand() % maxspalte; // Bestimmt die zufaellige Startspalte.

            int fits = 1; // Merkt sich, ob das Wort an dieser Position Platz hat.

            for (unsigned int i = 0; i < len; i++) // Prueft alle benoetigten Felder.
            {
                unsigned int r = zeile + (direction == 1 ? i : 0); // Berechnet die Zeile des aktuellen Buchstabens.
                unsigned int c = spalte + (direction == 0 ? i : 0); // Berechnet die Spalte des aktuellen Buchstabens.

                if (salad[r][c] != EMPTY_CHAR) // Prueft, ob das Feld bereits belegt ist.
                {
                    fits = 0; // Kennzeichnet die Position als ungeeignet.
                    break; // Bricht die Ueberpruefung dieser Position ab.
                }
            }

            if (fits == 1) // Fuehrt die Platzierung nur aus, wenn alle Felder frei sind.
            {
                for (unsigned int i = 0; i < len; i++) // Durchlaeuft alle Buchstaben des Wortes.
                {
                    unsigned int r = zeile + (direction == 1 ? i : 0); // Berechnet die Zielzeile.
                    unsigned int c = spalte + (direction == 0 ? i : 0); // Berechnet die Zielspalte.

                    salad[r][c] = words[w][i]; // Schreibt den Buchstaben in das Spielfeld.
                }

                placedWords++; // Erhoeht die Anzahl der platzierten Woerter.
                break; // Beendet die Versuche fuer dieses erfolgreich platzierte Wort.
            }
        }
    }

    
    for (unsigned int zeile = 0; zeile < gitter_zeilen_spalten_anzahl; zeile++) // Durchlaeuft alle Zeilen des Spielfeldes.
    {
        for (unsigned int spalte = 0; spalte < gitter_zeilen_spalten_anzahl; spalte++) // Durchlaeuft alle Spalten der aktuellen Zeile.
        {
            if (salad[zeile][spalte] == EMPTY_CHAR) // Prueft, ob das aktuelle Feld noch leer ist.
            {
                salad[zeile][spalte] = (char)('A' + rand() % 26); // Schreibt einen zufaelligen Grossbuchstaben von A bis Z.
            }
        }
    }

    return (int)placedWords; // Gibt die Anzahl der erfolgreich platzierten Woerter zurueck.
}