#include "level.h"
#include "camera.h"
#include "conf.h"
#include "levels_bin.h"
#include "particles.h"
#include "player.h"
#include "raygint/display.h"
#include "tile.h"
#include "vec.h"
#include <stdio.h>
#include <stdlib.h>

static struct Level self;

void
level_load(int id)
{
	extern int end;
#ifdef GINT
	const struct LevelBin *s = levels[id].data;
#endif
#ifdef RAYLIB
	const struct LevelBin *s = levels[id].data + 1;
#endif
	int i = s->width * s->height;
	self.width = s->width;
	self.height = s->height;
	self.size = i;
	self.data = malloc(i);
	self.id = id;
	while (i-- > 0)
		self.data[i] = s->data[i];
	player_init(level_find(TILE_PLAYER));
	particles_init();
	if (levels[self.id + 1].data == NULL)
		end = 1;
}

void
level_reload(void)
{
	level_load(self.id);
}

void
level_next(void)
{
	if (levels[self.id + 1].data != NULL)
		level_load(self.id + 1);
	else
		level_reload();
}

void
level_free(void)
{
	free(self.data);
}

#ifdef GINT
void
level_draw(void)
{
	extern bopti_image_t bimg_tileset;
	const int tileset_width = bimg_tileset.width / TILE_SIZE;
	const struct Vec off = camera_offset();
	int i;
	int x = 0;
	int y = 0;

	for (i = 0; i < self.size; i++) {
		const int tile = self.data[i];
		if (tile && tile != TILE_THUNDER) {
			const int sx = x * TILE_SIZE + off.x;
			const int sy = y * TILE_SIZE + off.y;
			const int rx = tile % tileset_width * TILE_SIZE;
			const int ry = tile / tileset_width * TILE_SIZE;

			dsubimage(sx, sy, &bimg_tileset, rx, ry, TILE_SIZE,
			          TILE_SIZE, DIMAGE_NONE);
		}

		if (++x >= self.width) {
			x = 0;
			y++;
		}
	}
}
#endif

#ifdef RAYLIB
void
level_draw(void)
{
	const struct Vec off = camera_offset();
	Color colors[TILE_OOB] = {0};
	colors[TILE_SOLID] = C_WHITE;
	colors[TILE_SHATTERED] = GRAY;
	colors[TILE_SPIKE_L] = SKYBLUE;
	colors[TILE_SPIKE_R] = SKYBLUE;
	colors[TILE_SPIKE_U] = SKYBLUE;
	colors[TILE_SPIKE_D] = SKYBLUE;
	int i;
	int x = 0;
	int y = 0;
	for (i = 0; i < self.size; i++) {
		const int tile = self.data[i];
		if (tile && tile != TILE_THUNDER) {
			const int sx1 = x * TILE_SIZE + off.x;
			const int sy1 = y * TILE_SIZE + off.y;
			const int sx2 = sx1 + TILE_SIZE - 1;
			const int sy2 = sy1 + TILE_SIZE - 1;
			drect(sx1, sy1, sx2, sy2, colors[tile]);
		}

		if (++x >= self.width) {
			x = 0;
			y++;
		}
	}
}
#endif

struct Vec
level_find(enum Tile seek)
{
	int i;
	for (i = 0; i < self.size; i++) {
		const enum Tile tile = self.data[i];
		if (tile == seek) {
			return VEC(i % self.width * TILE_SIZE,
			           i / self.width * TILE_SIZE);
		}
	}
	return VEC(0, 0);
}

enum Tile
level_get(int x, int y)
{
	if (y < 0)
		return TILE_NEXT;
	if (x < 0 || x >= self.width || y >= self.height)
		return TILE_OOB;
	return self.data[x + y * self.width];
}

enum Tile
level_get_px(int x, int y)
{
	return level_get(x / TILE_SIZE, y / TILE_SIZE);
}

void
level_set(int x, int y, enum Tile v)
{
	if (x < 0 || y < 0 || x >= self.width || y >= self.height)
		return;
	self.data[x + y * self.width] = v;
}

void
level_set_px(int x, int y, enum Tile v)
{
	level_set(x / TILE_SIZE, y / TILE_SIZE, v);
}

int
level_oob(int x, int y)
{
	return level_get_px(x, y) == TILE_OOB;
}