Files
Paradise/code/controllers/subsystem/SSmachinery.dm
DGamerL bad8b31afa Changes all .len to length() where applicable (#25174)
* Globals work

* Double access works

* All other things

* Revert "All other things"

This reverts commit 6574442eb6.

* More changes that compile and work

* IT WORKS AAAAAA

* Changes even more .len to length()

* Apply suggestions from code review

* Update code/datums/mind.dm

* Update code/__HELPERS/sorts/InsertSort.dm

Co-authored-by: Deniz <66401072+Oyu07@users.noreply.github.com>

* Update code/__HELPERS/sanitize_values.dm

Co-authored-by: Deniz <66401072+Oyu07@users.noreply.github.com>

---------

Co-authored-by: FunnyMan3595 (Charlie Nolan) <funnyman@google.com>
Co-authored-by: Deniz <66401072+Oyu07@users.noreply.github.com>
2024-04-19 17:32:09 +00:00

135 lines
4.0 KiB
Plaintext

#define SSMACHINES_DEFERREDPOWERNETS 1
#define SSMACHINES_POWERNETS 2
#define SSMACHINES_PREMACHINERY 3
#define SSMACHINES_MACHINERY 4
SUBSYSTEM_DEF(machines)
name = "Machines"
init_order = INIT_ORDER_MACHINES
flags = SS_KEEP_TIMING
offline_implications = "Machinery will no longer process. Shuttle call recommended."
cpu_display = SS_CPUDISPLAY_HIGH
var/list/processing = list()
var/list/currentrun = list()
/// All regional powernets (/datum/regional_powernet) in the world
var/list/powernets = list()
var/list/deferred_powernet_rebuilds = list()
var/currentpart = SSMACHINES_DEFERREDPOWERNETS
/datum/controller/subsystem/machines/Initialize()
makepowernets()
fire()
/datum/controller/subsystem/machines/get_metrics()
. = ..()
var/list/cust = list()
cust["processing"] = length(processing)
.["custom"] = cust
/datum/controller/subsystem/machines/proc/makepowernets()
for(var/datum/regional_powernet/PN in powernets)
qdel(PN)
powernets.Cut()
for(var/obj/structure/cable/PC in GLOB.cable_list)
if(!PC.powernet)
var/datum/regional_powernet/new_pn = new()
new_pn.add_cable(PC)
propagate_network(PC, PC.powernet)
/datum/controller/subsystem/machines/get_stat_details()
return "Machines: [length(processing)] | Powernets: [length(powernets)] | Deferred: [length(deferred_powernet_rebuilds)]"
/datum/controller/subsystem/machines/proc/process_defered_powernets(resumed = 0)
if(!resumed)
src.currentrun = deferred_powernet_rebuilds.Copy()
//cache for sanid speed (lists are references anyways)
var/list/currentrun = src.currentrun
while(length(currentrun))
var/obj/O = currentrun[length(currentrun)]
currentrun.len--
if(O && !QDELETED(O))
var/datum/regional_powernet/newPN = new() // create a new powernet...
propagate_network(O, newPN)//... and propagate it to the other side of the cable
deferred_powernet_rebuilds.Remove(O)
if(MC_TICK_CHECK)
return
/datum/controller/subsystem/machines/proc/process_powernets(resumed = 0)
if(!resumed)
src.currentrun = powernets.Copy()
//cache for sanid speed (lists are references anyways)
var/list/currentrun = src.currentrun
while(length(currentrun))
var/datum/regional_powernet/P = currentrun[length(currentrun)]
currentrun.len--
if(P)
P.process_power() // reset the power state
else
powernets.Remove(P)
if(MC_TICK_CHECK)
return
/datum/controller/subsystem/machines/proc/process_machines(resumed = 0)
var/seconds = wait * 0.1
if(!resumed)
src.currentrun = processing.Copy()
//cache for sanic speed (lists are references anyways)
var/list/currentrun = src.currentrun
while(length(currentrun))
var/obj/machinery/thing = currentrun[length(currentrun)]
currentrun.len--
if(!QDELETED(thing) && thing.process(seconds) != PROCESS_KILL)
if(prob(MACHINE_FLICKER_CHANCE))
thing.flicker()
else
processing -= thing
if(!QDELETED(thing))
thing.isprocessing = FALSE
if(MC_TICK_CHECK)
return
/datum/controller/subsystem/machines/fire(resumed = 0)
if(currentpart == SSMACHINES_DEFERREDPOWERNETS || !resumed)
process_defered_powernets(resumed)
if(state != SS_RUNNING)
return
resumed = 0
currentpart = SSMACHINES_POWERNETS
if(currentpart == SSMACHINES_POWERNETS || !resumed)
process_powernets(resumed)
if(state != SS_RUNNING)
return
resumed = 0
currentpart = SSMACHINES_MACHINERY
if(currentpart == SSMACHINES_MACHINERY || !resumed)
process_machines(resumed)
if(state != SS_RUNNING)
return
resumed = 0
currentpart = SSMACHINES_DEFERREDPOWERNETS
/datum/controller/subsystem/machines/proc/setup_template_powernets(list/cables)
for(var/A in cables)
var/obj/structure/cable/PC = A
if(!PC.powernet)
var/datum/regional_powernet/NewPN = new()
NewPN.add_cable(PC)
propagate_network(PC,PC.powernet)
/datum/controller/subsystem/machines/Recover()
if(istype(SSmachines.processing))
processing = SSmachines.processing
if(istype(SSmachines.powernets))
powernets = SSmachines.powernets
#undef SSMACHINES_DEFERREDPOWERNETS
#undef SSMACHINES_POWERNETS
#undef SSMACHINES_PREMACHINERY
#undef SSMACHINES_MACHINERY