Debug admin verb: Pump Random Event (#25202)

Forces the event subsystem to make a new random event when it next
fires. (Most of the time this will be space dust.)

Used for testing the random event systems.

code/modules/admin/admin_verbs.dm

@@ -153,7 +153,8 @@ var/list/admin_verbs_debug = list(
 	/client/proc/jump_to_ruin,
 	/client/proc/clear_dynamic_transit,
 	/client/proc/toggle_medal_disable,
-	/client/proc/view_runtimes
+	/client/proc/view_runtimes,
+	/client/proc/pump_random_event
 	)
 var/list/admin_verbs_possess = list(
 	/proc/possess,

code/modules/admin/verbs/debug.dm

@@ -771,4 +771,17 @@ var/list/TYPES_SHORTCUTS = list(
 	if(!holder)
 		return
 
-	error_cache.show_to(src)
+	error_cache.show_to(src)
+
+/client/proc/pump_random_event()
+	set category = "Debug"
+	set name = "Pump Random Event"
+	set desc = "Schedules the event subsystem to fire a new random event immediately. Some events may fire without notification."
+	if(!holder)
+		return
+
+	SSevent.scheduled = world.time
+
+	message_admins("<span class='adminnotice'>[key_name_admin(src)] pumped a random event.</span>")
+	feedback_add_details("admin_verb","PRE")
+	log_admin("[key_name(src)] pumped a random event.")