tbd-station-14/Content.Server/Speech/EntitySystems/SlowAccentSystem.cs

using System.Text.RegularExpressions;
using Content.Server.Speech.Components;
using Content.Shared.Speech;

namespace Content.Server.Speech.EntitySystems;

public sealed partial class SlowAccentSystem : EntitySystem
{
    /// <summary>
    /// Matches whitespace characters or commas (with or without a space after them).
    /// </summary>
    private static readonly Regex WordEndings = new("\\s|, |,");

    /// <summary>
    /// Matches the end of the string only if the last character is a "word" character.
    /// </summary>
    private static readonly Regex NoFinalPunctuation = new("\\w\\z");

    public override void Initialize()
    {
        base.Initialize();

        SubscribeLocalEvent<SlowAccentComponent, AccentGetEvent>(OnAccentGet);
    }

    private void OnAccentGet(Entity<SlowAccentComponent> ent, ref AccentGetEvent args)
    {
        args.Message = Accentuate(ent, args.Message);
    }

    public string Accentuate(Entity<SlowAccentComponent> ent, string message)
    {
        // Add... some... delay... between... each... word
        message = WordEndings.Replace(message, "... ");

        // Add "..." to the end, if the last character is part of a word...
        if (NoFinalPunctuation.IsMatch(message))
            message += "...";

        return message;
    }
}