// MIT License

// Copyright (c) 2017 Vadim Grigoruk @nesbox // grigoruk@gmail.com

// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
// SOFTWARE.

#include "dialog.h"

static void drawButton(Dialog* dlg, const char* label, s32 x, s32 y, u8 color, u8 overColor, void(*callback)(Dialog* dlg), s32 id)
{
	tic_mem* tic = dlg->tic;

	enum {BtnWidth = 20, BtnHeight = 9};

	SDL_Rect rect = {x, y, BtnWidth, BtnHeight};
	bool down = false;
	bool over = false;

	if(checkMousePos(&rect))
	{
		setCursor(SDL_SYSTEM_CURSOR_HAND);
		over = true;

		if(checkMouseDown(&rect, SDL_BUTTON_LEFT))
		{
			down = true;
			dlg->focus = id;
		}

		if(checkMouseClick(&rect, SDL_BUTTON_LEFT))
			callback(dlg);
	}
	
	if(down)
	{
		tic->api.rect(tic, rect.x, rect.y+1, rect.w, rect.h, (tic_color_white));
	}
	else
	{
		tic->api.rect(tic, rect.x, rect.y+1, rect.w, rect.h, (tic_color_black));
		tic->api.rect(tic, rect.x, rect.y, rect.w, rect.h, (tic_color_white));
	}

	s32 size = tic->api.text(tic, label, 0, -TIC_FONT_HEIGHT, 0);
	tic->api.text(tic, label, rect.x + (BtnWidth - size+1)/2, rect.y + (down?3:2), over ? overColor : color);

	if(dlg->focus == id)
	{
		static const u8 Icon[] =
		{
			0b10000000,
			0b11000000,
			0b11100000,
			0b11000000,
			0b10000000,
			0b00000000,
			0b00000000,
			0b00000000,
		};

		drawBitIcon(rect.x-5, rect.y+3, Icon, (tic_color_black));
		drawBitIcon(rect.x-5, rect.y+2, Icon, (tic_color_white));
	}
}

static void onYes(Dialog* dlg)
{
	dlg->callback(true, dlg->data);
	hideDialog();
}

static void onNo(Dialog* dlg)
{
	dlg->callback(false, dlg->data);
	hideDialog();
}

static void processKeydown(Dialog* dlg, SDL_Keysym* keysum)
{
	SDL_Scancode scancode = keysum->scancode;

	switch(scancode)
	{
	case SDL_SCANCODE_LEFT:
		dlg->focus = (dlg->focus-1) % 2;
		playSystemSfx(2);
		break;
	case SDL_SCANCODE_RIGHT:
	case SDL_SCANCODE_TAB:
		dlg->focus = (dlg->focus+1) % 2;
		playSystemSfx(2);
		break;
	case SDL_SCANCODE_RETURN:
	case SDL_SCANCODE_SPACE:
		dlg->focus == 0 ? onYes(dlg) : onNo(dlg);
		break;
	default:
		break;
	}
}

