From 5ab1cc0c846775e438517bbff9d7713eeb5ef85d Mon Sep 17 00:00:00 2001
From: Ed <96445749+TheShuEd@users.noreply.github.com>
Date: Sat, 4 May 2024 14:11:46 +0300
Subject: [PATCH] Pathological Liar (#27618)

* content

* upgrade

* n't

* ye ya

* Update speech-liar.ftl

* Mith replacement ideas

* fix

* more!

* Revert "more!"

This reverts commit 6d10bdf694985c525a2b451ed39380f975059b44.

* Update Content.Server/Speech/Components/ReplacementAccentComponent.cs

---------

Co-authored-by: Kara <lunarautomaton6@gmail.com>
---
 .../Components/ReplacementAccentComponent.cs  |   6 +
 .../EntitySystems/ReplacementAccentSystem.cs  |  15 +-
 Resources/Locale/en-US/speech/speech-liar.ftl | 132 ++++++++++++++++++
 Resources/Locale/en-US/traits/traits.ftl      |   3 +
 .../Prototypes/Accents/word_replacements.yml  |  47 +++++++
 Resources/Prototypes/Traits/neutral.yml       |   9 ++
 6 files changed, 210 insertions(+), 2 deletions(-)
 create mode 100644 Resources/Locale/en-US/speech/speech-liar.ftl

diff --git a/Content.Server/Speech/Components/ReplacementAccentComponent.cs b/Content.Server/Speech/Components/ReplacementAccentComponent.cs
index ac4e9fbafe..e7f57b80d0 100644
--- a/Content.Server/Speech/Components/ReplacementAccentComponent.cs
+++ b/Content.Server/Speech/Components/ReplacementAccentComponent.cs
@@ -32,5 +32,11 @@ namespace Content.Server.Speech.Components
     {
         [DataField("accent", customTypeSerializer: typeof(PrototypeIdSerializer<ReplacementAccentPrototype>), required: true)]
         public string Accent = default!;
+
+        /// <summary>
+        /// Allows you to substitute words, not always, but with some chance
+        /// </summary>
+        [DataField]
+        public float ReplacementChance = 1f;
     }
 }
diff --git a/Content.Server/Speech/EntitySystems/ReplacementAccentSystem.cs b/Content.Server/Speech/EntitySystems/ReplacementAccentSystem.cs
index 36fa7e07ad..c332c6cda8 100644
--- a/Content.Server/Speech/EntitySystems/ReplacementAccentSystem.cs
+++ b/Content.Server/Speech/EntitySystems/ReplacementAccentSystem.cs
@@ -24,6 +24,9 @@ namespace Content.Server.Speech.EntitySystems
 
         private void OnAccent(EntityUid uid, ReplacementAccentComponent component, AccentGetEvent args)
         {
+            if (!_random.Prob(component.ReplacementChance))
+                return;
+
             args.Message = ApplyReplacements(args.Message, component.Accent);
         }
 
@@ -46,6 +49,12 @@ namespace Content.Server.Speech.EntitySystems
             if (prototype.WordReplacements == null)
                 return message;
 
+            // Prohibition of repeated word replacements.
+            // All replaced words placed in the final message are placed here as dashes (___) with the same length.
+            // The regex search goes through this buffer message, from which the already replaced words are crossed out,
+            // ensuring that the replaced words cannot be replaced again.
+            var maskMessage = message;
+
             foreach (var (first, replace) in prototype.WordReplacements)
             {
                 var f = _loc.GetString(first);
@@ -53,10 +62,10 @@ namespace Content.Server.Speech.EntitySystems
                 // this is kind of slow but its not that bad
                 // essentially: go over all matches, try to match capitalization where possible, then replace
                 // rather than using regex.replace
-                for (int i = Regex.Count(message, $@"(?<!\w){f}(?!\w)", RegexOptions.IgnoreCase); i > 0; i--)
+                for (int i = Regex.Count(maskMessage, $@"(?<!\w){f}(?!\w)", RegexOptions.IgnoreCase); i > 0; i--)
                 {
                     // fetch the match again as the character indices may have changed
-                    Match match = Regex.Match(message, $@"(?<!\w){f}(?!\w)", RegexOptions.IgnoreCase);
+                    Match match = Regex.Match(maskMessage, $@"(?<!\w){f}(?!\w)", RegexOptions.IgnoreCase);
                     var replacement = r;
 
                     // Intelligently replace capitalization
@@ -80,6 +89,8 @@ namespace Content.Server.Speech.EntitySystems
 
                     // In-place replace the match with the transformed capitalization replacement
                     message = message.Remove(match.Index, match.Length).Insert(match.Index, replacement);
+                    string mask = new string('_', match.Length);
+                    maskMessage = message.Remove(match.Index, match.Length).Insert(match.Index, mask);
                 }
             }
 
