From efb5680b73bedf91f9fb7b3bd18a39085a5ab497 Mon Sep 17 00:00:00 2001
From: Joseph Ferano <joseph@ferano.io>
Date: Mon, 28 Mar 2022 18:17:48 +0700
Subject: [PATCH] More changes

---
 Bot/InviteTracker.fs | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs
index 762a293..377175d 100644
--- a/Bot/InviteTracker.fs
+++ b/Bot/InviteTracker.fs
@@ -376,7 +376,9 @@ Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a bunk, and **JO
 """
 
 let alreadyWhitelistedMsg = $"""
-✅  You’re **ALREADY** Whitelisted! Save some for other Degenz… **REMEMBER**, you can earn `{InviteRewardAmount} $GBT` 💰 for every Degen you `/recruit` into the game!
+✅  You’re **ALREADY** Whitelisted! Save some for other Degenz…
+
+Remember, you can earn `{InviteRewardAmount} $GBT` 💰 for every Degen you `/recruit` into the game!
 
 **Commands:**
 `/recruit` - Invite Degenz into the server.
@@ -402,12 +404,13 @@ let handleGimmeWhitelist (ctx : IDiscordContext) =
         do! ctx.Respond(InteractionResponseType.DeferredChannelMessageWithSource, builder)
 
         let whitelistEmbed = DiscordEmbedBuilder()
-        whitelistEmbed.ImageUrl <- "https://s7.gifyu.com/images/whitelist-item-mock-banner18.png"
         whitelistEmbed.Title <- "1x Degenz Game Whitelist                                                                  ‎"
-        whitelistEmbed.AddField("Item", "1x Whitelist", true) |> ignore
-        whitelistEmbed.AddField("Available", "750", true) |> ignore
-        whitelistEmbed.AddField("Price 💰", $"{WhitelistPrice} $GBT", true) |> ignore
-        whitelistEmbed.Color <- DiscordColor.Red
+        let includeInfo () =
+            whitelistEmbed.ImageUrl <- "https://s7.gifyu.com/images/whitelist-item-mock-banner18.png"
+            whitelistEmbed.AddField("Item", "1x Whitelist", true) |> ignore
+            whitelistEmbed.AddField("Available", "750", true) |> ignore
+            whitelistEmbed.AddField("Price 💰", $"{WhitelistPrice} $GBT", true) |> ignore
+            whitelistEmbed.Color <- DiscordColor.Red
         let buyBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now", true) :> DiscordComponent
         let buyActiveBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now") :> DiscordComponent
         let recruitBtn = DiscordButtonComponent(ButtonStyle.Danger, $"ShowRecruitmentEmbed", $"Recruit Now") :> DiscordComponent
@@ -422,9 +425,11 @@ let handleGimmeWhitelist (ctx : IDiscordContext) =
             whitelistEmbed.Color <- DiscordColor.Green
             whitelistEmbed.Description <- alreadyWhitelistedMsg
         | NotEnoughGBT total ->
+            includeInfo()
             builder.AddComponents([ buyBtn ; recruitBtn ]) |> ignore
             whitelistEmbed.Description <- notEnoughMoneyMsg total
         | Granted _ ->
+            includeInfo()
             whitelistEmbed.Color <- DiscordColor.Green
             whitelistEmbed.Color <- DiscordColor.Green
             builder.AddComponents([ buyActiveBtn ]) |> ignore
@@ -434,12 +439,11 @@ let handleGimmeWhitelist (ctx : IDiscordContext) =
     } :> Task
 
 let buyWhitelistMsg = $"""
-🎉  Congratulations you’ve been **WHITELISTED**!
-Now type `/recruit` and share **YOUR UNIQUE LINK** with any Degenz
-you want to invite into the game, and let them earn whitelist too!
+🎉  Congratulations you’ve been **WHITELISTED!**
 
 **Remember:**
-Earn `100 $GBT` 💰 for every Degen you `/recruit` into the game!
+Earn `100 $GBT` 💰 for every Degen you recruit into the game!
+Just type `/recruit` anywhere, or press the button below...
 
 **Commands:**
 `/recruit` - Invite Degenz into the server.
@@ -463,10 +467,16 @@ Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite}
 """
         | NotEnoughGBT _ -> builder.Content <- $"You somehow do not have enough $GBT, what exactly are you doing?"
         | Granted player ->
+            let embed = DiscordEmbedBuilder()
+            embed.Description <- buyWhitelistMsg
+            embed.Color <- DiscordColor.Green
+
+            let recruitBtn = DiscordButtonComponent(ButtonStyle.Danger, $"ShowRecruitmentEmbed", $"Recruit Now") :> DiscordComponent
+            builder.AddComponents ([ recruitBtn ]) |> ignore
             let role = ctx.GetGuild().GetRole(GuildEnvironment.roleWhitelist)
             do! ctx.GetDiscordMember().GrantRoleAsync(role)
             let! _ = DbService.updatePlayerCurrency -WhitelistPrice player
-            builder.Content <- buyWhitelistMsg
+            builder.AddEmbed(embed) |> ignore
         do! ctx.FollowUp(builder)
     } :> Task