/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
		. = ..()