Makes the event HUD work

*Finishes up the partially-implemented event HUD (The one the event pref in the VORE character setup tab is for) and adds a verb to let event managers give it to people (can be used by right-clicking them, or from the "Fun" verb tab.
Tested.

code/modules/admin/admin_verb_lists_vr.dm

@@ -393,6 +393,7 @@ var/list/admin_verbs_mod = list(
 )
 
 var/list/admin_verbs_event_manager = list(
+	/client/proc/toggle_vantag_hud,
 	/client/proc/cmd_event_say,
 	/client/proc/cmd_admin_pm_context,
 	/client/proc/cmd_admin_pm_panel,

code/modules/admin/verbs/randomverbs_vr.dm

@@ -97,3 +97,20 @@
 	log_admin("ZNarrate: [key_name(usr)] : [msg]")
 	message_admins("<font color='blue'><B> ZNarrate: [key_name_admin(usr)] : [msg]<BR></B></font>", 1)
 	feedback_add_details("admin_verb","GLNA") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!
+
+/client/proc/toggle_vantag_hud(var/mob/target as mob)
+	set category = "Fun"
+	set name = "Give/Remove Event HUD"
+	set desc = "Give a mob the event hud, which shows them other people's event preferences, or remove it from them"
+
+	if(target.vantag_hud)
+		target.vantag_hud = FALSE
+		target.recalculate_vis()
+		to_chat(src, "You removed the event HUD from [key_name(target)].")
+		to_chat(target, "You no longer have the event HUD.")	
+	else
+		target.vantag_hud = TRUE
+		target.recalculate_vis()
+		to_chat(src, "You gave the event HUD to [key_name(target)].")
+		to_chat(target, "You now have the event HUD.  Icons will appear next to characters indicating if they prefer to be killed(red crosshairs), devoured(belly), or kidnapped(blue crosshairs) by event characters.")	
+	feedback_add_details("admin_verb","GREHud") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!