#include "mapper_misc.h"
#include "app.h"
#include "entity.h"
#include "physics.h"
#include "player.h"
#include "render_util.h"
#include "types.h"
#include "util/assert.h"
#include "util/rand.h"
#include <stdio.h>


void misc_DeleteComponent(Component_Misc *misc) {
	if (misc) {
		if (misc->textbox) {
			if (misc->textbox->text)
				free(misc->textbox->text);
			free(misc->textbox);
		}
		if (misc->respawn_pos)
			free(misc->respawn_pos);
		if (misc->change_level)
			free(misc->change_level);
		free(misc);
	}
}


#define ABSOLUTE_BOX(entity, box) ((entity->position) ? (box2_Offset(box, entity->position->position)) : (box))
#define ABSOLUTE_VEC(entity, pnt) ((entity->position) ? (vec2_Add(pnt, entity->position->position)) : (pnt))


void misc_thinker_HazardRespawn(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || !e->misc->respawn_pos) {
		WARN("called on an entity without misc or misc.respawn", 0);
		e->thinker = NULL;
		return;
	}
	if (app->player->player == NULL) // No player
		return;
	Component_Player *p         = app->player->player;
	Box2              playerbox = physics_HitboxAbsolute(p->super->hitbox);

	Box2 worldbox   = ABSOLUTE_BOX(e, e->misc->trigger);
	Vec2 worldspawn = ABSOLUTE_VEC(e, *e->misc->respawn_pos);
	if (box2_Intersects(worldbox, playerbox, NULL))
		p->hazardRespawn = worldspawn;
}

void misc_thinker_Hazard(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || !(e->misc->trigger_flags & misc_Hazard)) {
		WARN("called on an entity without misc or misc.flags|Hazard", 0);
		e->thinker = NULL;
		return;
	}

	// Emit some black particles
	// BTW, very bad (but reliable) way to store a number here!
	static const FillMode mode = {
		.rop2     = 13, // R2_COPYPEN
		.style    = 0,  // BS_SOLID
		.hatch    = 0,
		.rotate   = {.microseconds = 0},
		.dissolve = {.microseconds = 0},
		.fadein   = false,
		.bg       = 0xffffff,
		.fg       = 0};
	uint64_t  emitCooldown = 400.0 * 40000.0 / e->misc->trigger.size.x; // 40 msec across 400px
	TimePoint lastEmit     = {.microseconds = (uint64_t)e->thinkerData};
	if (gametime_Since(app->time, lastEmit).microseconds > emitCooldown) {
		lastEmit = gametime_Now(app->time);
		lastEmit.microseconds -= 10000 * rand_Double01();
		Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
		particle_Emit(
			app->particle,
			0,
			vec2_Random(
				worldbox.lefttop.x + 20,
				worldbox.lefttop.x + worldbox.size.x - 20,
				worldbox.lefttop.y + 20.0,
				worldbox.lefttop.y + 40.0),
			vec2(0.0, rand_DoubleRange(-200.0, -280.0)),
			rand_DoubleRange(1, 1.5),
			rand_DoubleRange(18, 30),
			20, duration_FromSeconds(0), &mode);
		e->thinkerData = (void *)lastEmit.microseconds;
	}


	if (app->player->player == NULL) // No player
		return;
	Component_Player *p         = app->player->player;
	Box2              playerbox = physics_HitboxAbsolute(p->super->hitbox);

	Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
	if (box2_Intersects(worldbox, playerbox, NULL))
		player_HazardHarm(app->player);
}

void misc_thinker_Textbox(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || !e->misc->textbox) {
		WARN("called on an entity without misc or misc.textbox", 0);
		e->thinker = NULL;
		return;
	}
	misc_Textbox *t = e->misc->textbox;
	if (app->player->player == NULL) { // No player, fade out
		t->progress = fmaxf(0.0f, t->progress - duration_Seconds(deltaTime) * MISC_TEXTBOX_FADEIN_SPEED);
		return;
	}
	Component_Player *p         = app->player->player;
	Box2              playerbox = physics_HitboxAbsolute(p->super->hitbox);

	Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
	if (box2_Intersects(worldbox, playerbox, NULL))
		// Fade in
		t->progress = fminf(1.0f, t->progress + duration_Seconds(deltaTime) * MISC_TEXTBOX_FADEIN_SPEED);
	else
		// Fade out
		t->progress = fmaxf(0.0f, t->progress - duration_Seconds(deltaTime) * MISC_TEXTBOX_FADEIN_SPEED);
}

void misc_thinker_ToLive(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || e->misc->tolive.microseconds == 0) {
		WARN("called on an entity without misc or misc.tolive", 0);
		e->thinker = NULL;
		return;
	}

	if (e->misc->tolive.microseconds < gametime_Now(app->time).microseconds) {
		// After its allocated time
		entity_Delete(app->entity, e->id);
	}
}

