#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 searchFieldLen,                           // 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 (searchFieldLen == 0 || searchFieldLen > MAX_SEARCH_FIELD_LEN) // Prueft die Spielfeldgroesse.
    {
        return 0; // Beendet die Funktion bei ungueltiger Groesse.
    }

    for (unsigned int row = 0; row < searchFieldLen; row++) // Durchlaeuft alle Zeilen.
    {
        for (unsigned int col = 0; col < searchFieldLen; col++) // Durchlaeuft alle Spalten.
        {
            salad[row][col] = 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 > searchFieldLen) // 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.

            if(!direction)
            {
                int Zeile_Rand = rand() % searchFieldLen; 
                int Spalte_Rand = rand() % searchFieldLen;

                if((searchFieldLen - Spalte_Rand) < len)
                /*Wuerde heissen, dass es nicht genug Platz gibt, Wort einzulesen
                da wo wir es wollen.*/
                {
                    continue;
                    /*Versuche eine neue Position.*/
                }
                /*navodno tacno.*/

                int i = 0;

                for(int j = 0; j < len; j ++)
                {
                    if(Salad[Zeile_Rand][Spalte_Rand + j] == EMPTY_CHAR)
                    i ++;
                }

                if(i != len)
                {
                    continue;
                }

                    /*Wort einlesbar.*/
                    strncpy(&salad[Zeile_Rand][Spalte_Rand], words[w], len);

                    placedWords ++;
                    break;
            }

            if(direction)
            {
                int Zeile_Rand = rand() % searchFieldLen; /*Assuming SearchFieldLen is 20*/
                int Spalte_Rand = rand() % searchFieldLen;

                if((searchFieldLen - Zeile_Rand) < len)
                   /*Das wuerde heissen, dass es nicht genug Platz gibt, um Worter reinzulesen.*/
                {
                    continue;
                    /*Versuche eine neue Position.*/
                }

                int i = 0;

                for(int j = 0; j < len; j ++)
                {
                    if(Salad[Zeile_Rand + j][Spalte_Rand] == EMPTY_CHAR)
                    {
                        i++;
                    }
                }

                 if(i != len)
                {
                    continue;
                }

                /*Wort einlesbar.*/
                for (int j = 0; j < len; j++)
                {
                    salad[Zeile_Rand + j][Spalte_Rand] = words[w][j];
                }

                placedWords ++;
                break;
            }
        }
    }

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

    return (int)placedWords; 
}