Ports bay's supermatter monitor modular program

code/modules/modular_computers/file_system/programs/sm_monitor.dm

@@ -0,0 +1,132 @@
+/datum/computer_file/program/supermatter_monitor
+	filename = "smmonitor"
+	filedesc = "Supermatter Monitoring"
+	ui_header = "smmon_0.gif"
+	program_icon_state = "smmon_0"
+	extended_desc = "This program connects to specially calibrated supermatter sensors to provide information on the status of supermatter-based engines."
+	requires_ntnet = TRUE
+	transfer_access = GLOB.access_engine
+	network_destination = "supermatter monitoring system"
+	size = 5
+	tgui_id = "ntos_supermatter_monitor"
+	ui_x = 600
+	ui_y = 400
+	var/last_status = SUPERMATTER_INACTIVE
+	var/list/supermatters
+	var/obj/machinery/power/supermatter_shard/active		// Currently selected supermatter crystal.
+
+
+/datum/computer_file/program/supermatter_monitor/process_tick()
+	..()
+	var/new_status = get_status()
+	if(last_status != new_status)
+		last_status = new_status
+		ui_header = "smmon_[last_status].gif"
+		if(istype(computer) && !(computer.hardware_flag == PROGRAM_LAPTOP))
+			program_icon_state = "smmon_[last_status]"
+			if(istype(computer))
+				computer.update_icon()
+
+/datum/computer_file/program/supermatter_monitor/run_program(mob/living/user)
+	. = ..(user)
+	if(istype(computer) && (computer.hardware_flag == PROGRAM_LAPTOP))
+		program_icon_state = "engine"
+		computer.update_icon()
+	refresh()
+
+/datum/computer_file/program/supermatter_monitor/kill_program(forced = FALSE)
+	active = null
+	supermatters = null
+	..()
+
+// Refreshes list of active supermatter crystals
+/datum/computer_file/program/supermatter_monitor/proc/refresh()
+	supermatters = list()
+	var/turf/T = get_turf(ui_host())
+	if(!T)
+		return
+	//var/valid_z_levels = (GetConnectedZlevels(T.z) & using_map.station_levels)
+	for(var/obj/machinery/power/supermatter_shard/S in GLOB.machines)
+		// Delaminating, not within coverage, not on a tile.
+		if(!(S.z == ZLEVEL_STATION || S.z == ZLEVEL_MINING || S.z == T.z) || !istype(S.loc, /turf/))
+			continue
+		supermatters.Add(S)
+
+	if(!(active in supermatters))
+		active = null
+
+/datum/computer_file/program/supermatter_monitor/proc/get_status()
+	. = SUPERMATTER_INACTIVE
+	for(var/obj/machinery/power/supermatter_shard/S in supermatters)
+		. = max(., S.get_status())
+
+/datum/computer_file/program/supermatter_monitor/ui_data()
+	var/list/data = get_header_data()
+
+	if(istype(active))
+		var/turf/T = get_turf(active)
+		if(!T)
+			active = null
+			refresh()
+			return
+		var/datum/gas_mixture/air = T.return_air()
+		if(!istype(air))
+			active = null
+			return
+
+		data["active"] = 1
+		data["SM_integrity"] = active.get_integrity()
+		data["SM_power"] = active.power
+		data["SM_ambienttemp"] = air.temperature
+		data["SM_ambientpressure"] = air.return_pressure()
+		//data["SM_EPR"] = round((air.total_moles / air.group_multiplier) / 23.1, 0.01)
+		var/list/gasdata = list()
+		var/list/gaseslist = list("o2","co2","n2","plasma","n2o")
+
+
+		if(air.total_moles())
+			for(var/gasid in gaseslist)
+				gasdata.Add(list(list(
+				"name"= gasid,
+				"amount" = round(100*air.gases[gasid][MOLES]/air.total_moles(),0.01))))
+
+		else
+			for(var/gasid in gaseslist)
+				gasdata.Add(list(list(
+					"name"= gasid,
+					"amount" = 0)))
+
+		data["gases"] = gasdata
+	else
+		var/list/SMS = list()
+		for(var/obj/machinery/power/supermatter_shard/S in supermatters)
+			var/area/A = get_area(S)
+			if(A)
+				SMS.Add(list(list(
+				"area_name" = A.name,
+				"integrity" = S.get_integrity(),
+				"uid" = S.uid
+				)))
+
+		data["active"] = FALSE
+		data["supermatters"] = SMS
+
+	return data
+
+/datum/computer_file/program/supermatter_monitor/ui_act(action, params)
+	if(..())
+		return TRUE
+
+	switch(action)
+		if("PRG_clear")
+			active = null
+			return TRUE
+		if("PRG_refresh")
+			refresh()
+			return TRUE
+		if("PRG_set")
+			var/newuid = text2num(params["set"])
+			for(var/obj/machinery/power/supermatter_shard/S in supermatters)
+				if(S.uid == newuid)
+					active = S
+			return TRUE

code/modules/modular_computers/file_system/programs/sm_monitor.dm.rej

@@ -0,0 +1,36 @@
+diff a/code/modules/modular_computers/file_system/programs/sm_monitor.dm b/code/modules/modular_computers/file_system/programs/sm_monitor.dm	(rejected hunks)
+@@ -70,32 +70,27 @@
+ 			refresh()
+ 			return
+ 		var/datum/gas_mixture/air = T.return_air()
+-		if(!istype(air))
++		if(!air)
+ 			active = null
+ 			return
+ 
+-		data["active"] = 1
++		data["active"] = TRUE
+ 		data["SM_integrity"] = active.get_integrity()
+ 		data["SM_power"] = active.power
+ 		data["SM_ambienttemp"] = air.temperature
+ 		data["SM_ambientpressure"] = air.return_pressure()
+ 		//data["SM_EPR"] = round((air.total_moles / air.group_multiplier) / 23.1, 0.01)
+ 		var/list/gasdata = list()
+-		var/list/relevantgas = list("o2","co2","n2","plasma","n2o","freon")
+ 
+ 
+ 		if(air.total_moles())
+ 			for(var/gasid in air.gases)
+-				if(!gasid in relevantgas)
+-					continue
+ 				gasdata.Add(list(list(
+ 				"name"= air.gases[gasid][GAS_META][META_GAS_NAME],
+ 				"amount" = round(100*air.gases[gasid][MOLES]/air.total_moles(),0.01))))
+ 
+ 		else
+ 			for(var/gasid in air.gases)
+-				if(!gasid in relevantgas)
+-					continue
+ 				gasdata.Add(list(list(
+ 					"name"= air.gases[gasid][GAS_META][META_GAS_NAME],
+ 					"amount" = 0)))