From 8e15299b57a0df91cfba3a5a19b38d80ad2e53b9 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Mon, 20 Jun 2022 23:16:06 +0700 Subject: [PATCH] More mint messages --- Bot/Games/HackerBattle.fs | 37 +++++++++++++++++++++++-------------- Bot/Games/SlotMachine.fs | 35 ++++++++++++++++++++++------------- 2 files changed, 45 insertions(+), 27 deletions(-) diff --git a/Bot/Games/HackerBattle.fs b/Bot/Games/HackerBattle.fs index 4b75c96..d80ef1a 100644 --- a/Bot/Games/HackerBattle.fs +++ b/Bot/Games/HackerBattle.fs @@ -280,20 +280,29 @@ let arsenal (ctx : IDiscordContext) = }) let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) = - let eventCtx = DiscordEventContext event :> IDiscordContext - match event.Id with - | id when id.StartsWith("Attack") -> handleAttack eventCtx - | id when id.StartsWith("Defend") -> handleDefense eventCtx - | id when id.StartsWith("Trainer") -> Trainer.handleButtonEvent eventCtx |> Async.StartAsTask :> Task - | id when id.StartsWith("Steal") -> Thief.handleSteal eventCtx - | id when id.StartsWith("RPS") -> RockPaperScissors.handleRPS eventCtx - | _ -> - task { - let builder = DiscordInteractionResponseBuilder() - builder.IsEphemeral <- true - builder.Content <- $"Incorrect Action identifier {eventCtx.GetInteractionId()}" - do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask - } + let ctx = DiscordEventContext event :> IDiscordContext + task { + let builder = DiscordInteractionResponseBuilder() + builder.IsEphemeral <- true + builder.Content <- $"🚀 __Mint Date:__ June 20th 6:30 UTC " + do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask + } : Task + +//let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) = +// let eventCtx = DiscordEventContext event :> IDiscordContext +// match event.Id with +// | id when id.StartsWith("Attack") -> handleAttack eventCtx +// | id when id.StartsWith("Defend") -> handleDefense eventCtx +// | id when id.StartsWith("Trainer") -> Trainer.handleButtonEvent eventCtx |> Async.StartAsTask :> Task +// | id when id.StartsWith("Steal") -> Thief.handleSteal eventCtx +// | id when id.StartsWith("RPS") -> RockPaperScissors.handleRPS eventCtx +// | _ -> +// task { +// let builder = DiscordInteractionResponseBuilder() +// builder.IsEphemeral <- true +// builder.Content <- $"Incorrect Action identifier {eventCtx.GetInteractionId()}" +// do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask +// } let handleMessageCreated _ (event : MessageCreateEventArgs) = task { diff --git a/Bot/Games/SlotMachine.fs b/Bot/Games/SlotMachine.fs index fcefac4..143887d 100644 --- a/Bot/Games/SlotMachine.fs +++ b/Bot/Games/SlotMachine.fs @@ -320,19 +320,28 @@ let spin multiplier (ctx : IDiscordContext) = }) let handleButton _ (event : ComponentInteractionCreateEventArgs) = - let ctx = DiscordEventContext event - match event.Id with - | "spin-1x" -> spin 1 ctx - | "spin-2x" -> spin 2 ctx - | "spin-3x" -> spin 3 ctx - | "prizes" -> handlePrizeTable ctx - | _ -> - printfn "Wrong Spin ID" - Task.CompletedTask - |> Async.AwaitTask - |> Async.Start - Task.CompletedTask - + let ctx = DiscordEventContext event :> IDiscordContext + task { + let builder = DiscordInteractionResponseBuilder() + builder.IsEphemeral <- true + builder.Content <- $"🚀 __Mint Date:__ June 20th 6:30 UTC " + do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask + } : Task + +//let handleButton _ (event : ComponentInteractionCreateEventArgs) = +// let ctx = DiscordEventContext event +// match event.Id with +// | "spin-1x" -> spin 1 ctx +// | "spin-2x" -> spin 2 ctx +// | "spin-3x" -> spin 3 ctx +// | "prizes" -> handlePrizeTable ctx +// | _ -> +// printfn "Wrong Spin ID" +// Task.CompletedTask +// |> Async.AwaitTask +// |> Async.Start +// Task.CompletedTask +// let handleMessageCreated _ (event : MessageCreateEventArgs) = task { if event.Channel.Id = GuildEnvironment.channelSlots && event.Author.Id <> GuildEnvironment.botClientSlots.Value.CurrentUser.Id then