diff --git a/Bot/Admin.fs b/Bot/Admin.fs index 824e632..b1b8f7e 100644 --- a/Bot/Admin.fs +++ b/Bot/Admin.fs @@ -18,7 +18,7 @@ type InitEmbeds = | JpegStore = 3 | Armory = 4 -let handleGuildDownloadReady (_ : DiscordClient) (event : GuildDownloadCompletedEventArgs) = +let handleGuildDownloadReady _ (event : GuildDownloadCompletedEventArgs) = task { let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId) let! commands = guild.GetApplicationCommandsAsync() diff --git a/Bot/Bot.fs b/Bot/Bot.fs index daf5c95..80c1884 100644 --- a/Bot/Bot.fs +++ b/Bot/Bot.fs @@ -79,7 +79,7 @@ slotsBot.add_ComponentInteractionCreated(AsyncEventHandler(SlotMachine.handleBut slotsBot.add_GuildDownloadCompleted(AsyncEventHandler(SlotMachine.handleGuildDownloadCompleted)) slotsBot.add_MessageCreated(AsyncEventHandler(SlotMachine.handleMessageCreated)) -let asdf (_ : DiscordClient) (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) = +let asdf _ (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) = async { printfn "%A" event.Interaction.Type match event.Interaction.Type with diff --git a/Bot/Games/HackerBattle.fs b/Bot/Games/HackerBattle.fs index cde79a1..13a66fa 100644 --- a/Bot/Games/HackerBattle.fs +++ b/Bot/Games/HackerBattle.fs @@ -284,7 +284,7 @@ let arsenal (ctx : IDiscordContext) = do! Analytics.arsenalCommand (ctx.GetDiscordMember()) }) -let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = +let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) = let eventCtx = DiscordEventContext event :> IDiscordContext match event.Id with | id when id.StartsWith("Attack") -> handleAttack eventCtx @@ -300,7 +300,7 @@ let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEve do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask } -let handleMessageCreated (_ : DiscordClient) (event : MessageCreateEventArgs) = +let handleMessageCreated _ (event : MessageCreateEventArgs) = task { if event.Channel.Id = GuildEnvironment.channelTraining && event.Author.Id <> GuildEnvironment.botIdHackerBattle then do! Async.Sleep 1000 @@ -320,7 +320,7 @@ let ShieldEvents () = [ Type = Shielding (string ItemId.CYPHER) } ] -let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEventArgs) = +let handleMemberUpdated _ (event : GuildMemberUpdateEventArgs) = let addedRole (rolesBefore : DiscordRole seq) (rolesAfter : DiscordRole seq) = rolesAfter |> Seq.filter ((fun role -> rolesBefore |> Seq.exists (fun r -> role.Id = r.Id)) >> not) task { diff --git a/Bot/Games/SlotMachine.fs b/Bot/Games/SlotMachine.fs index 9cfb6da..0c2697f 100644 --- a/Bot/Games/SlotMachine.fs +++ b/Bot/Games/SlotMachine.fs @@ -319,7 +319,7 @@ let spin multiplier (ctx : IDiscordContext) = do! Messaging.sendFollowUpMessage ctx "You do not have sufficient funds to play" }) -let handleButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = +let handleButton _ (event : ComponentInteractionCreateEventArgs) = let ctx = DiscordEventContext event match event.Id with | "spin-1x" -> spin 1 ctx @@ -333,7 +333,7 @@ let handleButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArg |> Async.Start Task.CompletedTask -let handleGuildDownloadCompleted (_ : DiscordClient) (event : GuildDownloadCompletedEventArgs) = +let handleGuildDownloadCompleted _ (event : GuildDownloadCompletedEventArgs) = task { let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId) guildEmojis <- @@ -348,7 +348,7 @@ let handleGuildDownloadCompleted (_ : DiscordClient) (event : GuildDownloadCompl return () } :> Task -let handleMessageCreated (_ : DiscordClient) (event : MessageCreateEventArgs) = +let handleMessageCreated _ (event : MessageCreateEventArgs) = task { if event.Channel.Id = GuildEnvironment.channelSlots && event.Author.Id <> GuildEnvironment.botClientSlots.Value.CurrentUser.Id then do! Async.Sleep 1000 diff --git a/Bot/Games/Store.fs b/Bot/Games/Store.fs index c365984..aa1af10 100644 --- a/Bot/Games/Store.fs +++ b/Bot/Games/Store.fs @@ -280,7 +280,7 @@ let showStats (ctx : IDiscordContext) = PlayerInteractions.executePlayerAction c do! ctx.FollowUp builder |> Async.AwaitTask }) -let handleStoreEvents (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = +let handleStoreEvents _ (event : ComponentInteractionCreateEventArgs) = let ctx = DiscordEventContext event :> IDiscordContext let id = ctx.GetInteractionId() let itemId = id.Split("-").[1] diff --git a/Bot/Games/Thief.fs b/Bot/Games/Thief.fs index 57f2c49..ccf4244 100644 --- a/Bot/Games/Thief.fs +++ b/Bot/Games/Thief.fs @@ -235,7 +235,7 @@ let handleSteal (ctx : IDiscordContext) = do! ctx.Respond(InteractionResponseType.UpdateMessage, builder) |> Async.AwaitTask } |> Async.StartAsTask :> Task -let handleStealButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = +let handleStealButton _ (event : ComponentInteractionCreateEventArgs) = let eventCtx = DiscordEventContext event :> IDiscordContext match event.Id with | id when id.StartsWith("Steal") -> handleSteal eventCtx diff --git a/Bot/InviteTracker.fs b/Bot/InviteTracker.fs index 3400ddd..9454752 100644 --- a/Bot/InviteTracker.fs +++ b/Bot/InviteTracker.fs @@ -573,7 +573,7 @@ let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEvent return () } :> Task -let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = +let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) = let eventCtx = DiscordEventContext event :> IDiscordContext match event.Id with | id when id.StartsWith("GimmeWhitelist") -> handleGimmeWhitelist eventCtx