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

Fix class for shields. Use degenz battle channel

Browse Source
This commit is contained in:
Joseph Ferano 2022-01-13 03:33:14 +07:00
parent 0343203a4e
commit 18cbf478c9
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Commands.fs
View File

@ -11,6 +11,7 @@ open Joebot.Functions
let mutable players : Player list = []
[<Literal>]
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
}

4
Types.fs
View File

@ -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