Feat: Securtity additional accesses on red code (ss220club#288)

<!-- Пишите **НИЖЕ** заголовков и **ВЫШЕ** комментариев, иначе что то
может пойти не так. -->
<!-- Вы можете прочитать Contributing.MD, если хотите узнать больше. -->

Добавляет доступы СБ в красный код
Closes ss220club#285
Ориг PR: ss220-space/Paradise#1207

-

-

В игре

:cl:
add: СБ добавлены доп. доступы в красный код
/:cl:

<!-- Оба :cl:'а должны быть на месте, что-бы чейнджлог работал! Вы
можете написать свой ник справа от первого :cl:, если хотите. Иначе
будет использован ваш ник на ГитХабе. -->
<!-- Вы можете использовать несколько записей с одинаковым префиксом
(Они используются только для иконки в игре) и удалить ненужные. Помните,
что чейнджлог должен быть понятен обычным игроком. -->
<!-- Если чейнджлог не влияет на игроков(например, это рефактор), вы
можете исключить всю секцию. -->

modular_ss220/modular_ss220.dme

@@ -51,6 +51,7 @@
 #include "pixel_shift/_pixel_shift.dme"
 #include "radio_sound/radio_sound.dme"
 #include "screentip_change/_screentip_change.dme"
+#include "security_redalert_accesses/_security_redalert_accesses.dme"
 #include "smart_equip_targeted/_smart_equip_targeted.dme"
 #include "text_to_speech/_tts.dme"
 #include "title_screen/_title_screen.dme"

modular_ss220/security_redalert_accesses/code/security_redalert_accesses.dm

@@ -1,15 +1,12 @@
-GLOBAL_LIST_EMPTY(id_cards)
-
 /obj/item/card/id
 	var/list/red_alert_given_access // Accesses that were given on red alert
 
 /obj/item/card/id/Initialize()
 	. = ..()
 	red_alert_given_access = list()
-	GLOB.id_cards += src
+	RegisterSignal(SSsecurity_level, COMSIG_SECURITY_LEVEL_CHANGED, PROC_REF(on_security_level_update))
 
 /obj/item/card/id/Destroy()
-	GLOB.id_cards -= src
 	return ..()
 
 /obj/item/card/id/proc/on_red_alert()
@@ -26,9 +23,8 @@ GLOBAL_LIST_EMPTY(id_cards)
 	access -= red_alert_given_access
 	red_alert_given_access.Cut()
 
-/proc/update_ids()
-	for(var/obj/item/card/id/card as anything in GLOB.id_cards)
-		if(GLOB.security_level > SEC_LEVEL_BLUE)
-			INVOKE_ASYNC(card, TYPE_PROC_REF(/obj/item/card/id, on_red_alert))
-		else
-			INVOKE_ASYNC(card, TYPE_PROC_REF(/obj/item/card/id, after_red_alert))
+/obj/item/card/id/proc/on_security_level_update()
+	if(SSsecurity_level.current_security_level.number_level > SEC_LEVEL_BLUE)
+		on_red_alert()
+	else
+		after_red_alert()