JosephFerano/discord-bot-game
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Disable whitelist

Browse Source
This commit is contained in:
Joseph Ferano 2022-06-21 16:38:32 +07:00
parent f7814b8f5c
commit 518c33d721
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Bot/Whitelist.fs
View File

@ -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 <t:1655749800:R>"
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()