#include "common.h"
#include "functions.h"

/* Externs from main.c */
extern Game game;
extern Shape active, next;
extern Field fld;

extern sfFont *fontScore;

extern uint8_t arrKeys;    // Arrow keys states byte container
/* arrKeys = ...n|7|6|5|4|3|2|1|0| (just a bit of so called "bit fucking")
 * 0 - Right arrow pushed and held
 * 1 - Down arrow pushed and held
 * 2 - N/A
 * 3 - Left arrow pushed and held
 * 4 - Right arrow short repeat activated (after once long repeat)
 * 5 - N/A
 * 6 - N/A
 * 7 - Right arrow short repeat activated (after once long repeat)
 */

extern sfClock *gameTick;
extern sfClock *mTick;
extern sfClock *repPushDown; // Clock for repeat latency when Down arrow long push
extern sfClock *repKeyLeft; // Clock for repeat latency when Left arrow long push
extern sfClock *repKeyRight; // Clock for repeat latency when Left arrow long push

/* Shapes maps */
extern uint8_t arrShapeL[4][4];
extern uint8_t arrShapeRL[4][4];
extern uint8_t arrShapeZ[4][4];
extern uint8_t arrShapeS[4][4];
extern uint8_t arrShapeB[4][4];
extern uint8_t arrShapeI[4][4];
extern uint8_t arrShapeT[4][4];


/* Field init routine */
void initFld()
{
    sfVector2f fldCPos[25][10];
    /* Create field */
    for (int j = 0; j < fld.size.y; j++) {
        for (int i = 0; i < fld.size.x; i++) {
            fld.c[j][i].a = 0;    // Inactive = empty
            fldCPos[j][i].x = fld.pos.x + (i * (fld.cSize.x + 2 * fld.cOutThick));
            fldCPos[j][i].y = fld.pos.y - (j * (fld.cSize.y + 2 * fld.cOutThick));
            fld.p[j][i] = sfRectangleShape_create();
            sfRectangleShape_setFillColor(fld.p[j][i], uiColor1);
            sfRectangleShape_setSize(fld.p[j][i], fld.cSize);
            sfRectangleShape_setPosition(fld.p[j][i], fldCPos[j][i]);
            sfRectangleShape_setOutlineColor(fld.p[j][i], uiColor3);
            sfRectangleShape_setOutlineThickness(fld.p[j][i], fld.cOutThick);
        }
    }
    /* Create next shape field */
    sfVector2f nsPos;
    for (int j = 0; j < 4; j++) {
        for (int i = 0; i < 4; i++) {
            nsPos.x = next.x+i*(next.cSize.x+2*fld.cOutThick);
            nsPos.y = next.y-j*(next.cSize.y+2*fld.cOutThick);
            next.p[j][i] = sfRectangleShape_create();
            sfRectangleShape_setSize(next.p[j][i], next.cSize);
            sfRectangleShape_setPosition(next.p[j][i], nsPos);
            sfRectangleShape_setOutlineThickness(next.p[j][i], fld.cOutThick);
        }
    }
    genNextShape();
    resetActiveShape();
}


void valueAfterTextDisplay(int value, List *texts, char *type)
{
    List *l = texts;
    while (l) {
        Text *text = (Text *)l->obj;
        if (text->type)
            if (!strcmp(text->type, type)) {
                char a[64];
                if (text->text) {
                    if (strlen(text->text) > 52) {
                        memset(text->text+52, '\0', 1);
                        strcpy(a, text->text);
                    }
                    sprintf(a, "%s%d", text->text, value);
                    sfText_setString(text->sfText, (char *)&a);
                    break;
                }
            }
        l = l->next;
    }
}

/*
 * Removes line when cells all are in row in it
 *
 */