void misc_thinker_ChangeLevel(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || !e->misc->change_level) {
		WARN("called on an entity without misc or misc.change_level", 0);
		e->thinker = NULL;
		return;
	}
	if (app->player->player == NULL) // No player
		return;

	// Copied from Hazard thinker
	uint64_t  emitCooldown = 400.0 * 60000.0 / e->misc->trigger.size.x; // 60 msec across 400px
	TimePoint lastEmit     = {.microseconds = (uint64_t)e->thinkerData};
	if (gametime_Since(app->time, lastEmit).microseconds > emitCooldown) {
		lastEmit = gametime_Now(app->time);
		lastEmit.microseconds -= 10000 * rand_Double01();
		Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
		particle_Emit(
			app->particle,
			0,
			vec2_Random(
				worldbox.lefttop.x + 20,
				worldbox.lefttop.x + worldbox.size.x - 20,
				worldbox.lefttop.y + 20.0,
				worldbox.lefttop.y + 40.0),
			vec2(0.0, rand_DoubleRange(-250.0, -300.0)),
			rand_DoubleRange(1, 1.5),
			rand_DoubleRange(20, 30),
			20, duration_FromSeconds(0), &render_ModeDefault);
		e->thinkerData = (void *)lastEmit.microseconds;
	}
	Component_Player *p         = app->player->player;
	Box2              playerbox = physics_HitboxAbsolute(p->super->hitbox);

	Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
	if (box2_Intersects(worldbox, playerbox, NULL))
		app_QueueLoadLevel(app, e->misc->change_level);
}


void misc_thinker_CameraFocus(App *app, Entity *e, Duration deltaTime) {
	if (!e->misc || !(e->misc->trigger_flags & misc_CameraFocus)) {
		WARN("called on an entity without misc or misc.flags&misc_CameraFocus", 0);
		e->thinker = NULL;
		return;
	}

	if (app->player->player == NULL) // No player
		return;
	Component_Player *p = app->player->player;

	Box2 worldbox = ABSOLUTE_BOX(e, e->misc->trigger);
	if (box2_Contains(worldbox, p->super->position->position)) {
		app->camera->target = &e->misc->trigger;
	} else {
		if (app->camera->target == &e->misc->trigger)
			// Player just left this box
			app->camera->target = NULL;
	}
}


// Utility functions for creating misc entities
void misc_InstantiateTextbox(App *app, Entity *e, const char *text, Box2 trigger_box, float offset) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	ASSERT((e->render == NULL || e->render->custom == NULL) && "Instantiate for Textbox must be called with e.render.custom not set");
	e->misc          = zero_malloc(sizeof(Component_Misc));
	e->misc->trigger = trigger_box;
	e->misc->textbox = zero_malloc(sizeof(misc_Textbox));

	e->misc->textbox->text   = copy_malloc(text);
	e->misc->textbox->offset = offset;

	if (!e->render)
		e->render = render_NewComponentFunc(e, &misc_render_Textbox, NULL);
	else
		e->render->custom = &misc_render_Textbox;
	e->thinker = &misc_thinker_Textbox;
}

void misc_InstantiateHazardRespawn(App *app, Entity *e, Box2 trigger_box, Vec2 respawn_pos) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	e->misc              = zero_malloc(sizeof(Component_Misc));
	e->misc->trigger     = trigger_box;
	e->misc->respawn_pos = copy_malloc_size(&respawn_pos, sizeof(Vec2));

	e->thinker = &misc_thinker_HazardRespawn;
}

void misc_InstantiateHazard(App *app, Entity *e, Box2 trigger_box) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	e->misc                = zero_malloc(sizeof(Component_Misc));
	e->misc->trigger       = trigger_box;
	e->misc->trigger_flags = misc_Hazard;

	e->thinker = &misc_thinker_Hazard;
}

void misc_InstantiateToLive(App *app, Entity *e, Duration duration, TimePoint since) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	e->misc         = zero_malloc(sizeof(Component_Misc));
	e->misc->tolive = time_After(since, duration);

	e->thinker = &misc_thinker_ToLive;
}

void misc_InstantiateChangeLevel(App *app, Entity *e, Box2 trigger_box, const char *next_level) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	e->misc               = zero_malloc(sizeof(Component_Misc));
	e->misc->trigger      = trigger_box;
	e->misc->change_level = copy_malloc(next_level);
	e->thinker            = &misc_thinker_ChangeLevel;
}

void misc_InstantiateCameraFocus(App *app, Entity *e, Box2 trigger_box) {
	ASSERT(e->misc == NULL && "Instantiate must be called with e.misc not set");
	e->misc                = zero_malloc(sizeof(Component_Misc));
	e->misc->trigger       = trigger_box;
	e->misc->trigger_flags = misc_CameraFocus;
	e->thinker             = &misc_thinker_CameraFocus;
}