changing ticklag changes the processes interval to adapt.

code/controllers/ProcessScheduler/core/process.dm

@@ -91,7 +91,6 @@ datum/controller/process/New(var/datum/controller/processScheduler/scheduler)
 	previousStatus = "idle"
 	idle()
 	name = "process"
-	schedule_interval = 50
 	sleep_interval = 2
 	last_slept = 0
 	run_start = 0

code/controllers/Processes/air.dm

@@ -1,6 +1,8 @@
+/datum/controller/process/air
+	schedule_interval = 20 // every 2 seconds
+
 /datum/controller/process/air/setup()
 	name = "air"
-	schedule_interval = 20 // every 2 seconds
 
 	if(!air_master)
 		air_master = new

code/controllers/Processes/disease.dm

@@ -2,10 +2,10 @@ var/global/list/active_diseases = list()
 
 /datum/controller/process/disease
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/disease/setup()
 	name = "disease"
-	schedule_interval = 20 // every 2 seconds
 	updateQueueInstance = new
 
 /datum/controller/process/disease/doWork()

code/controllers/Processes/emergencyShuttle.dm

@@ -1,6 +1,8 @@
+/datum/controller/process/emergencyShuttle
+	schedule_interval = 20 // every 2 seconds
+
 /datum/controller/process/emergencyShuttle/setup()
 	name = "emergency shuttle"
-	schedule_interval = 20 // every 2 seconds
 
 	if(!emergency_shuttle)
 		emergency_shuttle = new

code/controllers/Processes/event.dm

@@ -2,10 +2,10 @@ var/global/list/events = list()
 
 /datum/controller/process/event
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/event/setup()
 	name = "event"
-	schedule_interval = 20 // every 2 seconds
 	updateQueueInstance = new
 
 /datum/controller/process/event/doWork()

code/controllers/Processes/garbage.dm

@@ -1,6 +1,9 @@
+/datum/controller/process/garbage
+	schedule_interval = 20 // every 2 seconds
+
+
 /datum/controller/process/garbage/setup()
 	name = "garbage"
-	schedule_interval = 20 // every 2 seconds
 
 	if(!garbageCollector)
 		garbageCollector = new

code/controllers/Processes/lighting.dm

@@ -1,6 +1,8 @@
+/datum/controller/process/lighting
+	schedule_interval = 5 // every .5 second
+
 /datum/controller/process/lighting/setup()
 	name = "lighting"
-	schedule_interval = 5 // every .5 second
 	lighting_controller.Initialize()
 
 /datum/controller/process/lighting/doWork()

code/controllers/Processes/machinery.dm

@@ -1,8 +1,10 @@
 var/global/list/machines = list()
+/datum/controller/process/machinery
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/machinery/setup()
 	name = "machinery"
-	schedule_interval = 20 // every 2 seconds
+
 
 /datum/controller/process/machinery/doWork()
 	//#ifdef PROFILE_MACHINES

code/controllers/Processes/mob.dm

@@ -2,10 +2,10 @@
 
 /datum/controller/process/mob
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/mob/setup()
 	name = "mob"
-	schedule_interval = 20 // every 2 seconds
 	updateQueueInstance = new
 
 /datum/controller/process/mob/started()

code/controllers/Processes/nanoui.dm

@@ -1,9 +1,10 @@
 /datum/controller/process/nanoui
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/nanoui/setup()
 	name = "nanoui"
-	schedule_interval = 20 // every 2 seconds
+
 	updateQueueInstance = new
 
 /datum/controller/process/nanoui/doWork()

code/controllers/Processes/obj.dm

@@ -3,10 +3,10 @@ var/global/list/processing_objects = list()
 
 /datum/controller/process/obj
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/obj/setup()
 	name = "obj"
-	schedule_interval = 20 // every 2 seconds
 	updateQueueInstance = new
 
 /datum/controller/process/obj/started()

code/controllers/Processes/pipenet.dm

@@ -1,9 +1,12 @@
 var/global/list/datum/pipe_network/pipe_networks = list()
 var/global/list/obj/machinery/atmospherics/atmos_machines = list()
 
