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

Moar

Browse Source
This commit is contained in:
Joseph Ferano 2022-03-28 18:29:50 +07:00
parent efb5680b73
commit 2519220ea5
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Bot/GuildEnvironment.fs
View File

@ -26,7 +26,6 @@ let channelArmory = getId "CHANNEL_ARMORY"
let channelBattle = getId "CHANNEL_BATTLE" let channelBattle = getId "CHANNEL_BATTLE"
let channelWelcome = getId "CHANNEL_WELCOME" let channelWelcome = getId "CHANNEL_WELCOME"
let channelWhitelist = getId "CHANNEL_WHITELIST" let channelWhitelist = getId "CHANNEL_WHITELIST"
let channelElite = getId "CHANNEL_ELITE"
let channelTosserTed = getId "CHANNEL_TOSSERTED" let channelTosserTed = getId "CHANNEL_TOSSERTED"
let channelShelters = getId "CHANNEL_SHELTERS" let channelShelters = getId "CHANNEL_SHELTERS"
//let channelBackAlley = getId "CHANNEL_BACKALLEY" //let channelBackAlley = getId "CHANNEL_BACKALLEY"

13
Bot/InviteTracker.fs
View File

@ -184,7 +184,7 @@ let guildInviteEmbed =
.AddEmbed(embed) .AddEmbed(embed)
.AsEphemeral(true) .AsEphemeral(true)
let button = DiscordButtonComponent(ButtonStyle.Success, $"CreateGuildInvite", $"Give Me the Link") :> DiscordComponent let button = DiscordButtonComponent(ButtonStyle.Success, $"CreateGuildInvite", $"GET MY UNIQUE LINK") :> DiscordComponent
builder.AddComponents [| button |] builder.AddComponents [| button |]
let private showInviteMessage (ctx : IDiscordContext) = let private showInviteMessage (ctx : IDiscordContext) =
@ -378,7 +378,9 @@ Go to <#{GuildEnvironment.channelShelters}> NOW to get assigned a bunk, and **JO
let alreadyWhitelistedMsg = $""" let alreadyWhitelistedMsg = $"""
✅ You’re **ALREADY** Whitelisted! Save some for other Degenz… ✅ You’re **ALREADY** Whitelisted! Save some for other Degenz…
Remember, you can earn `{InviteRewardAmount} $GBT` 💰 for every Degen you `/recruit` into the game! **Remember:**
Earn `100 $GBT` 💰 for every Degen you recruit into the game!
Just type `/recruit` anywhere, or press the button below...
**Commands:** **Commands:**
`/recruit` - Invite Degenz into the server. `/recruit` - Invite Degenz into the server.
@ -459,12 +461,7 @@ let handleBuyWhitelist (ctx : IDiscordContext) =
match! tryGrantWhitelist ctx with match! tryGrantWhitelist ctx with
| NotAHacker -> builder.Content <- $"You are somehow not a hacker anymore, what exactly are you doing?" | NotAHacker -> builder.Content <- $"You are somehow not a hacker anymore, what exactly are you doing?"
| NotInGame -> builder.Content <- $"You somehow have left the game, what exactly are you doing?" | NotInGame -> builder.Content <- $"You somehow have left the game, what exactly are you doing?"
| AlreadyWhitelisted -> | AlreadyWhitelisted -> builder.Content <- "🎉 You're already WHITELISTED!"
builder.Content <- $"""
🎉 You're already WHITELISTED!
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?" | NotEnoughGBT _ -> builder.Content <- $"You somehow do not have enough $GBT, what exactly are you doing?"
| Granted player -> | Granted player ->
let embed = DiscordEmbedBuilder() let embed = DiscordEmbedBuilder()