#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#ifdef __linux__
    #include <sys/ioctl.h>
    #include <unistd.h>
    #include <termio.h>
#elif _WIN32
    #include <windows.h>
    #include <conio.h>
#endif

#define DEBUGGER_PIPES_TO_NUMBERS 0
#define DEBUGGER_RANDOM 0
#define AUTOMATISCH 0

#define INFILL_PLAIN_PAPER 0
#define INFILL_X_PIPE 1
#define INFILL_Y_PIPE 2
#define FILLER " "                      // ░

//#define GRID_GROESSE_X 200              // x:y -> 2:1 for a square looking grid
//#define GRID_GROESSE_Y 60
#define MIN_LAENGE_PIPE 6
#define MAX_LAENGE_PIPE 6
#define SLEEP_TIMER 0              // in nano seconds
// #define SLEEP_TIMER 5000              // in nano seconds
#define COLOR_CHANGING_PROBABILITY 5   // format: "(1 : your_number)", for every direction change

#define RESET_COLOR "\033[0m"
#define RED "\033[31m"
#define GREEN "\033[32m"
#define YELLOW "\033[33m"
#define BLUE "\033[34m"
#define MAGENTA "\033[35m"
#define CYAN "\033[36m"
#define WHITE "\033[37m"

const char* color;
const char *colors[] = {RED, GREEN, YELLOW, BLUE, MAGENTA, CYAN, WHITE};

void random_color() {
    color = colors[rand() % (sizeof(colors) / sizeof(colors[0]))];
}

#ifdef __linux__
int getch_pipes(){ 
    int ch;
    struct termios oldattr, newattr;

    tcgetattr(STDIN_FILENO, &oldattr);
    newattr = oldattr;
    newattr.c_lflag &= ~ICANON;
    newattr.c_lflag &= ~ECHO;
    newattr.c_cc[VMIN] = 1;
    newattr.c_cc[VTIME] = 0;
    tcsetattr(STDIN_FILENO, TCSANOW, &newattr);
    ch = getchar();
    tcsetattr(STDIN_FILENO, TCSANOW, &oldattr);

    return ch; 
}
#endif

int print_grid(int x, int y, char **grid, int how_many_targets, int *lul) {
    int target_count = 0;
    for (int i = 0; i < y; i++) {
        printf("\n");
        for (int j = 0; j < x; j++) {
            if(grid[i][j] == 3){
                target_count += 1;
            }if (!DEBUGGER_PIPES_TO_NUMBERS){
                if(grid[i][j] == 0){
                    printf(FILLER);
                } else if(grid[i][j] == 3){
                    printf("%s█","\033[31m" );
                } else if(grid[i][j] != 0 && grid[i][j] != 1 && grid[i][j] != 2 && grid[i][j] != 3){
                    return 1;

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 0 && grid[i][j - 1] != 0 && grid[i][j + 1] != 0 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] != 0 && grid[i + 1][j] != 0 && grid[i][j - 1] == 0 && grid[i][j + 1] == 0 && grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s╋", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 2 && grid[i][j - 1] == 1 && grid[i][j + 1] == 0 && grid[i][j] != 0  ){
                    printf("%s┓", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 0 && grid[i][j - 1] == 0 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s┗", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 2 && grid[i][j - 1] == 0 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s┏", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 0 && grid[i][j - 1] == 1 && grid[i][j + 1] == 0 && grid[i][j] != 0  ){
                    printf("%s┛", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 0 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s┣", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 1 && grid[i][j + 1] == 0 && grid[i][j] != 0  ){
                    printf("%s┫", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 2 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s┳", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 0 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] != 0  ){
                    printf("%s┻", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 0 && grid[i][j - 1] != 0 && grid[i][j + 1] == 0 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 0 && grid[i][j - 1] == 0 && grid[i][j + 1] != 0 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] != 0 && grid[i + 1][j] == 0 && grid[i][j - 1] == 0 && grid[i][j + 1] == 0 && grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] != 0 && grid[i][j - 1] == 0 && grid[i][j + 1] == 0 && grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] == 1 && grid[i + 1][j] == 0 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] == 1 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] == 1 && grid[i + 1][j] == 1 && grid[i][j - 1] == 1 && grid[i][j + 1] == 1 && grid[i][j] == 1  ){
                    printf("%s━", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 0 && grid[i][j + 1] == 2 && grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 2 && grid[i][j + 1] == 0 && grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] == 2 && grid[i + 1][j] == 2 && grid[i][j - 1] == 2 && grid[i][j + 1] == 2 && grid[i][j] == 2  ){
                    printf("%s┃", color);


                } else if(grid[i][j] == 3){
                    printf("✨");

                    

                } else if(grid[i - 1][j] != 0 && grid[i + 1][j] != 0 && grid[i][j - 1] != 0 && grid[i][j + 1] != 0 && grid[i][j] == 0  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] != 0 && grid[i + 1][j] != 0 && grid[i][j - 1] != 0 && grid[i][j + 1] == 0 && grid[i][j] != 0  ){
                    printf("%s┃", color);

                } else if(grid[i - 1][j] != 0 && grid[i + 1][j] == 0 && grid[i][j - 1] != 0 && grid[i][j + 1] != 0 && grid[i][j] != 0  ){
                    printf("%s┻", color);

                } else if(grid[i - 1][j] == 0 && grid[i + 1][j] != 0 && grid[i][j - 1] != 0 && grid[i][j + 1] != 0 && grid[i][j] != 0  ){
                    printf("%s┳", color);

                } else if(grid[i - 1][j + 1] == 0 && grid[i - 1][j] != 0 && grid[i + 1][j] != 0 && grid[i][j - 1] != 0 && grid[i][j + 1] != 0 && grid[i][j] != 0  ){
                    printf("%s┗", color);

                } else if(grid[i][j] == 2  ){
                    printf("%s┃", color);

                } else if(grid[i][j] == 1  ){
                    printf("%s━", color);
                } else{printf("x");}
                    printf(RESET_COLOR); // Setzt die Farbe zurück
            }else{
                printf("%i", grid[i][j]);
            }
        }
    }
    if (target_count <= 2*how_many_targets - 1*how_many_targets) {
        printf("\e[1;1H\e[2J");
        printf("\n");
        printf(" █     █   █████   █     █    █      █   █████   ██   █\n");
        printf(" ██   ██  █     █  █     █    █      █  █     █  ███  █\n");
        printf("  █████   █     █  █     █    █      █  █     █  █ ██ █\n");
        printf("    █     █     █  █     █     █ ██ █   █     █  █  ███\n");
        printf("    █      █████    █████       █  █     █████   █   ██\n");
        printf("\n");
        printf("Targets overritten: %i\n", 2*how_many_targets-target_count);
        if (target_count > 3) {
            printf("\nspecial achivement!!!!!!\n");
            printf("'q' for start menue");
            return 1;
        } else {
            *lul += 1;
            printf("lul = %i\n", *lul);
            system("xdg-open https://bit.ly/3BlS71b");
            printf("'q' for start menue");
            return 1;
        }
    }

    return 0;
}

