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

More copy, images

Browse Source
This commit is contained in:
Joseph Ferano 2022-05-12 11:48:31 +07:00
parent dd2f155cfd
commit c4eb2af1f8
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Bot/Whitelist.fs
View File

@ -20,25 +20,20 @@ let sendInitialEmbed (ctx : IDiscordContext) =
let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelWhitelist)
let builder = DiscordMessageBuilder()
let embed = DiscordEmbedBuilder()
embed.ImageUrl <- "https://s1.gifyu.com/images/whitelist-image-2.gif"
embed.ImageUrl <- "https://s8.gifyu.com/images/ezgif.com-gif-maker-28812274030e36e4b1.gif"
embed.Title <- "Degenz Game Whitelist"
embed.Color <- DiscordColor.White
embed.Description <- """
In **Beautopia ©** you BUY Whitelist with 💰 $GBT...
__To earn $GBT You Can:__
**__To earn $GBT You Can:__**
1️⃣ Recruit other Degenz into the server in #🙋｜invite
2️⃣ Be helpful & chat in #💬｜general-chat to level up!
3️⃣ Complete Quests inside #🕹｜quests
"""
let! wl = DbService.getStoreItemBySymbol "WHITELIST"
let! wlOG = DbService.getStoreItemBySymbol "WHITEOG"
embed.AddField("1x Whitelist", $"Price `{Inventory.getBuyPrice wl.Item} $GBT`", true) |> ignore
embed.AddField("1x OG Whitelist", $"Price `{Inventory.getBuyPrice wlOG.Item} $GBT`", true) |> ignore
builder.AddEmbed embed |> ignore
let btn1 = DiscordButtonComponent(ButtonStyle.Success, $"Buy-WHITELIST-WHITELIST", $"Buy Whitelist") :> DiscordComponent
let btn2 = DiscordButtonComponent(ButtonStyle.Success, $"Buy-WHITEOG-WHITELIST", $"Buy OG Whitelist") :> DiscordComponent
builder.AddComponents [| btn1 ; btn2 |] |> ignore
let btn1 = DiscordButtonComponent(ButtonStyle.Success, $"GimmeWhitelist", $"Buy Whitelist") :> DiscordComponent
builder.AddComponents [| btn1 |] |> ignore
do! GuildEnvironment.botClientRecruit.Value.SendMessageAsync(channel, builder)
|> Async.AwaitTask
@ -56,6 +51,7 @@ let grantWhitelistRole (ctx : IDiscordContext) =
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("Buy") ->
task {
let id = ctx.GetInteractionId()