2 #include "system/stacktrace.h"
6 #include "ebisp/builtins.h"
7 #include "ebisp/interpreter.h"
8 #include "game/camera.h"
9 #include "game/level.h"
10 #include "game/level/background.h"
11 #include "game/level/boxes.h"
12 #include "game/level/goals.h"
13 #include "game/level/labels.h"
14 #include "game/level/lava.h"
15 #include "game/level/platforms.h"
16 #include "game/level/player.h"
17 #include "game/level/regions.h"
18 #include "game/level/rigid_bodies.h"
19 #include "game/level_metadata.h"
20 #include "game/proto_rect.h"
21 #include "system/line_stream.h"
22 #include "system/log.h"
23 #include "system/lt.h"
24 #include "system/lt/lt_adapters.h"
25 #include "system/nth_alloc.h"
26 #include "system/str.h"
28 #define LEVEL_LINE_MAX_LENGTH 512
29 #define LEVEL_GRAVITY 1500.0f
35 const char *file_name;
36 LevelMetadata *metadata;
37 Background *background;
38 RigidBodies *rigid_bodies;
43 Platforms *back_platforms;
49 Vec flying_camera_position;
50 float flying_camera_scale;
54 Level *create_level_from_file(const char *file_name, Broadcast *broadcast)
56 trace_assert(file_name);
58 Lt *const lt = create_lt();
63 Level *const level = PUSH_LT(lt, nth_alloc(sizeof(Level)), free);
69 level->file_name = PUSH_LT(lt, string_duplicate(file_name, NULL), free);
70 if (level->file_name == NULL) {
74 LineStream *level_stream = PUSH_LT(
79 LEVEL_LINE_MAX_LENGTH),
81 if (level_stream == NULL) {
85 level->metadata = PUSH_LT(
87 create_level_metadata_from_line_stream(level_stream),
88 destroy_level_metadata);
89 if (level->metadata == NULL) {
93 level->background = PUSH_LT(
95 create_background_from_line_stream(level_stream),
97 if (level->background == NULL) {
101 level->rigid_bodies = PUSH_LT(lt, create_rigid_bodies(1024), destroy_rigid_bodies);
102 if (level->rigid_bodies == NULL) {
106 level->player = PUSH_LT(
108 create_player_from_line_stream(level_stream, level->rigid_bodies, broadcast),
110 if (level->player == NULL) {
114 level->platforms = PUSH_LT(
116 create_platforms_from_line_stream(level_stream),
118 if (level->platforms == NULL) {
122 level->goals = PUSH_LT(
124 create_goals_from_line_stream(level_stream),
126 if (level->goals == NULL) {
130 level->lava = PUSH_LT(
132 create_lava_from_line_stream(level_stream),
134 if (level->lava == NULL) {
138 level->back_platforms = PUSH_LT(
140 create_platforms_from_line_stream(level_stream),
142 if (level->back_platforms == NULL) {
146 level->boxes = PUSH_LT(
148 create_boxes_from_line_stream(level_stream, level->rigid_bodies, level->player),
150 if (level->boxes == NULL) {
154 level->labels = PUSH_LT(
156 create_labels_from_line_stream(level_stream),
158 if (level->labels == NULL) {
162 level->regions = PUSH_LT(
164 create_regions_from_line_stream(level_stream, broadcast),
166 if (level->regions == NULL) {
170 level->flying_mode = false;
171 level->flying_camera_position = vec(0.0f, 0.0f);
172 level->flying_camera_scale = 1.0f;
174 memset(&level->proto_rect, 0, sizeof(ProtoRect));
175 level->proto_rect.color = rgba(1.0f, 0.0f, 0.0f, 1.0f);
177 destroy_line_stream(RELEASE_LT(lt, level_stream));
182 void destroy_level(Level *level)
185 RETURN_LT0(level->lt);
188 int level_render(const Level *level, Camera *camera)
192 if (background_render(level->background, camera) < 0) {
196 if (platforms_render(level->back_platforms, camera) < 0) {
200 if (player_render(level->player, camera) < 0) {
204 if (boxes_render(level->boxes, camera) < 0) {
208 if (lava_render(level->lava, camera) < 0) {
212 if (platforms_render(level->platforms, camera) < 0) {
216 if (goals_render(level->goals, camera) < 0) {
220 if (labels_render(level->labels, camera) < 0) {
224 if (regions_render(level->regions, camera) < 0) {
228 if (level->flying_mode) {
229 if (proto_rect_render(&level->proto_rect, camera) < 0) {
237 int level_update(Level *level, float delta_time)
240 trace_assert(delta_time > 0);
242 boxes_float_in_lava(level->boxes, level->lava);
243 rigid_bodies_apply_omniforce(level->rigid_bodies, vec(0.0f, LEVEL_GRAVITY));
245 boxes_update(level->boxes, delta_time);
246 player_update(level->player, delta_time);
248 rigid_bodies_collide(level->rigid_bodies, level->platforms);
250 player_hide_goals(level->player, level->goals);
251 player_die_from_lava(level->player, level->lava);
252 regions_player_enter(level->regions, level->player);
253 regions_player_leave(level->regions, level->player);
255 goals_update(level->goals, delta_time);
256 lava_update(level->lava, delta_time);
257 labels_update(level->labels, delta_time);
259 if (level->flying_mode) {
260 proto_rect_update(&level->proto_rect, delta_time);
266 int level_event(Level *level, const SDL_Event *event, const Camera *camera)
271 switch (event->type) {
273 switch (event->key.keysym.sym) {
275 player_jump(level->player);
280 case SDL_JOYBUTTONDOWN:
281 if (event->jbutton.button == 1) {
282 player_jump(level->player);
286 case SDL_MOUSEMOTION:
287 if (level->flying_mode) {
288 const float sens = 1.0f / level->flying_camera_scale * 0.25f;
289 vec_add(&level->flying_camera_position,
290 vec((float) event->motion.xrel * sens, (float) event->motion.yrel * sens));
295 if (level->flying_mode) {
296 // TODO(#679): zooming in flying mode is not smooth enough
297 if (event->wheel.y > 0) {
298 level->flying_camera_scale += 0.1f;
299 } else if (event->wheel.y < 0) {
300 level->flying_camera_scale = fmaxf(0.1f, level->flying_camera_scale - 0.1f);
306 if (level->flying_mode) {
307 proto_rect_event(&level->proto_rect, event, camera, level->boxes);
313 int level_input(Level *level,
314 const Uint8 *const keyboard_state,
315 SDL_Joystick *the_stick_of_joy)
318 trace_assert(keyboard_state);
319 (void) the_stick_of_joy;
321 if (keyboard_state[SDL_SCANCODE_A]) {
322 player_move_left(level->player);
323 } else if (keyboard_state[SDL_SCANCODE_D]) {
324 player_move_right(level->player);
325 } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) < 0) {
326 player_move_left(level->player);
327 } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) > 0) {
328 player_move_right(level->player);
330 player_stop(level->player);
336 int level_reload_preserve_player(Level *level, Broadcast *broadcast)
338 Lt * const lt = create_lt();
343 log_info("Soft-reloading the level from '%s'...\n", level->file_name);
345 /* TODO(#104): duplicate code in create_level_from_file and level_reload_preserve_player */
347 LineStream * const level_stream = PUSH_LT(
352 LEVEL_LINE_MAX_LENGTH),
353 destroy_line_stream);
354 if (level_stream == NULL) {
358 LevelMetadata *const metadata = create_level_metadata_from_line_stream(level_stream);
359 if (metadata == NULL) {
362 level->metadata = RESET_LT(level->lt, level->metadata, metadata);
364 Background * const background = create_background_from_line_stream(level_stream);
365 if (background == NULL) {
368 level->background = RESET_LT(level->lt, level->background, background);
370 Player * const skipped_player = create_player_from_line_stream(level_stream, level->rigid_bodies, broadcast);
371 if (skipped_player == NULL) {
374 destroy_player(skipped_player);
376 Platforms * const platforms = create_platforms_from_line_stream(level_stream);
377 if (platforms == NULL) {
380 level->platforms = RESET_LT(level->lt, level->platforms, platforms);
382 Goals * const goals = create_goals_from_line_stream(level_stream);
386 level->goals = RESET_LT(level->lt, level->goals, goals);
388 Lava * const lava = create_lava_from_line_stream(level_stream);
392 level->lava = RESET_LT(level->lt, level->lava, lava);
394 Platforms * const back_platforms = create_platforms_from_line_stream(level_stream);
395 if (back_platforms == NULL) {
398 level->back_platforms = RESET_LT(level->lt, level->back_platforms, back_platforms);
400 Boxes * const boxes = create_boxes_from_line_stream(level_stream, level->rigid_bodies, level->player);
404 level->boxes = RESET_LT(level->lt, level->boxes, boxes);
406 Labels * const labels = create_labels_from_line_stream(level_stream);
407 if (labels == NULL) {
410 level->labels = RESET_LT(level->lt, level->labels, labels);
412 Regions * const regions = create_regions_from_line_stream(level_stream, broadcast);
413 if (regions == NULL) {
416 level->regions = RESET_LT(level->lt, level->regions, regions);
421 int level_sound(Level *level, Sound_samples *sound_samples)
423 if (goals_sound(level->goals, sound_samples) < 0) {
427 if (player_sound(level->player, sound_samples) < 0) {
434 void level_toggle_debug_mode(Level *level)
436 background_toggle_debug_mode(level->background);
439 int level_enter_camera_event(Level *level, Camera *camera)
441 if (!level->flying_mode) {
442 player_focus_camera(level->player, camera);
443 camera_scale(camera, 1.0f);
445 camera_center_at(camera, level->flying_camera_position);
446 camera_scale(camera, level->flying_camera_scale);
449 goals_cue(level->goals, camera);
450 goals_checkpoint(level->goals, level->player);
451 labels_enter_camera_event(level->labels, camera);
455 struct EvalResult level_send(Level *level, Gc *gc, struct Scope *scope, struct Expr path)
461 const char *target = NULL;
462 struct Expr rest = void_expr();
463 struct EvalResult res = match_list(gc, "q*", path, &target, &rest);
468 if (strcmp(target, "goal") == 0) {
469 return goals_send(level->goals, gc, scope, rest);
470 } else if (strcmp(target, "label") == 0) {
471 return labels_send(level->labels, gc, scope, rest);
472 } else if (strcmp(target, "box") == 0) {
473 return boxes_send(level->boxes, gc, scope, rest);
474 } else if (strcmp(target, "body-push") == 0) {
475 long int id = 0, x = 0, y = 0;
476 res = match_list(gc, "ddd", rest, &id, &x, &y);
481 rigid_bodies_apply_force(level->rigid_bodies, (size_t) id, vec((float) x, (float) y));
483 return eval_success(NIL(gc));
484 } else if (strcmp(target, "body-add") == 0) {
485 long int x = 0, y = 0, w = 0, h = 0;
486 const char *color = 0;
487 res = match_list(gc, "dddds", rest, &x, &y, &w, &h, &color);
495 (long int) rigid_bodies_add(
497 rect((float)x, (float)y, (float)w, (float)h),
499 } else if (strcmp(target, "fly") == 0) {
500 level->flying_mode = !level->flying_mode;
501 SDL_SetRelativeMouseMode(level->flying_mode);
502 return eval_success(NIL(gc));
505 return unknown_target(gc, "level", target);