-#include <assert.h>
+#include "system/stacktrace.h"
-#include "player.h"
-#include "regions.h"
-#include "script.h"
#include "ebisp/gc.h"
#include "ebisp/interpreter.h"
#include "ebisp/parser.h"
#include "ebisp/scope.h"
-#include "str.h"
-#include "system/error.h"
+#include "player.h"
+#include "regions.h"
+#include "script.h"
+#include "system/str.h"
#include "system/line_stream.h"
+#include "system/log.h"
#include "system/lt.h"
+#include "system/nth_alloc.h"
+#include "game/level/level_editor/rect_layer.h"
+
+#define ID_MAX_SIZE 36
enum RegionState {
- RS_PLAYER_INSIDE = 0,
- RS_PLAYER_OUTSIDE
+ RS_PLAYER_OUTSIDE = 0,
+ RS_PLAYER_INSIDE
};
struct Regions
{
Lt *lt;
size_t count;
+ char *ids;
Rect *rects;
- Script **scripts;
+ Color *colors;
enum RegionState *states;
};
-Regions *create_regions_from_line_stream(LineStream *line_stream, Level *level)
+Regions *create_regions_from_line_stream(LineStream *line_stream)
{
- assert(line_stream);
+ trace_assert(line_stream);
Lt *lt = create_lt();
- if (lt == NULL) {
- return NULL;
- }
Regions *regions = PUSH_LT(
lt,
- malloc(sizeof(Regions)),
+ nth_calloc(1, sizeof(Regions)),
free);
if (regions == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, NULL);
}
regions->lt = lt;
line_stream_next(line_stream),
"%lu",
®ions->count) < 0) {
- throw_error(ERROR_TYPE_LIBC);
+ log_fail("Could not read amount of script regions\n");
+ RETURN_LT(lt, NULL);
+ }
+
+ regions->ids = PUSH_LT(
+ lt,
+ nth_calloc(regions->count * ID_MAX_SIZE, sizeof(char)),
+ free);
+ if (regions->ids == NULL) {
RETURN_LT(lt, NULL);
}
regions->rects = PUSH_LT(
lt,
- malloc(sizeof(Rect) * regions->count),
+ nth_calloc(1, sizeof(Rect) * regions->count),
free);
if (regions->rects == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, NULL);
}
- regions->scripts = PUSH_LT(
+ regions->colors = PUSH_LT(
lt,
- malloc(sizeof(Script*) * regions->count),
+ nth_calloc(1, sizeof(Color) * regions->count),
free);
- if (regions->scripts == NULL) {
- throw_error(ERROR_TYPE_LIBC);
+ if (regions->colors == NULL) {
RETURN_LT(lt, NULL);
}
regions->states = PUSH_LT(
lt,
- malloc(sizeof(bool) * regions->count),
+ nth_calloc(1, sizeof(enum RegionState) * regions->count),
free);
if (regions->states == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, NULL);
}
- printf("Amount of regions: %lu\n", regions->count);
+ log_info("Amount of regions: %lu\n", regions->count);
+
+ char color[7];
for (size_t i = 0; i < regions->count; ++i) {
if (sscanf(
line_stream_next(line_stream),
- "%f%f%f%f",
+ "%" STRINGIFY(ID_MAX_SIZE) "s%f%f%f%f%6s",
+ regions->ids + ID_MAX_SIZE * i,
®ions->rects[i].x,
®ions->rects[i].y,
®ions->rects[i].w,
- ®ions->rects[i].h) < 0) {
- throw_error(ERROR_TYPE_LIBC);
+ ®ions->rects[i].h,
+ color) < 0) {
+ log_fail("Could not read size and color of %dth region\n");
RETURN_LT(lt, NULL);
}
- regions->scripts[i] = PUSH_LT(
- lt,
- create_script_from_line_stream(line_stream, level),
- destroy_script);
- if (regions->scripts[i] == NULL) {
- RETURN_LT(lt, NULL);
- }
+ regions->colors[i] = hexstr(color);
+ regions->states[i] = RS_PLAYER_OUTSIDE;
+ }
- /* TODO(#472): Script doesn't provide its id on missing callback error */
- if (!script_has_scope_value(regions->scripts[i], "on-enter")) {
- fprintf(stderr, "Script does not provide on-enter callback\n");
- RETURN_LT(lt, NULL);
- }
- if (!script_has_scope_value(regions->scripts[i], "on-leave")) {
- fprintf(stderr, "Script does not provide on-leave callback\n");
- RETURN_LT(lt, NULL);
- }
+ return regions;
+}
- regions->states[i] = RS_PLAYER_OUTSIDE;
+Regions *create_regions_from_rect_layer(const RectLayer *rect_layer)
+{
+ trace_assert(rect_layer);
+
+ Lt *lt = create_lt();
+
+ Regions *regions = PUSH_LT(
+ lt,
+ nth_calloc(1, sizeof(Regions)),
+ free);
+ if (regions == NULL) {
+ RETURN_LT(lt, NULL);
+ }
+ regions->lt = lt;
+
+ regions->count = rect_layer_count(rect_layer);
+
+ regions->ids = PUSH_LT(
+ lt,
+ nth_calloc(regions->count * ID_MAX_SIZE, sizeof(char)),
+ free);
+ if (regions->ids == NULL) {
+ RETURN_LT(lt, NULL);
+ }
+ memcpy(regions->ids,
+ rect_layer_ids(rect_layer),
+ regions->count * ID_MAX_SIZE * sizeof(char));
+
+
+ regions->rects = PUSH_LT(
+ lt,
+ nth_calloc(1, sizeof(Rect) * regions->count),
+ free);
+ if (regions->rects == NULL) {
+ RETURN_LT(lt, NULL);
}
+ memcpy(regions->rects,
+ rect_layer_rects(rect_layer),
+ regions->count * sizeof(Rect));
- /* TODO(#456): create_regions_from_line_stream doesn't check if the scripts contain proper callbacks */
+
+ regions->colors = PUSH_LT(
+ lt,
+ nth_calloc(1, sizeof(Color) * regions->count),
+ free);
+ if (regions->colors == NULL) {
+ RETURN_LT(lt, NULL);
+ }
+ memcpy(regions->colors,
+ rect_layer_colors(rect_layer),
+ regions->count * sizeof(Color));
+
+ regions->states = PUSH_LT(
+ lt,
+ nth_calloc(1, sizeof(enum RegionState) * regions->count),
+ free);
+ if (regions->states == NULL) {
+ RETURN_LT(lt, NULL);
+ }
return regions;
}
void destroy_regions(Regions *regions)
{
- assert(regions);
+ trace_assert(regions);
RETURN_LT0(regions->lt);
}
-void regions_player_enter(Regions *regions, Player *player)
+void regions_player_enter(Regions *regions, Player *player, Script *supa_script)
{
- assert(regions);
- assert(player);
+ trace_assert(regions);
+ trace_assert(player);
for (size_t i = 0; i < regions->count; ++i) {
if (regions->states[i] == RS_PLAYER_OUTSIDE &&
player_overlaps_rect(player, regions->rects[i])) {
regions->states[i] = RS_PLAYER_INSIDE;
- script_eval(regions->scripts[i], "(on-enter)");
+
+ Gc *gc = script_gc(supa_script);
+ if (script_has_scope_value(supa_script, "on-region-enter")) {
+ script_eval(
+ supa_script,
+ list(gc, "qs",
+ "on-region-enter",
+ regions->ids + i * ID_MAX_SIZE));
+ }
}
}
}
-void regions_player_leave(Regions *regions, Player *player)
+void regions_player_leave(Regions *regions, Player *player, Script *supa_script)
{
- assert(regions);
- assert(player);
+ trace_assert(regions);
+ trace_assert(player);
+ trace_assert(supa_script);
for (size_t i = 0; i < regions->count; ++i) {
if (regions->states[i] == RS_PLAYER_INSIDE &&
!player_overlaps_rect(player, regions->rects[i])) {
regions->states[i] = RS_PLAYER_OUTSIDE;
- script_eval(regions->scripts[i], "(on-leave)");
+ Gc *gc = script_gc(supa_script);
+ if (script_has_scope_value(supa_script, "on-region-leave")) {
+ script_eval(
+ supa_script,
+ list(gc, "qs",
+ "on-region-leave",
+ regions->ids + i * ID_MAX_SIZE));
+ }
}
}
}
+
+int regions_render(Regions *regions, Camera *camera)
+{
+ trace_assert(regions);
+ trace_assert(camera);
+
+ for (size_t i = 0; i < regions->count; ++i) {
+ if (camera_render_debug_rect(
+ camera,
+ regions->rects[i],
+ regions->colors[i]) < 0) {
+ return -1;
+ }
+ }
+
+ return 0;
+}
projects / nothing.git / blobdiff