A sound will now play when admins receive adminhelps. By default this is disabled, but any admin can enable it by using the 'toggle adminhelp sound' verb. Note that it will revert to not hearing sounds when a new round starts.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@2286 316c924e-a436-60f5-8080-3fe189b3f50e

code/defines/client.dm

@@ -32,8 +32,9 @@
 	var/karma = 0
 	var/karma_spent = 0
 
-	var/STFU_ghosts		//80+ rounds are fun to admin when text flies faster than airport security
-	var/STFU_radio		//80+ rounds are fun to admin when text flies faster than airport security
+	var/STFU_ghosts		//80+ people rounds are fun to admin when text flies faster than airport security
+	var/STFU_radio		//80+ people rounds are fun to admin when text flies faster than airport security
+	var/sound_adminhelp = 0 //If set to 1 this will play a sound when adminhelps are received.
 
 	var/midis = 1 //Check if midis should be played for someone -- Urist
 	var/bubbles = 1 //Check if bubbles should be displayed for someone -- Doohl

code/modules/admin/admin_verbs.dm

@@ -189,6 +189,7 @@
 			//verbs += /client/proc/cmd_admin_gib --View vars menu
 			verbs += /client/proc/cmd_admin_delete
 			//verbs += /proc/togglebuildmode --now in view vars
+			verbs += /client/proc/toggleadminhelpsound
 			verbs += /client/proc/togglebuildmodeself
 			verbs += /client/proc/hide_most_verbs
 
@@ -324,6 +325,7 @@
 	//verbs -= /client/proc/cmd_admin_gib --view vars menu
 	verbs -= /client/proc/cmd_admin_delete
 	//verbs -= /proc/togglebuildmode --now in view vars
+	verbs -= /client/proc/toggleadminhelpsound
 	verbs -= /client/proc/togglebuildmodeself
 	verbs -= /client/proc/cmd_admin_remove_plasma
 	verbs -= /client/proc/admin_call_shuttle
@@ -581,6 +583,15 @@
 	if(src.mob)
 		togglebuildmode(src.mob)
 
+/client/proc/toggleadminhelpsound()
+	set name = "Toggle Adminhelp Sound"
+	set category = "Admin"
+	sound_adminhelp = !sound_adminhelp
+	if(sound_adminhelp)
+		usr << "You will now hear a sound when adminhelps arrive"
+	else
+		usr << "You will no longer hear a sound when adminhelps arrive"
+
 /client/proc/object_talk(var/msg as text) // -- TLE
 	set category = "Special Verbs"
 	set name = "oSay"
@@ -670,6 +681,7 @@
 	verbs += /client/proc/deadchat					//toggles deadchat
 	verbs += /obj/admins/proc/toggleooc				//toggle ooc
 	verbs += /client/proc/cmd_admin_say//asay
+	verbs += /client/proc/toggleadminhelpsound
 	return
 
 

code/modules/admin/verbs/adminhelp.dm

@@ -15,6 +15,8 @@
 
 	for (var/mob/M in world)
 		if (M.client && M.client.holder)
+			if(M.client.sound_adminhelp)
+				M << 'adminhelp.ogg'
 			M << "\blue <b><font color=red>HELP: </font>[key_name(src, M)] (<A HREF='?src=\ref[M.client.holder];adminplayeropts=\ref[src]'>PP</A>) (<A HREF='?src=\ref[M.client.holder];adminplayervars=\ref[src]'>VV</A>) (<A HREF='?src=\ref[M.client.holder];adminplayersubtlemessage=\ref[src]'>SM</A>) (<A HREF='?src=\ref[M.client.holder];adminplayerobservejump=\ref[src]'>JMP</A>) (<A HREF='?src=\ref[M.client.holder];secretsadmin=check_antagonist'>CA</A>):</b> [msg]"
 
 	usr << "Your message has been broadcast to administrators."