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

Whitelist copy

Browse Source
This commit is contained in:
Joseph Ferano 2022-05-11 22:41:39 +07:00
parent ea89d9d9cd
commit dd2f155cfd
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Bot/Bot.fs
View File

@ -100,17 +100,17 @@ let asdf _ (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) =
:> Task
//hackerBattleBot.add_InteractionCreated(AsyncEventHandler(asdf))
adminBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientRecruit <- Some inviterBot
storeBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientStore <- Some storeBot
jpegBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientJpeg <- Some jpegBot
inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientRecruit <- Some inviterBot
adminBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
hackerBattleBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientHacker <- Some hackerBattleBot

13
Bot/Whitelist.fs
View File

@ -21,15 +21,20 @@ let sendInitialEmbed (ctx : IDiscordContext) =
let builder = DiscordMessageBuilder()
let embed = DiscordEmbedBuilder()
embed.ImageUrl <- "https://s1.gifyu.com/images/whitelist-image-2.gif"
embed.Title <- "Degenz Game"
embed.Title <- "Degenz Game Whitelist"
embed.Color <- DiscordColor.White
embed.Description <- """
Buy your Whitelist Discord Role below. OG's get to mint more NFTs on Mint day.
In **Beautopia ©** you BUY Whitelist with 💰 $GBT...
__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") |> ignore
embed.AddField("1x OG Whitelist", $"Price {Inventory.getBuyPrice wlOG.Item} $GBT") |> ignore
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