cyberpresidentvanellope/Citadel-Station-13-RP
1
0
Fork 0
mirror of https://github.com/Citadel-Station-13/Citadel-Station-13-RP.git synced 2026-08-22 03:28:13 +01:00
Code Issues Packages Projects Releases Wiki Activity
Files
master
Citadel-Station-13-RP/code/controllers/subsystem/zcopy.dm
T
LohikarandGitHub 38c2b01f8e zm: Fix automangle (#7590)
2026-05-28 18:04:14 +02:00

975 lines
30 KiB
Plaintext
Raw Permalink Blame History

/*
Here be dragons.
*/
#define OPENTURF_MAX_PLANE -70
/// The maxiumum number of planes deep we'll go before we just dump everything on the same plane.
#define OPENTURF_MAX_DEPTH 10
/// The multiplication factor for openturf shadower darkness. Lighting will be multiplied by this.
#define SHADOWER_DARKENING_FACTOR 0.6
/// The above, but as an RGB string for lighting-less turfs.
#define SHADOWER_DARKENING_COLOR "#999999"
#define READ_BASETURF(T) (islist(T.baseturfs) ? T.baseturfs[length(T.baseturfs)] : T.baseturfs)
#define ZM_RECORD_STATS
#ifdef ZM_RECORD_STATS
#define ZM_RECORD_START STAT_START_STOPWATCH
#define ZM_RECORD_STOP STAT_STOP_STOPWATCH
#define ZM_RECORD_WRITE(X...) STAT_LOG_ENTRY(##X)
#else
#define ZM_RECORD_START
#define ZM_RECORD_STOP
#define ZM_RECORD_WRITE(X...)
#endif
SUBSYSTEM_DEF(zcopy)
name = "Z-Copy"
wait = 1
init_order = INIT_ORDER_ZMIMIC
priority = FIRE_PRIORITY_ZMIMIC
init_stage = INIT_STAGE_WORLD
runlevels = RUNLEVELS_DEFAULT | RUNLEVEL_LOBBY
var/list/queued_turfs = list()
var/qt_idex = 1
var/list/queued_overlays = list()
var/qo_idex = 1
var/openspace_overlays = 0
var/openspace_turfs = 0
var/multiqueue_skips_turf = 0
var/multiqueue_skips_discovery = 0
var/multiqueue_skips_object = 0
var/total_updates_turf = 0
var/total_updates_discovery = 0
var/total_updates_object = 0
var/deferred_discoveries = 0 // How many times did we have to recursively discover? This overlaps with the discovery total.
#ifdef ZM_RECORD_STATS
var/list/turf_stats = list()
var/list/discovery_stats = list()
var/list/mimic_stats = list()
#endif
// Highest Z level in a given Z-group for absolute layering.
// zstm[zlev] = group_max
var/list/zlev_maximums = list()
// Caches for fixup.
var/list/fixup_cache = list()
var/list/fixup_known_good = list()
// Fixup stats.
var/fixup_miss = 0
var/fixup_noop = 0
var/fixup_hit = 0
// for admin proc-call
/datum/controller/subsystem/zcopy/proc/update_all()
// disable()
can_fire = FALSE
log_debug("SSzcopy: update_all() invoked.")
var/turf/T // putting the declaration up here totally speeds it up, right?
var/num_upd = 0
var/num_del = 0
var/num_amupd = 0
for (var/atom/A in world)
if (isturf(A))
T = A
if (T.mz_flags & MZ_MIMIC_BELOW)
T.update_mimic()
num_upd += 1
else if (istype(A, /atom/movable/openspace/mimic))
var/turf/Tloc = A.loc
if (TURF_IS_MIMICKING(Tloc))
Tloc.update_mimic()
num_amupd += 1
else
qdel(A)
num_del += 1
CHECK_TICK
log_debug("SSzcopy: [num_upd + num_amupd] turf updates queued ([num_upd] direct, [num_amupd] indirect), [num_del] orphans destroyed.")
// enable()
if (!can_fire)
next_fire = world.time + wait
can_fire = TRUE
// for admin proc-call
/datum/controller/subsystem/zcopy/proc/hard_reset()
// disable()
can_fire = FALSE
log_debug("SSzcopy: hard_reset() invoked.")
var/num_deleted = 0
var/num_turfs = 0
for (var/turf/T in world)
if (T.z_queued)
T.z_queued = 0
CHECK_TICK
queued_turfs.Cut()
queued_overlays.Cut()
var/turf/T
for (var/atom/A in world)
if (isturf(A))
T = A
if (T.mz_flags & MZ_MIMIC_BELOW)
flush_z_state(T)
T.update_mimic()
num_turfs += 1
else if (istype(A, /atom/movable/openspace/mimic))
qdel(A)
num_deleted += 1
CHECK_TICK
log_debug("SSzcopy: deleted [num_deleted] overlays, and queued [num_turfs] turfs for update.")
// enable()
if (!can_fire)
next_fire = world.time + wait
can_fire = TRUE
/datum/controller/subsystem/zcopy/stat_entry()
var/list/entries = list(
"", // newline
"ZSt: [build_zstack_display()]", // This is a human-readable list of the z-stacks known to ZM.
"ZMx: [zlev_maximums.Join(", ")]", // And this is the raw internal state.
// This one gets broken out from the below because it's more important.
"Q: { T: [queued_turfs.len - (qt_idex - 1)] O: [queued_overlays.len - (qo_idex - 1)] }",
// In order: Total, Queued, Skipped
"T(O): { T: [openspace_turfs] O: [openspace_overlays] }",
"T(U): { T: [total_updates_turf] D: [total_updates_discovery] DDef: [deferred_discoveries] O: [total_updates_object] }",
"Sk: { T: [multiqueue_skips_turf] D: [multiqueue_skips_discovery] O: [multiqueue_skips_object] }",
"F: { H: [fixup_hit] M: [fixup_miss] N: [fixup_noop] FC: [fixup_cache.len] FKG: [fixup_known_good.len] }"
)
return ..() + entries.Join("<br>&emsp;")
// 1, 2, 3..=7, 8
/datum/controller/subsystem/zcopy/proc/build_zstack_display()
if (!zlev_maximums.len)
return "<none>"
var/list/zmx = list()
var/idx = 1
var/span_ctr = 0
do
if (zlev_maximums[idx] != idx)
span_ctr += 1
else if (span_ctr)
zmx += "[idx - span_ctr]..=[idx]"
span_ctr = 0
else
zmx += "[idx]"
idx += 1
while (idx <= zlev_maximums.len)
return jointext(zmx, ", ")
/datum/controller/subsystem/zcopy/Initialize(timeofday)
calculate_zstack_limits()
// Flush the queue.
fire(FALSE, TRUE)
return SS_INIT_SUCCESS
// If you add a new Zlevel or change Z-connections, call this.
/datum/controller/subsystem/zcopy/proc/calculate_zstack_limits()
zlev_maximums = new(world.maxz)
var/start_zlev = 1
for (var/z in 1 to world.maxz)
if (!SSmapping.cached_level_up[z])
for (var/member_zlev in start_zlev to z)
zlev_maximums[member_zlev] = z
if (z - start_zlev > OPENTURF_MAX_DEPTH)
log_subsystem("zcopy", "WARNING: Z-levels [start_zlev] through [z] exceed maximum depth of [OPENTURF_MAX_DEPTH]; layering may behave strangely in this Z-stack.")
else if (z - start_zlev > 1)
log_subsystem("zcopy", "Found Z-Stack: [start_zlev] -> [z] = [z - start_zlev + 1] zl")
start_zlev = z + 1
log_subsystem("zcopy", "Z-Level maximums: [json_encode(zlev_maximums)]")
// /datum/controller/subsystem/zmimic/StartLoadingMap()
// suspend()
// /datum/controller/subsystem/zmimic/StopLoadingMap()
// wake()
/// Fully reset Z-Mimic, rebuilding state from scratch. Use this if you change Z-stack mappings after Z-Mimic has initialized. Expensive.
/// WARNING: This is *completely unsupported*. It will probably irreversibly corrupt Z-lighting everywhere in the world. Use at own risk.
/datum/controller/subsystem/zcopy/proc/RebuildZState()
// suspend()
UNTIL(state == SS_IDLE)
calculate_zstack_limits()
for (var/zlev in 1 to world.maxz)
for (var/turf/T in block(locate(1, 1, zlev), locate(world.maxx, world.maxy, zlev)))
if (T.mz_flags & MZ_MIMIC_BELOW)
flush_z_state(T)
T.below = T.below()
T.above = T.above()
T.update_mimic()
CHECK_TICK
// wake()
/datum/controller/subsystem/zcopy/fire(resumed = FALSE, no_mc_tick = FALSE)
if (!resumed)
qt_idex = 1
qo_idex = 1
MC_SPLIT_TICK_INIT(2)
if (!no_mc_tick)
MC_SPLIT_TICK
tick_turfs(no_mc_tick)
if (!no_mc_tick)
MC_SPLIT_TICK
tick_mimic(no_mc_tick)
// - Turf mimic -
/datum/controller/subsystem/zcopy/proc/tick_turfs(no_mc_tick)
var/list/curr_turfs = queued_turfs
while (qt_idex <= curr_turfs.len)
var/turf/T = curr_turfs[qt_idex]
curr_turfs[qt_idex] = null
qt_idex += 1
if (!isturf(T) || !(T.mz_flags & MZ_MIMIC_BELOW) || !T.z_queued)
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
// If we're not at our most recent queue position, don't bother -- we're updating again later anyways.
if (T.z_queued > 1)
T.z_queued -= 1
multiqueue_skips_turf += 1
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
// Z-Turf on the bottom-most level, just fake-copy space (or baseturf).
// It's impossible for anything to be on the synthetic turf, so ignore the rest of the ZM machinery.
if (!T.below)
ZM_RECORD_START
flush_z_state(T)
if (T.mz_flags & MZ_OVERRIDE)
simple_appearance_copy(T, READ_BASETURF(T), OPENTURF_MAX_PLANE)
else
simple_appearance_copy(T, /turf/space)
T.z_generation += 1
T.z_queued -= 1
total_updates_turf += 1
if (T.above)
T.above.update_mimic()
ZM_RECORD_STOP
ZM_RECORD_WRITE(turf_stats, "Fake: [T.type] on [T.z]")
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
if (!T.shadower) // If we don't have a shadower yet, something has gone horribly wrong.
WARNING("Turf [T] at [T.x],[T.y],[T.z] was queued, but had no shadower.")
continue
T.z_generation += 1
ZM_RECORD_START
// Get the bottom-most turf, the one we want to mimic.
// Baseturf mimics act as false bottoms of the stack.
var/turf/Td = T
while (Td.below && !(Td.mz_flags & (MZ_OVERRIDE|MZ_TERMINATOR)))
Td = Td.below
// Depth must be the depth of the *visible* turf, not self.
var/turf_depth
turf_depth = T.z_depth = zlev_maximums[Td.z] - Td.z
var/t_target = OPENTURF_MAX_PLANE - turf_depth // This is where the turf (but not the copied atoms) gets put.
// Turf is set to mimic baseturf, handle that and bail.
if (T.mz_flags & MZ_OVERRIDE)
flush_z_state(T)
simple_appearance_copy(T, Td.z_appearance || READ_BASETURF(T), t_target)
if (T.above)
T.above.update_mimic()
total_updates_turf += 1
T.z_queued -= 1
ZM_RECORD_STOP
ZM_RECORD_WRITE(turf_stats, "Simple: [T.type] on [T.z]")
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
// If we previously were MZ_OVERRIDE, there might be an orphaned proxy.
else if (T.mimic_underlay)
QDEL_NULL(T.mimic_underlay)
// Handle space parallax & starlight.
if (T.below.z_eventually_space)
T.z_eventually_space = TRUE
t_target = SPACE_PLANE
if (T.mz_flags & MZ_MIMIC_OVERWRITE)
// This openturf doesn't care about its icon, so we can just overwrite it.
if (T.below.mimic_proxy)
QDEL_NULL(T.below.mimic_proxy)
T.appearance = Td.z_appearance || Td
T.name = initial(T.name)
T.desc = initial(T.desc)
T.gender = initial(T.gender)
T.opacity = FALSE
T.plane = t_target
else
// Some openturfs have icons, so we can't overwrite their appearance.
if (!T.below.mimic_proxy)
T.below.mimic_proxy = new(T)
var/atom/movable/openspace/turf_proxy/TO = T.below.mimic_proxy
TO.appearance = Td.z_appearance || Td
TO.name = T.name
TO.gender = T.gender // Need to grab this too so PLURAL works properly in examine.
TO.opacity = FALSE
TO.plane = t_target
TO.mouse_opacity = initial(TO.mouse_opacity)
T.queue_ao(T.ao_junction_mimic == null) // If ao_junction hasn't been set yet, we need to do a rebuild.
// Explicitly copy turf delegates so they show up properly on below levels.
// I think it's possible to get this to work without discrete delegate copy objects, but I'd rather this just work.
if ((T.below.mz_flags & (MZ_MIMIC_BELOW|MZ_MIMIC_OVERWRITE)) == MZ_MIMIC_BELOW)
// Below is a delegate, gotta explicitly copy it for recursive copy.
if (!T.below.mimic_above_copy)
T.below.mimic_above_copy = new(T)
var/atom/movable/openspace/turf_mimic/DC = T.below.mimic_above_copy
DC.appearance = T.below
DC.mouse_opacity = initial(DC.mouse_opacity)
DC.plane = OPENTURF_MAX_PLANE - 1 // virtual depth of 1
else if (T.below.mimic_above_copy)
QDEL_NULL(T.below.mimic_above_copy)
// Handle below atoms.
var/shadower_set = FALSE
// Add everything below us to the discovery queue.
for (var/thing in T.below)
var/atom/movable/object = thing
if (QDELETED(object) || (object.zmm_flags & ZMM_IGNORE) || object.loc != T.below || object.invisibility == INVISIBILITY_ABSTRACT)
/* Don't queue:
- (q)deleted objects
- Explicitly ignored objects
- Objects not rooted on this turf (multitiles)
- Always-invisible atoms
*/
continue
// Special case: these are merged into the shadower to reduce memory usage.
if (object.type == /atom/movable/lighting_overlay)
shadower_set = TRUE
T.shadower.copy_lighting(object)
continue
// If an atom already has an overlay, we probably don't need to discover it again.
// ...but we need to force it if the object was salvaged from another zturf.
if (!object.bound_overlay || object.bound_overlay.destruction_timer)
discover_movable(object)
if (!shadower_set)
if (T.below.mz_flags & MZ_NO_SHADOW)
T.shadower.color = null
else
T.shadower.color = SHADOWER_DARKENING_COLOR
T.z_queued -= 1
if (T.above)
T.above.update_mimic()
total_updates_turf += 1
ZM_RECORD_STOP
ZM_RECORD_WRITE(turf_stats, "Complex: [T.type] on [T.z]")
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
if (qt_idex > 1)
curr_turfs.Cut(1, qt_idex)
qt_idex = 1
// - Phase: Mimic update -- actually update the mimics' appearance, order sensitive -
/datum/controller/subsystem/zcopy/proc/tick_mimic(no_mc_tick)
var/list/curr_ov = queued_overlays
while (qo_idex <= curr_ov.len)
var/atom/movable/openspace/mimic/OO = curr_ov[qo_idex]
curr_ov[qo_idex] = null
qo_idex += 1
if (QDELETED(OO) || !OO.queued)
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
if (QDELETED(OO.associated_atom)) // This shouldn't happen.
qdel(OO)
log_debug("Z-Mimic: Received mimic with QDELETED parent ([OO.associated_atom || "<NULL>"])")
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
// Don't update unless we're at the most recent queue occurrence.
if (OO.queued > 1)
OO.queued -= 1
multiqueue_skips_object += 1
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
continue
ZM_RECORD_START
// Actually update the overlay.
if (OO.dir != OO.associated_atom.dir)
OO.dir = OO.associated_atom.dir // updates are propagated up another way, don't use set_dir
OO.appearance = OO.associated_atom
OO.zmm_flags = OO.associated_atom.zmm_flags
if (OO.particles != OO.associated_atom.particles)
OO.particles = OO.associated_atom.particles
OO.plane = OPENTURF_MAX_PLANE - OO.depth
OO.opacity = FALSE
OO.queued = 0
// If an atom has explicit plane sets on its overlays/underlays, we need to replace the appearance so they can be mangled to work with our planing.
if (OO.zmm_flags & (ZMM_MANGLE_PLANES | ZMM_AUTOMANGLE))
var/new_appearance = fixup_appearance_planes(OO.appearance)
if (new_appearance)
OO.appearance = new_appearance
OO.have_performed_fixup = TRUE
if (OO.bound_overlay) // If we have a bound overlay, queue it too.
OO.update_above()
total_updates_object += 1
ZM_RECORD_STOP
ZM_RECORD_WRITE(mimic_stats, OO.mimiced_type)
if (no_mc_tick)
CHECK_TICK
else if (MC_TICK_CHECK)
break
if (qo_idex > 1)
curr_ov.Cut(1, qo_idex)
qo_idex = 1
// return: is-invalid
/datum/controller/subsystem/zcopy/proc/discover_movable(atom/movable/object)
ASSERT(!QDELETED(object))
var/turf/Tloc = object.loc
if (!isturf(Tloc) || !Tloc.above)
return TRUE
var/turf/T = Tloc.above
ZM_RECORD_START
var/atom/movable/defer
if (!object.bound_overlay)
var/atom/movable/openspace/mimic/M = new(T)
object.bound_overlay = M
M.associated_atom = object
if (TURF_IS_MIMICKING(M.loc))
defer = M
var/override_depth
var/original_type = object.type
var/original_z = object.z
switch (object.type)
// Layering for recursive mimic needs to be inherited.
if (/atom/movable/openspace/mimic)
var/atom/movable/openspace/mimic/OOO = object
original_type = OOO.mimiced_type
override_depth = OOO.override_depth
original_z = OOO.original_z
// If this is a turf proxy (the mimic for a non-OVERWRITE turf), it needs to respect space parallax if relevant.
if (/atom/movable/openspace/turf_proxy)
if (T.z_eventually_space)
// Yes, this is an awful hack; I don't want to add yet another override_* var.
override_depth = OPENTURF_MAX_PLANE - SPACE_PLANE
var/atom/movable/openspace/mimic/OO = object.bound_overlay
// If the OO was queued for destruction but was claimed by another OT, stop the destruction timer.
if (OO.destruction_timer)
deltimer(OO.destruction_timer)
OO.destruction_timer = null
OO.depth = override_depth || min(zlev_maximums[T.z] - original_z, OPENTURF_MAX_DEPTH)
switch (original_type)
// These types need to be pushed a layer down for bigturfs to function correctly.
if (/atom/movable/openspace/turf_proxy, /atom/movable/openspace/turf_mimic)
OO.depth += 1
if (/atom/movable/openspace/multiplier)
// Ignore override depth for these.
OO.depth = min(zlev_maximums[OO.z] - original_z + 1, OPENTURF_MAX_DEPTH)
OO.mimiced_type = original_type
OO.override_depth = override_depth
OO.original_z = original_z
// Multi-queue to maintain ordering of updates to these
// queueing it multiple times will result in only the most recent
// actually processing.
OO.queued += 1
queued_overlays += OO
total_updates_discovery += 1
ZM_RECORD_STOP
ZM_RECORD_WRITE(discovery_stats, "Depth [OO.depth] on [OO.z]")
if (defer)
deferred_discoveries += 1
.(defer)
return FALSE
/datum/controller/subsystem/zcopy/proc/flush_z_state(turf/T)
if (T.below) // Z-Mimic turfs aren't necessarily above another turf.
if (T.below.mimic_above_copy)
QDEL_NULL(T.below.mimic_above_copy)
if (T.below.mimic_proxy)
QDEL_NULL(T.below.mimic_proxy)
QDEL_NULL(T.mimic_underlay)
for (var/atom/movable/openspace/mimic/OO in T)
qdel(OO)
/datum/controller/subsystem/zcopy/proc/simple_appearance_copy(turf/T, new_appearance, target_plane)
if (T.mz_flags & MZ_MIMIC_OVERWRITE)
T.appearance = new_appearance
T.name = initial(T.name)
T.desc = initial(T.desc)
T.gender = initial(T.gender)
if (T.plane == 0 && target_plane)
T.plane = target_plane
else
// Some openturfs have icons, so we can't overwrite their appearance.
if (!T.mimic_underlay)
T.mimic_underlay = new(T)
var/atom/movable/openspace/turf_proxy/TO = T.mimic_underlay
TO.appearance = new_appearance
TO.name = T.name
TO.gender = T.gender // Need to grab this too so PLURAL works properly in examine.
TO.mouse_opacity = initial(TO.mouse_opacity)
if (TO.plane == 0 && target_plane)
TO.plane = target_plane
// Recurse: for self, check if planes are invalid, if yes; return fixed appearance
// For each of overlay,underlay, call fixup_appearance_planes; if it returns a new appearance, replace self
/// Generate a new appearance from `appearance` with planes mangled to work with Z-Mimic. Do not pass a depth.
/datum/controller/subsystem/zcopy/proc/fixup_appearance_planes(appearance, depth = 0)
// Adding this to guard against a reported runtime - supposed to be impossible, so cause is unclear.
if(!appearance)
return null
if (fixup_known_good[appearance])
fixup_hit += 1
return null
if (fixup_cache[appearance])
fixup_hit += 1
return fixup_cache[appearance]
// If you have more than 4 layers of overlays within overlays, I dunno what to say.
if (depth > 4)
var/icon_name = "[appearance:icon]"
WARNING("Fixup of appearance with icon [icon_name || "<unknown file>"] exceeded maximum recursion limit, bailing")
return null
var/plane_needs_fix = FALSE
var/obliterate = FALSE
// Don't fixup the root object's plane.
if (depth > 0)
// * silicons edit *
// on citrp, everything above BYOND_PLANE (0) are vfx of some kind, like
// lighting and whatever.
// technically, ghosts are too, but, while it would be funny to see orbiting ghosts on the floor
// above, it's not feasible to do this right now.
// everything that's meant to be abstract / non zm *below* plane 0 is not in the world map,
// so it won't be picked up by zm anyways.
// furthermore, there are things on atoms that go above 0, but they're really just not needed
// to be mirrored. things like HUD elements / whatever.
// if we need this later, we can always edit this.
if(appearance:plane >= BYOND_PLANE)
obliterate = TRUE
else
switch(appearance:plane)
// these planes are fine, we don't care
if(TURF_PLANE, FLOAT_PLANE)
// these plnaes need to be obliterated due to the usage of
// special rendering that will be lost if the plane is changed.
if(LIGHTLESS_PLANE)
obliterate = TRUE
else
plane_needs_fix = TRUE
//** original code **//
/*
switch (appearance:plane)
if (TURF_PLANE, FLOAT_PLANE)
// fine
if (EMISSIVE_PLANE)
obliterate = TRUE
else
plane_needs_fix = TRUE
*/
// Scan & fix overlays
var/list/fixed_overlays
if (appearance:overlays:len)
var/mutated = FALSE
var/fixed_appearance
for (var/i in 1 to appearance:overlays:len)
if ((fixed_appearance = .(appearance:overlays[i], depth + 1)))
mutated = TRUE
if (!fixed_overlays)
fixed_overlays = new(appearance:overlays.len)
fixed_overlays[i] = fixed_appearance
if (mutated)
for (var/i in 1 to fixed_overlays.len)
if (fixed_overlays[i] == null)
fixed_overlays[i] = appearance:overlays[i]
// Scan & fix underlays
var/list/fixed_underlays
if (appearance:underlays:len)
var/mutated = FALSE
var/fixed_appearance
for (var/i in 1 to appearance:underlays:len)
if ((fixed_appearance = .(appearance:underlays[i], depth + 1)))
mutated = TRUE
if (!fixed_underlays)
fixed_underlays = new(appearance:underlays.len)
fixed_underlays[i] = fixed_appearance
if (mutated)
for (var/i in 1 to fixed_underlays.len)
if (fixed_underlays[i] == null)
fixed_underlays[i] = appearance:underlays[i]
// If we did nothing (no violations), don't bother creating a new appearance
if (!plane_needs_fix && !obliterate && !fixed_overlays && !fixed_underlays)
fixup_noop += 1
fixup_known_good[appearance] = TRUE
return null
fixup_miss += 1
var/mutable_appearance/MA = new(appearance)
if (plane_needs_fix)
MA.plane = depth == 0 ? TURF_PLANE : FLOAT_PLANE
MA.layer = FLY_LAYER // probably fine
if (obliterate)
// Emissive, hide it.
MA.invisibility = INVISIBILITY_ABSTRACT
MA.alpha = 0 // ?!
if (fixed_overlays)
MA.overlays = fixed_overlays
if (fixed_underlays)
MA.underlays = fixed_underlays
fixup_cache[appearance] = MA.appearance
return MA
#define FMT_DEPTH(X) (X == null ? "(null)" : X)
#define FMT_OK(X) (X) ? "<font color='green'>OK</font>" : "<font color='red'>MISMATCH</font>"
// This is a dummy object used so overlays can be shown in the analyzer.
/atom/movable/openspace/debug
/atom/movable/openspace/debug/turf
var/turf/parent
var/computed_depth
// this is for debug display only -- fixed as in unchanging, not mangling
var/list/zmimic_fixed_planes = list(
"0" = "World plane (Non-Z)",
"-15" = "Cloaked plane (Non-Z)",
"-25" = "Mob plane (Non-Z)",
"-35" = "Object plane (Non-Z)",
"-45" = "Turf plane (Non-Z)"
)
/client/proc/analyze_openturf(turf/T)
set name = "Analyze Openturf"
set desc = "Show the layering of an openturf and everything it's mimicking."
set category = "Debug"
if (!check_rights(R_DEBUG))
return
var/real_update_count = 0
var/claimed_update_count = T.z_queued
var/list/tq = SSzcopy.queued_turfs.Copy()
for (var/turf/Tu in tq)
if (Tu == T)
real_update_count += 1
CHECK_TICK
var/list/temp_objects = list()
var/is_above_space = T.is_above_space()
var/list/out = list(
"<head><meta charset='utf-8'/></head><body>",
"<h1>Analysis of [T] at [T.x],[T.y],[T.z]</h1>",
"<b>Queue occurrences:</b> [T.z_queued]",
"<b>Above space:</b> Apparent [T.z_eventually_space ? "Yes" : "No"], Actual [is_above_space ? "Yes" : "No"] - [FMT_OK(T.z_eventually_space == is_above_space)]",
"<b>Z Flags</b>: [english_list(bitfield2list(T.mz_flags, global.mimic_defines), "(none)")]",
"<b>Has Shadower:</b> [T.shadower ? "Yes" : "No"]",
"<b>Has turf proxy:</b> [T.mimic_proxy ? "Yes" : "No"]",
"<b>Has above copy:</b> [T.mimic_above_copy ? "Yes" : "No"]",
"<b>Has mimic underlay:</b> [T.mimic_underlay ? "Yes" : "No"]",
"<b>Below:</b> [!T.below ? "(nothing)" : "[T.below] at [T.below.x],[T.below.y],[T.below.z]"]",
"<b>Depth:</b> [FMT_DEPTH(T.z_depth)] [T.z_depth == OPENTURF_MAX_DEPTH ? "(max)" : ""]",
"<b>Generation:</b> [T.z_generation]",
"<b>Update count:</b> Claimed [claimed_update_count], Actual [real_update_count] - [FMT_OK(claimed_update_count == real_update_count)]",
"<ul>"
)
if (!T.below)
out += "<h3>Using synthetic rendering (Not Z).<h3>"
else if (T.mz_flags & MZ_OVERRIDE)
out += "<h3>Using synthetic rendering (OVERRIDE) — override is [T.z_appearance ? "MANUAL" : "BASETURF (resolved to [READ_BASETURF(T)])"].</h3>"
var/list/found_oo = list(T)
var/turf/Tbelow = T
while ((Tbelow = Tbelow.below))
var/atom/movable/openspace/debug/turf/VTO = new
VTO.computed_depth = SSzcopy.zlev_maximums[Tbelow.z] - Tbelow.z
VTO.appearance = Tbelow
VTO.parent = Tbelow
VTO.plane = OPENTURF_MAX_PLANE - VTO.computed_depth
found_oo += VTO
temp_objects += VTO
for (var/atom/movable/openspace/O in T)
found_oo += O
if (T.shadower?.overlays.len)
for (var/overlay in T.shadower.overlays)
var/atom/movable/openspace/debug/D = new
D.appearance = overlay
if (D.plane < -10000) // FLOAT_PLANE
D.plane = T.shadower.plane
found_oo += D
temp_objects += D
tim_sort(found_oo, GLOBAL_PROC_REF(cmp_planelayer))
var/list/atoms_list_list = list()
for (var/thing in found_oo)
var/atom/A = thing
var/pl = "[A.plane]"
LAZYINITLIST(atoms_list_list[pl])
atoms_list_list[pl] += A
for (var/plane_str in zmimic_fixed_planes)
if (atoms_list_list[plane_str])
out += "<strong>[zmimic_fixed_planes[plane_str]]</strong>"
SSzcopy.debug_fmt_planelist(atoms_list_list[plane_str], out, T)
atoms_list_list -= plane_str
for (var/d in 0 to OPENTURF_MAX_DEPTH)
var/pl = OPENTURF_MAX_PLANE - d
if (!atoms_list_list["[pl]"])
out += "<strong>Depth [d], plane [pl] — empty</strong>"
continue
out += "<strong>Depth [d], plane [pl]</strong>"
SSzcopy.debug_fmt_planelist(atoms_list_list["[pl]"], out, T)
// Flush the list so we can find orphans.
atoms_list_list -= "[pl]"
if (atoms_list_list["[SPACE_PLANE]"]) // Space parallax plane
out += "<strong>Space parallax plane</strong> ([SPACE_PLANE])"
SSzcopy.debug_fmt_planelist(atoms_list_list["[SPACE_PLANE]"], out, T)
atoms_list_list -= "[SPACE_PLANE]"
log_debug("atoms_list_list => [json_encode(atoms_list_list)]")
for (var/key in atoms_list_list)
out += "<strong style='color: red;'>Unknown plane: [key]</strong>"
SSzcopy.debug_fmt_planelist(atoms_list_list[key], out, T)
out += "<hr/>"
out += "</body>"
show_browser(usr, out.Join("<br>"), "size=980x580;window=openturfanalysis-\ref[T]")
for (var/item in temp_objects)
qdel(item)
// Yes, I know this proc is a bit of a mess. Feel free to clean it up.
/datum/controller/subsystem/zcopy/proc/debug_fmt_thing(atom/A, list/out, turf/original)
if (istype(A, /atom/movable/openspace/mimic))
var/atom/movable/openspace/mimic/OO = A
var/base = "<li>[fmt_label("Mimic", A)] plane [A.plane], layer [A.layer], depth [FMT_DEPTH(OO.depth)], override depth [FMT_DEPTH(OO.override_depth)]"
if (QDELETED(OO.associated_atom)) // This shouldn't happen, but can if the deletion hook is not working.
return "[base] - [OO.type] copying <unknown> ([OO.mimiced_type]) - <font color='red'>ORPHANED</font></em></li>"
var/atom/movable/AA = OO.associated_atom
var/copied_type = AA.type == OO.mimiced_type ? "[AA.type] \[direct\]" : "[AA.type], eventually [OO.mimiced_type]"
if (OO.mimiced_type == /atom/movable/openspace/mimic) // This is invalid, these should always be a 'real' type.
copied_type += " <font color='red'>CORRUPT</font>"
return "[base], associated Z-level [AA.z] - [OO.type] copying [AA] ([copied_type])</li>"
else if (istype(A, /atom/movable/openspace/turf_mimic))
var/atom/movable/openspace/turf_mimic/DC = A
return "<li>[fmt_label("Turf Mimic", A)] plane [A.plane], layer [A.layer], Z-level [A.z], delegate of \icon[DC.delegate] [DC.delegate] ([DC.delegate.type])</li>"
else if (isturf(A))
if (A == original)
return "<li>[fmt_label("Turf", A)] plane [A.plane], layer [A.layer], depth [FMT_DEPTH(A:z_depth)], Z-level [A.z] - [A] ([A.type]) - <font color='green'>SELF</font></li>"
else // foreign turfs - not visible here, but sometimes good for figuring out layering -- showing these is currently not enabled
return "<li>[fmt_label("Foreign Turf", A)] <em><font color='#646464'>plane [A.plane], layer [A.layer], depth [FMT_DEPTH(A:z_depth)], Z-level [A.z] - [A] ([A.type])</font></em> - <font color='red'>FOREIGN</font></em></li>"
else if (A.type == /atom/movable/openspace/multiplier)
return "<li>[fmt_label("Shadower", A)] plane [A.plane], layer [A.layer], Z-level [A.z] - [A] ([A.type])</li>"
else if (A.type == /atom/movable/openspace/debug) // These are fake objects that exist just to show the shadower's overlays in this list.
return "<li>[fmt_label("Shadower True Overlay", A, vv = FALSE)] plane [A.plane], layer [A.layer] - <font color='grey'>VIRTUAL</font></li>"
else if (A.type == /atom/movable/openspace/debug/turf)
var/atom/movable/openspace/debug/turf/VTO = A
return "<li>[fmt_label("VTO", VTO.parent)] <em><font color='#646464'>plane [VTO.plane], layer [VTO.layer], computed depth [FMT_DEPTH(VTO.computed_depth)] - [VTO.parent] ([VTO.parent.type])</font></em> - <font color='red'>FOREIGN</font>"
else if (A.type == /atom/movable/openspace/turf_proxy)
return "<li>[fmt_label("Turf Proxy", A)] plane [A.plane], layer [A.layer], Z-level [A.z] - [A] ([A.type])</li>"
else
return "<li>[fmt_label("?", A)] plane [A.plane], layer [A.layer], Z-level [A.z] - [A] ([A.type])</li>"
/datum/controller/subsystem/zcopy/proc/fmt_label(label, atom/target, vv = TRUE)
. = "\icon[target] <b>\[[label]\]</b> "
if (vv)
. += "(<a href='?_src_=vars;Vars=\ref[target]'>VV</a>) "
/datum/controller/subsystem/zcopy/proc/debug_fmt_planelist(list/things, list/out, turf/original)
if (things)
out += "<ul>"
for (var/thing in things)
out += debug_fmt_thing(thing, out, original)
out += "</ul>"
else
out += "<em>No atoms.</em>"
#undef FMT_DEPTH
#undef FMT_OK
#undef ZM_RECORD_START
#undef ZM_RECORD_STOP
#undef ZM_RECORD_WRITE
#ifdef ZM_RECORD_STATS
/client/proc/zms_display_turf()
set name = "ZM Stats - 1Turf"
set category = "Debug"
if(!check_rights(R_DEBUG))
return
if (!length(SSzcopy.turf_stats))
alert("No stats.")
return
render_stats(SSzcopy.turf_stats, src)
/client/proc/zms_display_discovery()
set name = "ZM Stats - 2Discovery"
set category = "Debug"
if(!check_rights(R_DEBUG))
return
if (!length(SSzcopy.discovery_stats))
alert("No stats.")
return
render_stats(SSzcopy.discovery_stats, src)
/client/proc/zms_display_mimic()
set name = "ZM Stats - 3Mimic"
set category = "Debug"
if(!check_rights(R_DEBUG))
return
if (!length(SSzcopy.mimic_stats))
alert("No stats.")
return
render_stats(SSzcopy.mimic_stats, src)
#endif
Reference in New Issue View Git Blame Copy Permalink