Adds admin override for false alarm event.

code/modules/admin/topic.dm

@@ -165,6 +165,7 @@
 			return
 		var/datum/round_event_control/E = locate(href_list["forceevent"]) in SSevents.control
 		if(E)
+			E.admin_setup(usr)
 			var/datum/round_event/event = E.runEvent()
 			if(event.announceWhen>0)
 				event.processing = FALSE

code/modules/events/_event.dm

@@ -99,6 +99,10 @@
 
 	return E
 
+//Special admins setup
+/datum/round_event_control/proc/admin_setup()
+	return
+
 /datum/round_event	//NOTE: Times are measured in master controller ticks!
 	var/processing = TRUE
 	var/datum/round_event_control/control

code/modules/events/false_alarm.dm

@@ -1,3 +1,4 @@
+<<<<<<< HEAD
 /datum/round_event_control/falsealarm
 	name 			= "False Alarm"
 	typepath 		= /datum/round_event/falsealarm
@@ -26,6 +27,60 @@
 /proc/gather_false_events(players_amt, gamemode)
 	. = list()
 	for(var/datum/round_event_control/E in SSevents.control)
+=======
+/datum/round_event_control/falsealarm
+	name 			= "False Alarm"
+	typepath 		= /datum/round_event/falsealarm
+	weight			= 20
+	max_occurrences = 5
+	var/forced_type //Admin abuse
+
+
+/datum/round_event_control/falsealarm/admin_setup()
+	if(!check_rights(R_FUN))
+		return
+
+	var/list/possible_types = list()
+
+	for(var/datum/round_event_control/E in SSevents.control)
+		if(istype(E, /datum/round_event_control/falsealarm))
+			continue
+		var/datum/round_event/event = E.typepath
+		if(initial(event.announceWhen) <= 0)
+			continue
+		possible_types += E
+	
+	forced_type = input(usr, "Select the scare.","False event") as null|anything in possible_types
+
+/datum/round_event_control/falsealarm/canSpawnEvent(players_amt, gamemode)
+	return ..() && length(gather_false_events())
+
+/datum/round_event/falsealarm
+	announceWhen	= 0
+	endWhen			= 1
+
+/datum/round_event/falsealarm/announce()
+	var/players_amt = get_active_player_count(alive_check = 1, afk_check = 1, human_check = 1)
+	var/gamemode = SSticker.mode.config_tag
+
+	var/events_list = gather_false_events(players_amt, gamemode)
+	var/datum/round_event_control/event_control
+	var/datum/round_event_control/falsealarm/C = control
+	if(C.forced_type)
+		event_control = C.forced_type
+		C.forced_type = null
+	else
+		event_control = pick(events_list)
+	if(event_control)
+		var/datum/round_event/Event = new event_control.typepath()
+		message_admins("False Alarm: [Event]")
+		Event.kill() 		//do not process this event - no starts, no ticks, no ends
+		Event.announce() 	//just announce it like it's happening
+
+/proc/gather_false_events(players_amt, gamemode)
+	. = list()
+	for(var/datum/round_event_control/E in SSevents.control)
+>>>>>>> 789cff4... Merge pull request #31922 from AnturK/abuse
 		if(istype(E, /datum/round_event_control/falsealarm))
 			continue
 		if(!E.canSpawnEvent(players_amt, gamemode))