final

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

@@ -8,20 +8,21 @@
 	size = 5
 	tgui_id = "NtosStationAlertConsole"
 	program_icon = "bell"
-	var/has_alert = 0
-	///Listens for alarms, manages our listing of alarms
-	var/datum/alarm_listener/listener
+	/// If there is any station alert
+	var/has_alert = FALSE
+	/// Station alert datum for showing alerts UI
+	var/datum/station_alert/alert_control
 
 /datum/computer_file/program/alarm_monitor/New()
 	//We want to send an alarm if we're in one of the mining home areas
 	//Or if we're on station. Otherwise, die.
 	var/list/allowed_areas = GLOB.the_station_areas + typesof(/area/mine)
-	listener = new(list(ALARM_ATMOS, ALARM_FIRE, ALARM_POWER), null, allowed_areas)
-	RegisterSignal(listener, list(COMSIG_ALARM_TRIGGERED, COMSIG_ALARM_CLEARED), .proc/update_alarm_display)
+	alert_control = new(computer, list(ALARM_ATMOS, ALARM_FIRE, ALARM_POWER), listener_areas = allowed_areas)
+	RegisterSignal(alert_control.listener, list(COMSIG_ALARM_TRIGGERED, COMSIG_ALARM_CLEARED), PROC_REF(update_alarm_display))
 	return ..()
 
 /datum/computer_file/program/alarm_monitor/Destroy()
-	QDEL_NULL(listener)
+	QDEL_NULL(alert_control)
 	return ..()
 
 /datum/computer_file/program/alarm_monitor/process_tick()
@@ -40,20 +41,13 @@
 
 /datum/computer_file/program/alarm_monitor/ui_data(mob/user)
 	var/list/data = get_header_data()
-
-	data["alarms"] = list()
-	var/list/alarms = listener.alarms
-	for(var/alarm_type in alarms)
-		data["alarms"][alarm_type] = list()
-		for(var/area in alarms[alarm_type])
-			data["alarms"][alarm_type] += area
-
+	data += alert_control.ui_data(user)
 	return data
 
 /datum/computer_file/program/alarm_monitor/proc/update_alarm_display()
 	SIGNAL_HANDLER
 	has_alert = FALSE
-	if(length(listener.alarms))
+	if(length(alert_control.listener.alarms))
 		has_alert = TRUE
 
 /datum/computer_file/program/alarm_monitor/run_program(mob/user)