From 755b282d83695ccce3dc9d0fd8397898d5fa267f Mon Sep 17 00:00:00 2001
From: "baloh.matevz" <baloh.matevz@316c924e-a436-60f5-8080-3fe189b3f50e>
Date: Sun, 6 Mar 2011 00:43:16 +0000
Subject: [PATCH] NEW DEBUG TOOL: - A mapping debug proc which overlays the map
 where the areas where intercoms can listen. NOT FOR INGAME USE! It is also
 rather processor heavy and will take about 5s or so to process everything.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@1162 316c924e-a436-60f5-8080-3fe189b3f50e
---
 code/modules/admin/admin_verbs.dm   |  6 +++--
 code/modules/admin/verbs/mapping.dm | 34 +++++++++++++++++++++++++++--
 2 files changed, 36 insertions(+), 4 deletions(-)

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