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

More mint messages

Browse Source
This commit is contained in:
Joseph Ferano 2022-06-20 23:16:06 +07:00
parent befcdf6e5e
commit 8e15299b57
2 changed files with 45 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
Bot/Games/HackerBattle.fs
View File

@ -280,20 +280,29 @@ let arsenal (ctx : IDiscordContext) =
}) })
let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) = let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
let eventCtx = DiscordEventContext event :> IDiscordContext let ctx = DiscordEventContext event :> IDiscordContext
match event.Id with task {
| id when id.StartsWith("Attack") -> handleAttack eventCtx let builder = DiscordInteractionResponseBuilder()
| id when id.StartsWith("Defend") -> handleDefense eventCtx builder.IsEphemeral <- true
| id when id.StartsWith("Trainer") -> Trainer.handleButtonEvent eventCtx |> Async.StartAsTask :> Task builder.Content <- $"🚀 __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
| id when id.StartsWith("Steal") -> Thief.handleSteal eventCtx do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
| id when id.StartsWith("RPS") -> RockPaperScissors.handleRPS eventCtx } : Task
| _ ->
task { //let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
let builder = DiscordInteractionResponseBuilder() // let eventCtx = DiscordEventContext event :> IDiscordContext
builder.IsEphemeral <- true // match event.Id with
builder.Content <- $"Incorrect Action identifier {eventCtx.GetInteractionId()}" // | id when id.StartsWith("Attack") -> handleAttack eventCtx
do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask // | id when id.StartsWith("Defend") -> handleDefense eventCtx
} // | id when id.StartsWith("Trainer") -> Trainer.handleButtonEvent eventCtx |> Async.StartAsTask :> Task
// | id when id.StartsWith("Steal") -> Thief.handleSteal eventCtx
// | id when id.StartsWith("RPS") -> RockPaperScissors.handleRPS eventCtx
// | _ ->
// task {
// let builder = DiscordInteractionResponseBuilder()
// builder.IsEphemeral <- true
// builder.Content <- $"Incorrect Action identifier {eventCtx.GetInteractionId()}"
// do! eventCtx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
// }
let handleMessageCreated _ (event : MessageCreateEventArgs) = let handleMessageCreated _ (event : MessageCreateEventArgs) =
task { task {

33
Bot/Games/SlotMachine.fs
View File

@ -320,19 +320,28 @@ let spin multiplier (ctx : IDiscordContext) =
}) })
let handleButton _ (event : ComponentInteractionCreateEventArgs) = let handleButton _ (event : ComponentInteractionCreateEventArgs) =
let ctx = DiscordEventContext event let ctx = DiscordEventContext event :> IDiscordContext
match event.Id with task {
| "spin-1x" -> spin 1 ctx let builder = DiscordInteractionResponseBuilder()
| "spin-2x" -> spin 2 ctx builder.IsEphemeral <- true
| "spin-3x" -> spin 3 ctx builder.Content <- $"🚀 __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
| "prizes" -> handlePrizeTable ctx do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
| _ -> } : Task
printfn "Wrong Spin ID"
Task.CompletedTask
|> Async.AwaitTask
|> Async.Start
Task.CompletedTask
//let handleButton _ (event : ComponentInteractionCreateEventArgs) =
// let ctx = DiscordEventContext event
// match event.Id with
// | "spin-1x" -> spin 1 ctx
// | "spin-2x" -> spin 2 ctx
// | "spin-3x" -> spin 3 ctx
// | "prizes" -> handlePrizeTable ctx
// | _ ->
// printfn "Wrong Spin ID"
// Task.CompletedTask
// |> Async.AwaitTask
// |> Async.Start
// Task.CompletedTask
//
let handleMessageCreated _ (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