Grant role (comment out) depending on how many recruits
This commit is contained in:
parent
810384d3fe
commit
fc63202535
@ -108,11 +108,11 @@ GuildEnvironment.botClientJpeg <- Some jpegBot
|
||||
storeBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
|
||||
GuildEnvironment.botClientStore <- Some storeBot
|
||||
|
||||
adminBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
|
||||
|
||||
hackerBattleBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
|
||||
GuildEnvironment.botClientHacker <- Some hackerBattleBot
|
||||
|
||||
adminBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
|
||||
|
||||
inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
|
||||
GuildEnvironment.botClientRecruit <- Some inviterBot
|
||||
|
||||
|
||||
@ -432,13 +432,13 @@ let sendBackalleyEmbed (ctx : IDiscordContext) =
|
||||
let embed = DiscordEmbedBuilder()
|
||||
embed.ImageUrl <- "https://s7.gifyu.com/images/ezgif.com-gif-maker-23203b9dca779ba7cf.gif"
|
||||
embed.Title <- "🎟️ Raffle Store"
|
||||
embed.Color <- DiscordColor.Black
|
||||
embed.Color <- DiscordColor.Lilac
|
||||
embed.Description <- $"Hey, what do you want, kid?\nI ain’t got all day…"
|
||||
builder.AddEmbed embed |> ignore
|
||||
let button1 = DiscordButtonComponent(ButtonStyle.Danger, $"ShowStore-0-BACKALLEY1", $"NFT Raffles") :> DiscordComponent
|
||||
let button2 = DiscordButtonComponent(ButtonStyle.Success, $"ShowStore-0-BACKALLEY2", $"Whitelist Raffles") :> DiscordComponent
|
||||
let button1 = DiscordButtonComponent(ButtonStyle.Danger, $"ShowStore-0-BACKALLEY1", $"NFT Raffle") :> DiscordComponent
|
||||
let button2 = DiscordButtonComponent(ButtonStyle.Success, $"ShowStore-0-BACKALLEY2", $"Whitelist Raffle") :> DiscordComponent
|
||||
// let button3 = DiscordButtonComponent(ButtonStyle.Success, $"ShowStore-0-BACKALLEY3", $"USDT Raffles") :> DiscordComponent
|
||||
let button4 = DiscordButtonComponent(ButtonStyle.Primary, $"ShowJpegInventory-0-0", $"View My Stash") :> DiscordComponent
|
||||
let button4 = DiscordButtonComponent(ButtonStyle.Primary, $"ShowJpegInventory-0-0", $"My Stash") :> DiscordComponent
|
||||
builder.AddComponents [| button1 ; button2 ; button4 |] |> ignore
|
||||
|
||||
do! GuildEnvironment.botClientJpeg.Value.SendMessageAsync(channel, builder)
|
||||
|
||||
@ -60,6 +60,9 @@ let roleWhitelist = getId "ROLE_WHITELIST"
|
||||
let roleWhiteOG = getId "ROLE_WHITEOG"
|
||||
let roleAdmin = getId "ROLE_ADMIN"
|
||||
let roleMagicEden = getId "ROLE_MAGICEDEN"
|
||||
let roleRecruiter1x = getId "ROLE_RECRUITER_1X"
|
||||
let roleRecruiter2x = getId "ROLE_RECRUITER_2X"
|
||||
let roleRecruiter3x = getId "ROLE_RECRUITER_3X"
|
||||
let mutable botClientRecruit : DiscordClient option = None
|
||||
let mutable botClientHacker : DiscordClient option = None
|
||||
let mutable botClientSlots : DiscordClient option = None
|
||||
|
||||
@ -286,13 +286,13 @@ let private processNewUser (eventArgs : GuildMemberAddEventArgs) =
|
||||
| None -> ()
|
||||
} :> Task
|
||||
|
||||
let acceptInvite (guild : DiscordGuild) discordId memberName =
|
||||
let acceptInvite (guild : DiscordGuild) (user : DiscordMember) =
|
||||
task {
|
||||
match! checkInviteAccepted discordId with
|
||||
match! checkInviteAccepted user.Id with
|
||||
| false ->
|
||||
let! _ = markInvitedAccepted discordId |> Async.Ignore
|
||||
let! _ = markInvitedAccepted user.Id |> Async.Ignore
|
||||
try
|
||||
let! invite = getInviteFromInvitedUser discordId
|
||||
let! invite = getInviteFromInvitedUser user.Id
|
||||
let! player = DbService.tryFindPlayer invite.Inviter
|
||||
match player with
|
||||
| Some player ->
|
||||
@ -300,14 +300,21 @@ let acceptInvite (guild : DiscordGuild) discordId memberName =
|
||||
do! match GuildEnvironment.botClientRecruit with
|
||||
| Some recruitBot -> async {
|
||||
let builder = DiscordMessageBuilder()
|
||||
builder.WithContent($"{memberName} was recruited and is now a Degen. **{player.Name}** just earned `{InviteRewardAmount} 💰$GBT` for their efforts! - <@!{player.DiscordId}>") |> ignore
|
||||
builder.WithContent($"{user.Username} was recruited and is now a Degen. **{player.Name}** just earned `{InviteRewardAmount} 💰$GBT` for their efforts! - <@!{player.DiscordId}>") |> ignore
|
||||
let channel = guild.GetChannel(GuildEnvironment.channelEventsHackerBattle)
|
||||
do! recruitBot.SendMessageAsync(channel, builder)
|
||||
|> Async.AwaitTask
|
||||
|> Async.Ignore
|
||||
}
|
||||
| None -> async.Return()
|
||||
do! Analytics.invitedUserAccepted invite.Code player.DiscordId discordId player.Name memberName
|
||||
let role =
|
||||
match invite.Count with
|
||||
| count when count > 10 -> guild.Roles.TryGetValue(GuildEnvironment.roleRecruiter3x)
|
||||
| count when count > 5 -> guild.Roles.TryGetValue(GuildEnvironment.roleRecruiter2x)
|
||||
| _ -> guild.Roles.TryGetValue(GuildEnvironment.roleRecruiter1x)
|
||||
|> snd
|
||||
do! user.GrantRoleAsync(role)
|
||||
do! Analytics.invitedUserAccepted invite.Code player.DiscordId user.Id player.Name user.Username
|
||||
| None -> return ()
|
||||
with _ -> ()
|
||||
| true -> return ()
|
||||
@ -327,13 +334,13 @@ let sendInitialEmbed (ctx : IDiscordContext) =
|
||||
2️⃣ Share your unique link with Friends
|
||||
|
||||
**__Bonus__**
|
||||
💰 Earn an extra 300 $GBT for every invite!
|
||||
💰 Earn an extra {InviteRewardAmount} $GBT for every invite!
|
||||
|
||||
**Every invite increases your chances of winning*
|
||||
"""
|
||||
let embed =
|
||||
DiscordEmbedBuilder()
|
||||
.WithColor(DiscordColor.CornflowerBlue)
|
||||
.WithColor(DiscordColor.Gold)
|
||||
.WithDescription(rewardMsg)
|
||||
.WithImageUrl("https://s8.gifyu.com/images/invite-banner-usdcb670496dc3653cb3.png")
|
||||
.WithTitle("Invite Degenz")
|
||||
@ -376,7 +383,7 @@ To confirm your **Whitelist** please submit it below:
|
||||
**Check status anytime to double check it worked*"""
|
||||
let embed =
|
||||
DiscordEmbedBuilder()
|
||||
.WithColor(DiscordColor.White)
|
||||
.WithColor(DiscordColor.Teal)
|
||||
.WithDescription(rewardMsg)
|
||||
.WithImageUrl("https://s8.gifyu.com/images/whitelist-submit-banner7.png")
|
||||
.WithTitle("Submit Your Solana Wallet Address")
|
||||
@ -446,7 +453,7 @@ let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEvent
|
||||
| role::_ ->
|
||||
if role.Name = "Degen" then
|
||||
let (_,guild) = client.Guilds.TryGetValue(GuildEnvironment.guildId)
|
||||
do! acceptInvite guild event.Member.Id event.Member.Username |> Async.AwaitTask
|
||||
do! acceptInvite guild event.Member |> Async.AwaitTask
|
||||
return ()
|
||||
} :> Task
|
||||
|
||||
|
||||
@ -22,11 +22,11 @@ let sendInitialEmbed (ctx : IDiscordContext) =
|
||||
let embed = DiscordEmbedBuilder()
|
||||
embed.ImageUrl <- "https://s8.gifyu.com/images/whitelist-banner-smaller2.gif"
|
||||
embed.Title <- "Degenz Game Whitelist"
|
||||
embed.Color <- DiscordColor.White
|
||||
embed.Color <- DiscordColor.Azure
|
||||
embed.Description <- $"""
|
||||
**__Requirements:__**
|
||||
You need to BUY Whitelist with 💰 $GBT
|
||||
You must have INVITED at least 1 Degen…
|
||||
You must also have INVITED at least 1 Degen…
|
||||
|
||||
**__To Earn $GBT:__**
|
||||
1️⃣ Invite Degenz in <#{GuildEnvironment.channelRecruitment}>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user