/*
 * 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;
}