Re-implements admin fun events as datums.

code/modules/admin/secrets/admin_secrets/alter_narsie.dm

@@ -0,0 +1,14 @@
+/datum/admin_secret_item/admin_secret/alter_narise
+	name = "Alter Nar-Sie"
+
+/datum/admin_secret_item/admin_secret/alter_narise/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	var/choice = input(user, "How do you wish for Nar-Sie to interact with its surroundings?") as null|anything in list("CultStation13", "Nar-Singulo")
+	if(choice == "CultStation13")
+		log_and_message_admins("has set narsie's behaviour to \"CultStation13\".", user)
+		narsie_behaviour = choice
+	if(choice == "Nar-Singulo")
+		log_and_message_admins("has set narsie's behaviour to \"Nar-Singulo\".", user)
+		narsie_behaviour = choice

code/modules/admin/secrets/admin_secrets/jump_shuttle.dm

@@ -0,0 +1,36 @@
+/datum/admin_secret_item/admin_secret/jump_shuttle
+	name = "Jump a Shuttle"
+
+/datum/admin_secret_item/admin_secret/jump_shuttle/can_execute(var/mob/user)
+	if(!shuttle_controller) return 0
+	return ..()
+
+/datum/admin_secret_item/admin_secret/jump_shuttle/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	var/shuttle_tag = input("Which shuttle do you want to jump?") as null|anything in shuttle_controller.shuttles
+	if (!shuttle_tag) return
+
+	var/datum/shuttle/S = shuttle_controller.shuttles[shuttle_tag]
+
+	var/origin_area = input("Which area is the shuttle at now? (MAKE SURE THIS IS CORRECT OR THINGS WILL BREAK)") as null|area in world
+	if (!origin_area) return
+
+	var/destination_area = input("Which area is the shuttle at now? (MAKE SURE THIS IS CORRECT OR THINGS WILL BREAK)") as null|area in world
+	if (!destination_area) return
+
+	var/long_jump = alert("Is there a transition area for this jump?","", "Yes", "No")
+	if (long_jump == "Yes")
+		var/transition_area = input("Which area is the transition area? (MAKE SURE THIS IS CORRECT OR THINGS WILL BREAK)") as null|area in world
+		if (!transition_area) return
+
+		var/move_duration = input("How many seconds will this jump take?") as num
+
+		S.long_jump(origin_area, destination_area, transition_area, move_duration)
+		message_admins("<span class='notice'>[key_name_admin(usr)] has initiated a jump from [origin_area] to [destination_area] lasting [move_duration] seconds for the [shuttle_tag] shuttle</span>", 1)
+		log_admin("[key_name_admin(usr)] has initiated a jump from [origin_area] to [destination_area] lasting [move_duration] seconds for the [shuttle_tag] shuttle")
+	else
+		S.short_jump(origin_area, destination_area)
+		message_admins("<span class='notice'>[key_name_admin(usr)] has initiated a jump from [origin_area] to [destination_area] for the [shuttle_tag] shuttle</span>", 1)
+		log_admin("[key_name_admin(usr)] has initiated a jump from [origin_area] to [destination_area] for the [shuttle_tag] shuttle")

code/modules/admin/secrets/admin_secrets/launch_shutter.dm

@@ -0,0 +1,26 @@
+/datum/admin_secret_item/admin_secret/launch_shuttle
+	name = "Launch a Shuttle"
+
+/datum/admin_secret_item/admin_secret/launch_shuttle/can_execute(var/mob/user)
+	if(!shuttle_controller) return 0
+	return ..()
+
+/datum/admin_secret_item/admin_secret/launch_shuttle/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	var/list/valid_shuttles = list()
+	for (var/shuttle_tag in shuttle_controller.shuttles)
+		if (istype(shuttle_controller.shuttles[shuttle_tag], /datum/shuttle/ferry))
+			valid_shuttles += shuttle_tag
+
+	var/shuttle_tag = input("Which shuttle do you want to launch?") as null|anything in valid_shuttles
+	if (!shuttle_tag)
+		return
+
+	var/datum/shuttle/ferry/S = shuttle_controller.shuttles[shuttle_tag]
+	if (S.can_launch())
+		S.launch(usr)
+		log_and_message_admins("launched the [shuttle_tag] shuttle", user)
+	else
+		alert("The [shuttle_tag] shuttle cannot be launched at this time. It's probably busy.")

code/modules/admin/secrets/admin_secrets/launch_shuttle_forced.dm

