|
| 1 | +SUBSYSTEM_DEF(backrooms) |
| 2 | + name = "Procedural Generation" |
| 3 | + init_order = INIT_ORDER_BACKROOMS |
| 4 | + flags = SS_NO_FIRE |
| 5 | + |
| 6 | + var/datum/map_generator/dungeon_generator/backrooms_generator |
| 7 | + |
| 8 | +/datum/controller/subsystem/backrooms/Initialize(timeofday) |
| 9 | +#ifdef LOWMEMORYMODE |
| 10 | + return SS_INIT_NO_NEED |
| 11 | +#endif |
| 12 | +#ifdef UNIT_TESTS // This whole subsystem just introduces a lot of odd confounding variables into unit test situations, so let's just not bother with doing an initialize here. |
| 13 | + return SS_INIT_NO_NEED |
| 14 | +#endif |
| 15 | + |
| 16 | + generate_backrooms() |
| 17 | + return SS_INIT_SUCCESS |
| 18 | + |
| 19 | + |
| 20 | +/datum/controller/subsystem/backrooms/proc/generate_backrooms() |
| 21 | + var/list/errorList = list() |
| 22 | + SSmapping.LoadGroup(errorList, "Backrooms", "map_files/generic", "MaintStation.dmm", default_traits = ZTRAITS_BACKROOM_MAINTS, silent = TRUE) |
| 23 | + if(errorList.len) // failed to load |
| 24 | + message_admins("Backrooms failed to load!") |
| 25 | + log_game("Backrooms failed to load!") |
| 26 | + |
| 27 | + for(var/area/A as anything in GLOB.areas) |
| 28 | + if(istype(A, /area/procedurally_generated/maintenance/the_backrooms)) |
| 29 | + A.RunGeneration() |
| 30 | + backrooms_generator = A.map_generator |
| 31 | + break |
| 32 | + |
| 33 | + if(backrooms_generator && istype(backrooms_generator)) |
| 34 | + var/min_x = backrooms_generator.min_x |
| 35 | + var/max_x = backrooms_generator.max_x |
| 36 | + var/min_y = backrooms_generator.min_y |
| 37 | + var/max_y = backrooms_generator.max_y |
| 38 | + var/z_level = backrooms_generator.z_level |
| 39 | + |
| 40 | + for(var/turf/current_turf in block(locate(min_x,min_y,z_level),locate(max_x,max_y,z_level))) |
| 41 | + if(current_turf.x == min_x || current_turf.x == max_x || current_turf.y == min_y || current_turf.y == max_y) |
| 42 | + current_turf.empty(null, flags = CHANGETURF_DEFER_CHANGE | CHANGETURF_IGNORE_AIR) |
| 43 | + current_turf.place_on_top(/turf/closed/indestructible/backrooms, flags = CHANGETURF_DEFER_CHANGE | CHANGETURF_IGNORE_AIR) |
| 44 | + |
| 45 | + addtimer(CALLBACK(src, PROC_REF(generate_exit)), 1 MINUTES) |
| 46 | + |
| 47 | +/datum/controller/subsystem/backrooms/proc/generate_exit() |
| 48 | + var/list/backrooms_level = SSmapping.levels_by_trait(ZTRAIT_PROCEDURAL_MAINTS) |
| 49 | + if(LAZYLEN(backrooms_level)) |
| 50 | + var/turf/way_out = find_safe_turf(zlevels = backrooms_level, dense_atoms = FALSE) |
| 51 | + new /obj/effect/portal/permanent/one_way/backrooms(way_out) |
| 52 | + |
| 53 | +/obj/effect/portal/permanent/one_way/backrooms/get_link_target_turf() |
| 54 | + var/list/valid_lockers = typecacheof(typesof(/obj/structure/closet) - typesof(/obj/structure/closet/body_bag)\ |
| 55 | + - typesof(/obj/structure/closet/secure_closet) - typesof(/obj/structure/closet/cabinet)\ |
| 56 | + - typesof(/obj/structure/closet/cardboard) \ |
| 57 | + - typesof(/obj/structure/closet/supplypod) - typesof(/obj/structure/closet/stasis)\ |
| 58 | + - typesof(/obj/structure/closet/abductor) - typesof(/obj/structure/closet/bluespace), only_root_path = TRUE) //stolen from bluespace lockers |
| 59 | + |
| 60 | + var/list/lockers_list = list() |
| 61 | + for(var/obj/structure/closet/L in GLOB.lockers) |
| 62 | + if(!is_station_level(L.z)) |
| 63 | + continue |
| 64 | + if(!is_type_in_typecache(L, valid_lockers)) |
| 65 | + continue |
| 66 | + if(L.opened) |
| 67 | + continue |
| 68 | + lockers_list += L |
| 69 | + var/obj/structure/closet/exit = pick(lockers_list) |
| 70 | + if(!exit) |
| 71 | + exit = new(get_safe_random_station_turf()) |
| 72 | + return get_turf(exit) |
| 73 | + |
| 74 | +/obj/effect/portal/permanent/one_way/backrooms/teleport(atom/movable/M, force) |
| 75 | + . = ..() |
| 76 | + if(.) |
| 77 | + var/obj/structure/closet/end = locate() in get_turf(M) |
| 78 | + if(end) |
| 79 | + M.forceMove(end) //get in the locker, nerd |
| 80 | + |
| 81 | +/obj/effect/portal/permanent/backrooms |
| 82 | + icon_state = "wooden_tv" |
| 83 | + |
| 84 | +/obj/effect/spawner/backrooms_portal |
| 85 | + name = "backrooms two way portal spawner" |
| 86 | + |
| 87 | +/obj/effect/spawner/backrooms_portal/Initialize(mapload) |
| 88 | + var/backrooms_level = SSmapping.levels_by_trait(ZTRAIT_PROCEDURAL_MAINTS) |
| 89 | + if(LAZYLEN(backrooms_level)) |
| 90 | + var/turf/way_out = find_safe_turf(zlevels = backrooms_level, dense_atoms = FALSE) |
| 91 | + create_portal_pair(get_turf(src), way_out, _lifespan = -1, newtype = /obj/effect/portal/permanent/backrooms) |
| 92 | + qdel(src) |
0 commit comments