#include "Application.h"

#include <thread>

#include "Utility.h"

namespace nf {
	DEBUGINIT;

	Application::Application(Config& config) :
		m_currentConfig(config),
		m_running(false),
		m_altWidth(1280),
		m_altHeight(720),
		m_defaultStateAdded(false),
		m_stateChange(false)
	{
		Log("Creating NF application");
		Log("Width: " + std::to_string(m_currentConfig.width) + ", Height: " + std::to_string(m_currentConfig.height) + ", Fullscreen: " + std::to_string(m_currentConfig.fullscreen) + ", Title: " + m_currentConfig.title);

		if (getApp() != nullptr)
			Error("Cannot create two NF Application objects!");
		setApp(this);
		m_hInst = GetModuleHandle(NULL);
		registerWindowClass();
		RECT windowSize = getWindowRect();
		int x = 0;
		int y = 0;
		calculateNewWindowPos(x, y);
		m_window = CreateWindowEx(NULL, m_wclassName, toWide(m_currentConfig.title), WS_OVERLAPPED | WS_SYSMENU | WS_MINIMIZEBOX, x, y, windowSize.right, windowSize.bottom, NULL, NULL, m_hInst, NULL);
		m_defaultWindowStyle = GetWindowLong(m_window, GWL_STYLE);
		SetProp(m_window, L"App", this);
		if (m_currentConfig.fullscreen) toggleFullscreen();
	}

	void Application::setWindowIcon(HANDLE hIcon) {
		SendMessage(m_window, WM_SETICON, ICON_SMALL, (LPARAM)hIcon);
		SendMessage(m_window, WM_SETICON, ICON_SMALL, (LPARAM)hIcon);
	}
	//TODO: Test these top-level features
	void Application::setWindowCursor(HCURSOR hCursor) {
		SetClassLongPtr(m_window, GCLP_HCURSOR, (LONG_PTR)hCursor);
	}

	Renderer* Application::getRenderer() const {
		return m_renderer;
	}

	void Application::addState(Gamestate* state, const std::string& stateName) {
		if (m_states.find(stateName) == m_states.end()) {
			m_states[stateName] = state;
		}
		else
			Error("State \"" + (std::string)stateName + (std::string)"\" already exists!");
	}

	void Application::addDefaultState(const std::string& stateName) {
		if (!m_defaultStateAdded) {
			if (m_states.find(stateName) != m_states.end()) {
				m_defaultState = stateName;
				m_defaultStateAdded = true;
			}
			else
				Error("State \"" + (std::string)stateName + (std::string)"\" doesn't exist!");
		}
		else
			Error("More than one default state defined!");
	}

	const std::string& Application::getDefaultState() {
		return m_defaultState;
	}

	void Application::run() {
		showWindow(true);
		m_running = true;
		MSG msg = { };
		std::thread mainThread(&Application::runMainGameThread, this);
		while (m_running) {
			if (m_quit)
				PostMessage(m_window, WM_CLOSE, NULL, NULL);
			while (PeekMessage(&msg, NULL, NULL, NULL, PM_REMOVE)) {
				TranslateMessage(&msg);
				DispatchMessage(&msg);
				if (msg.message == WM_QUIT) {
					m_running = false;
					break;
				}
			}
			updateInput();
			std::this_thread::sleep_for(std::chrono::milliseconds(5));
		}
		mainThread.join();
	}

	void Application::changeState(const std::string& stateName) {
		if (m_states.find(stateName) == m_states.end())
			Error("State \"" + (std::string)stateName + (std::string)"\" doesn't exist!");
		m_stateChange = true;
		m_nextState = stateName;
	}

	Gamestate* Application::getCurrentState() {
		return m_currentState;
	}

	void Application::showWindow(bool show) {
		if (show)
			ShowWindow(m_window, SW_SHOW);
		else
			ShowWindow(m_window, SW_HIDE);
	}

	const HWND& Application::getWindow() {
		return m_window;
	}
	//TODO: Throughly test this
	void Application::changeConfig(const Config& in) {
		SetWindowText(m_window, toWide(in.title));
		bool temp = m_currentConfig.fullscreen;
		m_currentConfig = in;
		if (in.fullscreen != temp)
			toggleFullscreen();
		if (m_currentConfig.fullscreen)
			return;
		int x = 0, y = 0;
		calculateNewWindowPos(x, y);
		RECT size = getWindowRect();
		SetWindowPos(m_window, HWND_TOP, x, y, size.right, size.bottom, SWP_NOOWNERZORDER | SWP_FRAMECHANGED);
	}

