/*This file is part of FFB Arcade Plugin.
FFB Arcade Plugin 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 3 of the License, or
(at your option) any later version.
FFB Arcade Plugin 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 FFB Arcade Plugin.If not, see < https://www.gnu.org/licenses/>.
*/

#include <string>
#include "Daytona3.h"
#include "SDL.h"
#include <Windows.h>
static bool keybdleft = false;
static bool keybdright = false;
static bool keybdup = false;
static bool init = false;
static EffectTriggers *myTriggers;
static EffectConstants *myConstants;
static Helpers *myHelpers;
static SDL_Event e;
static wchar_t *settingsFilename = TEXT(".\\FFBPlugin.ini");
static int ShowButtonNumbersForSetup = GetPrivateProfileInt(TEXT("Settings"), TEXT("ShowButtonNumbersForSetup"), 0, settingsFilename);
static int ChangeGearsViaPlugin = GetPrivateProfileInt(TEXT("Settings"), TEXT("ChangeGearsViaPlugin"), 0, settingsFilename);
static int EscapeKeyExitViaPlugin = GetPrivateProfileInt(TEXT("Settings"), TEXT("EscapeKeyExitViaPlugin"), 0, settingsFilename);
static int MenuMovementViaPlugin = GetPrivateProfileInt(TEXT("Settings"), TEXT("MenuMovementViaPlugin"), 0, settingsFilename);
static int Gear1 = GetPrivateProfileInt(TEXT("Settings"), TEXT("Gear1"), 0, settingsFilename);
static int Gear2 = GetPrivateProfileInt(TEXT("Settings"), TEXT("Gear2"), 0, settingsFilename);
static int Gear3 = GetPrivateProfileInt(TEXT("Settings"), TEXT("Gear3"), 0, settingsFilename);
static int Gear4 = GetPrivateProfileInt(TEXT("Settings"), TEXT("Gear4"), 0, settingsFilename);
static int GearUp = GetPrivateProfileInt(TEXT("Settings"), TEXT("GearUp"), 0, settingsFilename);
static int GearDown = GetPrivateProfileInt(TEXT("Settings"), TEXT("GearDown"), 0, settingsFilename);
static int HideCursor = GetPrivateProfileInt(TEXT("Settings"), TEXT("HideCursor"), 0, settingsFilename);

static int ThreadLoop()
{
	while (SDL_WaitEvent(&e) != 0)
	{
		UINT8 gear = myHelpers->ReadByte(0x019B468C, /* isRelativeOffset */ false);

		if (ShowButtonNumbersForSetup == 1)
		{
			if (e.type == SDL_JOYBUTTONDOWN)
			{
				if (e.jbutton.button >= 0)
				{
					char buff[100];
					sprintf_s(buff, "Button %d Pressed", e.jbutton.button);
					MessageBoxA(NULL, buff, "", NULL);
				}
			}
		}

		if (e.type == SDL_JOYBUTTONDOWN)
		{
			if (ChangeGearsViaPlugin == 1)
			{
				if (e.jbutton.button == Gear1)
				{
					myHelpers->WriteByte(0x019B468C, 0x00, false);
				}
				else if (e.jbutton.button == Gear2)
				{
					myHelpers->WriteByte(0x019B468C, 0x02, false);
				}
				else if (e.jbutton.button == Gear3)
				{
					myHelpers->WriteByte(0x019B468C, 0x01, false);
				}
				else if (e.jbutton.button == Gear4)
				{
					myHelpers->WriteByte(0x019B468C, 0x03, false);
				}
				else if ((e.jbutton.button == GearDown) && (gear > 0x00))
				{
					myHelpers->WriteByte(0x019B468C, --gear, false);
				}
				else if ((e.jbutton.button == GearUp) && (gear < 0x03))
				{
					myHelpers->WriteByte(0x019B468C, ++gear, false);
				}
			}
		}
	}
	return 0;
}

static DWORD WINAPI RunningLoop(LPVOID lpParam)
{
	while (true)
	{
		ThreadLoop();
		Sleep(16);
	}
}

void Daytona3::FFBLoop(EffectConstants *constants, Helpers *helpers, EffectTriggers* triggers) {	

	if (!init)
	{
		myTriggers = triggers;
		myConstants = constants;
		myHelpers = helpers;
		CreateThread(NULL, 0, RunningLoop, NULL, 0, NULL);
		init = true;
	}

	UINT8 steering = helpers->ReadByte(0x019B4678, false);
	UINT8 gamestate = helpers->ReadByte(0x19B5744, false);
	UINT8 ff = helpers->ReadByte(0x15AFC46, false);
	HWND hWnd = FindWindowA(0, ("Daytona Championship USA"));

	if (HideCursor == 1)
	{
		SetCursorPos(2000, 2000);
	}

	if (GetAsyncKeyState((VK_ESCAPE)) && (EscapeKeyExitViaPlugin == 1))
	{
		if (hWnd > NULL)
		{
			//SendMessage(hWnd, WM_CLOSE, NULL, NULL);
			system("taskkill /f /im InpWrapper.exe");
			TerminateProcess(GetCurrentProcess(), 0);
		}
	}

	if (MenuMovementViaPlugin == 1)
	{
		//Menu Movement & Game Initial Screen
		if (gamestate == 18 || gamestate == 30)
		{
			if ((steering <= 0x75) && (steering > 0x50))
			{
				//Menu Left
				if (!keybdleft)
				{
					keybdleft = true;
					SendMessage(hWnd, WM_KEYDOWN, VK_LEFT, 0);
				}
				else
				{
					SendMessage(hWnd, WM_KEYUP, VK_LEFT, 0);
				}
			}
			else if (steering <= 0x50)
			{
				SendMessage(hWnd, WM_KEYDOWN, VK_LEFT, 0);
			}
			else if ((steering >= 0x89) && (steering < 0xAE))
			{
				//Menu Right
				if (!keybdright)
				{
					keybdright = true;
					SendMessage(hWnd, WM_KEYDOWN, VK_RIGHT, 0);
				}
				else
				{
					SendMessage(hWnd, WM_KEYUP, VK_RIGHT, 0);
				}
			}
			else if (steering >= 0xAE)
			{
				SendMessage(hWnd, WM_KEYDOWN, VK_RIGHT, 0);
			}
			else
			{
				keybdleft = false;
				keybdright = false;
				SendMessage(hWnd, WM_KEYUP, VK_RIGHT, 0);
				SendMessage(hWnd, WM_KEYUP, VK_LEFT, 0);
			}
			keybdup = false;
		}
		else
		{
			if (!keybdup)
			{
				keybdup = true;
				keybdleft = false;
				keybdright = false;
				SendMessage(hWnd, WM_KEYUP, VK_RIGHT, 0);
				SendMessage(hWnd, WM_KEYUP, VK_LEFT, 0);
			}
		}
	}

	if (ff > 15)
	{
		double percentForce = (31 - ff) / 15.0;
		double percentLength = 100;
		triggers->Rumble(percentForce, 0, percentLength);
		triggers->Constant(myConstants->DIRECTION_FROM_LEFT, percentForce);
	}
	else if (ff > 0)
	{
		double percentForce = (16 - ff) / 15.0;
		double percentLength = 100;
		triggers->Rumble(0, percentForce, percentLength);
		triggers->Constant(myConstants->DIRECTION_FROM_RIGHT, percentForce);
	}
	myTriggers = triggers;
	myConstants = constants;
	myHelpers = helpers;
}