Glorious /vg/ Lighting Port (#66)

* fuck

* [CANT WAKE UP]

* AAAAAAAAAHHHHHHHHHHHH

* SAAAAVE MEEEEEEEEEEEEEEEE

* this is so bad how can i even call myself a coder

* thanks fam

* hello darkness my old friend

i've come to talk with you again

* ugh go away

* OH

* much less broken

* ayy

* aaaaa

* OH YEAAAAAAAAHHHHHHHHHHH

* aaaa

* k

* dfgjtxkytkjyd

* debug

* dangerously cheesy

* mm

* OH YEAAAAAAAAAAAAAAAAAAAAAAAAAA

* oH YEAH

* Some final touches and cleanup of the lighting port.

* One more

* More fixes.

* varedit hack for easy modification

* fixed

* C O L O R

* slym

* fffff

* oh great what the fuck is wrong now

* Revert "oh great what the fuck is wrong now"

This reverts commit e589ad51facb5464e107ca515317d41136dd1e5e.

* fu

* will it blend

* aaaaaaaaaaaaaaaaaaaa

* this is why im bad at porting

falalalala, lala la la

* k

* yeh

* can't forget majestic fire

code/game/pooling/pool.dm

@@ -23,6 +23,8 @@ 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.
@@ -133,3 +135,33 @@ 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