From ea950f6b160b64513183b0aec11cf44e1c354965 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Mon, 28 Mar 2022 11:50:49 +0700 Subject: [PATCH] Even further and beyond fixes to messages --- Bot/InviteTracker.fs | 40 +++++++++++++++++++++++++++------------- 1 file changed, 27 insertions(+), 13 deletions(-) diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs index 9872720..3649723 100644 --- a/Bot/InviteTracker.fs +++ b/Bot/InviteTracker.fs @@ -169,9 +169,9 @@ let private getInvitedUsers userId = let guildInviteEmbed = let rewardMsg = - $"**⏀ | Your Mission:**\nShare your UNIQUE LINK with any Degenz you want to `/recruit`.\n\n" + - $"**⌼ | Your Reward:**\n`Earn {InviteRewardAmount} $GBT` 💰 for every Degen you `/recruit`.\n\n" + - $"To check how many Degenz you have recruited into the army just type `/recruited`" + $"**Your Mission:**\nCLICK THE BUTTON below, then share your **UNIQUE LINK**\nwith any Degenz you want to invite into the Server.\n\n" + + $"**Your Reward:**\n`Earn {InviteRewardAmount} $GBT` 💰 for every Degen you invite into\nthe server, the **COMPLETES** hacker training.\n\n" + + $"**Commands:**\n`/recruit` - Invite Degenz into the server.\n`/recruited` - Check how many Degenz you've invited." let embed = DiscordEmbedBuilder() .WithColor(DiscordColor.Green) @@ -198,7 +198,12 @@ let private showInviteMessage (ctx : IDiscordContext) = match player.Active , result && Seq.contains hackerRole (ctx.GetDiscordMember().Roles) with | true , true -> do! ctx.FollowUp(guildInviteEmbed) | false , _ -> do! sendFollowUpMessage ctx $"You're not in the game! Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a private bunk, and **JOIN THE GAME!**" - | _ , false -> do! sendFollowUpMessage ctx $"You still haven't completed training! Go to <#{GuildEnvironment.channelTraining}> NOW to become a **HACKER**!" + | _ , false -> + do! sendFollowUpMessage ctx $""" +⚠️ Only Degen Hackers can `/recuit` others to the Degenz Army. +You must **COMPLETE YOUR TRAINING FIRST!** Then you can `/recruit`... +Go to {GuildEnvironment.channelTraining} now to become a **HACKER**! +""" | None -> do! sendFollowUpMessage ctx $"You're not in the game! Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a private bunk, and **JOIN THE GAME!**" } :> Task @@ -377,9 +382,14 @@ Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a private bunk, """ | AlreadyWhitelisted -> builder.Content <- $""" -🎉 You're already WHITELISTED! +✅ You’re **ALREADY** Whitelisted! Save some for other Degenz… -Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite}> +**Remember:** +Earn `{InviteRewardAmount} $GBT` 💰 for every Degen you `/recruit` into the game! + +**Commands:** +`/recruit` - Invite Degenz into the server. +`/recruited` - Check how many Degenz you’ve invited. """ | NotEnoughGBT total -> whitelistEmbed.Color <- DiscordColor.Red @@ -388,13 +398,12 @@ Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite} let msgEmbed = DiscordEmbedBuilder() msgEmbed.Color <- DiscordColor.Red msgEmbed.Description <- $""" -Oh no! - -You don't have enough **$GBT** to buy a WHITELIST spot! +Oh no! You don't have enough **$GBT** to buy a WHITELIST spot! Come back when you have `{WhitelistPrice - total}` more $GBT. -The quickest way to earn $GBT is to `/recruit`. You will earn `{InviteRewardAmount} 💰 $GBT` for every Degen you `/recruit`! +The quickest way to earn $GBT is to `/recruit`. +You WILL earn `{InviteRewardAmount} 💰 $GBT` for every Degen you `/recruit`! """ builder.AddComponents([ buyBtn ; recruitBtn ]) |> ignore builder.AddEmbed(msgEmbed) |> ignore @@ -437,11 +446,16 @@ Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite} do! ctx.GetDiscordMember().GrantRoleAsync(role) let! _ = DbService.updatePlayerCurrency -WhitelistPrice player builder.Content <- $""" -🎉 Congratulations you’ve been WHITELISTED! +🎉 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! -Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite}> +**Remember:** +Earn `100 $GBT` 💰 for every Degen you `/recruit` into the game! -`/recruit` other Degenz and get 💰 $GBT {InviteRewardAmount} for every Degen you recruit! +**Commands:** +`/recruit` - Invite Degenz into the server. +`/recruited` - Check how many Degenz you’ve invited. """ do! ctx.FollowUp(builder) } :> Task