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