Project ARES: Admin Console

code/__DEFINES/ARES.dm

@@ -1,21 +1,22 @@
+#define ARES_ACCESS_LOGOUT 0
 /// Generic access for 1:1 conversations with ARES and unrestricted commands.
-#define ARES_ACCESS_BASIC 0
+#define ARES_ACCESS_BASIC 1
 /// Secure Access, can read ARES Announcements and Bioscans.
-#define ARES_ACCESS_COMMAND 1
-#define ARES_ACCESS_JOE 2
+#define ARES_ACCESS_COMMAND 2
+#define ARES_ACCESS_JOE 3
 /// CL, can read Apollo Log and also Delete Announcements.
-#define ARES_ACCESS_CORPORATE 3
+#define ARES_ACCESS_CORPORATE 4
 /// Senior Command, can Delete Bioscans.
-#define ARES_ACCESS_SENIOR 4
+#define ARES_ACCESS_SENIOR 5
 /// Synth, CE & Commanding Officer, can read the access log.
-#define ARES_ACCESS_CE 5
-#define ARES_ACCESS_SYNTH 6
-#define ARES_ACCESS_CO 7
+#define ARES_ACCESS_CE 6
+#define ARES_ACCESS_SYNTH 7
+#define ARES_ACCESS_CO 8
 /// High Command, can read the deletion log.
-#define ARES_ACCESS_HIGH 8
-#define ARES_ACCESS_WY_COMMAND 9
+#define ARES_ACCESS_HIGH 9
+#define ARES_ACCESS_WY_COMMAND 10
 /// Debugging. Allows me to view everything without using a high command rank. Unlikely to stay in a full merge.
-#define ARES_ACCESS_DEBUG 10
+#define ARES_ACCESS_DEBUG 11
 
 #define ARES_RECORD_ANNOUNCE "Announcement Record"
 #define ARES_RECORD_ANTIAIR "AntiAir Control Log"

code/game/machinery/ARES/ARES.dm

@@ -121,10 +121,10 @@
 	var/current_menu = "login"
 	var/last_menu = ""
 
-	var/authentication = ARES_ACCESS_BASIC
+	var/authentication = ARES_ACCESS_LOGOUT
 
 	/// The last person to login.
-	var/last_login
+	var/last_login = "No User"
 	/// The person pretending to be last_login
 	var/sudo_holder
 	/// A record of who logged in and when.
@@ -201,9 +201,9 @@
 	var/current_menu = "login"
 	var/last_menu = ""
 
-	var/authentication = ARES_ACCESS_BASIC
+	var/authentication = APOLLO_ACCESS_LOGOUT
 	/// The last person to login.
-	var/last_login
+	var/last_login = "No User"
 	/// A record of who logged in and when.
 	var/list/login_list = list()
 

code/game/machinery/ARES/ARES_procs.dm

@@ -23,7 +23,10 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 	var/obj/structure/machinery/ares/processor/interface/p_interface
 	var/obj/structure/machinery/ares/processor/apollo/p_apollo
 	var/obj/structure/machinery/ares/processor/bioscan/p_bioscan
+
 	var/obj/structure/machinery/computer/ares_console/interface
+	var/datum/ares_console_admin/admin_interface
+
 	var/list/obj/structure/machinery/computer/working_joe/ticket_computers = list()
 
 	/// The chat log of the apollo link. Timestamped.
@@ -35,7 +38,10 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 	var/list/waiting_ids = list()
 	var/list/active_ids = list()
 
+/datum/ares_link/New()
+	admin_interface = new
 /datum/ares_link/Destroy()
+	qdel(admin_interface)
 	for(var/obj/structure/machinery/ares/link in linked_systems)
 		link.delink()
 	for(var/obj/structure/machinery/computer/ares_console/interface in linked_systems)
@@ -44,6 +50,10 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 		alert.delink()
 	..()
 
+/* BELOW ARE IN AdminAres.dm
+/datum/ares_link/tgui_interact(mob/user, datum/tgui/ui)
+/datum/ares_link/ui_data(mob/user)
+*/
 
 // ------ ARES Logging Procs ------ //
 /proc/log_ares_apollo(speaker, message)
@@ -132,40 +142,51 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 
 /obj/structure/machinery/computer/proc/ares_auth_to_text(access_level)
 	switch(access_level)
-		if(ARES_ACCESS_BASIC)//0
+		if(ARES_ACCESS_LOGOUT)//0
+			return "Logged Out"
+		if(ARES_ACCESS_BASIC)//1
 			return "Authorized"
-		if(ARES_ACCESS_COMMAND)//1
+		if(ARES_ACCESS_COMMAND)//2
 			return "[MAIN_SHIP_NAME] Command"
-		if(ARES_ACCESS_JOE)//2
+		if(ARES_ACCESS_JOE)//3
 			return "Working Joe"
-		if(ARES_ACCESS_CORPORATE)//3
+		if(ARES_ACCESS_CORPORATE)//4
 			return "Weyland-Yutani"
