Fixes #4166 (#4171)

What the title says.
Also, fixes a minor issue with ghost traps.

code/modules/ghosttrap/trap.dm

@@ -394,7 +394,7 @@ datum/ghosttrap/pai/transfer_personality(var/mob/candidate, var/mob/living/silic
 	object = "Vampire"
 	pref_check = MODE_VAMPIRE
 	ghost_trap_message = "They are occupying a vampire."
-	ghost_trap_role = "vampire"
+	ghost_trap_role = "Vampire"
 	ban_checks = list(MODE_VAMPIRE)
 	can_set_own_name = FALSE
 	list_as_special_role = FALSE
@@ -417,7 +417,7 @@ datum/ghosttrap/pai/transfer_personality(var/mob/candidate, var/mob/living/silic
 /datum/ghosttrap/brainwashed
 	object = "split personality"
 	ghost_trap_message = "They are a split personality now."
-	ghost_trap_role = "pAI"
+	ghost_trap_role = "split personality"
 	can_set_own_name = TRUE
 	list_as_special_role = TRUE
 
@@ -427,7 +427,7 @@ datum/ghosttrap/pai/transfer_personality(var/mob/candidate, var/mob/living/silic
 /datum/ghosttrap/friend
 	object = "friend"
 	ghost_trap_message = "They are an imaginary friend now."
-	ghost_trap_role = "pAI"
+	ghost_trap_role = "imaginary friend"
 	can_set_own_name = TRUE
 	list_as_special_role = TRUE
 

code/modules/holodeck/HolodeckControl.dm

@@ -180,6 +180,10 @@
 			if (get_area(C.loc) != linkedholodeck)
 				holographic_mobs -= C
 				C.derez()
+		for(var/mob/living/simple_animal/penguin/holodeck/P in holographic_mobs)
+			if (get_area(P.loc) != linkedholodeck)
+				holographic_mobs -= P
+				P.derez()
 
 	if(inoperable())
 		return
@@ -266,6 +270,10 @@
 		holographic_mobs -= C
 		C.derez()
 
+	for(var/mob/living/simple_animal/penguin/holodeck/P in holographic_mobs)
+		holographic_mobs -= P
+		P.derez()
+
 	for(var/obj/effect/decal/cleanable/blood/B in linkedholodeck)
 		qdel(B)