From 3c70fea2bace0fbddef63d64e62b4a51f683a4ab Mon Sep 17 00:00:00 2001
From: barelyprofessional
 <150058423+barelyprofessional@users.noreply.github.com>
Date: Tue, 25 Nov 2025 00:54:11 -0600
Subject: [PATCH] Added admin commands for everything but abandon and close.
 Changed selection time weighted payout to a property instead of having
 different types

---
 .../Commands/Kasino/KasinoEventCommands.cs    | 367 ++++++++++++++++++
 KfChatDotNetBot/Models/MoneyModels.cs         |   8 +-
 KfChatDotNetBot/Services/Money.cs             |   8 +
 KfChatDotNetBot/Settings/BuiltIn.cs           |  13 +
 4 files changed, 392 insertions(+), 4 deletions(-)
 create mode 100644 KfChatDotNetBot/Commands/Kasino/KasinoEventCommands.cs

diff --git a/KfChatDotNetBot/Commands/Kasino/KasinoEventCommands.cs b/KfChatDotNetBot/Commands/Kasino/KasinoEventCommands.cs
new file mode 100644
index 0000000..9db968f
--- /dev/null
+++ b/KfChatDotNetBot/Commands/Kasino/KasinoEventCommands.cs
@@ -0,0 +1,367 @@
+using System.Text.RegularExpressions;
+using Humanizer;
+using KfChatDotNetBot.Extensions;
+using KfChatDotNetBot.Models;
+using KfChatDotNetBot.Models.DbModels;
+using KfChatDotNetBot.Services;
+using KfChatDotNetBot.Settings;
+using KfChatDotNetWsClient.Models.Events;
+
+namespace KfChatDotNetBot.Commands.Kasino;
+
+public class KasinoNewEventCommand : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex("^kasino event new$", RegexOptions.IgnoreCase),
+        new Regex(@"^kasino event new (?<type>\w+)$", RegexOptions.IgnoreCase),
+        new Regex(@"^kasino event new (?<type>\w+) (?<description>.+)$", RegexOptions.IgnoreCase),
+    ];
+
+    public string? HelpText => "Create a new kasino event";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(10);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventWeightWinAgainstSelectionTime, BuiltIn.Keys.KasinoEventData,
+            BuiltIn.Keys.KasinoEventTextLengthLimit
+        ]);
+        if (!arguments.TryGetValue("type", out var type))
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, not enough arguments. !kasino event new <win-lose, time-prediction> <description>",
+                true, autoDeleteAfter: TimeSpan.FromSeconds(60));
+            return;
+        }
+
+        if (!arguments.TryGetValue("description", out var description))
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, not enough arguments. !kasino event new <win-lose, time-prediction> <description>",
+                true, autoDeleteAfter: TimeSpan.FromSeconds(60));
+            return;
+        }
+
+        if (description.Length > settings[BuiltIn.Keys.KasinoEventTextLengthLimit].ToType<int>())
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, your event description / text with a length of " +
+                                                   $"{description.Length} characters exceeds the limit of " +
+                                                   $"{settings[BuiltIn.Keys.KasinoEventTextLengthLimit].ToType<int>()} " +
+                                                   $"characters", true);
+            return;
+        }
+
+        var useTimeWeightedPayout = settings[BuiltIn.Keys.KasinoEventWeightWinAgainstSelectionTime].ToBoolean();
+        KasinoEventType eventType;
+        var guide = string.Empty;
+        if (type.Value.Equals("win-lose", StringComparison.CurrentCultureIgnoreCase))
+        {
+            eventType = KasinoEventType.WinLose;
+            guide = "Add option: !kasino event {EventId} options add|new <text>[br]" +
+                    "Remove option: !kasino event {EventId} options del|remove <option id>";
+        }
+        else if (type.Value.Equals("time-prediction", StringComparison.CurrentCultureIgnoreCase))
+        {
+            eventType = KasinoEventType.Prediction;
+        }
+        else
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, unknown event type given. Options are win-lose or time-prediction",
+                true, autoDeleteAfter: TimeSpan.FromSeconds(60));
+            return;
+        }
+
+        var eventData = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+        var newEvent = new KasinoEventModel
+        {
+            EventText = description.Value,
+            EventId = Money.GenerateEventId(),
+            Options = [],
+            EventType = eventType,
+            EventAnnouncementReceived = null,
+            EventState = KasinoEventState.Incomplete,
+            SelectionTimeWeightedPayout = useTimeWeightedPayout
+        };
+        eventData.Add(newEvent);
+        await SettingsProvider.SetValueAsJsonObjectAsync(BuiltIn.Keys.KasinoEventData, eventData);
+        await botInstance.SendChatMessageAsync(
+            $"{user.FormatUsername()}, new incomplete kasino event created. Event ID is {newEvent.EventId}.[br]" +
+            guide.Replace("{EventId}", newEvent.EventId) +
+            $"Start the event: !kasino event {newEvent.EventId} start[br]" +
+            $"Abandon the event: !kasino event {newEvent.EventId} abandon[br]" +
+            $"Get event info: !kasino event {newEvent.EventId} info", true);
+    }
+}
+
+public class KasinoEventStart : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex(@"^kasino event (?<event_id>\w+) start$", RegexOptions.IgnoreCase),
+    ];
+
+    public string? HelpText => "Start a Kasino event";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(300);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventData
+        ]);
+        var eventId = arguments["event_id"].Value; 
+        var eventList = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+        var targetEvent = eventList.FirstOrDefault(x => x.EventId == eventId);
+        if (targetEvent == null)
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, this event does not exist", true);
+            return;
+        }
+
+        if (targetEvent.EventState != KasinoEventState.Incomplete)
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, the event is in state '{targetEvent.EventState.Humanize()}'. Only incomplete events can be started",
+                true);
+            return;
+        }
+
+
+        var guide = $"Submit your prediction: !predict {targetEvent.EventId} <wager> 1h30m15s";
+        if (targetEvent.EventType == KasinoEventType.WinLose)
+        {
+            if (targetEvent.Options.Count == 0)
+            {
+                await botInstance.SendChatMessageAsync(
+                    $"{user.FormatUsername()}, you can't start a win-lose event with no options.", true);
+                return;
+            }
+
+            guide = targetEvent.Options.Aggregate(string.Empty,
+                (current, option) => current + $"{option.OptionId}: {option.OptionText}[br]");
+            guide += "Submit your choice: !";
+        }
+        targetEvent.EventState = KasinoEventState.PendingAnnouncement;
+        await SettingsProvider.SetValueAsJsonObjectAsync(BuiltIn.Keys.KasinoEventData, eventList);
+        var msg = $":!: :!: A Keno Kasino event has started! :!: :!:[br]{targetEvent.EventText}[br]{guide}";
+        var msgIds = await botInstance.SendChatMessagesAsync(msg.FancySplitMessage(partSeparator: "[br]"), true);
+        var i = 0;
+        while (msgIds[0].ChatMessageId != null)
+        {
+            i++;
+            await Task.Delay(TimeSpan.FromMilliseconds(100), ctx);
+            if (i > 3000) return;
+        }
+
+        targetEvent.EventState = KasinoEventState.Started;
+        targetEvent.EventAnnouncementReceived = msgIds[0].SentAt;
+        await SettingsProvider.SetValueAsJsonObjectAsync(BuiltIn.Keys.KasinoEventData, eventList);
+    }
+}
+
+public class KasinoNewEventOption : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex(@"^kasino event (?<event_id>\w+) options add (?<option_text>\.+)$", RegexOptions.IgnoreCase),
+        new Regex(@"^kasino event (?<event_id>\w+) options new (?<option_text>\.+)$", RegexOptions.IgnoreCase),
+    ];
+
+    public string? HelpText => "Add an option to a Kasino event";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(10);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventData, BuiltIn.Keys.KasinoEventOptionTextLengthLimit
+        ]);
+        var eventId = arguments["event_id"].Value; 
+        var eventList = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+        var targetEvent = eventList.FirstOrDefault(x => x.EventId == eventId);
+        if (targetEvent == null)
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, this event does not exist", true);
+            return;
+        }
+
+        if (targetEvent.EventState != KasinoEventState.Incomplete)
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, the event is in state '{targetEvent.EventState.Humanize()}'. Only incomplete events can have their options modified",
+                true);
+            return;
+        }
+
+        if (targetEvent.EventType == KasinoEventType.Prediction)
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, events based around time predictions can't have options", true);
+            return;
+        }
+
+        var optionText = arguments["option_text"].Value;
+        if (optionText.Length > settings[BuiltIn.Keys.KasinoEventOptionTextLengthLimit].ToType<int>())
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, your option text with a length of " +
+                                                   $"{optionText.Length} characters exceeds the limit of " +
+                                                   $"{settings[BuiltIn.Keys.KasinoEventOptionTextLengthLimit].ToType<int>()} " +
+                                                   $"characters", true);
+            return;
+        }
+        var newOption = new KasinoEventOptionModel
+        {
+            OptionId = Money.GenerateEventId(),
+            OptionText = optionText,
+            Won = false
+        };
+        targetEvent.Options.Add(newOption);
+        await SettingsProvider.SetValueAsJsonObjectAsync(BuiltIn.Keys.KasinoEventData, eventList);
+        await botInstance.SendChatMessageAsync(
+            $"{user.FormatUsername()}, created new option with id {newOption.OptionId}[br]To remove this option, run: !kasino event {targetEvent.EventId} options remove {newOption.OptionId}", true);
+    }
+}
+
+public class KasinoRemoveEventOption : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex(@"^kasino event (?<event_id>\w+) options del (?<option_id>\.+)$", RegexOptions.IgnoreCase),
+        new Regex(@"^kasino event (?<event_id>\w+) options remove (?<option_id>\.+)$", RegexOptions.IgnoreCase),
+    ];
+
+    public string? HelpText => "Remove an option from a Kasino event";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(10);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventData
+        ]);
+        var eventId = arguments["event_id"].Value; 
+        var eventList = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+        var targetEvent = eventList.FirstOrDefault(x => x.EventId == eventId);
+        if (targetEvent == null)
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, this event does not exist", true);
+            return;
+        }
+
+        if (targetEvent.EventState != KasinoEventState.Incomplete)
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, the event is in state '{targetEvent.EventState.Humanize()}'. Only incomplete events can have their options modified",
+                true);
+            return;
+        }
+
+        if (targetEvent.EventType == KasinoEventType.Prediction)
+        {
+            await botInstance.SendChatMessageAsync(
+                $"{user.FormatUsername()}, events based around time predictions can't have options", true);
+            return;
+        }
+
+        var optionId = arguments["optionId"].Value.ToLower();
+        var targetOption = targetEvent.Options.FirstOrDefault(x => x.OptionId == optionId);
+        if (targetOption == null)
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, the option ID you provided does not exist", true);
+            return;
+        }
+
+        targetEvent.Options.Remove(targetOption);
+        await SettingsProvider.SetValueAsJsonObjectAsync(BuiltIn.Keys.KasinoEventData, eventList);
+        await botInstance.SendChatMessageAsync(
+            $"{user.FormatUsername()}, removed option with id {targetOption.OptionId}", true);
+    }
+}
+
+public class KasinoGetEventInfo : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex(@"^kasino event (?<event_id>\w+) info$", RegexOptions.IgnoreCase),
+    ];
+
+    public string? HelpText => "Get Kasino event info";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(10);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventData
+        ]);
+        var eventId = arguments["event_id"].Value; 
+        var eventList = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+        var targetEvent = eventList.FirstOrDefault(x => x.EventId == eventId);
+        if (targetEvent == null)
+        {
+            await botInstance.SendChatMessageAsync($"{user.FormatUsername()}, this event does not exist", true);
+            return;
+        }
+
+        var response = $"{user.FormatUsername()}, Event ID {targetEvent.EventId} with type {targetEvent.EventType.Humanize()} " +
+                       $"which is in state {targetEvent.EventState.Humanize()} and has the following text:" +
+                       $"[br]{targetEvent.EventText.TrimStart('/')}";
+        if (targetEvent.EventType == KasinoEventType.WinLose)
+        {
+            response += "[br]Options:";
+            foreach (var option in targetEvent.Options)
+            {
+                response += $"[br]{option.OptionId}: {option.OptionText}";
+            }
+        }
+
+        response += $"[br]Event Announcement Received: {targetEvent.EventAnnouncementReceived?.ToString("o")}";
+        response += $"[br]Selection Time Weighted Payout: {targetEvent.SelectionTimeWeightedPayout}";
+        await botInstance.SendChatMessagesAsync(response.FancySplitMessage(partSeparator: "[br]"), true);
+    }
+}
+
+public class KasinoGetEvents : ICommand
+{
+    public List<Regex> Patterns =>
+    [
+        new Regex(@"^kasino events$", RegexOptions.IgnoreCase),
+        new Regex(@"^kasino event list$", RegexOptions.IgnoreCase),
+
+    ];
+
+    public string? HelpText => "Get Kasino events";
+    public UserRight RequiredRight => UserRight.TrueAndHonest;
+    public TimeSpan Timeout => TimeSpan.FromSeconds(10);
+    public RateLimitOptionsModel? RateLimitOptions => null;
+
+    public async Task RunCommand(ChatBot botInstance, MessageModel message, UserDbModel user, GroupCollection arguments,
+        CancellationToken ctx)
+    {
+        var settings = await SettingsProvider.GetMultipleValuesAsync([
+            BuiltIn.Keys.KasinoEventData
+        ]);
+        var eventList = settings[BuiltIn.Keys.KasinoEventData].JsonDeserialize<List<KasinoEventModel>>() ?? [];
+
+        var response = $"{user.FormatUsername()}, there are {eventList.Count} events in the database";
+        foreach (var targetEvent in eventList)
+        {
+            response += $"[br]{targetEvent.EventId} ({targetEvent.EventState.Humanize()}): {targetEvent.EventText}";
+        }
+        
+        await botInstance.SendChatMessagesAsync(response.FancySplitMessage(partSeparator: "[br]"), true);
+    }
+}
\ No newline at end of file
diff --git a/KfChatDotNetBot/Models/MoneyModels.cs b/KfChatDotNetBot/Models/MoneyModels.cs
index 97e7313..d818c08 100644
--- a/KfChatDotNetBot/Models/MoneyModels.cs
+++ b/KfChatDotNetBot/Models/MoneyModels.cs
@@ -85,6 +85,10 @@ public class KasinoEventModel
     /// State of the kasino event
     /// </summary>
     public required KasinoEventState EventState { get; set; } = KasinoEventState.Incomplete;