static void drawDialog(Dialog* dlg)
{
	enum {Width = TIC80_WIDTH/2, Height = TIC80_HEIGHT/2-TOOLBAR_SIZE};

	tic_mem* tic = dlg->tic;

	SDL_Rect rect = {(TIC80_WIDTH - Width)/2, (TIC80_HEIGHT - Height)/2, Width, Height};

	rect.x -= dlg->pos.x;
	rect.y -= dlg->pos.y;

	SDL_Rect header = {rect.x, rect.y-(TOOLBAR_SIZE-1), rect.w, TOOLBAR_SIZE};

	if(checkMousePos(&header))
	{
		setCursor(SDL_SYSTEM_CURSOR_HAND);

		if(checkMouseDown(&header, SDL_BUTTON_LEFT))
		{
			if(!dlg->drag.active)
			{
				dlg->drag.start.x = getMouseX() + dlg->pos.x;
				dlg->drag.start.y = getMouseY() + dlg->pos.y;

				dlg->drag.active = true;
			}
		}
	}

	if(dlg->drag.active)
	{
		setCursor(SDL_SYSTEM_CURSOR_HAND);

		dlg->pos.x = dlg->drag.start.x - getMouseX();
		dlg->pos.y = dlg->drag.start.y - getMouseY();

		SDL_Rect rect = {0, 0, TIC80_WIDTH, TIC80_HEIGHT};
		if(!checkMouseDown(&rect, SDL_BUTTON_LEFT))
			dlg->drag.active = false;
	}

	tic->api.rect(tic, rect.x, rect.y, rect.w, rect.h, (tic_color_blue));
	tic->api.rect_border(tic, rect.x, rect.y, rect.w, rect.h, (tic_color_white));
	tic->api.line(tic, rect.x, rect.y+Height, rect.x+Width-1, rect.y+Height, (tic_color_black));
	tic->api.rect(tic, rect.x, rect.y-(TOOLBAR_SIZE-2), rect.w, TOOLBAR_SIZE-2, (tic_color_white));
	tic->api.line(tic, rect.x+1, rect.y-(TOOLBAR_SIZE-1), rect.x+Width-2, rect.y-(TOOLBAR_SIZE-1), (tic_color_white));

	{
		static const char Label[] = "WARNING!";
		s32 size = tic->api.text(tic, Label, 0, -TIC_FONT_HEIGHT, 0);
		tic->api.text(tic, Label, rect.x + (Width - size)/2, rect.y-(TOOLBAR_SIZE-2), (tic_color_gray));
	}

	{
		u8 chromakey = 14;
		tic->api.sprite_ex(tic, &tic->config.banks[0].tiles, 2, rect.x+6, rect.y-4, 2, 2, &chromakey, 1, 1, tic_no_flip, tic_no_rotate);
	}

	{
		for(s32 i = 0; i < dlg->rows; i++)
		{
			s32 size = tic->api.text(tic, dlg->text[i], 0, -TIC_FONT_HEIGHT, 0);

			s32 x = rect.x + (Width - size)/2;
			s32 y = rect.y + (TIC_FONT_HEIGHT+1)*(i+1);
			tic->api.text(tic, dlg->text[i], x, y+1, (tic_color_black));
			tic->api.text(tic, dlg->text[i], x, y, (tic_color_white));
		}
	}

	drawButton(dlg, "YES", rect.x + (Width/2 - 26), rect.y + 45, (tic_color_dark_red), (tic_color_red), onYes, 0);
	drawButton(dlg, "NO", rect.x + (Width/2 + 6), rect.y + 45, (tic_color_green), (tic_color_light_green), onNo, 1);
}

static void tick(Dialog* dlg)
{
	SDL_Event* event = NULL;
	while ((event = pollEvent()))
	{
		switch(event->type)
		{
		case SDL_KEYDOWN:
			processKeydown(dlg, &event->key.keysym);
			break;
		}	
	}

	if(!dlg->init)
	{
		playSystemSfx(0);

		dlg->init = true;
	}

	SDL_memcpy(dlg->tic->ram.vram.screen.data, dlg->bg, sizeof dlg->tic->ram.vram.screen.data);

	drawDialog(dlg);
}

static void escape(Dialog* dlg)
{
	dlg->callback(false, dlg->data);
	hideDialog();
}

void initDialog(Dialog* dlg, tic_mem* tic, const char** text, s32 rows, DialogCallback callback, void* data)
{
	*dlg = (Dialog)
	{
		.init = false,
		.tic = tic,
		.tick = tick,
		.escape = escape,
		.bg = dlg->bg,
		.callback = callback,
		.data = data,
		.text = text,
		.rows = rows,
		.focus = 0,
		.pos = {0, 0},
		.drag = 
		{
			.start = {0, 0},
			.active = 0,
		},
	};

	enum{Size = sizeof tic->ram.vram.screen.data};

	if(!dlg->bg)
		dlg->bg = SDL_malloc(Size);

	if(dlg->bg)
		SDL_memcpy(dlg->bg, tic->ram.vram.screen.data, Size);
}