diff --git a/code/modules/admin/admin_verbs.dm b/code/modules/admin/admin_verbs.dm
index 0c76c31a823..15f93c6c9bf 100644
--- a/code/modules/admin/admin_verbs.dm
+++ b/code/modules/admin/admin_verbs.dm
@@ -87,8 +87,10 @@
 			src.verbs += /obj/admins/proc/toggletintedweldhelmets
 
 			// Mapping helpers
-			src.verbs += /client/proc/camera_view
-			src.verbs += /client/proc/sec_camera_report
+			src.verbs += /client/proc/do_not_use_these 			//-errorage
+			src.verbs += /client/proc/camera_view 				//-errorage
+			src.verbs += /client/proc/sec_camera_report 		//-errorage
+			src.verbs += /client/proc/intercom_view 			//-errorage
 
 			// Admin helpers
 			src.verbs += /client/proc/cmd_admin_attack_log
diff --git a/code/modules/admin/verbs/mapping.dm b/code/modules/admin/verbs/mapping.dm
index f8570b0fb30..473201be71c 100644
--- a/code/modules/admin/verbs/mapping.dm
+++ b/code/modules/admin/verbs/mapping.dm
@@ -20,6 +20,7 @@
 //- Check if the area has too much empty space. If so, make it smaller and replace the rest with maintenance tunnels.
 
 var/camera_range_display_status = 0
+var/intercom_range_display_status = 0
 
 /obj/debugging/camera_range
 	icon = '480x480.dmi'
@@ -29,8 +30,18 @@ var/camera_range_display_status = 0
 		src.pixel_x = -224
 		src.pixel_y = -224
 
+/obj/debugging/marker
+	icon = 'areas.dmi'
+	icon_state = "yellow"
+
 /client/proc
 
+	do_not_use_these()
+		set category = "Mapping"
+		set name = "-None of these are for ingame use!!"
+
+		..()
+
 	camera_view()
 		set category = "Mapping"
 		set name = "Camera Range Display"
@@ -56,7 +67,7 @@ var/camera_range_display_status = 0
 		set name = "Sec Camera Report"
 
 		if(!master_controller)
-			alert(usr,"Master_controller not found.","Air Report")
+			alert(usr,"Master_controller not found.","Sec Camera Report")
 			return 0
 
 		var/list/obj/machinery/camera/CL = list()
@@ -78,4 +89,23 @@ var/camera_range_display_status = 0
 						output += "<li>overlapping sec. cameras at \[[C1.x], [C1.y], [C1.z]\] ([C1.loc.loc]) Networks: [C1.network] and [C2.network]</font></li>"
 
 		output += "</ul>"
-		usr << browse(output,"window=airreport;size=1000x500")
\ No newline at end of file
+		usr << browse(output,"window=airreport;size=1000x500")
+
+	intercom_view()
+		set category = "Mapping"
+		set name = "Intercom Range Display"
+
+		if(intercom_range_display_status)
+			intercom_range_display_status = 0
+		else
+			intercom_range_display_status = 1
+
+		for(var/obj/debugging/marker/M in world)
+			del(M)
+
+		if(intercom_range_display_status)
+			for(var/obj/item/device/radio/intercom/I in world)
+				for(var/turf/T in orange(7,I))
+					var/obj/debugging/marker/F = new/obj/debugging/marker(T)
+					if (!(F in view(7,I.loc)))
+						del(F)
\ No newline at end of file