	const Config& Application::getConfig() const {
		return m_currentConfig;
	}

	int Application::getFPS() const {
		return m_FPS;
	}

	bool Application::isInput(unsigned int code) {
		if (code < 164) {
			return m_input[code];
		}
		else {
			return false;
		}
	}

	void Application::trackMouse(bool track) {
		m_trackingMouse = track;
		if (m_trackingMouse == true)
			m_mouseTrackFirst = true;
	}

	void Application::getMouseDiff(int& x, int& y) {
		x = m_mouseDiffX;
		y = m_mouseDiffY;
		m_mouseDiffX = 0;
		m_mouseDiffY = 0;
	}

	Application* Application::getApp() {
		return currentApp;
	}

	void Application::registerWindowClass() {
		if (!FindWindow(L"NFClass", NULL)) {
			m_wclassName = L"NFClass";
			WNDCLASS wclass = { };
			wclass.lpszClassName = m_wclassName;
			wclass.hCursor = LoadCursor(NULL, IDC_ARROW);
			wclass.hIcon = NULL;
			wclass.hInstance = m_hInst;
			wclass.lpfnWndProc = Application::WindowProc;
			RegisterClass(&wclass);
		}
		else
			Error("Cannot run multiple NF applications concurrently!");
	}

	RECT Application::getWindowRect() const {
		int w = m_currentConfig.width;
		int h = m_currentConfig.height;
		RECT temp = { };
		temp.right = w;
		temp.bottom = h;
		AdjustWindowRect(&temp, WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX, false);
		temp.right -= temp.left;
		temp.bottom -= temp.top;
		return temp;
	}

	void Application::calculateNewWindowPos(int& x, int& y) {
		MONITORINFO mi = { sizeof(mi) };
		GetMonitorInfo(MonitorFromWindow(m_window, MONITOR_DEFAULTTOPRIMARY), &mi);
		int monX = (mi.rcWork.right - mi.rcWork.left) / 2;
		int monY = (mi.rcWork.bottom - mi.rcWork.top) / 2;

		x = monX - (m_currentConfig.width / 2);
		y = monY - (m_currentConfig.height / 2);
	}

	void Application::toggleFullscreen() {
		DWORD wndStyle = GetWindowLong(m_window, GWL_STYLE);
		if (wndStyle & WS_OVERLAPPEDWINDOW) {
			MONITORINFO mi = { sizeof(mi) };
			GetMonitorInfo(MonitorFromWindow(m_window, MONITOR_DEFAULTTOPRIMARY), &mi);
			SetWindowLong(m_window, GWL_STYLE, wndStyle & ~WS_OVERLAPPEDWINDOW);
			m_currentConfig.width = mi.rcMonitor.right - mi.rcMonitor.left;
			m_currentConfig.height = mi.rcMonitor.bottom - mi.rcMonitor.top;
			SetWindowPos(m_window, HWND_TOP, mi.rcMonitor.left, mi.rcMonitor.top, m_currentConfig.width, m_currentConfig.height, SWP_NOOWNERZORDER | SWP_FRAMECHANGED);
		}
		else {
			SetWindowLong(m_window, GWL_STYLE, wndStyle | WS_OVERLAPPEDWINDOW & ~WS_MAXIMIZEBOX);
			SetWindowPos(m_window, HWND_TOP, 0, 0, 0, 0, SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE);
		}
	}

	void Application::updateInput() {
		for (unsigned int i = 0; i < 164; i++) {
			if (GetFocus() == m_window)
				m_input[i] = GetKeyState(i) & 0x8000;
			else
				m_input[i] = false;
		}
		POINT mouse;
		GetCursorPos(&mouse);
		ScreenToClient(m_window, &mouse);
		if (GetFocus() == m_window) {
			m_mouseX = mouse.x;
			m_mouseY = mouse.y;
			if (m_mouseX > m_currentConfig.width)
				m_mouseX = m_currentConfig.width;
			if (m_mouseX < 0)
				m_mouseX = 0;
			if (m_mouseY > m_currentConfig.height)
				m_mouseY = m_currentConfig.height;
			if (m_mouseY < 0)
				m_mouseY = 0;

			if (m_trackingMouse) {
				int middleX = m_currentConfig.width / 2;
				int middleY = m_currentConfig.height / 2;
				m_mouseDiffX += m_mouseX - middleX;
				m_mouseDiffY += middleY - m_mouseY;
				if (m_mouseTrackFirst) {
					m_mouseDiffX = 0;
					m_mouseDiffY = 0;
					m_mouseTrackFirst = false;
				}
				POINT middle = { middleX, middleY };
				ClientToScreen(m_window, &middle);
				SetCursorPos(middle.x, middle.y);
			}
		}
	}

