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 guildInviteEmbed =
let rewardMsg = let rewardMsg =
$"**⏀ | Your Mission:**\nShare your UNIQUE LINK with any Degenz you want to `/recruit`.\n\n" + $"**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 `/recruit`.\n\n" + $"**Your Reward:**\n`Earn {InviteRewardAmount} $GBT` 💰 for every Degen you invite into\nthe server, the **COMPLETES** hacker training.\n\n" +
$"To check how many Degenz you have recruited into the army just type `/recruited`" $"**Commands:**\n`/recruit` - Invite Degenz into the server.\n`/recruited` - Check how many Degenz you've invited."
let embed = let embed =
DiscordEmbedBuilder() DiscordEmbedBuilder()
.WithColor(DiscordColor.Green) .WithColor(DiscordColor.Green)
@ -198,7 +198,12 @@ let private showInviteMessage (ctx : IDiscordContext) =
match player.Active , result && Seq.contains hackerRole (ctx.GetDiscordMember().Roles) with match player.Active , result && Seq.contains hackerRole (ctx.GetDiscordMember().Roles) with
| true , true -> do! ctx.FollowUp(guildInviteEmbed) | 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'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 -> | 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!**" 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 } :> Task
@ -377,9 +382,14 @@ Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a private bunk,
""" """
| AlreadyWhitelisted -> | AlreadyWhitelisted ->
builder.Content <- $""" 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 -> | NotEnoughGBT total ->
whitelistEmbed.Color <- DiscordColor.Red whitelistEmbed.Color <- DiscordColor.Red
@ -388,13 +398,12 @@ Come hang with all the other VIP Degenz in the <#{GuildEnvironment.channelElite}
let msgEmbed = DiscordEmbedBuilder() let msgEmbed = DiscordEmbedBuilder()
msgEmbed.Color <- DiscordColor.Red msgEmbed.Color <- DiscordColor.Red
msgEmbed.Description <- $""" msgEmbed.Description <- $"""
Oh no! Oh no! You don't have enough **$GBT** to buy a WHITELIST spot!
You don't have enough **$GBT** to buy a WHITELIST spot!
Come back when you have `{WhitelistPrice - total}` more $GBT. 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.AddComponents([ buyBtn ; recruitBtn ]) |> ignore
builder.AddEmbed(msgEmbed) |> 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) do! ctx.GetDiscordMember().GrantRoleAsync(role)
let! _ = DbService.updatePlayerCurrency -WhitelistPrice player let! _ = DbService.updatePlayerCurrency -WhitelistPrice player
builder.Content <- $""" 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) do! ctx.FollowUp(builder)
} :> Task } :> Task