Port honkbots from nyano (#9698)

Content.Server/Sound/Components/SpamEmitSoundComponent.cs

@@ -0,0 +1,18 @@
+namespace Content.Server.Sound.Components
+{
+    /// <summary>
+    /// Rolls to play a sound every few seconds.
+    /// </summary>
+    [RegisterComponent]
+    public sealed class SpamEmitSoundComponent : BaseEmitSoundComponent
+    {
+        [DataField("accumulator")]
+        public float Accumulator = 0f;
+
+        [DataField("rollInterval")]
+        public float RollInterval = 2f;
+
+        [DataField("playChance")]
+        public float PlayChance = 0.5f;
+    }
+}

Content.Server/Sound/EmitSoundSystem.cs

@@ -26,6 +26,25 @@ namespace Content.Server.Sound
         [Dependency] private readonly ITileDefinitionManager _tileDefMan = default!;
 
         /// <inheritdoc />
+
+        public override void Update(float frameTime)
+        {
+            base.Update(frameTime);
+            foreach (var soundSpammer in EntityQuery<SpamEmitSoundComponent>())
+            {
+                soundSpammer.Accumulator += frameTime;
+                if (soundSpammer.Accumulator < soundSpammer.RollInterval)
+                {
+                    continue;
+                }
+                soundSpammer.Accumulator -= soundSpammer.RollInterval;
+
+                if (_random.Prob(soundSpammer.PlayChance))
+                {
+                    TryEmitSound(soundSpammer);
+                }
+            }
+        }
         public override void Initialize()
         {
             base.Initialize();