From 518c33d7211ad13d02734dc497b5b8e34368ded0 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Tue, 21 Jun 2022 16:38:32 +0700 Subject: [PATCH] Disable whitelist --- Bot/Whitelist.fs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Bot/Whitelist.fs b/Bot/Whitelist.fs index d9d7a37..67b1647 100644 --- a/Bot/Whitelist.fs +++ b/Bot/Whitelist.fs @@ -58,10 +58,19 @@ let grantWhitelistRole isOg (ctx : IDiscordContext) = do! user.GrantRoleAsync(role) } :> Task +let showMessage (ctx : 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 ctx = DiscordEventContext event :> IDiscordContext match event.Id with - | id when id.StartsWith("GimmeWhitelist") -> Store.buy "WHITELIST" None ctx +// | id when id.StartsWith("GimmeWhitelist") -> Store.buy "WHITELIST" None ctx + | id when id.StartsWith("GimmeWhitelist") -> showMessage ctx | id when id.StartsWith("Buy") -> task { let id = ctx.GetInteractionId()