int linesRmScore()
{
    int k = 0; // "Filled line" indicator
    int s = 0;
    for (int j = 0; j < 20; j++) {
        for (int i = 0; i < 10; i++)
            if (fld.c[j][i].a != 0)
                k++;
        if (k >= 10) {    // If line is full
            s++;    // Give scores for line
            for (int n = j; n < 20; n++) {    // Drop all lines down
                if (n == 19) {
                    for (int m = 0; m < 10; m++) {
                        fld.c[n][m].a = 0;
                        fld.c[n][m].fColor = uiColor1;
                    }
                    break;
                }
                for (int m = 0; m < 10; m++) {
                    fld.c[n][m].a = fld.c[n+1][m].a;
                    fld.c[n][m].fColor
                        = fld.c[n+1][m].fColor;
                }
            }
            j--;     // Do not let loop to go to next line because
                // next line go down by itself =)
        }
        k = 0;    // Clear line fill indicator
    }
    return s; // Return number of deleted lines
}

/*
 * Inserts shape into field, runs filled lines searching, puts new shape
 * into the game at the top.
 *
 */
void putShape()
{
    for (int j = 0; j < 4; j++)
        for (int i = 0; i < 4; i++)
            if (active.c[j][i]) {
                fld.c[j+active.y][i+active.x].a = active.c[j][i];
                if ((j+active.y >= 0) && (i+active.x >= 0))
                    fld.c[j+active.y][i+active.x].fColor = active.fColor;
            }
    game.scoreCurrent += linesRmScore()*100; // Remove filled lines and get score;
    for (int i = 0; i < 10; i++)
        if (fld.c[20][i].a) {
            gameover(&game);
            return;
        }
    resetActiveShape();
    checkLevelUp(&game);
}

void checkLevelUp(Game *game)
{
    if (game->level <= 15)
        if (game->scoreCurrent >= game->level * 100)
            game->level++;
}

void resetActiveShape()
{
    genNextShape();
    copyShape(&active);
    active.x = 3;
    if (active.t == 6)
        active.y = 17;
    else
        active.y = 16;
    for (;;) {
        if (cellCollisionCheck(0b0010))
            active.y++;
        else
            break;
    }
}

/*
 * Game tick
 *
 */
void tTick()
{     // If tick exceeds current level tick latency
    if (sfClock_getElapsedTime(gameTick).microseconds
            >= moveRepeatLatency2*(16-game.level)
            && game.level <= 15) {
        sfClock_restart(gameTick); // Restart gameTick
        /* if bottom not reached */
        if ((wallCollisionCheck(0b0010) == 0)
        && (cellCollisionCheck(0b0010) == 0))
            active.y--; // Move
        else
            putShape(); // Just put the shape
    }
}


/*
 * Rotate matrix left routine
 *
 */
void rotateLeft()
{
    uint8_t arr[4][4];
    memcpy(&arr[0][0], &active.c[0][0], sizeof(uint8_t)*4*4);
    if (active.t == 5)
        return;
    if (active.t == 6) {
        for (int j = 3; j >= 0; j--)
            for (int i = 0; i < 4; i++)
                active.c[j][i] = arr[3-i][3-j];
        return;
    }
    for (int j = 3; j > 0; j--)
        for (int i = 0; i < 3; i++)
            active.c[j][i] = arr[3-i][j-1];
}


/*
 * Rotate matrix right routine
 *
 */
void rotateRight()
{
    uint8_t arr[4][4];
    memcpy(&arr[0][0], &active.c[0][0], sizeof(uint8_t)*4*4);
    if (active.t == 5)
        return;
    if (active.t == 6) {
        for (int j = 3; j >= 0; j--)
            for (int i = 0; i < 4; i++)
                active.c[j][i] = arr[3-i][3-j];
        return;
    }
    for (int j = 3; j > 0; j--)
        for (int i = 0; i < 3; i++)
            active.c[j][i] = arr[i+1][3-j];
}


/*
 * Rotates active shape with callling collision checkers
 *
 */
