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

#define MAX_ATTEMPTS 10
#define EMPTY_CHAR 0

typedef enum
{
    HORIZONTAL,
    VERTICAL
} Direction;


int createWordSalad(
    char salad[MAX_SEARCH_FIELD_LEN][MAX_SEARCH_FIELD_LEN],
    unsigned int searchFieldLen,
    const char words[][MAX_WORD_LEN],
    unsigned int wordCount)
{
    int placedWords = 0;
    /* Alle Felder initialisieren */
    for (unsigned int i = 0; i < searchFieldLen; i++)
    {
        for (unsigned int j = 0; j < searchFieldLen; j++)
        {
            salad[i][j] = EMPTY_CHAR;
        }
    }

    // Richtungsvektoren
    int dx[] = {1, 0};
    int dy[] = {0, 1};

    // Alle Woerter durchlaufen
    for (unsigned int w = 0; w < wordCount; w++)
    {
        size_t wordLen = strlen(words[w]);

        //Leere oder zu lange Woerter ueberspringen
        if (wordLen == 0 || wordLen > searchFieldLen)
        {
            continue;
        }

        int placed = 0;
        int attempts = 0;

        while (!placed && attempts < MAX_ATTEMPTS)
        {
            attempts++;

            /* Zufallsrichtung bestimmen */
            Direction dir = rand() % 2;

            unsigned int Zeile;
            unsigned int Spalte;

            /* Zufallsposition so waehlen, dass das Wort hineinpasst */
            if (dir == HORIZONTAL)
            {
                Zeile = rand() % searchFieldLen;
                Spalte = rand() % (searchFieldLen - wordLen + 1);
            }
            else
            {
                Zeile = rand() % (searchFieldLen - wordLen + 1);
                Spalte = rand() % searchFieldLen;
            }

            int collision = 0;

            // Pruefen, ob die Position geeignet ist (cillision mit anderen Wörtern)
            for (size_t i = 0; i < wordLen; i++)
            {
                unsigned int z = Zeile + dy[dir] * i;
                unsigned int s = Spalte + dx[dir] * i;

                char letter = words[w][i];

                if (salad[z][s] != EMPTY_CHAR &&
                    salad[z][s] != letter)
                {
                    collision = 1;
                    break;
                }
            }

            // Wenn keine collision besteht wort eintragen
            if (!collision)
            {
                for (size_t i = 0; i < wordLen; i++)
                {
                    unsigned int z = Zeile + dy[dir] * i;
                    unsigned int s = Spalte + dx[dir] * i;

                    salad[z][s] = words[w][i];
                }

                placed = 1;
                placedWords++;
            }
        }
    }

    // Leere Felder mit zufaelligen Buchstaben fuellen
    for (unsigned int i = 0; i < searchFieldLen; i++)
    {
        for (unsigned int j = 0; j < searchFieldLen; j++)
        {
            if (salad[i][j] == EMPTY_CHAR)
            {
                salad[i][j] ='A' + (rand() % 26);// 26 Buchstaben insgesammt
            }
        }
    }

    return placedWords;
}