Group Howl Event

Content.Server/_Starlight/GameTicking/Rules/Components/FullMoonHowlRuleComponent.cs

@@ -0,0 +1,17 @@
+using Robust.Shared.Audio;
+
+namespace Content.Server._Starlight.GameTicking.Rules.Components;
+
+[RegisterComponent, Access(typeof(FullMoonHowlRule))]
+public sealed partial class FullMoonHowlRuleComponent : Component
+{
+    [DataField]
+    public SoundSpecifier HowlSound = new SoundCollectionSpecifier("VulpkaninHowls");
+
+    /// <summary>
+    /// Eligible entities are matched by <see cref="Content.Shared.Inventory.InventoryComponent.SpeciesId"/>.
+    /// Vulpkanin and ProtoVulp both use "vulpkanin"; corgis/borgis use "dog"; puppies/McGriff use "puppy".
+    /// </summary>
+    [DataField]
+    public HashSet<string> EligibleInventorySpecies = new() { "vulpkanin", "dog", "puppy" };
+}

Content.Server/_Starlight/GameTicking/Rules/FullMoonHowlRule.cs

@@ -0,0 +1,104 @@
+using Content.Server._Starlight.GameTicking.Rules.Components;
+using Content.Server.StationEvents.Components;
+using Content.Server.Chat.Managers;
+using Content.Server.StationEvents.Events;
+using Content.Shared.Chat;
+using Content.Shared.Ghost;
+using Content.Shared.GameTicking.Components;
+using Content.Shared.Inventory;
+using Content.Shared.Pinpointer;
+using Content.Shared.Station.Components;
+using Robust.Shared.Player;
+using Robust.Shared.Random;
+using Robust.Shared.Utility;
+
+namespace Content.Server._Starlight.GameTicking.Rules;
+
+public sealed partial class FullMoonHowlRule : StationEventSystem<FullMoonHowlRuleComponent>
+{
+    [Dependency] private IChatManager _chatManager = default!;
+
+    protected override void Started(EntityUid uid, FullMoonHowlRuleComponent component, GameRuleComponent gameRule, GameRuleStartedEvent args)
+    {
+        base.Started(uid, component, gameRule, args);
+
+        if (!TryComp<StationEventComponent>(uid, out var stationEvent))
+            return;
+
+        var chosenStation = stationEvent.TargetStation;
+        if (chosenStation is null && !TryGetRandomStation(out chosenStation))
+            return;
+
+        if (!TryComp<StationDataComponent>(chosenStation.Value, out var stationData))
+            return;
+
+        var mainGrids = stationData.MainGrids;
+
+        EntityUid? mainGrid = null;
+        foreach (var grid in mainGrids)
+        {
+            if (!Exists(grid))
+                continue;
+
+            mainGrid = grid;
+            break;
+        }
+
+        if (mainGrid is null)
+            return;
+
+        // Recipients are selected by map, not grid, so off-grid players on the station map may still hear the announcement.
+        var mainStationMap = Transform(mainGrid.Value).MapID;
+
+        var recipients = Filter.Empty().AddWhere(session =>
+        {
+            if (session.AttachedEntity is null)
+                return false;
+
+            var attached = session.AttachedEntity.Value;
+
+            if (Transform(attached).MapID != mainStationMap)
+                return false;
+
+            // Ghosts are always eligible to hear the announcement, for observer/admin purposes.
+            if (HasComp<GhostComponent>(attached))
+                return true;
+
+            if (TryComp<InventoryComponent>(attached, out var inv)
+                && inv.SpeciesId is { } speciesId
+                && component.EligibleInventorySpecies.Contains(speciesId))
+                return true;
+
+            return false;
+        });
+
+        // Location candidates are restricted to beacon entities on main station grids only.
+        var beaconLocations = new List<string>();
+        var beaconQuery = EntityQueryEnumerator<NavMapBeaconComponent, TransformComponent>();
+        while (beaconQuery.MoveNext(out var ent, out var beacon, out var xform))
+        {
+            if (!beacon.Enabled)
+                continue;
+
+            if (xform.GridUid is not { } gridUid || !mainGrids.Contains(gridUid))
+                continue;
+
+            var locationName = !string.IsNullOrWhiteSpace(beacon.Text)
+                ? beacon.Text
+                : MetaData(ent).EntityName;
+
+            if (!string.IsNullOrWhiteSpace(locationName))
+                beaconLocations.Add(locationName);
+        }
+
+        var location = beaconLocations.Count > 0
+            ? RobustRandom.Pick(beaconLocations)
+            : Loc.GetString("station-event-fullmoonhowl-default-location");
+
+        var message = Loc.GetString("station-event-fullmoonhowl-announcement", ("location", (object) location));
+        // Send as styled chat text to avoid default announcement header and keep the tone.
+        var wrappedMessage = $"[font color=#ADD8E6][italic]{FormattedMessage.EscapeText(message)}[/italic][/font]";
+        _chatManager.ChatMessageToManyFiltered(recipients, ChatChannel.Radio, message, wrappedMessage, default, false, true, Color.FromHex("#ADD8E6"));
+        Audio.PlayGlobal(component.HowlSound, recipients, true);
+    }
+}

Resources/Locale/en-US/_Starlight/station-events/events/fullmoonhowl.ftl

@@ -0,0 +1,2 @@
+station-event-fullmoonhowl-announcement = You feel the effects of a full moon and get a sudden urge to gather near { $location } for a group howl.
+station-event-fullmoonhowl-default-location = Bar

Resources/Prototypes/GameRules/events.yml

@@ -39,6 +39,7 @@
     - id: NanoChatSpamMidPop
     - id: NanoChatSpamHighPop
     - id: NanoChatSpamUltraPop
+    - id: FullMoonHowl
     # Starlight End
     - id: MalignRiftSpawn # Funky
 

Resources/Prototypes/_Starlight/GameRules/passiveevent.yml

@@ -173,3 +173,19 @@
     permittedAlertLevels:
       - green
       - blue
+
+- type: entity
+  parent: BaseGameRule
+  id: FullMoonHowl
+  components:
+    - type: StationEvent
+      globalAnnouncement: false
+      weight: 3
+      duration: 1
+      maxDuration: 1
+      maxOccurrences: 1
+    - type: FullMoonHowlRule
+      eligibleInventorySpecies:
+        - vulpkanin
+        - dog
+        - puppy