From b6e45bd1d96dad6e0dc750929804132c12686e3b Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Sat, 2 Apr 2022 15:15:39 +0700 Subject: [PATCH] Delete messages posted in the training channel --- Bot/Bot.fs | 5 +++-- Bot/Games/HackerBattle.fs | 8 ++++++++ 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/Bot/Bot.fs b/Bot/Bot.fs index b74a054..79d066f 100644 --- a/Bot/Bot.fs +++ b/Bot/Bot.fs @@ -59,6 +59,7 @@ inviterCommands.RegisterCommands(guild); //sc3.RegisterCommands(guild); hackerBattleBot.add_ComponentInteractionCreated(AsyncEventHandler(HackerBattle.handleButtonEvent)) +hackerBattleBot.add_MessageCreated(AsyncEventHandler(HackerBattle.handleMessageCreated)) storeBot.add_ComponentInteractionCreated(AsyncEventHandler(Store.handleStoreEvents)) stealBot.add_ComponentInteractionCreated(AsyncEventHandler(Thief.handleStealButton)) inviterBot.add_GuildMemberAdded(AsyncEventHandler(InviteTracker.handleGuildMemberAdded)) @@ -81,9 +82,9 @@ let asdf (_ : DiscordClient) (event : DSharpPlus.EventArgs.InteractionCreateEven :> Task //hackerBattleBot.add_InteractionCreated(AsyncEventHandler(asdf)) -if guild <> 922419263275425832uL then +//if guild <> 922419263275425832uL then // Trainer.sendInitialEmbed hackerBattleBot - InviteTracker.sendInitialEmbed inviterBot +// InviteTracker.sendInitialEmbed inviterBot hackerBattleBot.ConnectAsync() |> Async.AwaitTask |> Async.RunSynchronously GuildEnvironment.botUserHackerBattle <- Some hackerBattleBot.CurrentUser diff --git a/Bot/Games/HackerBattle.fs b/Bot/Games/HackerBattle.fs index aaba90c..3317664 100644 --- a/Bot/Games/HackerBattle.fs +++ b/Bot/Games/HackerBattle.fs @@ -256,6 +256,14 @@ let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEve do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask } +let handleMessageCreated (_ : DiscordClient) (event : MessageCreateEventArgs) = + task { + if event.Channel.Id = GuildEnvironment.channelTraining && event.Author.Id <> GuildEnvironment.botIdHackerBattle then + do! Async.Sleep 1000 + do! event.Message.DeleteAsync() + } :> Task + + type HackerGame() = inherit ApplicationCommandModule ()