/*
 * Hedgewars, a free turn based strategy game
 * Copyright (C) 2012 Simeon Maxein <smaxein@googlemail.com>
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 */

#include <frontlib.h>
#include <util/logging.h>
#include <util/util.h>
#include <base64/base64.h>
#include <model/schemelist.h>

#include <stdlib.h>
#include <stdbool.h>
#include <assert.h>
#include <string.h>
#include <conio.h>
#include <windows.h>

#define ENGINE_DIR ".\\"
#define CONFIG_DIR "..\\share\\hedgewars"
#define DATA_DIR CONFIG_DIR"\\Data"

static flib_netconn *netconn;
static flib_gameconn *gameconn;
static flib_mapconn *mapconn;
static char nickname[128];
static flib_metascheme *metacfg;
static bool netConnected = false;

// Callback function that will be called when the map is rendered
static void handleMapGenerated(void *context, const uint8_t *bitmap, int numHedgehogs) {
    printf("Drawing map for %i brave little hogs...", numHedgehogs);

    // Draw the map as ASCII art
    for(int y=0; y<MAPIMAGE_HEIGHT; y+=8) {
        for(int x=0; x<MAPIMAGE_WIDTH; x+=6) {
            int pixelnum = x + y*MAPIMAGE_WIDTH;
            bool pixel = bitmap[pixelnum>>3] & (1<<(7-(pixelnum&7)));
            printf(pixel ? "#" : " ");
        }
        printf("\n");
    }

    flib_mapconn_destroy(mapconn);
    mapconn = NULL;
}

static void onGameDisconnect(void *context, int reason) {
    flib_log_i("Connection closed. Reason: %i", reason);
    flib_gameconn_destroy(gameconn);
    gameconn = NULL;
    if(netconn) {
        flib_netconn_send_roundfinished(netconn, reason==GAME_END_FINISHED);
    }
}

// Callback function that will be called on error
static void handleMapFailure(void *context, const char *errormessage) {
    flib_log_e("Map rendering failed: %s", errormessage);
    flib_mapconn_destroy(mapconn);
    mapconn = NULL;
}

static void startEngineMap(int port) {
    char cmdbuffer[255];
    char argbuffer[255];
    snprintf(cmdbuffer, 255, "%shwengine.exe", ENGINE_DIR);
    snprintf(argbuffer, 255, "%s %i landpreview", CONFIG_DIR, port);
    ShellExecute(NULL, NULL, cmdbuffer, argbuffer, NULL, SW_HIDE);
}

static void startEngineGame(int port) {
    char cmdbuffer[255];
    char argbuffer[255];
    char base64PlayerName[255];
    base64_encode(nickname, strlen(nickname), base64PlayerName, sizeof(base64PlayerName));
    snprintf(cmdbuffer, 255, "%shwengine.exe", ENGINE_DIR);
    snprintf(argbuffer, 255, "%s 1024 768 32 %i 0 0 0 10 10 %s 0 0 %s 0 0 en.txt", CONFIG_DIR, port, DATA_DIR, base64PlayerName);
    ShellExecute(NULL, NULL, cmdbuffer, argbuffer, NULL, SW_HIDE);
}

void handleNetDisconnect(void *context, int reason, const char *message) {
    printf("Disconnected: %s", message);
    flib_netconn_destroy(netconn);
    netconn = NULL;
}

/*void printRoomList() {
    const flib_roomlist *roomlist = flib_netconn_get_roomlist(netconn);
    if(roomlist) {
        if(roomlist->roomCount>0) {
            for(int i=0; i<roomlist->roomCount; i++) {
                if(i>0) {
                    printf(", ");
                }
                flib_room *room = roomlist->rooms[i];
                printf("%s", room->name);
            }
        } else {
            puts("Unfortunately, there are no rooms at the moment.");
        }
    } else {
        puts("Sorry, due to an error the room list is not available.");
    }
    puts("\n");
}*/

void printTeamList() {
    flib_gamesetup *setup = flib_netconn_create_gamesetup(netconn);
    if(setup) {
        puts("The following teams are in this room:");
        for(int i=0; i<setup->teamlist->teamCount; i++) {
            if(i>0) {
                printf(", ");
            }
            printf("%s", setup->teamlist->teams[i]->name);
        }
        puts("\n");
    } else {
        puts("Sorry, due to an error the team list is not available.");
    }
    flib_gamesetup_destroy(setup);
}

