/*

 * 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) {

	}

}

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;

}