#include <ncurses.h>

#include "GameField.hpp"

#define NC_MOVE_X 2
#define NC_MOVE_Y 2
#define SYMBOL_PLAYERONE 'x'
#define SYMBOL_PLAYERTWO 'o'

enum keys {
	key_restart = 'r',
	key_escape = 27,
	key_enter = 10
};

/* clui vars */
int min_y, max_y, min_x, max_x;

/* game vars */
GameField *game_field;

/* players vars */
int cursor_y, cursor_x;
char player_symbol;

/* command line options */
int gb_y = 3;
int gb_x = 3; 
int gb_lwin = 3;
int gb_symbol = SYMBOL_PLAYERONE;

void updateCursor()
{
	move(cursor_y, cursor_x);
	refresh();
}

void dbgprint(const char *msg)
{
	mvprintw(10, 0, "                                 "); // clear old
	mvprintw(10, 0, msg);
	updateCursor();  // return cursor back
	refresh();
}

void drawGame(int cols, int rows, int symbol)
{
	int i, j;
	for(j = 0; j < cols * 2 - 1; j++) {
		move(j, 0);
		if(j % 2 == 0) {
			addch('~');
			for(i = 1; i < rows; i++) {
				addch('|');
				addch('~');
			}
		}
		else {
			addch('-');
			for(i = 1; i < rows; i++) {
				addch('|');
				addch('-');
			}
		}
	}

	min_y = 0;
	max_y = cols * 2 - 2;
	min_x = 0;
	max_x = rows * 2 - 2; 

	cursor_y = max_y / 2;
	cursor_x = max_x / 2;
	player_symbol = symbol;
	updateCursor();
}

void changePlayer()
{
	if(player_symbol == SYMBOL_PLAYERONE)
		player_symbol = SYMBOL_PLAYERTWO;
	else
		player_symbol = SYMBOL_PLAYERONE;
}

void printMove(int y, int x, int symbol)
{
	move(y, x);
	addch(symbol);
	updateCursor();
}

void gameMove()
{
	int game_y = cursor_y > 0 ? cursor_y - cursor_y / 2 : 0;
	int game_x = cursor_x > 0 ? cursor_x - cursor_x / 2 : 0;

	if(!game_field->CanMove(game_y, game_x)) {
		dbgprint("yet 'x' or 'o'");
		return;
	}
	game_field->Move(game_y, game_x);
	printMove(cursor_y, cursor_x, player_symbol);
	changePlayer();

	int state = game_field->GetState();
	if(state == G_NONE) {
		/* if play with AI:
		ai move */
	}
	else if(state == G_DRAW)
		dbgprint("DRAW!");
	else if(state == G_XPLAYER)
		dbgprint("PLAYER 'X' WIN!");
	else if(state == G_OPLAYER)
		dbgprint("PLAYER 'O' WIN!");
}

void handleButtons()
{
	int ch;
	while((ch = getch()) != key_escape)
	{
		switch(ch)
		{
		case KEY_LEFT:
			if(cursor_x > min_x) cursor_x -= NC_MOVE_X;
			else dbgprint("left border");
			break;
		case KEY_DOWN:
			if(cursor_y < max_y) cursor_y += NC_MOVE_Y;
			else dbgprint("down border");
			break;
		case KEY_UP:
			if(cursor_y > min_y) cursor_y -= NC_MOVE_Y;
			else dbgprint("up border");
			break;
		case KEY_RIGHT:
			if(cursor_x < max_x) cursor_x += NC_MOVE_X; 
			else dbgprint("right border");
			break;
		case key_enter: {
			gameMove();
			break;
		}
		case key_restart: {
			delete game_field;
			drawGame(gb_y, gb_x, gb_symbol);
			game_field = new GameField(gb_y, gb_x, gb_lwin);
			// no break
		}
		default:
			continue;
		}
		updateCursor();
	}
}

int main(int argc, char *argv[])
{
	/* ncurses settings */
	initscr();
	keypad(stdscr, TRUE);
	noecho();

	/* command line options */
	/* ... */

	game_field = new GameField(gb_y, gb_x, gb_lwin);
	drawGame(gb_y, gb_x, gb_symbol);
	handleButtons();

	if(game_field)
		delete game_field;
	endwin();
	return 0;
}