keraforge / src / actor.c

#include "keraforge/actor.h"
#include "keraforge/fs.h"
#include <keraforge.h>
#include <stdlib.h>
#include <raymath.h>
#include <string.h>


struct kf_actorregistry kf_actorregistry = {0};
struct kf_actor *kf_actors = NULL, *kf_actors_last = NULL;
u32 kf_actor_count = 0;


struct kf_actor *kf_actor_new(char *key)
{
	struct kf_actor *actor = calloc(1, sizeof(struct kf_actor));
	kf_actor_count++;

	if (!kf_actors)
	{
		kf_actors = kf_actors_last = actor;
	}
	else
	{
		actor->prev = kf_actors_last;
		kf_actors_last->next = actor;
		kf_actors_last = actor;
	}

	actor->id = kf_actor_getregistryid(key);
	actor->size.x = 10;
	actor->size.y = 10;
	actor->collide = true;

	actor->speed = 25;
	actor->speedmod = 1;
	actor->friction = 1.5f;
	actor->pointing = kf_north;

	return actor;
}

int kf_actor_register(char *key)
{
	int id = kf_actorregistry.count++;
	kf_actorregistry.key[id] = key;
	return id;
}

struct kf_spritesheet kf_actor_loadspritesheet(char *filename)
{
	return kf_loadspritesheet(filename, 20, 20);
}

int kf_actor_canmovetowards(struct kf_world *world, struct kf_actor *actor, struct kf_vec2(f32) dir)
{
	Rectangle r = {
		actor->pos.x + (actor->size.x / 2) + actor->sizeoffset.x,
		actor->pos.y + (actor->size.y / 2) + actor->sizeoffset.y,
		actor->size.x,
		actor->size.y
	};
	r.x += dir.x;
	r.y += dir.y;

	/* get a range of tiles to check */
	const u32 sx = fmax(0, floorf(r.x / KF_TILE_SIZE_PX) - 1);
	const u32 sy = fmax(0, floorf(r.y / KF_TILE_SIZE_PX) - 1);
	const u32 ex = fmin(world->width, ceilf(r.width / KF_TILE_SIZE_PX) + sx + 2);
	const u32 ey = fmin(world->height, ceilf(r.height / KF_TILE_SIZE_PX) + sy + 2);
	const size_t down = world->width - ex + sx - 1; /* number of indexes to add to reach the next tile down */

	/* check if any tiles will collide with the actor's rect */
	const f32 trx = sx * KF_TILE_SIZE_PX;
	Rectangle tr = {
		trx,
		sy * KF_TILE_SIZE_PX,
		/* TODO:
		   Subtracting 1 as a bandaid fix to high velocities causing the player to be stopped early in collisions.
		   This is a very notorious problem in 3D collision and fwik there are plenty of 2D solutions.
		   I'll research and implement one eventually:tm: */
		KF_TILE_SIZE_PX - 1,
		KF_TILE_SIZE_PX - 1,
	}; /* tile rect */
	u32 x;
	struct kf_tile *tile = kf_world_gettile(world, sx, sy);

	for (u32 y = sy ; y <= ey ; y++)
	{
		for (x = sx ; x <= ex ; x++)
		{
			if (kf_tiles.collide[tile->id] && CheckCollisionRecs(r, tr))
				return 0;
			tile++; /* shift tile pointer to the right */
			tr.x += KF_TILE_SIZE_PX;
		}
		tile += down; /* shift tile pointer down */
		tr.x = trx;
		tr.y += KF_TILE_SIZE_PX;
	}

	return 1;
}

void kf_actor_addforce(struct kf_actor *self, struct kf_vec2(f32) force)
{
	self->vel.x += force.x;
	self->vel.y += force.y;
}

void kf_actor_move(struct kf_world *world, struct kf_actor *self, f32 dt)
{
	struct kf_vec2(f32) delta = kf_mulval_vec2(f32)(self->vel, (self->speed * self->speedmod) * dt);

	if (self->collide)
	{
		if (delta.x && !kf_actor_canmovetowards(world, self, kf_vec2_x(f32)(delta)))
			delta.x = 0;
		if (delta.y && !kf_actor_canmovetowards(world, self, kf_vec2_y(f32)(delta)))
			delta.y = 0;
	}

	if (!self->controlled)
	{
		if (delta.y > 0)
			self->pointing = kf_south;
		else if (delta.y < 0)
			self->pointing = kf_north;
		else if (delta.x < 0)
			self->pointing = kf_west;
		else if (delta.x > 0)
			self->pointing = kf_east;
	}

	self->pos = kf_add_vec2(f32)(self->pos, delta);

	static const f32 speed_deadzone = 0.1f;

	if (self->vel.x > -speed_deadzone && self->vel.x < speed_deadzone)
		self->vel.x = 0;
	else if (self->vel.x)
		self->vel.x /= self->friction;

	if (self->vel.y > -speed_deadzone && self->vel.y < speed_deadzone)
		self->vel.y = 0;
	else if (self->vel.y)
		self->vel.y /= self->friction;

	// if (self->speedmod > -(1+speed_deadzone) && self->speedmod < 1+speed_deadzone)
	// 	self->speedmod = 1;
	// else if (self->speedmod)
	// 	self->speedmod -= self->friction * self->friction * dt;
}

