12/21 modernizations from TG live (#103)

* sync (#3)

* shuttle auto call

* Merge /vore into /master (#39)

* progress

* Compile errors fixed

No idea if it's test worthy tho as conflicts with race overhaul and
narky removal.

* Update admins.txt

* efforts continue

Fuck grab code, seriously

* grab code is cancer

* Execute the Narkism

Do not hesitate.

Show no mercy.

* holy shit grab code is awful

* have I bitched about grab code

My bitching, let me show you it

* código de agarre es una mierda

No really it is

* yeah I don't even know anymore.

* Lolnope. Fuck grab code

* I'm not even sure what to fix anymore

* Self eating is not an acceptable fate

* Taste the void, son.

* My code doesn't pass it's own sanity check.

Maybe it's a sign of things to come.

* uncommented and notes

* It Works and I Don't Know Why (#38)

* shuttle auto call

* it works and I don't know why

* Subsystem 12/21

Most Recent TG subsystem folder

* globalvars 12/21

Tossed out the flavor_misc and parallax files

* Onclick 12/21

as well as .dme updates

* _defines 12/21

ommited old _MC.dm

* _HELPERS 12/21

Preserved snowflake placement of furry sprites

* _defeines/genetics

reapplied narkism holdover for snowflake races.

* Oops forgot mutant colors

* modules porting 12/21 + Sounds/icons

Admin, Client and most of mob life files ommitted

* enviroment file

* Admin optimizations

ahelp log system kept

* Mob ports 12/21

Flavor text preserved

* datums ported 12/21

* Game ported 12/21

* batch of duplicate fixes/dogborg work

Dogborgs need to be modernized to refractored borg standards.

* moar fixes

* Maps and futher compile fixes

code/game/pooling/pool.dm

@@ -23,8 +23,6 @@ For almost all pooling purposes, it is better to use the QDEL hint than to pool
 
 */
 
-#define MAINTAINING_OBJECT_POOL_COUNT 500
-
 var/global/list/GlobalPool = list()
 
 //You'll be using this proc 90% of the time.
@@ -42,14 +40,22 @@ var/global/list/GlobalPool = list()
 	if(!get_type)
 		return
 
+	if(SSpool)
+		INCREMENT_TALLY(SSpool.stats_pooled_or_newed, get_type)
+
 	. = GetFromPool(get_type,second_arg)
 
 	if(!.)
+		if(SSpool)
+			INCREMENT_TALLY(SSpool.stats_created_new, get_type)
 		if(ispath(get_type))
 			if(islist(second_arg))
 				. = new get_type (arglist(second_arg))
 			else
 				. = new get_type (second_arg)
+	else
+		if(SSpool)
+			INCREMENT_TALLY(SSpool.stats_reused, get_type)
 
 
 /proc/GetFromPool(get_type,second_arg)
@@ -90,6 +96,9 @@ var/global/list/GlobalPool = list()
 	if(diver in GlobalPool[diver.type])
 		return
 
+	if(SSpool)
+		INCREMENT_TALLY(SSpool.stats_placed_in_pool, diver.type)
+
 	if(!GlobalPool[diver.type])
 		GlobalPool[diver.type] = list()
 
@@ -135,33 +144,3 @@ var/list/pooledvariables = list()
 /image/ResetVars()
 	..()
 	loc = null
-
-/proc/returnToPool(const/datum/D)
-	ASSERT(D)
-
-	if(istype(D, /atom/movable) && length(GlobalPool[D.type]) > MAINTAINING_OBJECT_POOL_COUNT)
-		#ifdef DEBUG_DATUM_POOL
-		to_chat(world, text("DEBUG_DATUM_POOL: returnToPool([]) exceeds [] discarding...", D.type, MAINTAINING_OBJECT_POOL_COUNT))
-		#endif
-
-		qdel(D)
-		return
-
-	if(isnull(GlobalPool[D.type]))
-		GlobalPool[D.type] = list()
-
-	D.Destroy()
-	D.ResetVars()
-
-	#ifdef DEBUG_DATUM_POOL
-	if(D in GlobalPool[D.type])
-		to_chat(world, text("returnToPool has been called twice for the same datum of type [] time to panic.", D.type))
-	#endif
-
-	GlobalPool[D.type] |= D
-
-	#ifdef DEBUG_DATUM_POOL
-	to_chat(world, text("DEBUG_DATUM_POOL: returnToPool([]) [] left.", D.type, length(GlobalPool[D.type])))
-	#endif
-
-#undef MAINTAINING_OBJECT_POOL_COUNT