diff --git a/Resources/Locale/en-US/speech/speech-liar.ftl b/Resources/Locale/en-US/speech/speech-liar.ftl
new file mode 100644
index 0000000000..1cd0a778b1
--- /dev/null
+++ b/Resources/Locale/en-US/speech/speech-liar.ftl
@@ -0,0 +1,132 @@
+liar-word-1 = yes
+liar-word-replacement-1 = no
+
+liar-word-2 = no
+liar-word-replacement-2 = yes
+
+liar-word-3 = yeah
+liar-word-replacement-3 = nah
+
+liar-word-4 = nah
+liar-word-replacement-4 = yeah
+
+liar-word-5 = yep
+liar-word-replacement-5 = nope
+
+liar-word-6 = nope
+liar-word-replacement-6 = yep
+
+liar-word-7 = sure
+liar-word-replacement-7 = nah
+
+liar-word-8 = was
+liar-word-replacement-8 = wasnt
+
+liar-word-9 = wasnt
+liar-word-replacement-9 = was
+
+liar-word-10 = was
+liar-word-replacement-10 = wasnt
+
+liar-word-11 = is
+liar-word-replacement-11 = isnt
+
+liar-word-12 = will
+liar-word-replacement-12 = wont
+
+liar-word-12 = not
+liar-word-replacement-12 = ""
+
+liar-word-13 = dont
+liar-word-replacement-13 = ""
+
+liar-word-14 = can
+liar-word-replacement-14 = cant
+
+liar-word-15 = cant
+liar-word-replacement-15 = can
+
+liar-word-16 = should
+liar-word-replacement-16 = shouldnt
+
+liar-word-17 = dead
+liar-word-replacement-17 = alive
+
+liar-word-18 = alive
+liar-word-replacement-18 = dead
+
+liar-word-19 = does
+liar-word-replacement-19 = doesnt
+
+liar-word-20 = did
+liar-word-replacement-20 = didnt
+
+liar-word-21 = didnt
+liar-word-replacement-21 = ""
+
+liar-word-22 = nothing
+liar-word-replacement-22 = something
+
+liar-word-23 = something
+liar-word-replacement-23 = nothing
+
+liar-word-24 = somebody
+liar-word-replacement-24 = nobody
+
+liar-word-25 = nobody
+liar-word-replacement-25 = somebody
+
+liar-word-26 = can
+liar-word-replacement-26 = "can't"
+
+liar-word-27 = "can't"
+liar-word-replacement-27 = can
+
+liar-word-28 = should
+liar-word-replacement-28 = "shouldn't"
+
+liar-word-29 = do
+liar-word-replacement-29 = "don't"
+
+liar-word-30 = "don't"
+liar-word-replacement-30 = ""
+
+liar-word-31 = does
+liar-word-replacement-31 = "doesn't"
+
+liar-word-32 = did
+liar-word-replacement-32 = "didn't"
+
+liar-word-33 = "didn't"
+liar-word-replacement-33 = did
+
+liar-word-34 = ye
+liar-word-34-2 = ya
+liar-word-replacement-34 = na
+
+liar-word-35 = na
+liar-word-replacement-35 = ye
+
+liar-word-36 = yuh
+liar-word-replacement-36 = nuh
+
+liar-word-37 = nuh
+liar-word-replacement-37 = yuh
+
+liar-word-38 = love
+liar-word-replacement-38 = hate
+
+liar-word-39 = hate
+liar-word-replacement-39 = love
+
+liar-word-40 = like
+liar-word-replacement-40 = don't like
+
+liar-word-41 = good
+liar-word-replacement-41 = bad
+
+liar-word-42 = bad
+liar-word-replacement-42 = good
+
+liar-word-42 = want
+liar-word-replacement-42 = "don't want"
diff --git a/Resources/Locale/en-US/traits/traits.ftl b/Resources/Locale/en-US/traits/traits.ftl
index fa17dc23ec..c387f29753 100644
--- a/Resources/Locale/en-US/traits/traits.ftl
+++ b/Resources/Locale/en-US/traits/traits.ftl
@@ -38,3 +38,6 @@ trait-southern-desc = You have a different way of speakin'.
 
 trait-snoring-name = Snoring
 trait-snoring-desc = You will snore while sleeping.