void kf_actor_draw(struct kf_actor *actor)
{
	int frames = 4;
	int x = 0, y = 0;

	switch (actor->pointing)
	{
	case kf_south: y = 0; break;
	case kf_east:  y = 1; break;
	case kf_west:  y = 2; break;
	case kf_north: y = 3; break;
	}

	bool moving = actor->vel.x != 0 || actor->vel.y != 0;

	if (actor->running && moving)
	{
		y += 5; /* run sprites */
		frames = 6;
	}
	else if (moving)
	{
		x += 7; /* walk sprites */
	}

	/* todo: jump */

	x += (int)(kf_s * (frames+1)) % frames;

	kf_drawsprite(&kf_actorregistry.sprite[actor->id], actor->pos.x, actor->pos.y, x, y);
}

int kf_actor_getregistryid(char *key)
{
	size_t l = strlen(key);
	for (int i = 0 ; i < kf_actorregistry.count ; i++)
	{
		char *c = kf_actorregistry.key[i];
		size_t cl = strlen(c);
		if (strncmp(c, key, l>cl?l:cl) == 0)
		{
			return i;
		}
	}
	return -1;
}

#define _KF_ACTORFILE_TMP "data/tmp/actors.bin"
#define _KF_ACTORFILE_XZ "data/actors.bin.xz"
#define _KF_ACTORFILE "data/actors.bin"

int kf_saveactors(void)
{
	struct bini_stream *bs = bini_new();

	/* kf_actor_count includes unserialized actors, so we have to manually count. */
	size_t nactors = 0;
	for (struct kf_actor *actor = kf_actors ; actor != NULL ; actor = actor->next)
	{
		if (actor->id == -1)
			continue;
		nactors++;
	}
	bini_wlu(bs, nactors);
	kf_logdbg("expecting to save %lu actors", nactors);

	for (struct kf_actor *actor = kf_actors ; actor != NULL ; actor = actor->next)
	{
		if (actor->id == -1)
			continue;
		bini_wstr(bs, kf_actorregistry.key[actor->id]);
		kf_actorregistry.serialize[actor->id](actor, bs);
	}

	kf_logdbg("serialized %d actors (%lu bytes)", nactors, bs->len);

	// char *outfile = compress ? _KF_ACTORFILE_TMP : _KF_ACTORFILE;
	char *outfile = _KF_ACTORFILE;
	if (!kf_writebin(outfile, bs->buffer, bs->len))
		KF_THROW("failed to write actors to %s", outfile);

	return 1;
}

int kf_loadactors(void)
{
	// char *infile = compress ? _KF_ACTORFILE_TMP : _KF_ACTORFILE;
	char *infile = _KF_ACTORFILE;

	if (!kf_exists(infile))
	{
		kf_logdbg("actors.bin nonexistent, creating...");
		kf_saveactors();
		return 1;
	}

	size_t len = 0;
	struct bini_stream bs = {
		.mode = BINI_STREAM,
		.buffer = kf_readbin(infile, &len),
	};
	if (!bs.buffer)
		KF_THROW("failed to read/open %s", infile);
	bs.cap = len;
	bs.len = len;
	kf_logdbg("loaded actors into binary stream: len=%lu", len);

	const size_t nactors = bini_rlu(&bs);
	kf_logdbg("expecting to load %lu actors", nactors);

	for (size_t i = 0 ; i < nactors ; i++)
	{
		kf_logdbg("loading actor #%lu", i);
		char key[4096];
		size_t n = bini_rstr(&bs, key);
		key[n] = '\0';
		char *keycpy = kf_strdup(key);
		kf_logdbg("  key: %s", keycpy);
		int id = kf_actor_getregistryid(keycpy);
		kf_logdbg("  id: %d", id);
		if (id == -1)
			continue;
		struct kf_actor *actor = kf_actor_new(keycpy);
		kf_actorregistry.deserialize[id](actor, &bs);
	}

	kf_logdbg("loaded %d actors", nactors);

	free(bs.buffer);

	return 1;
}