Marker obj and door opening for simple animals (currently only necromorphs)

code/game/machinery/doors/door.dm

@@ -114,6 +114,10 @@ var/list/all_doors = list()
 
 	if(allowed(user))
 		open()
+	else if(isanimal(user))
+		var/mob/living/simple_animal/SA = user
+		if(SA.can_open_doors)
+			open()
 	else if(!operating)
 		playsound(src.loc, 'sound/machines/denied.ogg', 50, 1)
 		door_animate("deny")
@@ -129,6 +133,9 @@ var/list/all_doors = list()
 	attack_hand(user)
 	return
 
+/obj/machinery/door/attack_animal(mob/user as mob)
+	attack_hand(user)
+
 /obj/machinery/door/attack_hand(mob/user as mob)
 	if (prob(HEADBUTT_PROBABILITY) && density && ishuman(user))
 		var/mob/living/carbon/human/H = user
@@ -181,6 +188,10 @@ var/list/all_doors = list()
 			return close()
 		else
 			return open()
+	else if(isanimal(user))
+		var/mob/living/simple_animal/SA = user
+		if(SA.can_open_doors)
+			open()
 
 	playsound(src.loc, 'sound/machines/denied.ogg', 50, 1)
 	if(density) //Why are we playing a denied animation on an OPEN DOOR

code/game/machinery/doors/firedoor.dm

@@ -216,6 +216,9 @@ var/global/list/alert_overlays_global = list()
 /obj/machinery/door/firedoor/attack_hand(mob/user as mob)
 	return attackby(null, user)
 
+/obj/machinery/door/firedoor/attack_animal(mob/user as mob)
+	return attackby(null, user)
+
 /obj/machinery/door/firedoor/attackby(obj/item/weapon/C as obj, mob/user as mob)
 	add_fingerprint(user)
 	if(operating)
@@ -267,9 +270,6 @@ var/global/list/alert_overlays_global = list()
 		if(check_access(ID))
 			access_granted = 1
 
-	var/answer = "Yes"
-	if(answer == "No")
-		return
 	if(user.locked_to)
 		if(!istype(user.locked_to, /obj/structure/bed/chair/vehicle))
 			to_chat(user, "Sorry, you must remain able bodied and close to \the [src] in order to use it.")
@@ -278,6 +278,11 @@ var/global/list/alert_overlays_global = list()
 		to_chat(user, "Sorry, you must remain able bodied and close to \the [src] in order to use it.")
 		return
 
+	if(isanimal(user))
+		var/mob/living/simple_animal/SA = user
+		if(SA.can_open_doors)
+			access_granted = 1
+
 	if(alarmed && density && lockdown && !access_granted/* && !( users_name in users_to_open ) */)
 		// Too many shitters on /vg/ for the honor system to work.
 		to_chat(user, "<span class='warning'>Access denied. Please wait for authorities to arrive, or for the alert to clear.</span>")

code/modules/mob/living/simple_animal/hostile/necro.dm

@@ -78,6 +78,7 @@
 	minbodytemp = 0
 
 	environment_smash = 1
+	can_open_doors = 1
 
 /mob/living/simple_animal/hostile/necro/New(loc, mob/living/Owner, datum/mind/Controller)
 	..()

code/modules/mob/living/simple_animal/simple_animal.dm

@@ -94,6 +94,8 @@ var/global/list/animal_count = list() //Stores types, and amount of animals of t
 	var/life_tick = 0
 	var/list/colourmatrix = list()
 
+	var/can_open_doors = 0
+
 /mob/living/simple_animal/apply_beam_damage(var/obj/effect/beam/B)
 	var/lastcheck=last_beamchecks["\ref[B]"]
 
@@ -720,4 +722,4 @@ var/global/list/animal_count = list() //Stores types, and amount of animals of t
 	src.revive()
 	visible_message("<span class='warning'>[src] appears to wake from the dead, having healed all wounds.</span>")
 
-/datum/locking_category/simple_animal
+/datum/locking_category/simple_animal

code/modules/research/xenoarchaeology/artifact/artifact_xenomarker.dm

@@ -0,0 +1,59 @@
+#define NECROMARKER_MIN_WHISPER_INTERVAL 200
+#define NECROMARKER_MAX_WHISPER_INTERVAL 450
+/obj/machinery/necromarker
+    name = "mysterious sculpture"
+    desc = "A mysterious scultpure of spiral spines, covered in runes."
+    icon = 'icons/xenoarch_icons/necromarker.dmi'
+    icon_state = "black"
+    density = 1
+
+    var/ticks_not_whispered = 0
+    var/next_whisper = 300
+    var/whispers = list("...bring me flesh...", "...make us whole...", "...we must be whole...", "...join us in unity...", "...one mind, one soul, one flesh...", "...MAKE US WHOLE...")
+
+    machine_flags = WRENCHMOVE
+
+/obj/machinery/necromarker/New()
+    . = ..()
+
+/obj/machinery/necromarker/MouseDrop_T(mob/M as mob, mob/user as mob)
+    if(!istype(M))
+        return
+    if(Adjacent(user))
+        Consume(M)
+
+/obj/machinery/necromarker/Consume(mob/M as mob, mob/user as mob)
+    if(anchored && ismob(M) && Adjacent(M))
+        M.forceMove(src.loc)
+        var/mob/living/simple_animal/hostile/necro/zombie/Z = new(src.loc)
+        if(M.ckey)
+            Z.ckey = M.ckey
+        visible_message("<span class='warning'>[src] spins the flesh and bone of [M] into a hellish monstrosity!</span>")
+        M.gib()
+        if(user)
+            message_admins("[user]/[user.ckey] forcefully turned [M]/[M.ckey] into a necromorph. (<A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[loc.x];Y=[loc.y];Z=[loc.z]'>JMP</A>)")
+            log_game("[user]/[user.ckey] forcefully turned [M]/[M.ckey] into a necromorph.")
+        else
+            message_admins("[M]/[M.ckey] turned into a necromorph via a marker. (<A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[loc.x];Y=[loc.y];Z=[loc.z]'>JMP</A>)")
+            log_game("[M]/[M.ckey] turned into a necromorph.")
+
+/obj/machinery/necromarker/WrenchAnchor(var/mob/user)
+    . = ..()
+    if(anchored)
+        icon_state = "red"
+        visible_message("<span class='warning'>[src] begins to glow an ominous shade of red...</span>")
+    if(!anchored)
+        icon_state = "black"
+        visible_message("<span class='info'>[src]'s glow slowly diminishes.'</span>")
+
+/obj/machinery/necromarker/attack_hand(mob/user)
+    if(Adjacent(user) && !isghost(user))
+        Consume(user)
+
+/obj/machinery/auto_cloner/process()
+    if(ticks_not_whispered > next_whisper)
+        ticks_not_whispered = 0
+        visible_message("[pick(whispers)]")
+        next_whisper = rand(NECROMARKER_MIN_WHISPER_INTERVAL, NECROMARKER_MAX_WHISPER_INTERVAL)
+    else
+        ticks_not_whispered++