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

Make chip send recruit message. Tick recruit embed

Browse Source
This commit is contained in:
Joseph Ferano 2022-04-03 17:24:56 +07:00
parent b6e45bd1d9
commit 1f98d05d3e
3 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Bot/Bot.fs
View File

@ -93,6 +93,8 @@ storeBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botUserArmory <- Some storeBot.CurrentUser GuildEnvironment.botUserArmory <- Some storeBot.CurrentUser
inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
GuildEnvironment.botClientRecruit <- Some inviterBot
//stealBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously //stealBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously
let rec loop areBotsRunning = let rec loop areBotsRunning =

2
Bot/GuildEnvironment.fs
View File

@ -2,6 +2,7 @@
module Degenz.GuildEnvironment module Degenz.GuildEnvironment
open System open System
open DSharpPlus
open DSharpPlus.Entities open DSharpPlus.Entities
open dotenv.net open dotenv.net
@ -46,3 +47,4 @@ let roleWhitelist = getId "ROLE_WHITELIST"
let mutable botUserHackerBattle : DiscordUser option = None let mutable botUserHackerBattle : DiscordUser option = None
let mutable botUserArmory : DiscordUser option = None let mutable botUserArmory : DiscordUser option = None
let mutable botClientRecruit : DiscordClient option = None

22
Bot/InviteTracker.fs
View File

@ -301,12 +301,16 @@ let acceptInvite (ctx : IDiscordContext) (invitedPlayer : PlayerData) =
match player with match player with
| Some player -> | Some player ->
do! DbService.updatePlayerCurrency (int InviteRewardAmount) player |> Async.Ignore do! DbService.updatePlayerCurrency (int InviteRewardAmount) player |> Async.Ignore
let builder = DiscordMessageBuilder() do! match GuildEnvironment.botClientRecruit with
builder.WithContent($"{invitedPlayer.Name} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore | Some recruitBot -> async {
let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelEventsHackerBattle) let builder = DiscordMessageBuilder()
do! channel.SendMessageAsync(builder) builder.WithContent($"{invitedPlayer.Name} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore
|> Async.AwaitTask let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelEventsHackerBattle)
|> Async.Ignore do! recruitBot.SendMessageAsync(channel, builder)
|> Async.AwaitTask
|> Async.Ignore
}
| None -> async.Return()
do! Analytics.invitedUserAccepted invite.Code player.DiscordId invitedPlayer.DiscordId player.Name invitedPlayer.Name do! Analytics.invitedUserAccepted invite.Code player.DiscordId invitedPlayer.DiscordId player.Name invitedPlayer.Name
| None -> return () | None -> return ()
with _ -> () with _ -> ()
@ -418,9 +422,9 @@ let handleGimmeWhitelist (ctx : IDiscordContext) =
whitelistEmbed.Title <- "1x Degenz Game Whitelist ‎" whitelistEmbed.Title <- "1x Degenz Game Whitelist ‎"
let includeInfo () = let includeInfo () =
whitelistEmbed.ImageUrl <- "https://s7.gifyu.com/images/whitelist-item-mock-banner18.png" whitelistEmbed.ImageUrl <- "https://s7.gifyu.com/images/whitelist-item-mock-banner18.png"
whitelistEmbed.AddField("Item", "1x Whitelist", true) |> ignore whitelistEmbed.AddField("Item", "`1x Whitelist`", true) |> ignore
whitelistEmbed.AddField("Available", "750", true) |> ignore whitelistEmbed.AddField("Available", "`750`", true) |> ignore
whitelistEmbed.AddField("Price 💰", $"{WhitelistPrice} $GBT", true) |> ignore whitelistEmbed.AddField("Price 💰", $"`{WhitelistPrice} $GBT`", true) |> ignore
whitelistEmbed.Color <- DiscordColor.Red whitelistEmbed.Color <- DiscordColor.Red
let buyBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now", true) :> DiscordComponent let buyBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now", true) :> DiscordComponent
let buyActiveBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now") :> DiscordComponent let buyActiveBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now") :> DiscordComponent