/*
 * mainmenu.c -- game main menu
 *
 * Copyright (c) 2020 David Demelier <markand@malikania.fr>
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <assert.h>
#include <stdlib.h>
#include <string.h>

#include <core/alloc.h>
#include <core/event.h>
#include <core/font.h>
#include <core/game.h>
#include <core/image.h>
#include <core/painter.h>
#include <core/panic.h>
#include <core/state.h>
#include <core/texture.h>
#include <core/util.h>
#include <core/window.h>

#include <ui/align.h>
#include <ui/label.h>
#include <ui/theme.h>

#include <rpg/character.h>

#include <adventure/assets.h>
#include <adventure/molko.h>
#include <adventure/adventure_p.h>

#include <adventure/item/potion.h>
#include <adventure/character/neth.h>

#include "mainmenu.h"
#include "continue.h"

struct self {
	struct state state;

	struct {
		struct texture tex;
		int x;
		int y;
	} texts[4];

	unsigned int itemsel;           /* Selected item. */
};

static void
new(void)
{
	/* TODO: temporary. */
	molko.team.members[0] = &character_neth;
	character_reset(molko.team.members[0]);
	molko.team.members[0]->hp = molko.team.members[0]->hpmax;
	molko.team.members[0]->mp = molko.team.members[0]->mpmax;
	inventory_add(&molko.inventory, &item_potion, 10);

	molko_teleport("maps/map-world.map", -1, -1);
}

static void
resume(void)
{
	game_push(state_continue_new());
}

static void
quit(void)
{
	game_quit();
}

static void
perform(struct self *self)
{
	assert(self->itemsel < 3);

	static void (*handlers[])(void) = {
		[0] = new,
		[1] = resume,
		[2] = quit
	};

	handlers[self->itemsel]();
}

static void
init_title(struct self *self, struct font *font)
{
	if (font_render(font, &self->texts[3].tex, "Molko's Adventure", 0x000000ff) < 0)
		panic();
	
	/* Align header. */
	align(ALIGN_CENTER, &self->texts[3].x, NULL, self->texts[3].tex.w, self->texts[3].tex.h,
	    0, 0, window.w, window.h);

	self->texts[3].y = self->texts[3].x;
}

static void
init_items(struct self *self, struct font *font)
{
	if (font_render(font, &self->texts[0].tex, _("New"), 0x000000ff) < 0 ||
	    font_render(font, &self->texts[1].tex, _("Continue"), 0x000000ff) < 0 ||
	    font_render(font, &self->texts[2].tex, _("Quit"), 0x000000ff) < 0)
		panic();

	self->texts[0].x = (window.w / 2) - (self->texts[0].tex.w / 2);
	self->texts[0].y = window.h * 0.75;

	self->texts[1].x = self->texts[0].x;
	self->texts[1].y = self->texts[0].y + self->texts[0].tex.h;

	self->texts[2].x = self->texts[0].x;
	self->texts[2].y = self->texts[1].y + self->texts[1].tex.h;
}

static void
start(struct state *state)
{
	struct self *self = state->data;
	struct font fonts[2];

	if (font_open(&fonts[0], molko_path("fonts/teutonic.ttf"), 130) < 0||
	    font_open(&fonts[1], molko_path("fonts/pirata-one.ttf"), 30) < 0)
		panic();

	fonts[0].style = fonts[1].style = FONT_STYLE_ANTIALIASED;

	init_title(self, &fonts[0]);
	init_items(self, &fonts[1]);

	font_finish(&fonts[0]);
	font_finish(&fonts[1]);
}

static void
handle(struct state *state, const union event *event)
{
	struct self *self = state->data;

	switch (event->type) {
	case EVENT_QUIT:
		game_quit();
		break;
	case EVENT_KEYDOWN:
		switch (event->key.key) {
		case KEY_UP:
			self->itemsel = self->itemsel == 0 ? 2 : self->itemsel - 1;
			break;
		case KEY_DOWN:
			self->itemsel = (self->itemsel + 1) % 3;
			break;
		case KEY_ENTER:
			perform(self);
			break;
		default:
			break;
		}
		break;
	default:
		break;
	}
}

static void
draw(struct state *state)
{
	struct self *self = state->data;
	struct sprite *cursor = &assets_sprites[ASSETS_SPRITE_UI_CURSOR];
	int x, y;

	painter_set_color(0xffffffff);
	painter_clear();

	for (size_t i = 0; i < UTIL_SIZE(self->texts); ++i)
		texture_draw(&self->texts[i].tex, self->texts[i].x, self->texts[i].y);

	x  = self->texts[self->itemsel].x;
	x -= cursor->cellw * 2;
	y  = self->texts[self->itemsel].y;
	y += self->texts[self->itemsel].tex.h / 2;
	y -= cursor->cellh / 2;

	sprite_draw(cursor, 1, 2, x, y);
	painter_present();
}

static void
finish(struct state *state)
{
	struct self *self = state->data;

	for (size_t i = 0; i < UTIL_SIZE(self->texts); ++i)
		texture_finish(&self->texts[i].tex);

	free(self);
}

struct state *
state_mainmenu_new(void)
{
	struct self *self;

	self = alloc_new0(sizeof (*self));
	self->state.data = self;
	self->state.start = start;
	self->state.handle = handle;
	self->state.draw = draw;
	self->state.finish = finish;

	return &self->state;
}