int generate_pipe_x(int GRID_GROESSE_X, int GRID_GROESSE_Y, char **grid, int *x_start, int *y_start, int laenge, int how_many_targets, int *return_code, int *lul) {
    if (laenge < 0){
        for (int i = *x_start; i > *x_start + laenge; i--) {
            if (*return_code == 1) {
                return 0;
            }
            if (i <= -laenge/2 -1) {
                *x_start = GRID_GROESSE_X + laenge/2;
                return 0;
            }
            grid[*y_start][i] = INFILL_X_PIPE;
            printf("\33[H\033[J");
            *return_code = print_grid(GRID_GROESSE_X, GRID_GROESSE_Y, grid, how_many_targets, lul);
        }
    } else {
        for (int i = *x_start; i < *x_start + laenge; i++) {
            if (*return_code == 1) {
                return 0;
            }
            if (i >= GRID_GROESSE_X - laenge/2+1) {
                *x_start = laenge/2;
                return 0;
            }
            grid[*y_start][i] = INFILL_X_PIPE;
            printf("\33[H\033[J");
            *return_code = print_grid(GRID_GROESSE_X, GRID_GROESSE_Y, grid, how_many_targets, lul);
        }
    }

    *x_start += laenge;
    return 0;
}

int generate_pipe_y(int GRID_GROESSE_X, int GRID_GROESSE_Y, char **grid, int *x_start, int *y_start, int laenge, int how_many_targets, int *return_code, int *lul) {
    if (laenge < 0){
        for (int i = *y_start; i > *y_start + laenge/2; i--) {
            if (*return_code == 1) {
                return 0;
            }
            if (i <= -laenge/2) {
                *y_start = GRID_GROESSE_Y + laenge/2;
                return 0;
            }
            grid[i][*x_start] = INFILL_Y_PIPE;
            printf("\33[H\033[J");
            *return_code = print_grid(GRID_GROESSE_X, GRID_GROESSE_Y, grid, how_many_targets, lul);
        }
    } else{
        for (int i = *y_start; i < *y_start + laenge/2; i++) {
            if (*return_code == 1) {
                return 0;
            }
            if (i >= (GRID_GROESSE_Y / 2)*2 - 1) {
                *y_start = laenge/2;
                return 0;
            }
            grid[i][*x_start] = INFILL_Y_PIPE;
            printf("\33[H\033[J");
            *return_code = print_grid(GRID_GROESSE_X, GRID_GROESSE_Y, grid, how_many_targets, lul);
        }
    }
    *y_start += laenge/2;
    return 0;
}

