mirror of
https://github.com/ParadiseSS13/Paradise.git
synced 2025-12-19 14:51:27 +00:00
d750db7011
* Being in space kills you again with solar flares / rad storms. Also now affects deep space * oh god unit tests. * fucking autocomplete * I will murder autocomplete. It will not survive. * Rename trait * Update code/datums/weather/weather_types/radiation_storm.dm Co-authored-by: Luc <89928798+lewcc@users.noreply.github.com> --------- Co-authored-by: Luc <89928798+lewcc@users.noreply.github.com>
127 lines
3.9 KiB
Plaintext
127 lines
3.9 KiB
Plaintext
/**
|
|
* Map per-tile test.
|
|
*
|
|
* Per-tile map tests iterate over each tile of a map to perform a check, and
|
|
* fails the test if a tile does not pass the check. A new test can be
|
|
* written by extending /datum/map_per_tile_test, and implementing the check
|
|
* in CheckTile.
|
|
*/
|
|
/datum/map_per_tile_test
|
|
var/succeeded = TRUE
|
|
var/list/fail_reasons
|
|
var/failure_count = 0
|
|
|
|
/datum/map_per_tile_test/proc/CheckTile(turf/T)
|
|
Fail("CheckTile() called parent or not implemented")
|
|
|
|
/datum/map_per_tile_test/proc/Fail(turf/T, reason)
|
|
succeeded = FALSE
|
|
LAZYADD(fail_reasons, "[T.x],[T.y],[T.z]: [reason]")
|
|
failure_count++
|
|
|
|
/**
|
|
* Check atmos pipes are not routed under unary devices such as vents and
|
|
* scrubbers.
|
|
*/
|
|
/datum/map_per_tile_test/pipe_vent_checker
|
|
var/list/pipe_roots = list(
|
|
/obj/machinery/atmospherics/pipe/manifold/hidden/supply,
|
|
/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers
|
|
)
|
|
var/list/unary_roots = list(
|
|
/obj/machinery/atmospherics/unary
|
|
)
|
|
|
|
/datum/map_per_tile_test/pipe_vent_checker/CheckTile(turf/T)
|
|
var/has_pipe = FALSE
|
|
var/has_unary = FALSE
|
|
|
|
for(var/pipe_root in pipe_roots)
|
|
if(locate(pipe_root) in T.contents)
|
|
has_pipe = TRUE
|
|
|
|
if(locate(/obj/machinery/atmospherics/unary) in T.contents)
|
|
has_unary = TRUE
|
|
|
|
if(has_pipe && has_unary)
|
|
Fail(T, "pipe on same tile as vent or scrubber")
|
|
|
|
/**
|
|
* Check that only one cable node exists on a tile.
|
|
*/
|
|
/datum/map_per_tile_test/cable_node_checker
|
|
|
|
/datum/map_per_tile_test/cable_node_checker/CheckTile(turf/T)
|
|
var/center_nodes = 0
|
|
|
|
for(var/obj/structure/cable/cable in T.contents)
|
|
if(cable.d1 == 0 || cable.d2 == 0)
|
|
center_nodes++
|
|
|
|
if(center_nodes > 1)
|
|
Fail(T, "tile has multiple center cable nodes")
|
|
|
|
/**
|
|
* Check to ensure that APCs have a cable node on their tile.
|
|
*/
|
|
/datum/map_per_tile_test/apc_cable_node_checker
|
|
|
|
/datum/map_per_tile_test/apc_cable_node_checker/CheckTile(turf/T)
|
|
var/missing_node = TRUE
|
|
var/obj/machinery/power/apc/apc = locate(/obj/machinery/power/apc) in T.contents
|
|
if(apc)
|
|
for(var/obj/structure/cable/cable in T.contents)
|
|
if(cable.d1 == 0 || cable.d2 == 0)
|
|
missing_node = FALSE
|
|
|
|
if(missing_node)
|
|
Fail(T, "tile has an APC bump but no center cable node")
|
|
|
|
/**
|
|
* Check to ensure pipe trunks exist under disposals devices.
|
|
*/
|
|
/datum/map_per_tile_test/disposal_with_trunk_checker
|
|
|
|
/datum/map_per_tile_test/disposal_with_trunk_checker/CheckTile(turf/T)
|
|
var/obj/machinery/disposal/disposal = locate(/obj/machinery/disposal) in T.contents
|
|
if(disposal)
|
|
if(!locate(/obj/structure/disposalpipe/trunk) in T.contents)
|
|
Fail(T, "tile has disposal unit/chute but no pipe trunk")
|
|
|
|
/**
|
|
* Check for certain objects that should never be over space turfs.
|
|
*/
|
|
/datum/map_per_tile_test/invalid_objs_over_space_checker
|
|
var/list/invalid_types = list(
|
|
/obj/machinery/door/airlock
|
|
)
|
|
|
|
/datum/map_per_tile_test/invalid_objs_over_space_checker/CheckTile(turf/T)
|
|
for(var/invalid_type in invalid_types)
|
|
if(isspaceturf(T) && locate(invalid_type) in T.contents)
|
|
Fail(T, "space turf contains at least one invalid object of type [invalid_type]")
|
|
|
|
/**
|
|
* Check that structures in space are always in near-station space.
|
|
*/
|
|
/datum/map_per_tile_test/structures_in_farspace_checker
|
|
|
|
/datum/map_per_tile_test/structures_in_farspace_checker/CheckTile(turf/T)
|
|
if((T.loc.type == /area/space || T.loc.type == /area/space/centcomm) && locate(/obj/structure) in T.contents)
|
|
Fail(T, "tile contains at least one structure found in non-near space area")
|
|
|
|
/datum/map_per_tile_test/nearspace_checker
|
|
var/allowed_turfs = list(/turf/space,
|
|
/turf/simulated/floor/plating/airless,
|
|
/turf/simulated/floor/plasteel/airless,
|
|
/turf/simulated/wall
|
|
)
|
|
|
|
/datum/map_per_tile_test/nearspace_checker/New()
|
|
..()
|
|
allowed_turfs = typecacheof(allowed_turfs)
|
|
|
|
/datum/map_per_tile_test/nearspace_checker/CheckTile(turf/T)
|
|
if(T.loc.type == /area/space/nearstation && !is_type_in_list(T, allowed_turfs))
|
|
Fail(T, "nearspace area contains a non-space turf: [T], ([T.type])")
|