diff --git a/Bot/Bot.fs b/Bot/Bot.fs index 79d066f..0c3b50e 100644 --- a/Bot/Bot.fs +++ b/Bot/Bot.fs @@ -93,6 +93,8 @@ storeBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously GuildEnvironment.botUserArmory <- Some storeBot.CurrentUser inviterBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously +GuildEnvironment.botClientRecruit <- Some inviterBot + //stealBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously let rec loop areBotsRunning = diff --git a/Bot/GuildEnvironment.fs b/Bot/GuildEnvironment.fs index 7f01f0b..1f0fbb6 100644 --- a/Bot/GuildEnvironment.fs +++ b/Bot/GuildEnvironment.fs @@ -2,6 +2,7 @@ module Degenz.GuildEnvironment open System +open DSharpPlus open DSharpPlus.Entities open dotenv.net @@ -46,3 +47,4 @@ let roleWhitelist = getId "ROLE_WHITELIST" let mutable botUserHackerBattle : DiscordUser option = None let mutable botUserArmory : DiscordUser option = None +let mutable botClientRecruit : DiscordClient option = None diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs index d21c6e2..71c2856 100644 --- a/Bot/InviteTracker.fs +++ b/Bot/InviteTracker.fs @@ -301,12 +301,16 @@ let acceptInvite (ctx : IDiscordContext) (invitedPlayer : PlayerData) = match player with | Some player -> do! DbService.updatePlayerCurrency (int InviteRewardAmount) player |> Async.Ignore - let builder = DiscordMessageBuilder() - builder.WithContent($"{invitedPlayer.Name} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore - let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelEventsHackerBattle) - do! channel.SendMessageAsync(builder) - |> Async.AwaitTask - |> Async.Ignore + do! match GuildEnvironment.botClientRecruit with + | Some recruitBot -> async { + let builder = DiscordMessageBuilder() + builder.WithContent($"{invitedPlayer.Name} was recruited and is now a Degen. <@{player.DiscordId}> just earned {InviteRewardAmount} 💰$GBT for their efforts!") |> ignore + let channel = ctx.GetGuild().GetChannel(GuildEnvironment.channelEventsHackerBattle) + 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 | None -> return () with _ -> () @@ -418,9 +422,9 @@ let handleGimmeWhitelist (ctx : IDiscordContext) = whitelistEmbed.Title <- "1x Degenz Game Whitelist ‎" let includeInfo () = whitelistEmbed.ImageUrl <- "https://s7.gifyu.com/images/whitelist-item-mock-banner18.png" - whitelistEmbed.AddField("Item", "1x Whitelist", true) |> ignore - whitelistEmbed.AddField("Available", "750", true) |> ignore - whitelistEmbed.AddField("Price 💰", $"{WhitelistPrice} $GBT", true) |> ignore + whitelistEmbed.AddField("Item", "`1x Whitelist`", true) |> ignore + whitelistEmbed.AddField("Available", "`750`", true) |> ignore + whitelistEmbed.AddField("Price 💰", $"`{WhitelistPrice} $GBT`", true) |> ignore whitelistEmbed.Color <- DiscordColor.Red let buyBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now", true) :> DiscordComponent let buyActiveBtn = DiscordButtonComponent(ButtonStyle.Success, $"BuyWhitelist", $"Buy Now") :> DiscordComponent