Operational

2022-06-21 13:04:11 +07:00 · 2022-06-21 13:04:11 +07:00 · f7814b8f5c
commit f7814b8f5c
parent 387fc239a6
4 changed files with 65 additions and 101 deletions
--- a/Bot/Games/HackerBattle.fs
+++ b/Bot/Games/HackerBattle.fs
@ -280,29 +280,20 @@ let arsenal (ctx : IDiscordContext) =
    })

 let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
-    let ctx = DiscordEventContext event :> IDiscordContext
-    task {
-        let builder = DiscordInteractionResponseBuilder()
-        builder.IsEphemeral <- true
-        builder.Content <- $"🚀  __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
-        do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-    } : Task
-        
-//let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
-//    let eventCtx = DiscordEventContext event :> IDiscordContext
-//    match event.Id with
-//    | id when id.StartsWith("Attack")  -> handleAttack eventCtx
-//    | 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 eventCtx = DiscordEventContext event :> IDiscordContext
+    match event.Id with
+    | id when id.StartsWith("Attack")  -> handleAttack eventCtx
+    | 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) =
    task {
--- a/Bot/Games/SlotMachine.fs
+++ b/Bot/Games/SlotMachine.fs
@ -320,28 +320,19 @@ let spin multiplier (ctx : IDiscordContext) =
    })

 let handleButton _ (event : ComponentInteractionCreateEventArgs) =
-    let ctx = DiscordEventContext event :> IDiscordContext
-    task {
-        let builder = DiscordInteractionResponseBuilder()
-        builder.IsEphemeral <- true
-        builder.Content <- $"🚀  __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
-        do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-    } : Task
-        
-//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 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) =
    task {
        if event.Channel.Id = GuildEnvironment.channelSlots && event.Author.Id <> GuildEnvironment.botClientSlots.Value.CurrentUser.Id then
--- a/Bot/Games/Store.fs
+++ b/Bot/Games/Store.fs
@ -438,33 +438,24 @@ let handleJpegEvents _ (event : ComponentInteractionCreateEventArgs) =
    
 let handleStoreEvents _ (event : ComponentInteractionCreateEventArgs) =
    let ctx = DiscordEventContext event :> IDiscordContext
-    task {
-        let builder = DiscordInteractionResponseBuilder()
-        builder.IsEphemeral <- true
-        builder.Content <- $"🚀  __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
-        do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-    } : Task
-    
-//let handleStoreEvents _ (event : ComponentInteractionCreateEventArgs) =
-//    let ctx = DiscordEventContext event :> IDiscordContext
-//    let id = ctx.GetInteractionId()
-//    let itemId = id.Split("-").[1]
-//    let storeId = id.Split("-").[2]
-//    match id with
-//    | id when id.StartsWith("Buy") -> handleBuyItem (fun _ -> Task.CompletedTask) ctx itemId
-//    | id when id.StartsWith("Sell") -> handleSell ctx itemId
-//    | id when id.StartsWith("ShowHacks") -> buy storeId (Some ItemType.Hack) ctx
-//    | id when id.StartsWith("ShowShields") -> buy storeId (Some ItemType.Shield) ctx
-//    | _ ->
-//        task {
-//            let builder = DiscordInteractionResponseBuilder()
-//            builder.IsEphemeral <- true
-//            builder.Content <- $"Incorrect Action identifier {id}"
-//            do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-//        }
-//    |> Async.AwaitTask
-//    |> Async.Start
-//    Task.CompletedTask
+    let id = ctx.GetInteractionId()
+    let itemId = id.Split("-").[1]
+    let storeId = id.Split("-").[2]
+    match id with
+    | id when id.StartsWith("Buy") -> handleBuyItem (fun _ -> Task.CompletedTask) ctx itemId
+    | id when id.StartsWith("Sell") -> handleSell ctx itemId
+    | id when id.StartsWith("ShowHacks") -> buy storeId (Some ItemType.Hack) ctx
+    | id when id.StartsWith("ShowShields") -> buy storeId (Some ItemType.Shield) ctx
+    | _ ->
+        task {
+            let builder = DiscordInteractionResponseBuilder()
+            builder.IsEphemeral <- true
+            builder.Content <- $"Incorrect Action identifier {id}"
+            do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
+        }
+    |> Async.AwaitTask
+    |> Async.Start
+    Task.CompletedTask
        
 let sendBackalleyEmbed (ctx : IDiscordContext)  =
    async {
--- a/Bot/Whitelist.fs
+++ b/Bot/Whitelist.fs
@ -60,35 +60,26 @@ let grantWhitelistRole isOg (ctx : IDiscordContext) =

 let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
    let ctx = DiscordEventContext event :> IDiscordContext
-    task {
-        let builder = DiscordInteractionResponseBuilder()
-        builder.IsEphemeral <- true
-        builder.Content <- $"🚀  __Mint Date:__ June 20th 6:30 UTC <t:1655749800:R>"
-        do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-    } : Task
-        
-//let handleButtonEvent _ (event : ComponentInteractionCreateEventArgs) =
-//    let ctx = DiscordEventContext event :> IDiscordContext
-//    match event.Id with
-//    | id when id.StartsWith("GimmeWhitelist") -> Store.buy "WHITELIST" None ctx
-//    | id when id.StartsWith("Buy") ->
-//        task {
-//            let id = ctx.GetInteractionId()
-//            let itemId = id.Split("-").[1]
-//            let dispatch ctx = grantWhitelistRole (itemId = "WHITEOG") ctx
-//                
-//            do! Store.handleBuyItem dispatch ctx itemId
-//        } :> Task
-//    | id when id.StartsWith("CreateGuildInvite") -> InviteTracker.handleCreateInvite ctx
-//    | id when id.StartsWith("ShowRecruited") -> InviteTracker.getInvitedUsersForId (ctx.GetDiscordMember()) ctx
-//    | id when id.StartsWith("WalletStatus") -> InviteTracker.showWalletStatus ctx
-//    | _ ->
-//        task {
-//            let builder = DiscordInteractionResponseBuilder()
-//            builder.IsEphemeral <- true
-//            builder.Content <- $"Incorrect Action identifier {ctx.GetInteractionId()}"
-//            do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
-//        }
+    match event.Id with
+    | id when id.StartsWith("GimmeWhitelist") -> Store.buy "WHITELIST" None ctx
+    | id when id.StartsWith("Buy") ->
+        task {
+            let id = ctx.GetInteractionId()
+            let itemId = id.Split("-").[1]
+            let dispatch ctx = grantWhitelistRole (itemId = "WHITEOG") ctx
+                
+            do! Store.handleBuyItem dispatch ctx itemId
+        } :> Task
+    | id when id.StartsWith("CreateGuildInvite") -> InviteTracker.handleCreateInvite ctx
+    | id when id.StartsWith("ShowRecruited") -> InviteTracker.getInvitedUsersForId (ctx.GetDiscordMember()) ctx
+    | id when id.StartsWith("WalletStatus") -> InviteTracker.showWalletStatus ctx
+    | _ ->
+        task {
+            let builder = DiscordInteractionResponseBuilder()
+            builder.IsEphemeral <- true
+            builder.Content <- $"Incorrect Action identifier {ctx.GetInteractionId()}"
+            do! ctx.Respond(InteractionResponseType.ChannelMessageWithSource, builder) |> Async.AwaitTask
+        }
        
 let setCurrentWhitelistStock amount (ctx : IDiscordContext) =
    task {