Add German accent (#30541)

* German accent * Add German motherfucker * German accent improvements * Fix failing tests * Only replace th at start of words * Correct plural for "warnungen" * hello and goodbye in German * Fix German again * Remove motherfucker from German accent * German goodbye refactor * 'fix' indents in speech.yml * German accent improvements * Reduce German umlautness * Add umlaut cooldown so consecutive vowels don't get umlauted * Fix german capitalization of th => zh * Add more banger words to German accent * Improve German tesla replacement * German akzent * German scientist gaming * Men and women, now in German * Also replace warops in German accent Co-Authored-By: slarticodefast <161409025+slarticodefast@users.noreply.github.com> * Make requested changes * Make some of the requested changes * Fix linter errors * Address remaining feedback * RE-add toned-down random umlauts * cabbage -> kraut --------- Co-authored-by: slarticodefast <161409025+slarticodefast@users.noreply.github.com>
2024-08-16 01:30:21 +02:00
parent 28f41e143d
commit 42316f8ed0
6 changed files with 395 additions and 16 deletions
--- a/Content.Server/Speech/EntitySystems/GermanAccentSystem.cs
+++ b/Content.Server/Speech/EntitySystems/GermanAccentSystem.cs
@@ -0,0 +1,85 @@
+using System.Text;
+using Content.Server.Speech.Components;
+using Robust.Shared.Random;
+using System.Text.RegularExpressions;
+
+namespace Content.Server.Speech.EntitySystems;
+
+public sealed class GermanAccentSystem : EntitySystem
+{
+    [Dependency] private readonly IRobustRandom _random = default!;
+    [Dependency] private readonly ReplacementAccentSystem _replacement = default!;
+
+    private static readonly Regex RegexTh = new(@"(?<=\s|^)th", RegexOptions.IgnoreCase);
+    private static readonly Regex RegexThe = new(@"(?<=\s|^)the(?=\s|$)", RegexOptions.IgnoreCase);
+
+    public override void Initialize()
+    {
+        SubscribeLocalEvent<GermanAccentComponent, AccentGetEvent>(OnAccent);
+    }
+
+    public string Accentuate(string message)
+    {
+        var msg = message;
+
+        // rarely, "the" should become "das" instead of "ze"
+        // TODO: The ReplacementAccentSystem should have random replacements this built-in.
+        foreach (Match match in RegexThe.Matches(msg))
+        {
+            if (_random.Prob(0.3f))
+            {
+                // just shift T, H and E over to D, A and S to preserve capitalization
+                msg = msg.Substring(0, match.Index) +
+                      (char)(msg[match.Index] - 16) +
+                      (char)(msg[match.Index + 1] - 7) +
+                      (char)(msg[match.Index + 2] + 14) +
+                      msg.Substring(match.Index + 3);
+            }
+        }
+
+        // now, apply word replacements
+        msg = _replacement.ApplyReplacements(msg, "german");
+
+        // replace th with zh (for zhis, zhat, etc. the => ze is handled by replacements already)
+        var msgBuilder = new StringBuilder(msg);
+        foreach (Match match in RegexTh.Matches(msg))
+        {
+            // just shift the T over to a Z to preserve capitalization
+            msgBuilder[match.Index] = (char) (msgBuilder[match.Index] + 6);
+        }
+
+        // Random Umlaut Time! (The joke outweighs the emotional damage this inflicts on actual Germans)
+        var umlautCooldown = 0;
+        for (var i = 0; i < msgBuilder.Length; i++)
+        {
+            if (umlautCooldown == 0)
+            {
+                if (_random.Prob(0.1f)) // 10% of all eligible vowels become umlauts)
+                {
+                    msgBuilder[i] = msgBuilder[i] switch
+                    {
+                        'A' => 'Ä',
+                        'a' => 'ä',
+                        'O' => 'Ö',
+                        'o' => 'ö',
+                        'U' => 'Ü',
+                        'u' => 'ü',
+                        _ => msgBuilder[i]
+                    };
+                    umlautCooldown = 4;
+                }
+            }
+            else
+            {
+                umlautCooldown--;
+            }
+        }
+
+        return msgBuilder.ToString();
+    }
+
+    private void OnAccent(Entity<GermanAccentComponent> ent, ref AccentGetEvent args)
+    {
+        args.Message = Accentuate(args.Message);
+    }
+}