Tension Report

Adding a reporting function, available in the debug menu, which tracks some crude statistics for the current round and attempts to estimate the round's current level of stuff happening (or lack thereof) for more consistent and focused badminnery.

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

code/modules/admin/verbs/diagnostics.dm

@@ -193,4 +193,30 @@
 				dead_groups += group
 		var/datum/air_group/dest_group = pick(dead_groups)
 		usr.loc = pick(dest_group.members)
-		return
+		return
+
+	tension_report()
+		set category = "Debug"
+		set name = "Show Tension Report"
+
+		if(!master_controller || !tension_master)
+			alert(usr,"Master_controller or tension_master not found.","Tension Report")
+			return 0
+
+		if (!tension_master.get_num_players())
+			alert(usr,"No players found.  How the fuck are you calling this?","Tension Report")
+			return 0
+
+		var/output = {"<B>TENSION REPORT</B><HR>
+<B>General Statistics</B><BR>
+<B>Deaths:</B> [tension_master.deaths]<BR>
+---- <I>Humans:</I> [tension_master.human_deaths]<BR>
+<B>Explosions:</B> [tension_master.explosions]<BR>
+<BR>
+<B>Current Status</B><BR>
+<B>Tension:</B> [tension_master.score]<BR>
+<B>Tension per player:</B> [tension_master.score/tension_master.get_num_players()]<BR>
+<B>Recommendations:</B> not yet implemented<BR>
+"}
+
+		usr << browse(output,"window=tensionreport")