TG: View variables now properly displays the contents of an associative list (ie

stuff like list("ballnumber" = 2)).

Changed around a few access levels; only jobs who need to do maintenance have
access to maintenance tunnels. Also the heads and detective.

Removed the radio mode toggle verb, as telecomms has long left the
"experimental" stage.

Messed with sec huds. Their readings are far more reliable. Officers can now use
huds to modify humans' criminal statuses on the go. To do this, simply examine a
human and at the end should be a clickable link to change the status. Uses
/mob/living/carbon/human/Topic().

Added some new sprites from the forums, including those spider sprites and the
new, more feline-looking cat.

Dat changelog
Revision: r3383
Author: 	 vageyenaman

code/modules/admin/admin_verbs.dm

@@ -265,6 +265,7 @@
 			//verbs += /client/proc/cmd_admin_emp						--Merged with view variables
 			//verbs += /client/proc/give_spell 							--Merged with view variables
 			//verbs += /client/proc/cmd_admin_ninjafy					--Merged with view variables
+			//verbs += /client/proc/cmd_switch_radio					--removed as tcommsat is staying
 			// Moved over from tg's Game Master:
 			verbs += /obj/admins/proc/toggle_aliens			//toggle aliens
 			verbs += /obj/admins/proc/toggle_space_ninja	//toggle ninjas

code/modules/clothing/glasses/hud.dm

@@ -5,6 +5,7 @@
 	origin_tech = "magnets=3;biotech=2"
 	var
 		list/icon/current = list() //the current hud icons
+
 	proc
 		process_hud(var/mob/M)	return
 
@@ -88,25 +89,28 @@
 		var/client/C = M.client
 		var/icon/tempHud = 'hud.dmi'
 		for(var/mob/living/carbon/human/perp in view(M))
+			if(!C) continue
+			var/perpname = "wot"
 			if(perp.wear_id)
 				C.images += image(tempHud,perp,"hud[ckey(perp:wear_id:GetJobName())]")
-				var/perpname = "wot"
 				if(istype(perp.wear_id,/obj/item/weapon/card/id))
 					perpname = perp.wear_id:registered_name
 				else if(istype(perp.wear_id,/obj/item/device/pda))
 					var/obj/item/device/pda/tempPda = perp.wear_id
 					perpname = tempPda.owner
-				for (var/datum/data/record/E in data_core.general)
-					if (E.fields["name"] == perpname)
-						for (var/datum/data/record/R in data_core.security)
-							if ((R.fields["id"] == E.fields["id"]) && (R.fields["criminal"] == "*Arrest*"))
-								C.images += image(tempHud,perp,"hudwanted")
-								break
-							else if((R.fields["id"] == E.fields["id"]) && (R.fields["criminal"] == "Incarcerated"))
-								C.images += image(tempHud,perp,"hudprisoner")
-								break
 			else
+				perpname = perp.name
 				C.images += image(tempHud,perp,"hudunknown")
+
+			for (var/datum/data/record/E in data_core.general)
+				if (E.fields["name"] == perpname)
+					for (var/datum/data/record/R in data_core.security)
+						if ((R.fields["id"] == E.fields["id"]) && (R.fields["criminal"] == "*Arrest*"))
+							C.images += image(tempHud,perp,"hudwanted")
+							break
+						else if((R.fields["id"] == E.fields["id"]) && (R.fields["criminal"] == "Incarcerated"))
+							C.images += image(tempHud,perp,"hudprisoner")
+							break
 			for(var/named in perp.organs)
 				var/datum/organ/external/E = perp.organs[named]
 				for(var/obj/item/weapon/implant/I in E.implant)
@@ -116,3 +120,4 @@
 						if(istype(I,/obj/item/weapon/implant/loyalty))
 							C.images += image(tempHud,perp,"hud_imp_loyal")
 
+

code/modules/mob/living/carbon/human/examine.dm

@@ -524,6 +524,31 @@
 //			usr << "\red [src.name] is bleeding from a [sizetext] on [t_his] [temp.display_name]."
 //			continue
 
+	if(istype(usr, /mob/living/carbon/human))
+		var/mob/living/carbon/human/H = usr
+		if(istype(H.glasses, /obj/item/clothing/glasses/hud/security) || istype(H.glasses, /obj/item/clothing/glasses/sunglasses/sechud))
+			var/perpname = "wot"
+			var/criminal = "None"
+
+			if(wear_id)
+				if(istype(wear_id,/obj/item/weapon/card/id))
+					perpname = wear_id:registered_name
+				else if(istype(wear_id,/obj/item/device/pda))
+					var/obj/item/device/pda/tempPda = wear_id
+					perpname = tempPda.owner
+			else
+				perpname = src.name
+
+			for (var/datum/data/record/E in data_core.general)
+				if (E.fields["name"] == perpname)
+					for (var/datum/data/record/R in data_core.security)
+						if (R.fields["id"] == E.fields["id"])
+							criminal = R.fields["criminal"]
+
+
+			msg += "<span class = 'deptradio'>Criminal status:</span> <a href='?src=\ref[src];criminal=1'>\[[criminal]\]</a>\n"
+			//msg += "\[Set Hostile Identification\]\n"
+
 	if(print_flavor_text()) msg += "[print_flavor_text()]\n"
 
 	msg += "\blue *---------*"

code/modules/mob/living/carbon/human/human.dm

@@ -2582,6 +2582,40 @@ It can still be worn/put on as normal.
 		spawn( 0 )
 			O.process()
 			return
+
+	if (href_list["criminal"])
+		if(istype(usr, /mob/living/carbon/human))
+			var/mob/living/carbon/human/H = usr
+			if(istype(H.glasses, /obj/item/clothing/glasses/hud/security) || istype(H.glasses, /obj/item/clothing/glasses/sunglasses/sechud))
+				var/perpname = "wot"
+				var/modified = 0
+
+				if(wear_id)
+					if(istype(wear_id,/obj/item/weapon/card/id))
+						perpname = wear_id:registered_name
+					else if(istype(wear_id,/obj/item/device/pda))
+						var/obj/item/device/pda/tempPda = wear_id
+						perpname = tempPda.owner
+				else
+					perpname = src.name
+
+				for (var/datum/data/record/E in data_core.general)
+					if (E.fields["name"] == perpname)
+						for (var/datum/data/record/R in data_core.security)
+							if (R.fields["id"] == E.fields["id"])
+
+								var/setcriminal = input(usr, "Specify a new criminal status for this person.", "Security HUD", R.fields["criminal"]) in list("None", "*Arrest*", "Incarcerated", "Parolled", "Released", "Cancel")
+
+								if(istype(H.glasses, /obj/item/clothing/glasses/hud/security) || istype(H.glasses, /obj/item/clothing/glasses/sunglasses/sechud))
+									if(setcriminal != "Cancel")
+										R.fields["criminal"] = setcriminal
+										modified = 1
+
+										spawn()
+											H.handle_regular_hud_updates()
+
+				if(!modified)
+					usr << "\red Unable to locate a data core entry for this person."
 	..()
 	return