mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-11 10:43:20 +00:00
ca7fa2aa19
Grilles no longer return more rods than they were created from when destroyed (by method other than wirecutters). Rods are now acquired from and returned to a pool. Also adds a pre-broken grille for mapping, avoids the case where one might be able to destroy the same grille twice.
110 lines
2.4 KiB
Plaintext
110 lines
2.4 KiB
Plaintext
|
|
/*
|
|
/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(new get_type)
|
|
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
|
|
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()
|
|
D.disposed = 1 //Set to stop processing while pooled
|
|
|
|
/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)
|
|
disposed = null
|
|
|
|
/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
|