src/game/level.c

   1 #include <SDL2/SDL.h>
   2 #include "system/stacktrace.h"
   3
   4 #include "broadcast.h"
   5 #include "color.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/level/level_editor/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"
  27 #include "game/level/level_editor.h"
  28
  29 #define LEVEL_LINE_MAX_LENGTH 512
  30 #define LEVEL_GRAVITY 1500.0f
  31
  32 struct Level
  33 {
  34     Lt *lt;
  35
  36     const char *file_name;
  37     LevelMetadata *metadata;
  38     Background *background;
  39     RigidBodies *rigid_bodies;
  40     Player *player;
  41     Platforms *platforms;
  42     Goals *goals;
  43     Lava *lava;
  44     Platforms *back_platforms;
  45     Boxes *boxes;
  46     Labels *labels;
  47     Regions *regions;
  48
  49     bool edit_mode;
  50     LevelEditor *level_editor;
  51 };
  52
  53 Level *create_level_from_file(const char *file_name, Broadcast *broadcast)
  54 {
  55     trace_assert(file_name);
  56
  57     Lt *const lt = create_lt();
  58     if (lt == NULL) {
  59         return NULL;
  60     }
  61
  62     Level *const level = PUSH_LT(lt, nth_alloc(sizeof(Level)), free);
  63     if (level == NULL) {
  64         RETURN_LT(lt, NULL);
  65     }
  66     level->lt = lt;
  67
  68     level->file_name = PUSH_LT(lt, string_duplicate(file_name, NULL), free);
  69     if (level->file_name == NULL) {
  70         RETURN_LT(lt, NULL);
  71     }
  72
  73     LineStream *level_stream = PUSH_LT(
  74         lt,
  75         create_line_stream(
  76             file_name,
  77             "r",
  78             LEVEL_LINE_MAX_LENGTH),
  79         destroy_line_stream);
  80     if (level_stream == NULL) {
  81         RETURN_LT(lt, NULL);
  82     }
  83
  84     level->metadata = PUSH_LT(
  85         lt,
  86         create_level_metadata_from_line_stream(level_stream),
  87         destroy_level_metadata);
  88     if (level->metadata == NULL) {
  89         RETURN_LT(lt, NULL);
  90     }
  91
  92     level->background = PUSH_LT(
  93         lt,
  94         create_background_from_line_stream(level_stream),
  95         destroy_background);
  96     if (level->background == NULL) {
  97         RETURN_LT(lt, NULL);
  98     }
  99
 100     level->rigid_bodies = PUSH_LT(lt, create_rigid_bodies(1024), destroy_rigid_bodies);
 101     if (level->rigid_bodies == NULL) {
 102         RETURN_LT(lt, NULL);
 103     }
 104
 105     level->player = PUSH_LT(
 106         lt,
 107         create_player_from_line_stream(level_stream, level->rigid_bodies, broadcast),
 108         destroy_player);
 109     if (level->player == NULL) {
 110         RETURN_LT(lt, NULL);
 111     }
 112
 113     level->platforms = PUSH_LT(
 114         lt,
 115         create_platforms_from_line_stream(level_stream),
 116         destroy_platforms);
 117     if (level->platforms == NULL) {
 118         RETURN_LT(lt, NULL);
 119     }
 120
 121     level->goals = PUSH_LT(
 122         lt,
 123         create_goals_from_line_stream(level_stream),
 124         destroy_goals);
 125     if (level->goals == NULL) {
 126         RETURN_LT(lt, NULL);
 127     }
 128
 129     level->lava = PUSH_LT(
 130         lt,
 131         create_lava_from_line_stream(level_stream),
 132         destroy_lava);
 133     if (level->lava == NULL) {
 134         RETURN_LT(lt, NULL);
 135     }
 136
 137     level->back_platforms = PUSH_LT(
 138         lt,
 139         create_platforms_from_line_stream(level_stream),
 140         destroy_platforms);
 141     if (level->back_platforms == NULL) {
 142         RETURN_LT(lt, NULL);
 143     }
 144
 145     level->boxes = PUSH_LT(
 146         lt,
 147         create_boxes_from_line_stream(level_stream, level->rigid_bodies, level->player),
 148         destroy_boxes);
 149     if (level->boxes == NULL) {
 150         RETURN_LT(lt, NULL);
 151     }
 152
 153     level->labels = PUSH_LT(
 154         lt,
 155         create_labels_from_line_stream(level_stream),
 156         destroy_labels);
 157     if (level->labels == NULL) {
 158         RETURN_LT(lt, NULL);
 159     }
 160
 161     level->regions = PUSH_LT(
 162         lt,
 163         create_regions_from_line_stream(level_stream, broadcast),
 164         destroy_regions);
 165     if (level->regions == NULL) {
 166         RETURN_LT(lt, NULL);
 167     }
 168
 169     level->edit_mode = false;
 170     level->level_editor = PUSH_LT(
 171         lt,
 172         create_level_editor(level->boxes),
 173         destroy_level_editor);
 174     if (level->level_editor == NULL) {
 175         RETURN_LT(lt, NULL);
 176     }
 177
 178     destroy_line_stream(RELEASE_LT(lt, level_stream));
 179
 180     return level;
 181 }
 182
 183 void destroy_level(Level *level)
 184 {
 185     trace_assert(level);
 186     RETURN_LT0(level->lt);
 187 }
 188
 189 int level_render(const Level *level, Camera *camera)
 190 {
 191     trace_assert(level);
 192
 193     if (background_render(level->background, camera) < 0) {
 194         return -1;
 195     }
 196
 197     if (platforms_render(level->back_platforms, camera) < 0) {
 198         return -1;
 199     }
 200
 201     if (player_render(level->player, camera) < 0) {
 202         return -1;
 203     }
 204
 205     if (boxes_render(level->boxes, camera) < 0) {
 206         return -1;
 207     }
 208
 209     if (lava_render(level->lava, camera) < 0) {
 210         return -1;
 211     }
 212
 213     if (platforms_render(level->platforms, camera) < 0) {
 214         return -1;
 215     }
 216
 217     if (goals_render(level->goals, camera) < 0) {
 218         return -1;
 219     }
 220
 221     if (labels_render(level->labels, camera) < 0) {
 222         return -1;
 223     }
 224
 225     if (regions_render(level->regions, camera) < 0) {
 226         return -1;
 227     }
 228
 229     if (level->edit_mode) {
 230         if (level_editor_render(level->level_editor, camera) < 0) {
 231             return -1;
 232         }
 233     }
 234
 235     return 0;
 236 }
 237
 238 int level_update(Level *level, float delta_time)
 239 {
 240     trace_assert(level);
 241     trace_assert(delta_time > 0);
 242
 243     boxes_float_in_lava(level->boxes, level->lava);
 244     rigid_bodies_apply_omniforce(level->rigid_bodies, vec(0.0f, LEVEL_GRAVITY));
 245
 246     boxes_update(level->boxes, delta_time);
 247     player_update(level->player, delta_time);
 248
 249     rigid_bodies_collide(level->rigid_bodies, level->platforms);
 250
 251     player_hide_goals(level->player, level->goals);
 252     player_die_from_lava(level->player, level->lava);
 253     regions_player_enter(level->regions, level->player);
 254     regions_player_leave(level->regions, level->player);
 255
 256     goals_update(level->goals, delta_time);
 257     lava_update(level->lava, delta_time);
 258     labels_update(level->labels, delta_time);
 259
 260     if (level->edit_mode) {
 261         level_editor_update(level->level_editor, delta_time);
 262     }
 263
 264     return 0;
 265 }
 266
 267 int level_event(Level *level, const SDL_Event *event, const Camera *camera)
 268 {
 269     trace_assert(level);
 270     trace_assert(event);
 271
 272     switch (event->type) {
 273     case SDL_KEYDOWN:
 274         switch (event->key.keysym.sym) {
 275         case SDLK_SPACE:
 276             player_jump(level->player);
 277             break;
 278         }
 279         break;
 280
 281     case SDL_JOYBUTTONDOWN:
 282         if (event->jbutton.button == 1) {
 283             player_jump(level->player);
 284         }
 285         break;
 286     }
 287
 288     if (level->edit_mode) {
 289         level_editor_event(level->level_editor, event, camera);
 290     }
 291
 292     return 0;
 293 }
 294
 295 int level_input(Level *level,
 296                 const Uint8 *const keyboard_state,
 297                 SDL_Joystick *the_stick_of_joy)
 298 {
 299     trace_assert(level);
 300     trace_assert(keyboard_state);
 301     (void) the_stick_of_joy;
 302
 303     if (keyboard_state[SDL_SCANCODE_A]) {
 304         player_move_left(level->player);
 305     } else if (keyboard_state[SDL_SCANCODE_D]) {
 306         player_move_right(level->player);
 307     } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) < 0) {
 308         player_move_left(level->player);
 309     } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) > 0) {
 310         player_move_right(level->player);
 311     } else {
 312         player_stop(level->player);
 313     }
 314
 315     return 0;
 316 }
 317
 318 int level_reload_preserve_player(Level *level, Broadcast *broadcast)
 319 {
 320     Lt * const lt = create_lt();
 321     if (lt == NULL) {
 322         return -1;
 323     }
 324
 325     log_info("Soft-reloading the level from '%s'...\n", level->file_name);
 326
 327     /* TODO(#104): duplicate code in create_level_from_file and level_reload_preserve_player */
 328
 329     LineStream * const level_stream = PUSH_LT(
 330         lt,
 331         create_line_stream(
 332             level->file_name,
 333             "r",
 334             LEVEL_LINE_MAX_LENGTH),
 335         destroy_line_stream);
 336     if (level_stream == NULL) {
 337         RETURN_LT(lt, -1);
 338     }
 339
 340     LevelMetadata *const metadata = create_level_metadata_from_line_stream(level_stream);
 341     if (metadata == NULL) {
 342         RETURN_LT(lt, -1);
 343     }
 344     level->metadata = RESET_LT(level->lt, level->metadata, metadata);
 345
 346     Background * const background = create_background_from_line_stream(level_stream);
 347     if (background == NULL) {
 348         RETURN_LT(lt, -1);
 349     }
 350     level->background = RESET_LT(level->lt, level->background, background);
 351
 352     Player * const skipped_player = create_player_from_line_stream(level_stream, level->rigid_bodies, broadcast);
 353     if (skipped_player == NULL) {
 354         RETURN_LT(lt, -1);
 355     }
 356     destroy_player(skipped_player);
 357
 358     Platforms * const platforms = create_platforms_from_line_stream(level_stream);
 359     if (platforms == NULL) {
 360         RETURN_LT(lt, -1);
 361     }
 362     level->platforms = RESET_LT(level->lt, level->platforms, platforms);
 363
 364     Goals * const goals = create_goals_from_line_stream(level_stream);
 365     if (goals == NULL) {
 366         RETURN_LT(lt, -1);
 367     }
 368     level->goals = RESET_LT(level->lt, level->goals, goals);
 369
 370     Lava * const lava = create_lava_from_line_stream(level_stream);
 371     if (lava == NULL) {
 372         RETURN_LT(lt, -1);
 373     }
 374     level->lava = RESET_LT(level->lt, level->lava, lava);
 375
 376     Platforms * const back_platforms = create_platforms_from_line_stream(level_stream);
 377     if (back_platforms == NULL) {
 378         RETURN_LT(lt, -1);
 379     }
 380     level->back_platforms = RESET_LT(level->lt, level->back_platforms, back_platforms);
 381
 382     Boxes * const boxes = create_boxes_from_line_stream(level_stream, level->rigid_bodies, level->player);
 383     if (boxes == NULL) {
 384         RETURN_LT(lt, -1);
 385     }
 386     level->boxes = RESET_LT(level->lt, level->boxes, boxes);
 387
 388     Labels * const labels = create_labels_from_line_stream(level_stream);
 389     if (labels == NULL) {
 390         RETURN_LT(lt, -1);
 391     }
 392     level->labels = RESET_LT(level->lt, level->labels, labels);
 393
 394     Regions * const regions = create_regions_from_line_stream(level_stream, broadcast);
 395     if (regions == NULL) {
 396         RETURN_LT(lt, -1);
 397     }
 398     level->regions = RESET_LT(level->lt, level->regions, regions);
 399
 400     RETURN_LT(lt, 0);
 401 }
 402
 403 int level_sound(Level *level, Sound_samples *sound_samples)
 404 {
 405     if (goals_sound(level->goals, sound_samples) < 0) {
 406         return -1;
 407     }
 408
 409     if (player_sound(level->player, sound_samples) < 0) {
 410         return -1;
 411     }
 412
 413     return 0;
 414 }
 415
 416 void level_toggle_debug_mode(Level *level)
 417 {
 418     background_toggle_debug_mode(level->background);
 419 }
 420
 421 int level_enter_camera_event(Level *level, Camera *camera)
 422 {
 423     if (!level->edit_mode) {
 424         player_focus_camera(level->player, camera);
 425         camera_scale(camera, 1.0f);
 426     } else {
 427         level_editor_focus_camera(
 428             level->level_editor,
 429             camera);
 430     }
 431
 432     goals_cue(level->goals, camera);
 433     goals_checkpoint(level->goals, level->player);
 434     labels_enter_camera_event(level->labels, camera);
 435     return 0;
 436 }
 437
 438 struct EvalResult level_send(Level *level, Gc *gc, struct Scope *scope, struct Expr path)
 439 {
 440     trace_assert(level);
 441     trace_assert(gc);
 442     trace_assert(scope);
 443
 444     const char *target = NULL;
 445     struct Expr rest = void_expr();
 446     struct EvalResult res = match_list(gc, "q*", path, &target, &rest);
 447     if (res.is_error) {
 448         return res;
 449     }
 450
 451     if (strcmp(target, "goal") == 0) {
 452         return goals_send(level->goals, gc, scope, rest);
 453     } else if (strcmp(target, "label") == 0) {
 454         return labels_send(level->labels, gc, scope, rest);
 455     } else if (strcmp(target, "box") == 0) {
 456         return boxes_send(level->boxes, gc, scope, rest);
 457     } else if (strcmp(target, "body-push") == 0) {
 458         long int id = 0, x = 0, y = 0;
 459         res = match_list(gc, "ddd", rest, &id, &x, &y);
 460         if (res.is_error) {
 461             return res;
 462         }
 463
 464         rigid_bodies_apply_force(level->rigid_bodies, (size_t) id, vec((float) x, (float) y));
 465
 466         return eval_success(NIL(gc));
 467     } else if (strcmp(target, "body-add") == 0) {
 468         long int x = 0, y = 0, w = 0, h = 0;
 469         const char *color = 0;
 470         res = match_list(gc, "dddds", rest, &x, &y, &w, &h, &color);
 471         if (res.is_error) {
 472             return res;
 473         }
 474
 475         return eval_success(
 476             NUMBER(
 477                 gc,
 478                 (long int) rigid_bodies_add(
 479                     level->rigid_bodies,
 480                     rect((float)x, (float)y, (float)w, (float)h),
 481                     hexstr(color))));
 482     } else if (strcmp(target, "edit") == 0) {
 483         level->edit_mode = !level->edit_mode;
 484         SDL_SetRelativeMouseMode(level->edit_mode);
 485         return eval_success(NIL(gc));
 486     }
 487
 488     return unknown_target(gc, "level", target);
 489 }