void handleNetConnected(void *context) {
    printf("You enter the lobby of a strange house inhabited by hedgehogs. Looking around, you see hallways branching off to these rooms:\n");
    //printRoomList();
    printf("\n\nNow, you can chat by just entering text, or join a room with /join <roomname>.");
    printf(" You can also /quit or let me /describe <roomname>. Once in a room, you can /add <teamname> and set yourself /ready. You can also /list the available rooms (in the lobby) or the teams (in a room).\n");
    netConnected = true;
}

void handleChat(void *context, const char *nick, const char *msg) {
    if(gameconn) {
        flib_gameconn_send_chatmsg(gameconn, nick, msg);
    }
    printf("%s: %s\n", nick, msg);
}

void handleEnterRoom(void *context, bool isChief) {
    puts("You have entered the room.");
}

void handleRoomJoin(void *context, const char *nick) {
    if(strcmp(nick, nickname)) {
        printf("%s is here.\n", nick);
    }
}

void handleRoomLeave(void *context, const char *nick, const char *partmsg) {
    if(strcmp(nick, nickname)) {
        printf("%s leaves.\n", nick);
    }
}

void handleReady(void *context, const char *nick, bool ready) {
    if(strcmp(nick, nickname)) {
        if(ready) {
            printf("%s is ready to go.\n", nick);
        } else {
            printf("%s is not ready.\n", nick);
        }
    } else {
        if(ready) {
            printf("You are ready to go.\n");
        } else {
            printf("You are not ready.\n");
        }
    }
}

void handleEmFromNet(void *context, const uint8_t *em, size_t size) {
    if(gameconn) {
        flib_gameconn_send_enginemsg(gameconn, em, size);
    }
}

void handleEmFromEngine(void *context, const uint8_t *em, size_t size) {
    if(netconn) {
        flib_netconn_send_engineMessage(netconn, em, size);
    }
}

void handleChatFromGame(void *context, const char *message, bool teamchat) {
    if(netconn) {
        if(teamchat) {
            flib_netconn_send_teamchat(netconn, message);
        } else {
            flib_netconn_send_chat(netconn, message);
        }
    }
}

void handleRunGame(void *context) {
    flib_gamesetup *gamesetup = flib_netconn_create_gamesetup(netconn);
    if(gameconn) {
        flib_log_e("Request to start game, but a game is already running.");
    } else if(gamesetup) {
        gameconn = flib_gameconn_create(nickname, gamesetup, true);
        flib_gameconn_onEngineMessage(gameconn, handleEmFromEngine, NULL);
        flib_gameconn_onDisconnect(gameconn, onGameDisconnect, NULL);
        flib_gameconn_onChat(gameconn, handleChatFromGame, NULL);
        startEngineGame(flib_gameconn_getport(gameconn));
    }
    flib_gamesetup_destroy(gamesetup);
}

void handleNickTaken(void *context, const char *nick) {
    printf("The nickname %s is already in use, please choose a different one:\n", nick);
    flib_gets(nickname, sizeof(nickname));
    flib_netconn_send_nick(netconn, nickname);
}

void handlePwRequest(void *context, const char *nick) {
    printf("A password is required to log in as %s, please enter (warning: shown in cleartext):\n", nick);
    char password[256];
    flib_gets(password, sizeof(password));
    flib_netconn_send_password(netconn, password);
}

void handleMessage(void *context, int type, const char *msg) {
    if(gameconn) {
        flib_gameconn_send_textmsg(gameconn, 1, msg);
    }
    printf("*** %s\n", msg);
}

void handleTeamAccepted(void *context, const char *teamname) {
    printf("The team %s has been accepted.\n", teamname);
}

void handleMapChanged(void *context, const flib_map *map, int changetype) {
    if(map->mapgen != MAPGEN_NAMED && changetype != NETCONN_MAPCHANGE_THEME) {
        if(mapconn) {
            flib_mapconn_destroy(mapconn);
            mapconn = NULL;
        }
        mapconn = flib_mapconn_create(map);
        if(mapconn) {
            flib_mapconn_onSuccess(mapconn, handleMapGenerated, NULL);
            flib_mapconn_onFailure(mapconn, handleMapFailure, NULL);
            startEngineMap(flib_mapconn_getport(mapconn));
        }
    } else if(map->mapgen == MAPGEN_NAMED) {
        printf("The map %s has been selected.\n", map->name);
    }
}