	void Application::quit() {
		m_quit = true;
	}

	void Application::runMainGameThread() {
		m_sIntro = new IntroGamestate;
		m_currentState = m_sIntro;
		m_renderer = new Renderer(this);
		m_currentState->setup(this);
		m_currentState->onEnter();
		m_renderer->setFade(true, false, true);
		std::chrono::steady_clock::time_point currentFrame = std::chrono::steady_clock::now();
		std::chrono::steady_clock::time_point lastFrame = std::chrono::steady_clock::now();
		while (m_running) {
			currentFrame = std::chrono::steady_clock::now();
			m_deltaTime = std::chrono::duration<double>(currentFrame - lastFrame).count();
			if (m_deltaTime >= m_minFrametime) {
				lastFrame = std::chrono::steady_clock::now();
				m_currentState->update(m_deltaTime);
				m_currentState->render(*m_renderer);
				m_renderer->doFrame(m_currentState->getCamera(), m_deltaTime);
				if (m_stateChange)
					doStateChange();
			}
			m_fpsClock2 = std::chrono::steady_clock::now();
			m_fpsDuration = m_fpsClock2 - m_fpsClock1;
			if (m_fpsDuration.count() >= 0.2) {
				m_FPS = (int)(1.0 / m_deltaTime);
				static int i = 0;
				i++;
				if (i % 5 == 0)
					Log("FPS: " + std::to_string(m_FPS));
				m_fpsClock1 = std::chrono::steady_clock::now();
			}
		}
		m_currentState->onExit();
		m_currentState->cleanup();
		delete m_renderer;
	}

	void Application::doStateChange() {
		static bool once = true;
		if (once) {
			m_renderer->setFade(false, true, false);
			once = false;
		}

		if (m_renderer->isFadeOutComplete()) {
			m_currentState->onExit();
			m_currentState->cleanup();
			m_currentState = m_states[m_nextState];
			m_currentState->setup(this);
			m_currentState->onEnter();
			m_renderer->setFade(true, false, false);
			m_stateChange = false;
			once = true;
		}
	}

	void Application::setApp(Application* app) {
		currentApp = app;
	}

	LRESULT CALLBACK Application::WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
		Application* app = (Application*)GetProp(hWnd, L"App");
		switch (uMsg) {
		case WM_CREATE: {
			return 0;
		}
		case WM_SYSKEYDOWN: {
			if (GetKeyState(VK_RETURN) & 0x8000) {
				if (!(lParam & (1 << 30))) {
					if (!app->m_currentConfig.fullscreen) {
						app->m_altWidth = app->m_currentConfig.width;
						app->m_altHeight = app->m_currentConfig.height;
					}
					app->changeConfig({ app->m_currentConfig.width, app->m_currentConfig.height, !app->m_currentConfig.fullscreen, app->m_currentConfig.title });
					if (!app->m_currentConfig.fullscreen) {
						app->changeConfig({ app->m_altWidth, app->m_altHeight, app->m_currentConfig.fullscreen, app->m_currentConfig.title });
					}
				}
				return 0;
			}
			break;
		}
		case WM_MENUCHAR: {
			return MNC_CLOSE << 16;
		}
		case WM_SETCURSOR: {
			if (LOWORD(lParam) != HTCLIENT)
				break;
			if (app->m_trackingMouse && LOWORD(lParam) == HTCLIENT && GetFocus() == hWnd) {
				SetCursor(NULL);
				return 0;
			}
			break;
		}
		case WM_CLOSE: {
			DestroyWindow(hWnd);
			return 0;
		}
		case WM_DESTROY: {
			PostQuitMessage(0);
			return 0;
		}
		}
		return DefWindowProc(hWnd, uMsg, wParam, lParam);
	}

	Application::~Application() {
		Log("Exiting NF application");

		for (std::pair<std::string, Gamestate*> state : m_states) {
			Gamestate* curr = state.second;
			delete curr;
		}
	}

	Application* Application::currentApp = nullptr;
}