anchor.diff:  
   ParticleEmitter
   	var
  -		list/pool = list()
  +		list/pool
   
   		decay = FALSE
   		const/DECAY_TIME = 3000
  
positive.code: 		pool(obj/particle/p)
  			p.loc = null
  
  			if("[p.type]" in pool)
  				pool["[p.type]"] += p
  
  				if(length(pool["[type]"]) > DECAY_SIZE)
  					decay()
  
  
  			else
  				pool["[p.type]"] = list(p)
  
  		decay()
  			if(decay) return
  			decay = TRUE
  			spawn(DECAY_TIME)
  				for(var/t in pool)
  					for(var/p in t)
  						t -= p
  					pool -= t
  				decay = FALSE
  
  
  
  
negative.code: 	proc
  		get_particle(ptype)
  			var/obj/particle/p
  
  			if(!pool || !("[ptype]" in pool))
  				p = new ptype()
  			else
  				p = pool["[ptype]"][1]
  