void rotateShape()
{
    rotateRight(); // Make rotate
    if ((wallRotCollisionCheck() == 1)
    || (cellRotCollisionCheck() == 1))
        rotateLeft(); // Just rotate back =)
}

int cellRotCollisionCheck()
{
    for (int j = 0; j < 4; j++)
        for (int i = 0; i < 4; i++)
            if (active.c[j][i]
            && fld.c[j+active.y][i+active.x].a)
                return 1; // Collision happens
    return 0; // Else it do not
}


int wallRotCollisionCheck()
{
    if(active.y < 0) //If shape has crossed Bottom border
        for (int i = 0; i < 4; i++)
            if (active.c[-1-active.y][i])
                return 1;    // Collision happens
    if(active.x < 0) //If shape has crossed Left border
        for (int i = 0; i < 4; i++)
            if (active.c[i][-1-active.x])
                return 1;    // Collision happens
    if(active.x > 6) //If shape has crossed Right border
        for (int i = 0; i < 4; i++)
            if (active.c[i][3-(active.x-7)])
                return 1;    // Collision happens
    return 0; // If no conditions are met collision is absent
}


int cellCollisionCheck(int dir)
{
    for (int j = 0; j < 4; j++) {
        for (int i = 0; i < 4; i++) {
            if ((dir & 0b0001) // Check Right
            && (j+active.y >= 0) // Avoiding nonexisting fld cells
            && (i+active.x+1 >= 0) // ---
            && active.c[j][i] // Check activity
            && fld.c[j+active.y][i+active.x+1].a)
                return 1; // Collision happens
            if ((dir & 0b1000) // Check Left
            && (j+active.y >= 0) // Avoiding nonexisting fld cells
            && (i+active.x-1 >= 0) // ---
            && active.c[j][i] // Check activity
            && fld.c[j+active.y][i+active.x-1].a)
                return 1; // Collision happens
            if ((dir & 0b0010) // Check Bottom
            && (j+active.y-1 >= 0) // Avoiding nonexisting fld cells
            && (i+active.x >= 0) // ---
            && active.c[j][i] // Check activity
            && fld.c[j+active.y-1][i+active.x].a)
                return 1; // Collision happens
        }
    }
    return 0; // Else it do not
}

int wallCollisionCheck(int dir)
{
    if (dir & 0b0001) { // Right collision request
        if (active.x >= 6) // If shape has reached Right boreder
            for (int i = 0 ; i < 4; i++)
                if (active.c[i][3-(active.x-6)])
                    return 1; // Collision happens
    } else if (dir & 0b0010) { // Bottom collision request
        if (active.y <= 0) //If shape has reached Bottom border
            for (int i = 0; i < 4; i++)
                if (active.c[-active.y][i])
                    return 1; // Collision happens
    } else if (dir & 0b1000) // Left collision request
        if (active.x <= 0) // If shape has reached Left border
            for (int i = 0; i < 4; i++)
                if (active.c[i][-active.x])
                    return 1; // Collision happens
    return 0;
}


/*
 * Keys hold handler
 *
 */