+    /// <summary>
+    /// Whether the payout is weighted based on the selection delay
+    /// </summary>
+    public required bool SelectionTimeWeightedPayout { get; set; } = false;
 }
 
 public class KasinoEventOptionModel
@@ -109,10 +113,6 @@ public enum KasinoEventType
     WinLose,
     [Description("Closest to prediction")]
     Prediction,
-    [Description("Closest to prediction (payout weighted to favor early bets)")]
-    PredictionSelectionTimeWeighted,
-    [Description("Win/Lose (payout weighted to favor early bets)")]
-    WinLoseSelectionTimeWeighted
 }
 
 public enum KasinoEventState
diff --git a/KfChatDotNetBot/Services/Money.cs b/KfChatDotNetBot/Services/Money.cs
index a3ea3c8..09a035c 100644
--- a/KfChatDotNetBot/Services/Money.cs
+++ b/KfChatDotNetBot/Services/Money.cs
@@ -497,4 +497,12 @@ public static class Money
         return payout;
     }
     
+    /// <summary>
+    /// Generate a short random string based on the first 4 bytes of a GUID for event IDs
+    /// </summary>
+    /// <returns>Returns a lowercase hex representation of the 4 bytes. e.g. 7ec79eb2</returns>
+    public static string GenerateEventId()
+    {
+        return Convert.ToHexString(Guid.NewGuid().ToByteArray()[..4]).ToLower();
+    }
 }