@@ -0,0 +1,26 @@
+/datum/admin_secret_item/admin_secret/launch_shuttle_forced
+	name = "Launch a Shuttle (Forced)"
+
+/datum/admin_secret_item/admin_secret/launch_shuttle_forced/can_execute(var/mob/user)
+	if(!shuttle_controller) return 0
+	return ..()
+
+/datum/admin_secret_item/admin_secret/launch_shuttle_forced/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	var/list/valid_shuttles = list()
+	for (var/shuttle_tag in shuttle_controller.shuttles)
+		if (istype(shuttle_controller.shuttles[shuttle_tag], /datum/shuttle/ferry))
+			valid_shuttles += shuttle_tag
+
+	var/shuttle_tag = input("Which shuttle's launch do you want to force?") as null|anything in valid_shuttles
+	if (!shuttle_tag)
+		return
+
+	var/datum/shuttle/ferry/S = shuttle_controller.shuttles[shuttle_tag]
+	if (S.can_force())
+		S.force_launch(usr)
+		log_and_message_admins("forced the [shuttle_tag] shuttle", user)
+	else
+		alert("The [shuttle_tag] shuttle launch cannot be forced at this time. It's busy, or hasn't been launched yet.")

code/modules/admin/secrets/admin_secrets/move_shuttle.dm

@@ -0,0 +1,28 @@
+/datum/admin_secret_item/admin_secret/move_shuttle
+	name = "Move a Shuttle"
+
+/datum/admin_secret_item/admin_secret/move_shuttle/can_execute(var/mob/user)
+	if(!shuttle_controller) return 0
+	return ..()
+
+/datum/admin_secret_item/admin_secret/move_shuttle/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	var/confirm = alert("This command directly moves a shuttle from one area to another. DO NOT USE THIS UNLESS YOU ARE DEBUGGING A SHUTTLE AND YOU KNOW WHAT YOU ARE DOING.", "Are you sure?", "Ok", "Cancel")
+	if (confirm == "Cancel")
+		return
+
+	var/shuttle_tag = input("Which shuttle do you want to jump?") as null|anything in shuttle_controller.shuttles
+	if (!shuttle_tag) return
+
+	var/datum/shuttle/S = shuttle_controller.shuttles[shuttle_tag]
+
+	var/origin_area = input("Which area is the shuttle at now? (MAKE SURE THIS IS CORRECT OR THINGS WILL BREAK)") as null|area in world
+	if (!origin_area) return
+
+	var/destination_area = input("Which area is the shuttle at now? (MAKE SURE THIS IS CORRECT OR THINGS WILL BREAK)") as null|area in world
+	if (!destination_area) return
+
+	S.move(origin_area, destination_area)
+	log_and_message_admins("[key_name_admin(usr)] moved the [shuttle_tag] shuttle", user)

code/modules/admin/secrets/admin_secrets/prison_warp.dm

@@ -0,0 +1,38 @@
+/datum/admin_secret_item/admin_secret/prison_warp
+	name = "Prison Warp"
+
+/datum/admin_secret_item/admin_secret/prison_warp/can_execute(var/mob/user)
+	if(!ticker) return 0
+	return ..()
+
+/datum/admin_secret_item/admin_secret/prison_warp/execute(var/mob/user)
+	. = ..()
+	if(!.)
+		return
+	for(var/mob/living/carbon/human/H in mob_list)
+		var/turf/T = get_turf(H)
+		var/security = 0
+		if((T && T in config.admin_levels) || prisonwarped.Find(H))
+		//don't warp them if they aren't ready or are already there
+			continue
+		H.Paralyse(5)
+		if(H.wear_id)
+			var/obj/item/weapon/card/id/id = H.get_idcard()
+			for(var/A in id.access)
+				if(A == access_security)
+					security++
+		if(!security)
+			//strip their stuff before they teleport into a cell :downs:
+			for(var/obj/item/weapon/W in H)
+				if(istype(W, /obj/item/organ/external))
+					continue
+					//don't strip organs
+				H.drop_from_inventory(W)
+			//teleport person to cell
+			H.loc = pick(prisonwarp)
+			H.equip_to_slot_or_del(new /obj/item/clothing/under/color/orange(H), slot_w_uniform)
+			H.equip_to_slot_or_del(new /obj/item/clothing/shoes/orange(H), slot_shoes)
+		else
+			//teleport security person
+			H.loc = pick(prisonsecuritywarp)
+		prisonwarped += H

code/modules/admin/secrets/admin_secrets/show_law_changes.dm

@@ -2,7 +2,7 @@
 	name = "Show law changes"
 
 /datum/admin_secret_item/admin_secret/show_law_changes/name()
-	return "Show last [length(lawchanges)] law changes"
+	return "Show Last [length(lawchanges)] Law change\s"
 
 /datum/admin_secret_item/admin_secret/show_law_changes/execute(var/mob/user)
 	. = ..()

code/modules/admin/secrets/admin_secrets/show_signalers.dm

@@ -1,8 +1,8 @@
 /datum/admin_secret_item/admin_secret/show_signalers
-	name = "Show last signalers"
+	name = "Show Last Signalers"
 
 /datum/admin_secret_item/admin_secret/show_signalers/name()
-	return "Show last [length(lastsignalers)] signalers"
+	return "Show Last [length(lastsignalers)] Signaler\s"
 
 /datum/admin_secret_item/admin_secret/show_signalers/execute(var/mob/user)
 	. = ..()