void tKeyCtrl()
{
    /* Up arrow key 'hold' handler */
    if (sfKeyboard_isKeyPressed(sfKeyUp)) {
        if (!(arrKeys & 0b0100)) {
            arrKeys = arrKeys | 0b0100;
            rotateShape();
        }
    } else {
        if ((arrKeys & 0b0100)) {
            arrKeys = arrKeys & ~0b0100;
        }
    }

    /* Down Arrow Key 'hold' handler */
    if (sfKeyboard_isKeyPressed(sfKeyDown)) {
        if (!(arrKeys & 0b0010)) {
            arrKeys = arrKeys | 0b0010;
            if (!wallCollisionCheck(0b0010)
            && !cellCollisionCheck(0b0010)) {
                active.y--;
                // Avoid excess move down by gameTick
                sfClock_restart(gameTick);
                game.scoreCurrent++;
            }
            repPushDown = sfClock_create();
        } else {
            if (sfClock_getElapsedTime(repPushDown).microseconds
            >= moveRepeatLatency2)
                arrKeys = arrKeys & ~0b0010;
        }
    } else {
        if ((arrKeys & 0b0010)) {
            arrKeys = arrKeys & ~0b0010;
            arrKeys = arrKeys & ~0b100000;
        }
    }

    /* Left Arrow Key 'hold' handler */
    if (sfKeyboard_isKeyPressed(sfKeyLeft)
    && !sfKeyboard_isKeyPressed(sfKeyRight)) {
        if (!(arrKeys & 0b1000)) {
            arrKeys = arrKeys | 0b1000;
            if (!wallCollisionCheck(0b1000)
            && !cellCollisionCheck(0b1000))
                active.x--;
            repKeyLeft = sfClock_create();
        } else {
            if (!(arrKeys & 0b10000000)) {
                if (sfClock_getElapsedTime(repKeyLeft)
                                .microseconds
                >=  moveRepeatLatency1) {
                    arrKeys = arrKeys | 0b10000000;
                    arrKeys = arrKeys & ~0b1000;
                }
            } else {
                if (sfClock_getElapsedTime(repKeyLeft)
                                .microseconds
                >=  moveRepeatLatency2)
                    arrKeys = arrKeys & ~0b1000;
            }
        }
    } else if (!sfKeyboard_isKeyPressed(sfKeyLeft)) {
        if ((arrKeys & 0b1000)){
            arrKeys = arrKeys & ~0b1000;
            arrKeys = arrKeys & ~0b10000000;
        }
    }

    /* Right Arrow Key 'hold' handler */
    if (sfKeyboard_isKeyPressed(sfKeyRight)
    && !sfKeyboard_isKeyPressed(sfKeyLeft)) {
        if (!(arrKeys & 0b0001)){
            arrKeys = arrKeys | 0b0001;
            if (!wallCollisionCheck(0b0001)
            && !cellCollisionCheck(0b0001))
                active.x++;
            repKeyRight = sfClock_create();
        } else {
            if (!(arrKeys & 0b10000)) {
                if (sfClock_getElapsedTime(repKeyRight).microseconds
                >=  moveRepeatLatency1) {
                    arrKeys = arrKeys | 0b10000;
                    arrKeys = arrKeys & ~0b0001;
                }
            } else if (!sfKeyboard_isKeyPressed(sfKeyLeft)) {
                if (sfClock_getElapsedTime(repKeyRight).microseconds
                >=  moveRepeatLatency2) // Wait short time
                    arrKeys = arrKeys & ~0b0001;
            }
        }
    } else {
        if ((arrKeys & 0b0001)) {
            arrKeys = arrKeys & ~0b0001;
            arrKeys = arrKeys & ~0b10000;
        }
    }
}


/*
 * Colorize active cells of field
 *
 */
void colorizeFld()
{
    for (int j = 0; j < fld.size.y-5; j++)
        for (int i = 0; i < fld.size.x; i++)
            if (fld.c[j][i].a) {
                sfRectangleShape_setFillColor(fld.p[j][i], fld.c[j][i].fColor);
                sfRectangleShape_setOutlineColor(fld.p[j][i], uiColor3);
            } else {
                sfRectangleShape_setFillColor(fld.p[j][i], uiColor1);
                sfRectangleShape_setOutlineColor(fld.p[j][i], uiColor2);
            }
}

/*
 * Colorize active cells of active shape (overlay only
 * active cells above background of fld)
 *
 */
void colorizeActive()
{
    for (int j = 0; j < 4; j++)
        for (int i = 0; i < 4; i++)
            if (active.c[j][i] && j+active.y < 20) {
                sfRectangleShape_setFillColor(
                        fld.p[j+active.y][i+active.x],
                        active.fColor);
                sfRectangleShape_setOutlineColor(
                        fld.p[j+active.y][i+active.x],
                        uiColor3);
            }
}