void handleLeaveRoom(void *context, int reason, const char *msg) {
    if(reason == NETCONN_ROOMLEAVE_ABANDONED) {
        printf("The chief has abandoned the room.");
    } else if(reason == NETCONN_ROOMLEAVE_KICKED) {
        printf("You have been kicked from the room.");
    }
    if(msg) {
        printf(" (%s)", msg);
    }
    puts(" You are back in the lobby.");
}

void handleSchemeChanged(void *context, const flib_scheme *scheme) {
    printf("Game scheme: %s.\n", scheme->name);
}

void handleWeaponsetChanged(void *context, const flib_weaponset *weaponset) {
    printf("Weaponset: %s.\n", weaponset->name);
}

void handleHogcountChanged(void *context, const char *team, int count) {
    printf("Team %s will send %i hogs into the fight.\n", team, count);
}

void handleRoomAdd(void *context, const flib_room *room) {
    printf("%s created a new room called %s.\n", room->owner, room->name);
}

void handleRoomDelete(void *context, const char *roomName) {
    printf("The room %s has collapsed.\n", roomName);
}

void handleScriptChanged(void *context, const char *script) {
    printf("Game Type: %s\n", script);
}

void handleTeamAdd(void *context, const flib_team *team) {
    printf("%s puts the team %s to the planning board.\n", team->ownerName, team->name);
}

void handleTeamDelete(void *context, const char *teamName) {
    printf("The team %s decided not to fight this battle after all.\n", teamName);
}

void handleTeamColorChanged(void *context, const char *name, int colorIndex) {
    static const char* colorNames[] = {"red", "blue", "teal", "purple", "pink", "green", "orange", "brown", "yellow"};
    const char *colorName = "strange";
    if(colorIndex>=0 && colorIndex < 9) {
        colorName = colorNames[colorIndex];
    }
    printf("The team %s will wear %s uniforms today.\n", name, colorName);
}

void tick() {
    if(gameconn) {
        flib_gameconn_tick(gameconn);
    }
    if(netconn) {
        flib_netconn_tick(netconn);
    }
    if(mapconn) {
        flib_mapconn_tick(mapconn);
    }
}

static HANDLE hStdin;

static int init() {
    hStdin = GetStdHandle(STD_INPUT_HANDLE);
    if(hStdin == INVALID_HANDLE_VALUE) {
        flib_log_e("Unable to get stdin handle");
        return 1;
    }
    if(!flib_init(0)) {
        flib_log_setLevel(FLIB_LOGLEVEL_WARNING);
        freopen( "CON", "w", stdout );
        freopen( "CON", "w", stderr );
        metacfg = flib_metascheme_from_ini("metasettings.ini");
        if(!metacfg) {
            flib_quit();
            return -1;
        } else {
            return 0;
        }
    }
    return -1;
}

