Merge pull request #5025 from Incoming5643/summoneventfixerspecialer

Hopefully the final pass of initial tweaks and fixes for summon events

code/modules/admin/admin.dm

@@ -444,6 +444,7 @@ var/global/floorIsLava = 0
 			<A href='?src=\ref[src];secretsfun=traitor_all'>Everyone is the traitor</A><BR>
 			<A href='?src=\ref[src];secretsfun=guns'>Summon Guns</A><BR>
 			<A href='?src=\ref[src];secretsfun=magic'>Summon Magic</A><BR>
+			<A href='?src=\ref[src];secretsfun=events'>Summon Events (Toggle)</A><BR>
 			<A href='?src=\ref[src];secretsfun=onlyone'>There can only be one!</A><BR>
 			<A href='?src=\ref[src];secretsfun=retardify'>Make all players retarded</A><BR>
 			<A href='?src=\ref[src];secretsfun=eagles'>Egalitarian Station Mode</A><BR>

code/modules/admin/topic.dm

@@ -1853,6 +1853,22 @@
 				feedback_inc("admin_secrets_fun_used",1)
 				feedback_add_details("admin_secrets_fun_used","SM")
 				rightandwrong(1, usr)
+			if("events")
+				if(events && !events.wizardmode)
+					if(alert("Do you want to toggle summon events on?",,"Yes","No") == "Yes")
+						summonevents()
+						feedback_inc("admin_secrets_fun_used",1)
+						feedback_add_details("admin_secrets_fun_used","SE")
+
+				else if(events && events.wizardmode)
+					switch(alert("What would you like to do?",,"Intensify Summon Events","Turn Off Summon Events","Nothing"))
+						if("Intensify Summon Events")
+							summonevents()
+							feedback_inc("admin_secrets_fun_used",1)
+							feedback_add_details("admin_secrets_fun_used","SE")
+						if("Turn Off Summon Events")
+							events.toggleWizardmode()
+							events.resetFrequency()
 			if("dorf")
 				feedback_inc("admin_secrets_fun_used",1)
 				feedback_add_details("admin_secrets_fun_used","DF")