Ports bay's supermatter monitor modular program (#28635)

* WIP

* How the hell did these not get committed

* Fixes, icons for the tablet

* Laptops use the static engine overlay when running the program.
Engineering tablets now start preloaded with a supermatter monitor and alarm monitor.

* Defines

* Requested changes.
Engineering tablets no longer have preinstalled programs.
Supermatter status percents are defines

* Minor thing

code/modules/modular_computers/computers/machinery/console_presets.dm

@@ -36,6 +36,7 @@
 	var/obj/item/weapon/computer_hardware/hard_drive/hard_drive = cpu.all_components[MC_HDD]
 	hard_drive.store_file(new/datum/computer_file/program/power_monitor())
 	hard_drive.store_file(new/datum/computer_file/program/alarm_monitor())
+	hard_drive.store_file(new/datum/computer_file/program/supermatter_monitor())
 
 // ===== RESEARCH CONSOLE =====
 /obj/machinery/modular_computer/console/preset/research

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

@@ -0,0 +1,131 @@
+/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(!air)
+			active = null
+			return
+
+		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()
+
+
+		if(air.total_moles())
+			for(var/gasid in air.gases)
+				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)
+				gasdata.Add(list(list(
+					"name"= air.gases[gasid][GAS_META][META_GAS_NAME],
+					"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