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

_

Browse Source
This commit is contained in:
Joseph Ferano 2022-05-08 09:55:04 +07:00
parent f60531a15d
commit a2d6143460
7 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Bot/Admin.fs
View File

@ -18,7 +18,7 @@ type InitEmbeds =
| JpegStore = 3 | JpegStore = 3
| Armory = 4 | Armory = 4
let handleGuildDownloadReady (_ : DiscordClient) (event : GuildDownloadCompletedEventArgs) = let handleGuildDownloadReady _ (event : GuildDownloadCompletedEventArgs) =
task { task {
let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId) let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId)
let! commands = guild.GetApplicationCommandsAsync() let! commands = guild.GetApplicationCommandsAsync()

2
Bot/Bot.fs
View File

@ -79,7 +79,7 @@ slotsBot.add_ComponentInteractionCreated(AsyncEventHandler(SlotMachine.handleBut
slotsBot.add_GuildDownloadCompleted(AsyncEventHandler(SlotMachine.handleGuildDownloadCompleted)) slotsBot.add_GuildDownloadCompleted(AsyncEventHandler(SlotMachine.handleGuildDownloadCompleted))
slotsBot.add_MessageCreated(AsyncEventHandler(SlotMachine.handleMessageCreated)) slotsBot.add_MessageCreated(AsyncEventHandler(SlotMachine.handleMessageCreated))
let asdf (_ : DiscordClient) (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) = let asdf _ (event : DSharpPlus.EventArgs.InteractionCreateEventArgs) =
async { async {
printfn "%A" event.Interaction.Type printfn "%A" event.Interaction.Type
match event.Interaction.Type with match event.Interaction.Type with

6
Bot/Games/HackerBattle.fs
View File

@ -284,7 +284,7 @@ let arsenal (ctx : IDiscordContext) =
do! Analytics.arsenalCommand (ctx.GetDiscordMember()) do! Analytics.arsenalCommand (ctx.GetDiscordMember())
}) })
let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
let eventCtx = DiscordEventContext event :> IDiscordContext let eventCtx = DiscordEventContext event :> IDiscordContext
match event.Id with match event.Id with
| id when id.StartsWith("Attack") -> handleAttack eventCtx | id when id.StartsWith("Attack") -> handleAttack eventCtx
@ -300,7 +300,7 @@ let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEve
do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
} }
let handleMessageCreated (_ : DiscordClient) (event : MessageCreateEventArgs) = let handleMessageCreated _ (event : MessageCreateEventArgs) =
task { task {
if event.Channel.Id = GuildEnvironment.channelTraining && event.Author.Id <> GuildEnvironment.botIdHackerBattle then if event.Channel.Id = GuildEnvironment.channelTraining && event.Author.Id <> GuildEnvironment.botIdHackerBattle then
do! Async.Sleep 1000 do! Async.Sleep 1000
@ -320,7 +320,7 @@ let ShieldEvents () = [
Type = Shielding (string ItemId.CYPHER) } Type = Shielding (string ItemId.CYPHER) }
] ]
let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEventArgs) = let handleMemberUpdated _ (event : GuildMemberUpdateEventArgs) =
let addedRole (rolesBefore : DiscordRole seq) (rolesAfter : DiscordRole seq) = let addedRole (rolesBefore : DiscordRole seq) (rolesAfter : DiscordRole seq) =
rolesAfter |> Seq.filter ((fun role -> rolesBefore |> Seq.exists (fun r -> role.Id = r.Id)) >> not) rolesAfter |> Seq.filter ((fun role -> rolesBefore |> Seq.exists (fun r -> role.Id = r.Id)) >> not)
task { task {

6
Bot/Games/SlotMachine.fs
View File

@ -319,7 +319,7 @@ let spin multiplier (ctx : IDiscordContext) =
do! Messaging.sendFollowUpMessage ctx "You do not have sufficient funds to play" 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 let ctx = DiscordEventContext event
match event.Id with match event.Id with
| "spin-1x" -> spin 1 ctx | "spin-1x" -> spin 1 ctx
@ -333,7 +333,7 @@ let handleButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArg
|> Async.Start |> Async.Start
Task.CompletedTask Task.CompletedTask
let handleGuildDownloadCompleted (_ : DiscordClient) (event : GuildDownloadCompletedEventArgs) = let handleGuildDownloadCompleted _ (event : GuildDownloadCompletedEventArgs) =
task { task {
let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId) let ( _ , guild ) = event.Guilds.TryGetValue(GuildEnvironment.guildId)
guildEmojis <- guildEmojis <-
@ -348,7 +348,7 @@ let handleGuildDownloadCompleted (_ : DiscordClient) (event : GuildDownloadCompl
return () return ()
} :> Task } :> Task
let handleMessageCreated (_ : DiscordClient) (event : MessageCreateEventArgs) = let handleMessageCreated _ (event : MessageCreateEventArgs) =
task { task {
if event.Channel.Id = GuildEnvironment.channelSlots && event.Author.Id <> GuildEnvironment.botClientSlots.Value.CurrentUser.Id then if event.Channel.Id = GuildEnvironment.channelSlots && event.Author.Id <> GuildEnvironment.botClientSlots.Value.CurrentUser.Id then
do! Async.Sleep 1000 do! Async.Sleep 1000

2
Bot/Games/Store.fs
View File

@ -280,7 +280,7 @@ let showStats (ctx : IDiscordContext) = PlayerInteractions.executePlayerAction c
do! ctx.FollowUp builder |> Async.AwaitTask do! ctx.FollowUp builder |> Async.AwaitTask
}) })
let handleStoreEvents (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = let handleStoreEvents _ (event : ComponentInteractionCreateEventArgs) =
let ctx = DiscordEventContext event :> IDiscordContext let ctx = DiscordEventContext event :> IDiscordContext
let id = ctx.GetInteractionId() let id = ctx.GetInteractionId()
let itemId = id.Split("-").[1] let itemId = id.Split("-").[1]

2
Bot/Games/Thief.fs
View File

@ -235,7 +235,7 @@ let handleSteal (ctx : IDiscordContext) =
do! ctx.Respond(InteractionResponseType.UpdateMessage, builder) |> Async.AwaitTask do! ctx.Respond(InteractionResponseType.UpdateMessage, builder) |> Async.AwaitTask
} |> Async.StartAsTask :> Task } |> Async.StartAsTask :> Task
let handleStealButton (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = let handleStealButton _ (event : ComponentInteractionCreateEventArgs) =
let eventCtx = DiscordEventContext event :> IDiscordContext let eventCtx = DiscordEventContext event :> IDiscordContext
match event.Id with match event.Id with
| id when id.StartsWith("Steal") -> handleSteal eventCtx | id when id.StartsWith("Steal") -> handleSteal eventCtx

2
Bot/InviteTracker.fs
View File

@ -573,7 +573,7 @@ let handleMemberUpdated (client : DiscordClient) (event : GuildMemberUpdateEvent
return () return ()
} :> Task } :> Task
let handleButtonEvent (_ : DiscordClient) (event : ComponentInteractionCreateEventArgs) = let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
let eventCtx = DiscordEventContext event :> IDiscordContext let eventCtx = DiscordEventContext event :> IDiscordContext
match event.Id with match event.Id with
| id when id.StartsWith("GimmeWhitelist") -> handleGimmeWhitelist eventCtx | id when id.StartsWith("GimmeWhitelist") -> handleGimmeWhitelist eventCtx