#include <SDL2/SDL.h>
-#include <assert.h>
+#include "system/stacktrace.h"
+#include "broadcast.h"
#include "color.h"
+#include "ebisp/builtins.h"
+#include "ebisp/interpreter.h"
#include "game/camera.h"
#include "game/level.h"
#include "game/level/background.h"
#include "game/level/platforms.h"
#include "game/level/player.h"
#include "game/level/regions.h"
-#include "system/error.h"
+#include "game/level/rigid_bodies.h"
#include "system/line_stream.h"
#include "system/lt.h"
#include "system/lt/lt_adapters.h"
+#include "system/nth_alloc.h"
#define LEVEL_LINE_MAX_LENGTH 512
+#define LEVEL_GRAVITY 1500.0f
struct Level
{
Lt *lt;
- Physical_world *physical_world;
+ Background *background;
Player *player;
Platforms *platforms;
Goals *goals;
Lava *lava;
Platforms *back_platforms;
- Background *background;
Boxes *boxes;
Labels *labels;
Regions *regions;
+ Physical_world *physical_world;
+ RigidBodies *rigid_bodies;
};
-Level *create_level_from_file(const char *file_name)
+Level *create_level_from_file(const char *file_name, Broadcast *broadcast)
{
- assert(file_name);
+ trace_assert(file_name);
Lt *const lt = create_lt();
if (lt == NULL) {
return NULL;
}
- Level *const level = PUSH_LT(lt, malloc(sizeof(Level)), free);
+ Level *const level = PUSH_LT(lt, nth_alloc(sizeof(Level)), free);
if (level == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, NULL);
}
LEVEL_LINE_MAX_LENGTH),
destroy_line_stream);
if (level_stream == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, NULL);
}
level->background = PUSH_LT(
level->player = PUSH_LT(
lt,
- create_player_from_line_stream(level_stream),
+ create_player_from_line_stream(level_stream, broadcast),
destroy_player);
if (level->player == NULL) {
RETURN_LT(lt, NULL);
level->regions = PUSH_LT(
lt,
- create_regions_from_line_stream(level_stream, level),
+ create_regions_from_line_stream(level_stream, broadcast),
destroy_regions);
if (level->regions == NULL) {
RETURN_LT(lt, NULL);
level->boxes,
level->physical_world) < 0) { RETURN_LT(lt, NULL); }
+ level->rigid_bodies = PUSH_LT(lt, create_rigid_bodies(1024), destroy_rigid_bodies);
+ if (level->rigid_bodies == NULL) {
+ RETURN_LT(lt, NULL);
+ }
+ rigid_bodies_add(
+ level->rigid_bodies,
+ rect(0.0, -1000.0, 100.0, 100.0),
+ rgba(1.0f, 0.0f, 0.0f, 1.0f));
+
+ rigid_bodies_add(
+ level->rigid_bodies,
+ rect(150.0, -1000.0, 100.0, 100.0),
+ rgba(0.0f, 1.0f, 0.0f, 1.0f));
+
+
level->lt = lt;
destroy_line_stream(RELEASE_LT(lt, level_stream));
void destroy_level(Level *level)
{
- assert(level);
+ trace_assert(level);
RETURN_LT0(level->lt);
}
int level_render(const Level *level, Camera *camera)
{
- assert(level);
-
- player_focus_camera(level->player, camera);
+ trace_assert(level);
if (background_render(level->background, camera) < 0) {
return -1;
return -1;
}
+ if (regions_render(level->regions, camera) < 0) {
+ return -1;
+ }
+
+ if (rigid_bodies_render(level->rigid_bodies, camera) < 0) {
+ return -1;
+ }
+
return 0;
}
int level_update(Level *level, float delta_time)
{
- assert(level);
- assert(delta_time > 0);
+ trace_assert(level);
+ trace_assert(delta_time > 0);
physical_world_apply_gravity(level->physical_world);
boxes_float_in_lava(level->boxes, level->lava);
+ rigid_bodies_apply_omniforce(level->rigid_bodies, vec(0.0f, LEVEL_GRAVITY));
+ rigid_bodies_update(level->rigid_bodies, delta_time);
boxes_update(level->boxes, delta_time);
player_update(level->player, delta_time);
+ rigid_bodies_collide_with_itself(level->rigid_bodies);
+ rigid_bodies_collide_with_platforms(level->rigid_bodies, level->platforms);
physical_world_collide_solids(level->physical_world, level->platforms);
player_hide_goals(level->player, level->goals);
int level_event(Level *level, const SDL_Event *event)
{
- assert(level);
- assert(event);
+ trace_assert(level);
+ trace_assert(event);
switch (event->type) {
case SDL_KEYDOWN:
const Uint8 *const keyboard_state,
SDL_Joystick *the_stick_of_joy)
{
- assert(level);
- assert(keyboard_state);
+ trace_assert(level);
+ trace_assert(keyboard_state);
(void) the_stick_of_joy;
if (keyboard_state[SDL_SCANCODE_A]) {
return 0;
}
-int level_reload_preserve_player(Level *level, const char *file_name)
+int level_reload_preserve_player(Level *level, const char *file_name, Broadcast *broadcast)
{
Lt * const lt = create_lt();
if (lt == NULL) {
LEVEL_LINE_MAX_LENGTH),
destroy_line_stream);
if (level_stream == NULL) {
- throw_error(ERROR_TYPE_LIBC);
RETURN_LT(lt, -1);
}
}
level->background = RESET_LT(level->lt, level->background, background);
- Player * const skipped_player = create_player_from_line_stream(level_stream);
+ Player * const skipped_player = create_player_from_line_stream(level_stream, broadcast);
if (skipped_player == NULL) {
RETURN_LT(lt, -1);
}
}
level->labels = RESET_LT(level->lt, level->labels, labels);
+ Regions * const regions = create_regions_from_line_stream(level_stream, broadcast);
+ if (regions == NULL) {
+ RETURN_LT(lt, -1);
+ }
+ level->regions = RESET_LT(level->lt, level->regions, regions);
+
physical_world_clean(level->physical_world);
if (physical_world_add_solid(
level->physical_world,
background_toggle_debug_mode(level->background);
}
-int level_enter_camera_event(Level *level,
- const Camera *camera)
+int level_enter_camera_event(Level *level, Camera *camera)
{
+ player_focus_camera(level->player, camera);
goals_cue(level->goals, camera);
goals_checkpoint(level->goals, level->player);
labels_enter_camera_event(level->labels, camera);
Rigid_rect *level_rigid_rect(Level *level,
const char *rigid_rect_id)
{
- assert(level);
- assert(rigid_rect_id);
+ trace_assert(level);
+ trace_assert(rigid_rect_id);
Rigid_rect *rigid_rect = player_rigid_rect(level->player,
rigid_rect_id);
return NULL;
}
+
+struct EvalResult level_send(Level *level, Gc *gc, struct Scope *scope, struct Expr path)
+{
+ trace_assert(level);
+ trace_assert(gc);
+ trace_assert(scope);
+
+ const char *target = NULL;
+ struct Expr rest = void_expr();
+ struct EvalResult res = match_list(gc, "q*", path, &target, &rest);
+ if (res.is_error) {
+ return res;
+ }
+
+ if (strcmp(target, "goal") == 0) {
+ return goals_send(level->goals, gc, scope, rest);
+ } else if (strcmp(target, "label") == 0) {
+ return labels_send(level->labels, gc, scope, rest);
+ } else if (strcmp(target, "box") == 0) {
+ return boxes_send(level->boxes, gc, scope, rest);
+ }
+
+ return unknown_target(gc, "level", target);
+}