Make... sloths... speak... slowly... (#38142)

* Add SlowAccent

* Apply SlowAccent to sloths

* xmldocs

Content.Server/Speech/Components/SlowAccentComponent.cs

@@ -0,0 +1,7 @@
+namespace Content.Server.Speech.Components;
+
+/// <summary>
+/// Makes... the... entity... talk... like... this...
+/// </summary>
+[RegisterComponent]
+public sealed partial class SlowAccentComponent : Component;

Content.Server/Speech/EntitySystems/SlowAccentSystem.cs

@@ -0,0 +1,41 @@
+using System.Text.RegularExpressions;
+using Content.Server.Speech.Components;
+
+namespace Content.Server.Speech.EntitySystems;
+
+public sealed partial class SlowAccentSystem : EntitySystem
+{
+    /// <summary>
+    /// Matches whitespace characters or commas (with or without a space after them).
+    /// </summary>
+    private static readonly Regex WordEndings = new("\\s|, |,");
+
+    /// <summary>
+    /// Matches the end of the string only if the last character is a "word" character.
+    /// </summary>
+    private static readonly Regex NoFinalPunctuation = new("\\w\\z");
+
+    public override void Initialize()
+    {
+        base.Initialize();
+
+        SubscribeLocalEvent<SlowAccentComponent, AccentGetEvent>(OnAccentGet);
+    }
+
+    private void OnAccentGet(Entity<SlowAccentComponent> ent, ref AccentGetEvent args)
+    {
+        args.Message = Accentuate(ent, args.Message);
+    }
+
+    public string Accentuate(Entity<SlowAccentComponent> ent, string message)
+    {
+        // Add... some... delay... between... each... word
+        message = WordEndings.Replace(message, "... ");
+
+        // Add "..." to the end, if the last character is part of a word...
+        if (NoFinalPunctuation.IsMatch(message))
+            message += "...";
+
+        return message;
+    }
+}

Resources/Prototypes/Entities/Mobs/NPCs/animals.yml

@@ -3266,6 +3266,7 @@
   - type: Grammar
     attributes:
       gender: epicene
+  - type: SlowAccent
   - type: Tag
     tags:
     - VimPilot