Mobster accents for rat king/servants (#8927)

* basically perfect

* oops

* huh

* new substitutions from retequizzle, rane, and olddancejacket + crown accent

* fixes

Content.Server/Speech/Components/MobsterAccentComponent.cs

@@ -0,0 +1,15 @@
+namespace Content.Server.Speech.Components;
+
+/// <summary>
+///     Nyehh, my gabagool, see?
+///     Etc etc.
+/// </summary>
+[RegisterComponent]
+public sealed class MobsterAccentComponent : Component
+{
+    /// <summary>
+    ///     Do you make all the rules?
+    /// </summary>
+    [DataField("isBoss")]
+    public bool IsBoss = true;
+}

Content.Server/Speech/EntitySystems/MobsterAccentSystem.cs

@@ -0,0 +1,89 @@
+using System.Globalization;
+using System.Text.RegularExpressions;
+using Content.Server.Speech.Components;
+using Robust.Shared.Random;
+
+namespace Content.Server.Speech.EntitySystems;
+
+public sealed class MobsterAccentSystem : EntitySystem
+{
+    [Dependency] private readonly IRobustRandom _random = default!;
+
+    private static readonly Dictionary<string, string> DirectReplacements = new()
+    {
+        { "let me", "lemme" },
+        { "should", "oughta" },
+        { "the", "da" },
+        { "kill", "whack" },
+        { "murder", "whack" },
+        { "dead", "sleepin' with da fishies"},
+        { "hey", "ey'o" },
+        { "rules", "roolz" },
+        { "you", "yous" },
+        { "have to", "gotta" },
+        { "here", "'ere" }
+    };
+
+    public override void Initialize()
+    {
+        base.Initialize();
+
+        SubscribeLocalEvent<MobsterAccentComponent, AccentGetEvent>(OnAccentGet);
+    }
+
+    public string Accentuate(string message, MobsterAccentComponent component)
+    {
+        // Order:
+        // Do text manipulations first
+        // Then prefix/suffix funnyies
+
+        var msg = message;
+
+        foreach (var (first, replace) in DirectReplacements)
+        {
+            msg = msg.Replace(first, replace, true, CultureInfo.InvariantCulture);
+        }
+
+        // thinking -> thinkin'
+        msg = Regex.Replace(msg, @"ing(?!\w)", "in'", RegexOptions.IgnoreCase);
+
+        // or -> uh and ar -> ah in the middle of words (fuhget, tahget)
+        msg = Regex.Replace(msg, @"(?<=\w)or(?=\w)", "uh", RegexOptions.IgnoreCase);
+        msg = Regex.Replace(msg, @"(?<=\w)ar(?=\w)", "ah", RegexOptions.IgnoreCase);
+
+        // Prefix
+        if (_random.Prob(0.15f))
+        {
+            var pick = _random.Next(1, 2);
+
+            // Reverse sanitize capital
+            msg = msg[0].ToString().ToLower() + msg.Remove(0, 1);
+            msg = Loc.GetString($"accent-mobster-prefix-{pick}") + " " + msg;
+        }
+
+        // Sanitize capital again, in case we substituted a word that should be capitalized
+        msg = msg[0].ToString().ToUpper() + msg.Remove(0, 1);
+
+        // Suffixes
+        if (_random.Prob(0.4f))
+        {
+            if (component.IsBoss)
+            {
+                var pick = _random.Next(1, 4);
+                msg += Loc.GetString($"accent-mobster-suffix-boss-{pick}");
+            }
+            else
+            {
+                var pick = _random.Next(1, 3);
+                msg += Loc.GetString($"accent-mobster-suffix-minion-{pick}");
+            }
+        }
+
+        return msg;
+    }
+
+    private void OnAccentGet(EntityUid uid, MobsterAccentComponent component, AccentGetEvent args)
+    {
+        args.Message = Accentuate(args.Message, component);
+    }
+}

Resources/Locale/en-US/accent/mobster.ftl

@@ -0,0 +1,8 @@
+accent-mobster-prefix-1 = Nyehh,
+
+accent-mobster-suffix-boss-1 = , see?
+accent-mobster-suffix-boss-2 = , fugeddaboutit.
+accent-mobster-suffix-boss-3 = , capiche?
+
+accent-mobster-suffix-minion-1 = , yeah!
+accent-mobster-suffix-minion-2 = , boss says!

Resources/Prototypes/Entities/Clothing/Head/misc.yml

@@ -116,7 +116,7 @@
   parent: ClothingHeadBase
   id: ClothingHeadHatFancyCrown
   name: fancy crown
-  description: It smells like dead rat.
+  description: It smells like dead rat. Lets you speak like one!
   components:
   - type: Sprite
     sprite: Clothing/Head/Misc/fancycrown.rsi
@@ -124,6 +124,8 @@
     sprite: Clothing/Head/Misc/fancycrown.rsi
   - type: MobPrice
     price: 3000
+  - type: AddAccentClothing
+    accent: MobsterAccent
 
 - type: entity
   parent: ClothingHeadBase

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

@@ -89,6 +89,7 @@
       itemIconStyle: NoItem
       event: !type:RatKingDomainActionEvent
     hungerPerDomainUse: 50
+  - type: MobsterAccent
   - type: Access #he's so baller he gets his own access. NT got nothing on him
     tags:
     - Maintenance
@@ -192,4 +193,5 @@
   - type: NoSlip
   - type: MobPrice
     price: 500 # rat wealth
-
+  - type: MobsterAccent
+    isBoss: false