Updated SSgarbage (#18173)

* pain

* sadfas

* sdfa

* sdfasf

* sfa

* sdf

* might the lord have mercy on our soul

* i cri everidai

* adeste fideles

* sdf

* where will this lead, what's coming next, from your inventions

* dear lord

* gjvhk

* i cri everidai

* fsgf

* sdfa

* sdaf

* hiuhi

code/datums/observation/_debug.dm

@@ -1,4 +1 @@
-/****************
-* Debug Support *
-****************/
 GLOBAL_LIST_EMPTY(all_observable_events)

code/datums/observation/~cleanup.dm

@@ -0,0 +1,71 @@
+GLOBAL_LIST_EMPTY(global_listen_count)
+GLOBAL_LIST_EMPTY(event_sources_count)
+GLOBAL_LIST_EMPTY(event_listen_count)
+
+/proc/cleanup_events(source)
+	if(GLOB.global_listen_count && GLOB.global_listen_count[source])
+		cleanup_global_listener(source, GLOB.global_listen_count[source])
+	if(GLOB.event_sources_count && GLOB.event_sources_count[source])
+		cleanup_source_listeners(source, GLOB.event_sources_count[source])
+	if(GLOB.event_listen_count && GLOB.event_listen_count[source])
+		cleanup_event_listener(source, GLOB.event_listen_count[source])
+
+/singleton/observ/register(datum/event_source, datum/listener, proc_call)
+	. = ..()
+	if(.)
+		GLOB.event_sources_count[event_source] += 1
+		GLOB.event_listen_count[listener] += 1
+
+/singleton/observ/unregister(datum/event_source, datum/listener, proc_call)
+	. = ..()
+	if(.)
+		GLOB.event_sources_count[event_source] -= 1
+		GLOB.event_listen_count[listener] -= 1
+
+		if(GLOB.event_sources_count[event_source] <= 0)
+			GLOB.event_sources_count -= event_source
+		if(GLOB.event_listen_count[listener] <= 0)
+			GLOB.event_listen_count -= listener
+
+/singleton/observ/register_global(datum/listener, proc_call)
+	. = ..()
+	if(.)
+		GLOB.global_listen_count[listener] += 1
+
+/singleton/observ/unregister_global(datum/listener, proc_call)
+	. = ..()
+	if(.)
+		GLOB.global_listen_count[listener] -= 1
+		if(GLOB.global_listen_count[listener] <= 0)
+			GLOB.global_listen_count -= listener
+
+/proc/cleanup_global_listener(listener, listen_count)
+	GLOB.global_listen_count -= listener
+	for(var/entry in GLOB.all_observable_events)
+		var/singleton/observ/event = entry
+		if(event.unregister_global(listener))
+			log_debug("[event] - [listener] was deleted while still registered to global events.")
+			if(!(--listen_count))
+				return
+
+/proc/cleanup_source_listeners(event_source, source_listener_count)
+	GLOB.event_sources_count -= event_source
+	for(var/entry in GLOB.all_observable_events)
+		var/singleton/observ/event = entry
+		var/proc_owners = event.event_sources[event_source]
+		if(proc_owners)
+			for(var/proc_owner in proc_owners)
+				if(event.unregister(event_source, proc_owner))
+					log_debug("[event] - [event_source] was deleted while still being listened to by [proc_owner].")
+					if(!(--source_listener_count))
+						return
+
+/proc/cleanup_event_listener(listener, listener_count)
+	GLOB.event_listen_count -= listener
+	for(var/entry in GLOB.all_observable_events)
+		var/singleton/observ/event = entry
+		for(var/event_source in event.event_sources)
+			if(event.unregister(event_source, listener))
+				log_debug("[event] - [listener] was deleted while still listening to [event_source].")
+				if(!(--listener_count))
+					return