Merge branch 'master' of https://github.com/PolarisSS13/Polaris into polaris-sync-2017-05-08

# Conflicts:
#	code/modules/mob/dead/observer/observer.dm
#	code/modules/mob/living/carbon/human/life.dm
#	code/modules/mob/mob_defines.dm
#	html/changelogs/.all_changelog.yml
#	vorestation.dme

code/_helpers/datum_pool.dm

@@ -1,110 +0,0 @@
-
-/*
-/tg/station13 /atom/movable Pool:
----------------------------------
-By RemieRichards
-
-Creation/Deletion is laggy, so let's reduce reuse and recycle!
-
-*/
-#define ATOM_POOL_COUNT 100
-// "define DEBUG_ATOM_POOL 1
-var/global/list/GlobalPool = list()
-
-//You'll be using this proc 90% of the time.
-//It grabs a type from the pool if it can
-//And if it can't, it creates one
-//The pool is flexible and will expand to fit
-//The new created atom when it eventually
-//Goes into the pool
-
-//Second argument can be a new location, if the type is /atom/movable
-//Or a list of arguments
-//Either way it gets passed to new
-
-/proc/PoolOrNew(var/get_type,var/second_arg)
-	var/datum/D
-	D = GetFromPool(get_type,second_arg)
-
-	if(!D)
-		// So the GC knows we're pooling this type.
-		if(!GlobalPool[get_type])
-			GlobalPool[get_type] = list()
-		if(islist(second_arg))
-			return new get_type (arglist(second_arg))
-		else
-			return new get_type (second_arg)
-	return D
-
-/proc/GetFromPool(var/get_type,var/second_arg)
-	if(isnull(GlobalPool[get_type]))
-		return 0
-
-	if(length(GlobalPool[get_type]) == 0)
-		return 0
-
-	var/datum/D = pick_n_take(GlobalPool[get_type])
-	if(D)
-		D.ResetVars()
-		D.Prepare(second_arg)
-		return D
-	return 0
-
-/proc/PlaceInPool(var/datum/D)
-	if(!istype(D))
-		return
-
-	if(length(GlobalPool[D.type]) > ATOM_POOL_COUNT)
-		#ifdef DEBUG_ATOM_POOL
-		world << text("DEBUG_DATUM_POOL: PlaceInPool([]) exceeds []. Discarding.", D.type, ATOM_POOL_COUNT)
-		#endif
-		if(garbage_collector)
-			garbage_collector.AddTrash(D)
-		else
-			del(D)
-		return
-
-	if(D in GlobalPool[D.type])
-		return
-
-	if(!GlobalPool[D.type])
-		GlobalPool[D.type] = list()
-
-	GlobalPool[D.type] += D
-
-	D.Destroy()
-	D.ResetVars()
-
-/proc/IsPooled(var/datum/D)
-	if(isnull(GlobalPool[D.type]))
-		return 0
-	return 1
-
-/datum/proc/Prepare(args)
-	if(islist(args))
-		New(arglist(args))
-	else
-		New(args)
-
-/atom/movable/Prepare(args)
-	var/list/args_list = args
-	if(istype(args_list) && args_list.len)
-		loc = args[1]
-	else
-		loc = args
-	..()
-
-/datum/proc/ResetVars(var/list/exlude = list())
-	var/list/excluded = list("animate_movement", "loc", "locs", "parent_type", "vars", "verbs", "type") + exlude
-
-	for(var/V in vars)
-		if(V in excluded)
-			continue
-
-		vars[V] = initial(vars[V])
-
-/atom/movable/ResetVars()
-	..()
-	vars["loc"] = null
-
-#undef ATOM_POOL_COUNT

code/_helpers/game.dm

@@ -284,7 +284,7 @@
 		if(M.loc && M.locs[1] in hearturfs)
 			mobs |= M
 
-		else if(M.stat == DEAD)
+		else if(M.stat == DEAD && !M.forbid_seeing_deadchat)
 			switch(type)
 				if(1) //Audio messages use ghost_ears
 					if(M.is_preference_enabled(/datum/client_preference/ghost_ears))