diff --git a/Bot/Bot.fs b/Bot/Bot.fs index 37b10fc..9359f29 100644 --- a/Bot/Bot.fs +++ b/Bot/Bot.fs @@ -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 diff --git a/Bot/Whitelist.fs b/Bot/Whitelist.fs index b09c843..a3cc862 100644 --- a/Bot/Whitelist.fs +++ b/Bot/Whitelist.fs @@ -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