[ADD] Картавость

Content.Server/ADT/Speech/Component/BurrinessAccentComponent.cs

@@ -0,0 +1,7 @@
+namespace Content.Server.Speech.Components;
+
+[RegisterComponent]
+public sealed partial class BurrinessAccentComponent : Component
+{
+
+}

Content.Server/ADT/Speech/EntitySystems/BurrinessAccentSystem.cs

@@ -0,0 +1,37 @@
+using System.Text.RegularExpressions;
+using Content.Server.Speech.Components;
+using Content.Shared.Speech;
+using Robust.Shared.Random;
+
+namespace Content.Server.Speech.EntitySystems;
+
+public sealed class BurrinessAccentSystem : EntitySystem
+{
+    [Dependency] private readonly IRobustRandom _random = default!;
+
+    private static readonly Regex BurrRegex = new Regex("[рР]+", RegexOptions.Compiled);
+    private static readonly Regex LatinBurrRegex = new Regex("[rR]+", RegexOptions.Compiled);
+
+    public override void Initialize()
+    {
+        base.Initialize();
+        SubscribeLocalEvent<BurrinessAccentComponent, AccentGetEvent>(OnAccent);
+    }
+
+    private void OnAccent(EntityUid uid, BurrinessAccentComponent component, ref AccentGetEvent args)
+    {
+        var message = args.Message;
+
+        message = BurrRegex.Replace(
+            message,
+            match => _random.Pick(new List<string> { "хх" })
+        );
+
+        message = LatinBurrRegex.Replace(
+            message,
+            match => _random.Pick(new List<string> { "hh" })
+        );
+
+        args.Message = message;
+    }
+}

Resources/Locale/ru-RU/ADT/traits/neutral.ftl

@@ -13,6 +13,9 @@ trait-nya-accent-desc = Кажется на вас нашло мря-гкое г
 trait-sick-teeth-accent-name = Зубной дефект
 trait-sick-teeth-accent-desc = Проблемы с зубами меняют вашу речь: некоторые согласные звучат иначе.
 
+trait-burriness-accent-name = Картавость
+trait-burriness-accent-desc = Вы не умеете выговаххивать букву "Р" ;w;
+
 
 
 trait-tall-name = Высокий

Resources/Prototypes/ADT/Traits/speech.yml

@@ -25,3 +25,12 @@
   cost: 1
   components:
     - type: SickTeethAccent
+
+- type: trait
+  id: ADTBurrinessAccent
+  name: trait-burriness-accent-name
+  description: trait-burriness-accent-desc
+  category: SpeechTraits
+  cost: 1
+  components:
+    - type: BurrinessAccent

Resources/Prototypes/Entities/Mobs/Player/clone.yml

@@ -69,6 +69,7 @@
   - StutteringAccent
   - TTS # Corvax-TTS
   # ADT-fix-clone-start
+  - BurrinessAccent
   - LanguageSpeaker
   - SpeechBarks
   - SizeAttribute