Port Profanol with custom curse words (Goob-Station#552)

Content.Server/Goobstation/Speech/EntitySystems/VulgarAccentSystem.cs

@@ -0,0 +1,51 @@
+// CREATED BY Goldminermac
+// https://github.com/space-wizards/space-station-14/pull/31149
+// LICENSED UNDER THE MIT LICENSE
+// SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+using Content.Shared.Speech.Components;
+using Robust.Shared.Prototypes;
+using Robust.Shared.Random;
+using System.Text;
+
+namespace Content.Server.Speech.EntitySystems;
+
+public sealed class VulgarAccentSystem : EntitySystem
+{
+    [Dependency] private readonly IRobustRandom _random = default!;
+    [Dependency] private readonly ILocalizationManager _loc = default!;
+    [Dependency] private readonly IPrototypeManager _prototypeManager = default!;
+    [Dependency] private readonly ReplacementAccentSystem _replacement = default!;
+
+    public override void Initialize()
+    {
+        base.Initialize();
+
+        SubscribeLocalEvent<VulgarAccentComponent, AccentGetEvent>(OnAccentGet);
+    }
+
+    public string Accentuate(string message, VulgarAccentComponent component)
+    {
+        string[] messageWords = message.Split(" ");
+
+        for (int i = 0; i < messageWords.Length; i++)
+        {
+            //Every word has a percentage chance to be replaced by a random swear word from the component's array.
+            if (_random.Prob(component.SwearProb))
+            {
+                if (!_prototypeManager.TryIndex(component.Pack, out var messagePack))
+                    return message;
+
+
+                string swearWord = _loc.GetString(_random.Pick(messagePack.Values));
+                messageWords[i] = swearWord;
+            }
+        }
+
+        return string.Join(" ", messageWords);
+    }
+
+    public void OnAccentGet(EntityUid uid, VulgarAccentComponent component, AccentGetEvent args)
+    {
+        args.Message = Accentuate(args.Message, component);
+    }
+}

Content.Shared/Goobstation/Speech/Components/VulgarAccentComponent.cs

@@ -0,0 +1,19 @@
+// CREATED BY Goldminermac
+// https://github.com/space-wizards/space-station-14/pull/31149
+// LICENSED UNDER THE MIT LICENSE
+// SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+using Robust.Shared.GameStates;
+using Content.Shared.Dataset;
+using Robust.Shared.Prototypes;
+
+namespace Content.Shared.Speech.Components;
+
+[RegisterComponent, NetworkedComponent]
+public sealed partial class VulgarAccentComponent : Component
+{
+    [DataField]
+    public ProtoId<LocalizedDatasetPrototype> Pack = "SwearWords";
+
+    [DataField]
+    public float SwearProb = 0.5f;
+}

Resources/Locale/en-US/Goobstation/accent/vulgar.ftl

@@ -0,0 +1,13 @@
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+accent-vulgar-words-1 = CRAP
+accent-vulgar-words-2 = SHIT
+accent-vulgar-words-3 = DAMN
+accent-vulgar-words-4 = DAMN IT
+accent-vulgar-words-5 = BASTARD
+accent-vulgar-words-6 = SON OF A SKUB
+accent-vulgar-words-7 = PIECE OF SHIT
+accent-vulgar-words-8 = NIMWIT
+accent-vulgar-words-9 = SKUB

Resources/Locale/en-US/Goobstation/flavor/flavors.ftl

@@ -1,2 +1,4 @@
 flavor-base-futuristic = futuristic
 flavor-complex-cherry = like cherry
+
+flavor-base-offensive = offensive

Resources/Locale/en-US/Goobstation/reagents/meta/fun.ftl

@@ -1,3 +1,11 @@
 reagent-name-tranquility = tranquility
 reagent-desc-tranquility = You feel oddly calm...
 reagent-popup-tranquility = You feel oddly calm...
+
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+reagent-name-profanol = profanol
+reagent-desc-profanol = A chemical compound known to make people compulsively swear. A ruiner of countless family reunions and funerals.
+# END OF MIT-LICENSED CODE

Resources/Prototypes/Entities/Mobs/Species/base.yml

@@ -135,6 +135,7 @@
     - Flashed
     - RadiationProtection
     - Drowsiness
+    - Vulgarity # Goobstation - add Profanol
   - type: Body
     prototype: Human
     requiredLegs: 2

Resources/Prototypes/Goobstation/Datasets/swear_words.yml

@@ -0,0 +1,9 @@
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+- type: localizedDataset
+  id: SwearWords
+  values:
+    prefix: accent-vulgar-words-
+    count: 9

Resources/Prototypes/Goobstation/Flavors/flavors.yml

@@ -8,3 +8,13 @@
   id: cherry
   flavorType: Complex
   description: flavor-complex-cherry
+
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+- type: flavor
+  id: offensive
+  flavorType: Base
+  description: flavor-base-offensive
+# END OF MIT-LICENSED CODE

Resources/Prototypes/Goobstation/Reagents/fun.yml

@@ -31,3 +31,25 @@
         conditions:
         - !type:ReagentThreshold
           min: 25
+
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+- type: reagent
+  id: Profanol
+  name: reagent-name-profanol
+  group: Toxins
+  desc: reagent-desc-profanol
+  physicalDesc: reagent-physical-desc-pungent
+  flavor: offensive
+  color: "#BF5E5E"
+  slippery: true
+  metabolisms:
+    Poison:
+      metabolismRate: 0.10
+      effects:
+      - !type:GenericStatusEffect
+        key: Vulgarity
+        component: VulgarAccent
+# END OF MIT-LICENSED CODE

Resources/Prototypes/Goobstation/Recipes/Reactions/fun.yml

@@ -11,4 +11,24 @@
       amount: 20
   effects:
     - !type:CreateEntityReactionEffect
-      entity: SoapHomemadeBanana
+      entity: SoapHomemadeBanana
+
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+- type: reaction
+  id: Profanol
+  impact: Low
+  quantized: true
+  minTemp: 300
+  reactants:
+    THC:
+      amount: 3
+    Ethanol:
+      amount: 3
+    Mercury:
+      amount: 2
+  products:
+    Profanol: 10
+# END OF MIT-LICENSED CODE

Resources/Prototypes/Goobstation/status_effects.yml

@@ -2,3 +2,11 @@
   id: Stasis
   alert: Stasis
   alwaysAllowed: true
+
+# CREATED BY Goldminermac
+# https://github.com/space-wizards/space-station-14/pull/31149
+# LICENSED UNDER THE MIT LICENSE
+# SEE README.MD AND LICENSE.TXT IN THE ROOT OF THIS REPOSITORY FOR MORE INFORMATION
+- type: statusEffect
+  id: Vulgarity
+# END OF MIT-LICENSED CODE