\ No newline at end of file
diff --git a/KfChatDotNetBot/Settings/BuiltIn.cs b/KfChatDotNetBot/Settings/BuiltIn.cs
index 4ed1b54..df9e133 100644
--- a/KfChatDotNetBot/Settings/BuiltIn.cs
+++ b/KfChatDotNetBot/Settings/BuiltIn.cs
@@ -428,6 +428,19 @@ public static class BuiltIn
         public static string KasinoPlanesTargetedRiggeryVictims = "Kasino.Planes.TargetedRiggeryVictims";
         [BuiltInSetting("Table of locks to look for before checking if someone is live / initiating a capture", SettingValueType.Complex, "{}")]
         public static string CaptureLockTable = "Capture.LockTable";
+        [BuiltInSetting("Whether the win is weighted against selection time", SettingValueType.Boolean,
+            "true", BooleanRegex)]
+        public static string KasinoEventWeightWinAgainstSelectionTime = "Kasino.Event.WeightWinAgainstSelectionTime";
+        [BuiltInSetting("Kasino event data", SettingValueType.Complex, "[]")]
+        public static string KasinoEventData = "Kasino.Event.Data";
+        [BuiltInSetting("Kasino event minimum acceptable bet", SettingValueType.Text, "100", WholeNumberRegex)]
+        public static string KasinoEventBetMin = "Kasino.Event.BetMin";
+        [BuiltInSetting("Kasino event maximum acceptable bet (0 means unlimited)", SettingValueType.Text, "0", WholeNumberRegex)]
+        public static string KasinoEventBetMax = "Kasino.Event.BetMax";
+        [BuiltInSetting("Length limit for Kasino event text", SettingValueType.Text, "250", WholeNumberRegex)]
+        public static string KasinoEventTextLengthLimit = "Kasino.Event.TextLengthLimit";
+        [BuiltInSetting("Length limit for Kasino event option text", SettingValueType.Text, "250", WholeNumberRegex)]
+        public static string KasinoEventOptionTextLengthLimit = "Kasino.Event.OptionTextLengthLimit";
     }
 }