Added Set Pose verb.

Sort of passive emote, which is seen when mob is examined.

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

@@ -18,3 +18,5 @@
 	var/obj/item/legcuffed = null  //Same as handcuffs but for legs. Bear traps use this.
 	//Surgery info
 	var/datum/surgery_status/op_stage = new/datum/surgery_status
+	//Active emote/pose
+	var/pose = null

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

@@ -589,3 +589,17 @@
 			for (var/mob/O in (hearers(src.loc, null) | get_mobs_in_view(world.view,src)))
 				O.show_message(message, m_type)
 
+
+/mob/living/carbon/human/verb/pose()
+	set name = "Set pose"
+	set desc = "Sets description which will be shown when someone examines you"
+	set category = "IC"
+
+	var/t_he = "It"
+	switch(gender)
+		if(MALE)
+			t_he = "He"
+		if(FEMALE)
+			t_he = "She"
+	var/n_pose = copytext(sanitize(input(usr, "This is [src]. [t_he] is...", "Pose", null)  as text), 1, MAX_MESSAGE_LEN)
+	pose = n_pose;

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

@@ -60,6 +60,8 @@
 				t_him = "her"
 
 	msg += "<EM>[src.name]</EM>!\n"
+	if (pose)
+		msg += "[t_He] is [pose].\n"
 
 	//uniform
 	if(w_uniform && !skipjumpsuit)