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()