+
+trait-liar-name = Pathological liar
+trait-liar-desc = You can hardly bring yourself to tell the truth. Sometimes you lie anyway.
\ No newline at end of file
diff --git a/Resources/Prototypes/Accents/word_replacements.yml b/Resources/Prototypes/Accents/word_replacements.yml
index fa9d39add2..30c739b845 100644
--- a/Resources/Prototypes/Accents/word_replacements.yml
+++ b/Resources/Prototypes/Accents/word_replacements.yml
@@ -425,3 +425,50 @@
     chatsan-word-42: chatsan-replacement-42
     chatsan-word-43: chatsan-replacement-43
     chatsan-word-44: chatsan-replacement-44
+
+- type: accent
+  id: liar
+  wordReplacements:
+    liar-word-1: liar-word-replacement-1
+    liar-word-2: liar-word-replacement-2
+    liar-word-3: liar-word-replacement-3
+    liar-word-4: liar-word-replacement-4
+    liar-word-5: liar-word-replacement-5
+    liar-word-6: liar-word-replacement-6
+    liar-word-7: liar-word-replacement-7
+    liar-word-8: liar-word-replacement-8
+    liar-word-9: liar-word-replacement-9
+    liar-word-10: liar-word-replacement-10
+    liar-word-11: liar-word-replacement-11
+    liar-word-12: liar-word-replacement-12
+    liar-word-13: liar-word-replacement-13
+    liar-word-14: liar-word-replacement-14
+    liar-word-15: liar-word-replacement-15
+    liar-word-16: liar-word-replacement-16
+    liar-word-17: liar-word-replacement-17
+    liar-word-18: liar-word-replacement-18
+    liar-word-19: liar-word-replacement-19
+    liar-word-20: liar-word-replacement-20
+    liar-word-21: liar-word-replacement-21
+    liar-word-22: liar-word-replacement-22
+    liar-word-23: liar-word-replacement-23
+    liar-word-24: liar-word-replacement-24
+    liar-word-25: liar-word-replacement-25
+    liar-word-26: liar-word-replacement-26
+    liar-word-27: liar-word-replacement-27
+    liar-word-28: liar-word-replacement-28
+    liar-word-29: liar-word-replacement-29
+    liar-word-30: liar-word-replacement-30
+    liar-word-31: liar-word-replacement-31
+    liar-word-32: liar-word-replacement-32
+    liar-word-33: liar-word-replacement-33
+    liar-word-34: liar-word-replacement-34
+    liar-word-34-2: liar-word-replacement-34
+    liar-word-35: liar-word-replacement-35
+    liar-word-36: liar-word-replacement-36
+    liar-word-37: liar-word-replacement-37
+    liar-word-38: liar-word-replacement-38
+    liar-word-39: liar-word-replacement-39
+    liar-word-40: liar-word-replacement-40
+    liar-word-41: liar-word-replacement-41
+    liar-word-42: liar-word-replacement-42
\ No newline at end of file
diff --git a/Resources/Prototypes/Traits/neutral.yml b/Resources/Prototypes/Traits/neutral.yml
index ba9bd8d886..d1e0afc83c 100644
--- a/Resources/Prototypes/Traits/neutral.yml
+++ b/Resources/Prototypes/Traits/neutral.yml
@@ -23,3 +23,12 @@
   description: trait-southern-desc
   components:
     - type: SouthernAccent
+
+- type: trait
+  id: Liar
+  name: trait-liar-name
+  description: trait-liar-desc
+  components:
+    - type: ReplacementAccent
+      replacementChance: 0.15
+      accent: liar