Suspending different subsystems during explosion (#7760)

code/controllers/controller.dm

@@ -14,7 +14,7 @@
 
 // Called when SSexplosives begins processing explosions.
 /datum/controller/proc/ExplosionStart()
-
+	
 // Called when SSexplosives finishes processing all queued explosions.
 /datum/controller/proc/ExplosionEnd()
 

code/controllers/subsystems/air.dm

@@ -438,3 +438,9 @@ Total Unsimulated Turfs: [world.maxx*world.maxy*world.maxz - simulated_turf_coun
 	edges -= E
 	if(!E.sleeping)
 		active_edges -= E
+
+/datum/controller/subsystem/air/ExplosionStart()
+	suspend()
+
+/datum/controller/subsystem/air/ExplosionEnd()
+	wake()

code/controllers/subsystems/machinery.dm

@@ -221,4 +221,11 @@
 	if (remove_from_global)
 		SSmachinery.all_machines -= M
 
+
+/datum/controller/subsystem/machinery/ExplosionStart()
+	suspend()
+
+/datum/controller/subsystem/machinery/ExplosionEnd()
+	wake()
+
 #undef MACHINERY_GO_TO_NEXT

code/controllers/subsystems/mob_ai.dm

@@ -64,3 +64,9 @@
 
 /mob/proc/on_think_enabled()
 	return
+
+/datum/controller/subsystem/mob_ai/ExplosionStart()
+	suspend()
+
+/datum/controller/subsystem/mob_ai/ExplosionEnd()
+	wake()

code/controllers/subsystems/processing/processing.dm

@@ -36,3 +36,9 @@ var/datum/controller/subsystem/processing/SSprocessing
 // Helper so PROCESS_KILL works.
 /datum/controller/subsystem/processing/proc/stop_processing(datum/D)
 	STOP_PROCESSING(src, D)
+
+/datum/controller/subsystem/processing/ExplosionStart()
+	suspend()
+
+/datum/controller/subsystem/processing/ExplosionEnd()
+	wake()