Ports over Fires to Subsystems

code/controllers/Processes/fires.dm

@@ -1,24 +0,0 @@
-var/global/datum/controller/process/fire/fire_master
-
-/datum/controller/process/fire
-	var/list/burning = list()
-
-/datum/controller/process/fire/setup()
-	name = "fire"
-	schedule_interval = 20 //every 2 seconds
-	log_startup_progress("Fire process starting up.")
-
-/datum/controller/process/fire/statProcess()
-	..()
-	stat(null, "[burning.len] burning objects")
-
-/datum/controller/process/fire/doWork()
-	for(var/obj/burningobj in burning)
-		if(burningobj.burn_state == ON_FIRE)
-			if(burningobj.burn_world_time < world.time)
-				burningobj.burn()
-				SCHECK
-		else
-			burning.Remove(burningobj)
-
-DECLARE_GLOBAL_CONTROLLER(fire, fire_master)

code/controllers/subsystem/fire_burning.dm

@@ -0,0 +1,37 @@
+SUBSYSTEM_DEF(fire_burning)
+	name = "Fire Burning"
+	priority = FIRE_PRIOTITY_BURNING
+	flags = SS_NO_INIT|SS_BACKGROUND
+	runlevels = RUNLEVEL_GAME | RUNLEVEL_POSTGAME
+
+	var/list/currentrun = list()
+	var/list/processing = list()
+
+/datum/controller/subsystem/fire_burning/stat_entry()
+	..("P:[processing.len]")
+
+
+/datum/controller/subsystem/fire_burning/fire(resumed = 0)
+	if(!resumed)
+		src.currentrun = processing.Copy()
+
+	//cache for sanic speed (lists are references anyways)
+	var/list/currentrun = src.currentrun
+
+	while(currentrun.len)
+		var/obj/O = currentrun[currentrun.len]
+		currentrun.len--
+		if(!O || qdeleted(O))
+			processing -= O
+			if(MC_TICK_CHECK)
+				return
+			continue
+
+		if(O.burn_state == ON_FIRE)
+			if(O.burn_world_time < world.time)
+				O.burn()
+		else
+			processing -= O
+
+		if(MC_TICK_CHECK)
+			return

code/controllers/verbs.dm

@@ -79,7 +79,7 @@
 			debug_variables(vote)
 			feedback_add_details("admin_verb","DVote")
 		if("Fires")
-			debug_variables(fire_master)
+			debug_variables(SSfire_burning)
 			feedback_add_details("admin_verb","DFires")
 		if("Mob")
 			debug_variables(mob_master)