void generate_target(int GRID_GROESSE_X, int GRID_GROESSE_Y, char **grid, int *x_start, int *y_start, int laenge) {
    int abstand_vom_rand_x = 6;
    int abstand_vom_rand_y = 3;
    int target_x = 0;
    int target_y = 0;
    while (target_x <= abstand_vom_rand_x || target_x >= GRID_GROESSE_X - abstand_vom_rand_x || target_y <= abstand_vom_rand_y || target_y >= GRID_GROESSE_Y - abstand_vom_rand_y) {  
        target_x = ((rand() % GRID_GROESSE_X));
        target_y = ((rand() % GRID_GROESSE_Y));
    }
    for (int j = target_y; j < target_y + 2; j++) {
        for (int i = target_x; i < target_x + 1; i++) {
                grid[j][i] = 3;
            }
    }
}
    

int pipes(int GRID_GROESSE_X, int GRID_GROESSE_Y) {
//int main() {
//    system("chcp 65001 >null"); 
//    int GRID_GROESSE_X = 100;              // x:y -> 2:1 for a square looking grid
//    int GRID_GROESSE_Y = 60;

    int x_start = GRID_GROESSE_X / 2;
    int y_start = GRID_GROESSE_Y / 2;
    int laenge = 20;
    int max_l = MAX_LAENGE_PIPE + 1 - MIN_LAENGE_PIPE;
    int min_l = MIN_LAENGE_PIPE - 1;
    int color_c_p = COLOR_CHANGING_PROBABILITY + 1;
    int return_code = 0;
    int lul = 0;
    srand(time(NULL));

    random_color();

    char **grid = malloc(GRID_GROESSE_Y * sizeof(char *));
    for (int i = 0; i < GRID_GROESSE_Y; i++) {
        grid[i] = malloc(GRID_GROESSE_X * sizeof(char));
    }

    for (int i = 0; i < GRID_GROESSE_Y; i++) {
        for (int j = 0; j < GRID_GROESSE_X; j++) {
            grid[i][j] = INFILL_PLAIN_PAPER;
        }
    }
    
    // int richtungswechsler = 1;
    int how_many_targets = 3;
    for (int i = 1; i <= how_many_targets; i++) {
        generate_target(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge);
    }
    return_code = generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, 1, how_many_targets, &return_code, &lul);

    if (!DEBUGGER_RANDOM) {

        while (!AUTOMATISCH) {
            if ((rand() %color_c_p) <= 1) {
                random_color();
            }

            laenge = ((rand() %max_l)+min_l);
        
            #ifdef __linux__
                char key_input = (char)getch_pipes();
            #elif _WIN32
                char key_input = (char)getch();
            #endif
            switch (key_input) {
                case 'h': generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1, how_many_targets, &return_code, &lul); break;
                case 'a': generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1, how_many_targets, &return_code, &lul); break;
                case 'l': generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets, &return_code, &lul); break;
                case 'd': generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets, &return_code, &lul); break;
                case 'j': generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets, &return_code, &lul); break;
                case 's': generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets, &return_code, &lul); break;
                case 'k': generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1, how_many_targets, &return_code, &lul); break;
                case 'w': generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1, how_many_targets, &return_code, &lul); break;
                case 'q': return 0;
                default: continue;
            }
        }


//        while (AUTOMATISCH) {
//            if ((rand() %color_c_p) <= 1) {
//                random_color();
//            }
//            if ((rand() %2)-1) {
//                laenge = ((rand() %max_l)+min_l);
//            } else {
//                laenge = ((rand() %max_l)+min_l)*-1;
//            }
//
//            if (richtungswechsler == 1) {
//                generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
//                richtungswechsler *= -1;
//            } else {
//                generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
//                richtungswechsler *= -1;
//            }
//        }
//    }
//
//    if (DEBUGGER_RANDOM) {
//        generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
//        generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
//        generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
//        generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -0.1, how_many_targets);
//        generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1.05, how_many_targets);
//        generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * -1, how_many_targets);
//        generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * 0.1, how_many_targets);
//        generate_pipe_y(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge * 0.9, how_many_targets);
//        generate_pipe_x(GRID_GROESSE_X, GRID_GROESSE_Y, grid, &x_start, &y_start, laenge, how_many_targets);
    }



    for (int i = 0; i < GRID_GROESSE_Y; i++) {
        free(grid[i]);
        }
        free(grid);

    return 0;
}