From 18cbf478c9322cda2f081d1f15a1792e9b290838 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Thu, 13 Jan 2022 03:33:14 +0700 Subject: [PATCH] Fix class for shields. Use degenz battle channel --- Commands.fs | 13 +++++++------ Types.fs | 4 ++-- 2 files changed, 9 insertions(+), 8 deletions(-) diff --git a/Commands.fs b/Commands.fs index a69e393..e57da54 100644 --- a/Commands.fs +++ b/Commands.fs @@ -11,6 +11,7 @@ open Joebot.Functions let mutable players : Player list = [] +[] let battleChannel = 930363007781978142uL let addHackerRole (ctx : InteractionContext) = @@ -197,8 +198,8 @@ let handleAttack (event : ComponentInteractionCreateEventArgs) = let builder = DiscordMessageBuilder() builder.WithContent($"{event.User.Username} successfully hacked <@{targetId}>!") |> ignore - let battleChannel = (event.Guild.GetChannel(927449884204867664uL)) - do! battleChannel.SendMessageAsync(builder) + let channel = (event.Guild.GetChannel(battleChannel)) + do! channel.SendMessageAsync(builder) |> Async.AwaitTask |> Async.Ignore } @@ -218,8 +219,8 @@ let handleAttack (event : ComponentInteractionCreateEventArgs) = let builder = DiscordMessageBuilder() builder.WithContent($"{event.User.Username} failed to hack <@{targetId}>!") |> ignore - let battleChannel = (event.Guild.GetChannel(927449884204867664uL)) - do! battleChannel.SendMessageAsync(builder) + let channel = (event.Guild.GetChannel(battleChannel)) + do! channel.SendMessageAsync(builder) |> Async.AwaitTask |> Async.Ignore } @@ -253,8 +254,8 @@ let handleDefense (event : ComponentInteractionCreateEventArgs) = let builder = DiscordMessageBuilder() builder.WithContent($"{event.User.Username} has protected their system!") |> ignore - let battleChannel = (event.Guild.GetChannel(927449884204867664uL)) - do! battleChannel.SendMessageAsync(builder) + let channel = (event.Guild.GetChannel(battleChannel)) + do! channel.SendMessageAsync(builder) |> Async.AwaitTask |> Async.Ignore } diff --git a/Types.fs b/Types.fs index 9d5bdf9..4717a3d 100644 --- a/Types.fs +++ b/Types.fs @@ -42,8 +42,8 @@ type Shield = interface IClass with member this.GetClass () = match this with - | Firewall | PortScan -> Exploit - | Encryption | Cypher -> Network + | Firewall | PortScan -> Network + | Encryption | Cypher -> Exploit | Hardening | Sanitation -> Penetration static member TryParse shield = match shield with