+/datum/controller/process/pipenet
+	schedule_interval = 20 // every 2 seconds
+
 /datum/controller/process/pipenet/setup()
 	name = "pipenet"
-	schedule_interval = 20 // every 2 seconds
+
 
 /datum/controller/process/pipenet/doWork()
 	for(var/obj/machinery/atmospherics/atmosmachinery in atmos_machines)

code/controllers/Processes/power_machinery.dm

@@ -3,10 +3,11 @@ var/global/list/power_machines = list()
 
 /datum/controller/process/power_machinery
 	var/tmp/datum/updateQueue/updateQueueInstance
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/power_machinery/setup()
 	name = "pow_machine"
-	schedule_interval = 20 // every 2 seconds
+
 
 /datum/controller/process/power_machinery/doWork()
 	for(var/i = 1 to power_machines.len)

code/controllers/Processes/powernet.dm

@@ -1,9 +1,11 @@
 var/global/list/datum/powernet/powernets = list() //Holds all powernet datums in use or pooled
 var/global/list/cable_list = list() //Index for all cables, so that powernets don't have to look through the entire world all the time
 
+/datum/controller/process/powernet
+	schedule_interval = 20 // every 2 seconds
 /datum/controller/process/powernet/setup()
 	name = "powernet"
-	schedule_interval = 20 // every 2 seconds
+
 
 /datum/controller/process/powernet/doWork()
 

code/controllers/Processes/sun.dm

@@ -1,6 +1,8 @@
+/datum/controller/process/sun
+	schedule_interval = 40 // every 2 seconds
 /datum/controller/process/sun/setup()
 	name = "sun"
-	schedule_interval = 40 // every 2 seconds
+
 	sun = new
 
 /datum/controller/process/sun/doWork()

code/controllers/Processes/supplyShuttle.dm

@@ -1,6 +1,7 @@
+/datum/controller/process/supplyShuttle
+	schedule_interval = 300 // every 30 seconds
 /datum/controller/process/supplyShuttle/setup()
 	name = "supply shuttle"
-	schedule_interval = 300 // every 30 seconds
 
 	for(var/typepath in (typesof(/datum/supply_packs) - /datum/supply_packs))
 		var/datum/supply_packs/P = new typepath()

code/controllers/Processes/ticker.dm

@@ -3,10 +3,10 @@ var/global/datum/controller/process/ticker/tickerProcess
 /datum/controller/process/ticker
 	var/lastTickerTimeDuration
 	var/lastTickerTime
+	schedule_interval = 20 // every 2 seconds
 
 /datum/controller/process/ticker/setup()
 	name = "ticker"
-	schedule_interval = 20 // every 2 seconds
 
 	lastTickerTime = world.timeofday
 

code/controllers/Processes/vote.dm

@@ -1,6 +1,9 @@
+/datum/controller/process/vote
+	schedule_interval = 10 // every second
+
 /datum/controller/process/vote/setup()
 	name = "vote"
-	schedule_interval = 10 // every second
+
 
 /datum/controller/process/vote/doWork()
 	vote.process()

code/modules/admin/verbs/ticklag.dm

@@ -18,6 +18,18 @@
 		switch(alert("Enable Tick Compensation?","Tick Comp is currently: [config.Tickcomp]","Yes","No"))
 			if("Yes")	config.Tickcomp = 1
 			else		config.Tickcomp = 0
+		
+		var/origtick = 0.9
+		if(config.Ticklag)
+			origtick = config.Ticklag
+		if(processScheduler && processScheduler.processes && processScheduler.processes.len)
+			for(var/datum/controller/process/P in processScheduler.processes)
+				if(P.name == "inactivity") continue
+				if(newtick == origtick) P.schedule_interval = initial(P.schedule_interval)
+				else
+					var/intv = P.schedule_interval
+					P.schedule_interval = round(initial(P.schedule_interval) / (newtick /origtick), 1)
+					testing("Set [P.name]'s schedule_interval to [P.schedule_interval] old: [intv], original: [initial(P.schedule_interval)] ratio applied: [newtick/origtick]")
 	else
 		src << "<span class='warning'>Error: ticklag(): Invalid world.ticklag value. No changes made.</span>"