Add tagged airlock for arrivals (#14785)

Content.Server/Shuttles/Systems/ArrivalsSystem.cs

@@ -53,8 +53,11 @@ public sealed class ArrivalsSystem : EntitySystem
 
         SubscribeLocalEvent<PlayerSpawningEvent>(OnPlayerSpawn, before: new []{typeof(SpawnPointSystem)});
         SubscribeLocalEvent<StationArrivalsComponent, ComponentStartup>(OnArrivalsStartup);
+
         SubscribeLocalEvent<ArrivalsShuttleComponent, ComponentStartup>(OnShuttleStartup);
         SubscribeLocalEvent<ArrivalsShuttleComponent, EntityUnpausedEvent>(OnShuttleUnpaused);
+        SubscribeLocalEvent<ArrivalsShuttleComponent, FTLTagEvent>(OnShuttleTag);
+
         SubscribeLocalEvent<StationInitializedEvent>(OnStationInit);
         SubscribeLocalEvent<RoundStartingEvent>(OnRoundStarting);
         SubscribeLocalEvent<ArrivalsShuttleComponent, FTLStartedEvent>(OnArrivalsFTL);
@@ -67,6 +70,16 @@ public sealed class ArrivalsSystem : EntitySystem
         _console.RegisterCommand("arrivals", ArrivalsCommand, ArrivalsCompletion);
     }
 
+    private void OnShuttleTag(EntityUid uid, ArrivalsShuttleComponent component, ref FTLTagEvent args)
+    {
+        if (args.Handled)
+            return;
+
+        // Just saves mappers forgetting. (v2 boogaloo)
+        args.Handled = true;
+        args.Tag = "DockArrivals";
+    }
+
     private CompletionResult ArrivalsCompletion(IConsoleShell shell, string[] args)
     {
         if (args.Length != 1)

Resources/Prototypes/Entities/Structures/Doors/Airlocks/access.yml

@@ -732,6 +732,14 @@
     - type: AccessReader
       access: [["External"]]
 
+- type: entity
+  parent: AirlockGlassShuttle
+  id: AirlockExternalGlassShuttleArrivals
+  suffix: External, Glass, Docking
+  components:
+    - type: PriorityDock
+      tag: DockArrivals
+
 #HighSecDoors
 - type: entity
   parent: HighSecDoor

Resources/Prototypes/tags.yml

@@ -182,6 +182,9 @@
 - type: Tag
   id: DiscreteHealthAnalyzer #So construction recipes don't eat medical PDAs
 
+- type: Tag
+  id: DockArrivals
+
 - type: Tag
   id: DockCargo