-		if(ARES_ACCESS_SENIOR)//4
+		if(ARES_ACCESS_SENIOR)//5
 			return "[MAIN_SHIP_NAME] Senior Command"
-		if(ARES_ACCESS_CE)//5
+		if(ARES_ACCESS_CE)//6
 			return "Chief Engineer"
-		if(ARES_ACCESS_SYNTH)//6
+		if(ARES_ACCESS_SYNTH)//7
 			return "USCM Synthetic"
-		if(ARES_ACCESS_CO)//7
+		if(ARES_ACCESS_CO)//8
 			return "[MAIN_SHIP_NAME] Commanding Officer"
-		if(ARES_ACCESS_HIGH)//8
+		if(ARES_ACCESS_HIGH)//9
 			return "USCM High Command"
-		if(ARES_ACCESS_WY_COMMAND)//9
+		if(ARES_ACCESS_WY_COMMAND)//10
 			return "Weyland-Yutani Directorate"
-		if(ARES_ACCESS_DEBUG)//10
+		if(ARES_ACCESS_DEBUG)//11
 			return "AI Service Technician"
 
 
-/obj/structure/machinery/computer/ares_console/proc/message_ares(text, mob/Sender, ref)
+/obj/structure/machinery/computer/ares_console/proc/message_ares(text, mob/Sender, ref, fake = FALSE)
 	var/msg = SPAN_STAFF_IC("<b><font color=orange>ARES:</font> [key_name(Sender, 1)] [ARES_MARK(Sender)] [ADMIN_PP(Sender)] [ADMIN_VV(Sender)] [ADMIN_SM(Sender)] [ADMIN_JMP_USER(Sender)] [ARES_REPLY(Sender, ref)]:</b> [text]")
 	var/datum/ares_record/talk_log/conversation = locate(ref)
 	conversation.conversation += "[last_login] at [worldtime2text()], '[text]'"
+	if(fake)
+		log_say("[key_name(Sender)] faked the message '[text]' from [last_login] in ARES 1:1.")
+		msg = SPAN_STAFF_IC("<b><font color=orange>ARES:</font> [key_name(Sender, 1)] faked a message from '[last_login]':</b> [text]")
+	else
+		log_say("[key_name(Sender)] sent '[text]' to ARES 1:1.")
+		for(var/client/admin in GLOB.admins)
+			if(admin.prefs.toggles_sound & SOUND_ARES_MESSAGE)
+				playsound_client(admin, 'sound/machines/chime.ogg', vol = 25)
+
 	for(var/client/admin in GLOB.admins)
 		if((R_ADMIN|R_MOD) & admin.admin_holder.rights)
 			to_chat(admin, msg)
-			if(admin.prefs.toggles_sound & SOUND_ARES_MESSAGE)
-				playsound_client(admin, 'sound/machines/chime.ogg', vol = 25)
-	log_say("[key_name(Sender)] sent '[text]' to ARES 1:1.")
+			var/admin_user = GLOB.ares_link.admin_interface.logged_in
+			if(admin_user && !fake)
+				to_chat(admin, SPAN_STAFF_IC("<b>ADMINS/MODS: [SPAN_RED("[admin_user] is logged in to ARES Remote Interface! They may be replying to this message!")]</b>"))
 
 /obj/structure/machinery/computer/ares_console/proc/response_from_ares(text, ref)
 	var/datum/ares_record/talk_log/conversation = locate(ref)
@@ -399,13 +420,14 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 			return
 		// -- Page Changers -- //
 		if("logout")
-			last_menu = current_menu
 			current_menu = "login"
+			last_menu = current_menu
 			if(sudo_holder)
 				access_list += "[last_login] at [worldtime2text()], Sudo Logout."
 				last_login = sudo_holder
 				sudo_holder = null
 			access_list += "[last_login] logged out at [worldtime2text()]."
+			authentication = ARES_ACCESS_LOGOUT
 
 		if("home")
 			last_menu = current_menu
@@ -774,9 +796,10 @@ GLOBAL_LIST_INIT(maintenance_categories, list(
 			current_menu = "main"
 
 		if("logout")
-			last_menu = current_menu
 			current_menu = "login"
+			last_menu = current_menu
 			login_list += "[last_login] logged out at [worldtime2text()]."
+			authentication = APOLLO_ACCESS_LOGOUT
 
 		if("home")
 			last_menu = current_menu

code/game/machinery/ARES/ARES_records.dm

@@ -49,6 +49,15 @@
 	src.details = details
 	src.user = user
 
+/datum/ares_record/flight
+	record_name = ARES_RECORD_FLIGHT
+
+/datum/ares_record/flight/New(details, user)
+	time = worldtime2text()
+	src.title = "Flight Log"
+	src.details = details
+	src.user = user
+
 /datum/ares_record/bombardment
 	record_name = ARES_RECORD_BOMB