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),
 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(),
 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         case SDLK_TAB: {
 280             level->edit_mode = !level->edit_mode;
 281             SDL_SetRelativeMouseMode(level->edit_mode);
 282         };
 283         }
 284         break;
 285
 286     case SDL_JOYBUTTONDOWN:
 287         if (event->jbutton.button == 1) {
 288             player_jump(level->player);
 289         }
 290         break;
 291     }
 292
 293     if (level->edit_mode) {
 294         level_editor_event(level->level_editor, event, camera);
 295     }
 296
 297     return 0;
 298 }
 299
 300 int level_input(Level *level,
 301                 const Uint8 *const keyboard_state,
 302                 SDL_Joystick *the_stick_of_joy)
 303 {
 304     trace_assert(level);
 305     trace_assert(keyboard_state);
 306     (void) the_stick_of_joy;
 307
 308     if (keyboard_state[SDL_SCANCODE_A]) {
 309         player_move_left(level->player);
 310     } else if (keyboard_state[SDL_SCANCODE_D]) {
 311         player_move_right(level->player);
 312     } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) < 0) {
 313         player_move_left(level->player);
 314     } else if (the_stick_of_joy && SDL_JoystickGetAxis(the_stick_of_joy, 0) > 0) {
 315         player_move_right(level->player);
 316     } else {
 317         player_stop(level->player);
 318     }
 319
 320     return 0;
 321 }
 322
 323 int level_reload_preserve_player(Level *level, Broadcast *broadcast)
 324 {
 325     Lt * const lt = create_lt();
 326     if (lt == NULL) {
 327         return -1;
 328     }
 329
 330     log_info("Soft-reloading the level from '%s'...\n", level->file_name);
 331
 332     /* TODO(#104): duplicate code in create_level_from_file and level_reload_preserve_player */
 333
 334     LineStream * const level_stream = PUSH_LT(
 335         lt,
 336         create_line_stream(
 337             level->file_name,
 338             "r",
 339             LEVEL_LINE_MAX_LENGTH),
 340         destroy_line_stream);
 341     if (level_stream == NULL) {
 342         RETURN_LT(lt, -1);
 343     }
 344
 345     LevelMetadata *const metadata = create_level_metadata_from_line_stream(level_stream);
 346     if (metadata == NULL) {
 347         RETURN_LT(lt, -1);
 348     }
 349     level->metadata = RESET_LT(level->lt, level->metadata, metadata);
 350
 351     Background * const background = create_background_from_line_stream(level_stream);
 352     if (background == NULL) {
 353         RETURN_LT(lt, -1);
 354     }
 355     level->background = RESET_LT(level->lt, level->background, background);
 356
 357     Player * const skipped_player = create_player_from_line_stream(level_stream, level->rigid_bodies, broadcast);
 358     if (skipped_player == NULL) {
 359         RETURN_LT(lt, -1);
 360     }
 361     destroy_player(skipped_player);
 362
 363     Platforms * const platforms = create_platforms_from_line_stream(level_stream);
 364     if (platforms == NULL) {
 365         RETURN_LT(lt, -1);
 366     }
 367     level->platforms = RESET_LT(level->lt, level->platforms, platforms);
 368
 369     Goals * const goals = create_goals_from_line_stream(level_stream);
 370     if (goals == NULL) {
 371         RETURN_LT(lt, -1);
 372     }
 373     level->goals = RESET_LT(level->lt, level->goals, goals);
 374
 375     Lava * const lava = create_lava_from_line_stream(level_stream);
 376     if (lava == NULL) {
 377         RETURN_LT(lt, -1);
 378     }
 379     level->lava = RESET_LT(level->lt, level->lava, lava);
 380
 381     Platforms * const back_platforms = create_platforms_from_line_stream(level_stream);
 382     if (back_platforms == NULL) {
 383         RETURN_LT(lt, -1);
 384     }
 385     level->back_platforms = RESET_LT(level->lt, level->back_platforms, back_platforms);
 386
 387     Boxes * const boxes = create_boxes_from_line_stream(level_stream, level->rigid_bodies);
 388     if (boxes == NULL) {
 389         RETURN_LT(lt, -1);
 390     }
 391     level->boxes = RESET_LT(level->lt, level->boxes, boxes);
 392
 393     Labels * const labels = create_labels_from_line_stream(level_stream);
 394     if (labels == NULL) {
 395         RETURN_LT(lt, -1);
 396     }
 397     level->labels = RESET_LT(level->lt, level->labels, labels);
 398
 399     Regions * const regions = create_regions_from_line_stream(level_stream, broadcast);
 400     if (regions == NULL) {
 401         RETURN_LT(lt, -1);
 402     }
 403     level->regions = RESET_LT(level->lt, level->regions, regions);
 404
 405     RETURN_LT(lt, 0);
 406 }
 407
 408 int level_sound(Level *level, Sound_samples *sound_samples)
 409 {
 410     if (goals_sound(level->goals, sound_samples) < 0) {
 411         return -1;
 412     }
 413
 414     if (player_sound(level->player, sound_samples) < 0) {
 415         return -1;
 416     }
 417
 418     return 0;
 419 }
 420
 421 void level_toggle_debug_mode(Level *level)
 422 {
 423     background_toggle_debug_mode(level->background);
 424 }
 425
 426 int level_enter_camera_event(Level *level, Camera *camera)
 427 {
 428     if (!level->edit_mode) {
 429         player_focus_camera(level->player, camera);
 430         camera_scale(camera, 1.0f);
 431     } else {
 432         level_editor_focus_camera(
 433             level->level_editor,
 434             camera);
 435     }
 436
 437     goals_cue(level->goals, camera);
 438     goals_checkpoint(level->goals, level->player);
 439     labels_enter_camera_event(level->labels, camera);
 440     return 0;
 441 }
 442
 443 struct EvalResult level_send(Level *level, Gc *gc, struct Scope *scope, struct Expr path)
 444 {
 445     trace_assert(level);
 446     trace_assert(gc);
 447     trace_assert(scope);
 448
 449     const char *target = NULL;
 450     struct Expr rest = void_expr();
 451     struct EvalResult res = match_list(gc, "q*", path, &target, &rest);
 452     if (res.is_error) {
 453         return res;
 454     }
 455
 456     if (strcmp(target, "goal") == 0) {
 457         return goals_send(level->goals, gc, scope, rest);
 458     } else if (strcmp(target, "label") == 0) {
 459         return labels_send(level->labels, gc, scope, rest);
 460     } else if (strcmp(target, "box") == 0) {
 461         return boxes_send(level->boxes, gc, scope, rest);
 462     } else if (strcmp(target, "body-push") == 0) {
 463         long int id = 0, x = 0, y = 0;
 464         res = match_list(gc, "ddd", rest, &id, &x, &y);
 465         if (res.is_error) {
 466             return res;
 467         }
 468
 469         rigid_bodies_apply_force(level->rigid_bodies, (size_t) id, vec((float) x, (float) y));
 470
 471         return eval_success(NIL(gc));
 472     } else if (strcmp(target, "edit") == 0) {
 473         level->edit_mode = !level->edit_mode;
 474         SDL_SetRelativeMouseMode(level->edit_mode);
 475         return eval_success(NIL(gc));
 476     }
 477
 478     return unknown_target(gc, "level", target);
 479 }
 480
 481 bool level_edit_mode(const Level *level)
 482 {
 483     trace_assert(level);
 484     return level->edit_mode;
 485 }