Pens now write on people, Harm intent to stab them like the old way.

Washable at showers.

hyperstation/code/modules/pen.dm

@@ -0,0 +1,45 @@
+/obj/item/pen/attack(mob/living/M, mob/user,stealth)
+	if(!istype(M))
+		return
+
+	if(!force)
+		if(M.can_inject(user, 1))
+			if(user.a_intent == "harm") //old poke requires harm intent.
+				to_chat(user, "<span class='warning'>You stab [M] with the pen.</span>")
+				if(!stealth)
+					to_chat(M, "<span class='danger'>You feel a tiny prick!</span>")
+				. = 1
+
+			else //writing time
+				var/mob/living/carbon/human/T = M
+				if(!T) //not human.
+					return
+				if(!T.is_chest_exposed())
+					to_chat(user, "<span class='warning'>You cannot write on someone with their clothes on.</span>")
+					return
+
+				var/writting = input(user, "Add writing, doesn't replace current text", "Writing on [T]")  as text|null
+				if(!writting)
+					return
+
+				var/obj/item/bodypart/BP = T.get_bodypart(user.zone_selected)
+
+				if(!(user==T))
+					src.visible_message("<span class='notice'>[user] begins to write on [T]'s [BP.name].</span>")
+				else
+					to_chat(user, "<span class='notice'>You begin to write on your [BP.name].</span>")
+
+				if(do_mob(user, T, 4 SECONDS))
+					if((length(BP.writtentext))+(length(writting)) < 100) //100 character limmit to stop spamming.
+						BP.writtentext += html_encode(writting) //you can add to text, not remove it.
+					else
+						to_chat(user, "<span class='notice'>There isnt enough space to write that on [T]'s [BP.name].</span>")
+						return
+
+				if(!(user==T))
+					to_chat(user, "<span class='notice'>You write on [T]'s [BP.name].</span>")
+				else
+					to_chat(user, "<span class='notice'>You write on your [BP.name].</span>")
+	else
+		. = ..()
+