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

Even further and beyond fixes to messages

Browse Source
This commit is contained in:
Joseph Ferano 2022-03-28 11:50:49 +07:00
parent 9046aee6b6
commit ea950f6b16
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Bot/InviteTracker.fs
View File

@ -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