/*
 * Draw all fld cells
 *
 */
void drawFld(sfRenderWindow *window)
{
    for (int j = 0; j < fld.size.y; j++)
        for (int i = 0; i < fld.size.x; i++)
            sfRenderWindow_drawRectangleShape(window, fld.p[j][i], NULL);
}


void colorizeRandom(Field *fld)
{
    int a;
    for (int j = 0; j < fld->size.y-5; j++) {
        for (int i = 0; i < fld->size.x; i++) {
            a = rand()%7+1;
            switch (a) {
                case 1 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tOrange);
                    break;
                case 2 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tBlue);
                    break;
                case 3 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tRed);
                    break;
                case 4 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tGreen);
                    break;
                case 5 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tYellow);
                    break;
                case 6 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tCyan);
                    break;
                case 7 :
                    sfRectangleShape_setFillColor(fld->p[j][i], tMagneta);
                    break;
            }
            sfRectangleShape_setOutlineColor(fld->p[j][i], uiColor3);
        }
    }
}


void gameover(Game *game)
{
    game->isStarted = 0;
    game->scoreCurrent = 0;
    game->level = 1;
}


void genNextShape()
{
    active.t = next.t;
    next.t = (rand()%7)+1; // Insert new random shape of 7 variants
    copyShape(&next);
    if (next.t == 5)
        for (int j = 0; j < 3; j++)
            for (int i = 0; i < 4; i++)
                next.c[i][j] = next.c[i][j+1];
}


void copyShape(Shape *localSh)
{
    switch (localSh->t) { // Copy cell active/inactive state
        case 1 :
            memcpy(&localSh->c[0][0], &arrShapeL[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tOrange;
            break;
        case 2 :
            memcpy(&localSh->c[0][0], &arrShapeRL[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tBlue;
            break;
        case 3 :
            memcpy(&localSh->c[0][0], &arrShapeZ[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tRed;
            break;
        case 4 :
            memcpy(&localSh->c[0][0], &arrShapeS[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tGreen;
            break;
        case 5 :
            memcpy(&localSh->c[0][0], &arrShapeB[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tYellow;
            break;
        case 6 :
            memcpy(&localSh->c[0][0], &arrShapeI[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tCyan;
            break;
        case 7 :
            memcpy(&localSh->c[0][0], &arrShapeT[0][0], sizeof(uint8_t)*4*4);
            localSh->fColor = tMagneta;
            break;
    }
}


void drawNextShape(sfRenderWindow *window)
{
    static sfText *textNextShape;
    if (!textNextShape) {
        sfVector2f textNextShapePos;
        textNextShapePos.x = 250+10+10;
        textNextShapePos.y = 80;
        textNextShape = sfText_create();
        sfText_setString(textNextShape, "Next Shape: ");
        sfText_setFont(textNextShape, fontScore);
        sfText_setCharacterSize(textNextShape, 20);
        sfText_setPosition(textNextShape, textNextShapePos);
    }
    sfRenderWindow_drawText(window, textNextShape, NULL);
    for (int j = 0; j < 4; j++)
        for (int i = 0; i < 4; i++)
            if (next.c[j][i]) {
                sfRectangleShape_setFillColor(next.p[j][i], next.fColor);
                sfRectangleShape_setOutlineColor(next.p[j][i], uiColor3);
                sfRenderWindow_drawRectangleShape(window, next.p[j][i], NULL);
            }
}

void freeFld() {
    for (int j = 0; j < fld.size.y; j++)
        for (int i = 0; i < fld.size.x; i++)
            sfRectangleShape_destroy(fld.p[j][i]);
    for (int j = 0; j < 4; j++)
        for (int i = 0; i < 4; i++)
            sfRectangleShape_destroy(next.p[j][i]);
}