int main(int argc, char *argv[]) {
    if(init()) {
        return -1;
    }

    puts("Please enter a nickname:");
    flib_gets(nickname, sizeof(nickname));

    netconn = flib_netconn_create(nickname, metacfg, DATA_DIR"\\", "140.247.62.101", 46631);
    if(!netconn) {
        flib_quit();
        return -1;
    }

    flib_netconn_onConnected(netconn, handleNetConnected, NULL);
    flib_netconn_onDisconnected(netconn, handleNetDisconnect, NULL);
    flib_netconn_onChat(netconn, handleChat, NULL);
    flib_netconn_onEnterRoom(netconn, handleEnterRoom, NULL);
    flib_netconn_onRunGame(netconn, handleRunGame, NULL);
    flib_netconn_onEngineMessage(netconn, handleEmFromNet, NULL);
    flib_netconn_onRoomJoin(netconn, handleRoomJoin, NULL);
    flib_netconn_onRoomLeave(netconn, handleRoomLeave, NULL);
    flib_netconn_onReadyState(netconn, handleReady, NULL);
    flib_netconn_onNickTaken(netconn, handleNickTaken, NULL);
    flib_netconn_onPasswordRequest(netconn, handlePwRequest, NULL);
    flib_netconn_onMessage(netconn, handleMessage, NULL);
    flib_netconn_onTeamAccepted(netconn, handleTeamAccepted, NULL);
    flib_netconn_onMapChanged(netconn, handleMapChanged, NULL);
    flib_netconn_onLeaveRoom(netconn, handleLeaveRoom, NULL);
    flib_netconn_onCfgScheme(netconn, handleSchemeChanged, NULL);
    flib_netconn_onWeaponsetChanged(netconn, handleWeaponsetChanged, NULL);
    flib_netconn_onHogCountChanged(netconn, handleHogcountChanged, NULL);
    flib_netconn_onRoomAdd(netconn, handleRoomAdd, NULL);
    flib_netconn_onRoomDelete(netconn, handleRoomDelete, NULL);
    flib_netconn_onScriptChanged(netconn, handleScriptChanged, NULL);
    flib_netconn_onTeamAdd(netconn, handleTeamAdd, NULL);
    flib_netconn_onTeamDelete(netconn, handleTeamDelete, NULL);
    flib_netconn_onTeamColorChanged(netconn, handleTeamColorChanged, NULL);

    INPUT_RECORD inputRecord;
    DWORD eventCount = 0;

    while(netconn || gameconn) {
        tick();
        if(netconn && netConnected) {
            while(PeekConsoleInput(hStdin, &inputRecord, 1, &eventCount) && eventCount>0) {
                if(inputRecord.EventType != KEY_EVENT) {
                    ReadConsoleInput(hStdin, &inputRecord, 1, &eventCount);
                } else {
                    printf("%s: ", nickname);
                    char input[256];
                    if(!flib_gets(input, sizeof(input))) {
                        if(!memcmp("/quit", input, strlen("/quit"))) {
                            flib_netconn_send_quit(netconn, "Player quit.");
                        } else if(!memcmp("/describe ", input, strlen("/describe "))) {
                            const char *roomname = input+strlen("/describe ");
                            /*const flib_roomlist *roomlist = flib_netconn_get_roomlist(netconn);
                            flib_room *room = flib_roomlist_find(roomlist, roomname);
                            if(!room) {
                                puts("Unknown room.");
                            } else {
                                char *text = flib_asprintf(
                                        "%s is a room created by %s, where %i players (%i teams) are %s on %s%s, using the %s scheme and %s weaponset.",
                                        room->name,
                                        room->owner,
                                        room->playerCount,
                                        room->teamCount,
                                        room->inProgress ? "fighting" : "preparing to fight",
                                        room->map[0]=='+' ? "" : "the map ",
                                        !strcmp("+rnd+", room->map) ? "a random map" :
                                                !strcmp("+maze+", room->map) ? "a random maze" :
                                                !strcmp("+drawn+", room->map) ? "a hand-drawn map" :
                                                room->map,
                                        room->scheme,
                                        room->weapons);
                                if(text) {
                                    puts(text);
                                }
                                free(text);
                            }*/
                        } else if(!memcmp("/join ", input, strlen("/join "))) {
                            const char *roomname = input+strlen("/join ");
                            flib_netconn_send_joinRoom(netconn, roomname);
                        } else if(!memcmp("/ready", input, strlen("/ready"))) {
                            flib_netconn_send_toggleReady(netconn);
                        } else if(!memcmp("/loglevel ", input, strlen("/loglevel "))) {
                            int loglevel = atoi(input+strlen("/loglevel "));
                            flib_log_setLevel(loglevel);
                        } else if(!memcmp("/list", input, strlen("/list"))) {
                            if(flib_netconn_is_in_room_context(netconn)) {
                                printTeamList();
                            } else {
                                puts("From this big and expansive lobby, hallways branch off to these rooms:");
                                //printRoomList();
                            }
                        } else if(!memcmp("/addteam ", input, strlen("/addteam "))) {
                            const char *teamname = input+strlen("/addteam ");
                            if(!flib_contains_dir_separator(teamname)) {
                                char *teamfilename = flib_asprintf("%s.hwt", teamname);
                                if(teamfilename) {
                                    flib_team *team = flib_team_from_ini(teamfilename);
                                    if(team) {
                                        flib_netconn_send_addTeam(netconn, team);
                                    } else {
                                        printf("Teamfile %s not found.\n", teamfilename);
                                    }
                                    flib_team_destroy(team);
                                }
                                free(teamfilename);
                            }
                        } else if(strlen(input)>0) {
                            flib_netconn_send_chat(netconn, input);
                        }
                    }
                }
            }
        }
        fflush(stdout);
        Sleep(10);
    }


    flib_metascheme_release(metacfg);
    return 0;
}