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

Adding leaderboard command. Switching to degenz server

Browse Source
This commit is contained in:
Joseph Ferano 2022-01-11 14:38:42 +07:00
parent 86354e2efe
commit 0343203a4e
4 changed files with 60 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
Commands.fs
View File

@ -11,6 +11,8 @@ open Joebot.Functions
let mutable players : Player list = [] let mutable players : Player list = []
let battleChannel = 930363007781978142uL
let addHackerRole (ctx : InteractionContext) = let addHackerRole (ctx : InteractionContext) =
async { async {
for role in ctx.Guild.Roles do for role in ctx.Guild.Roles do
@ -22,7 +24,7 @@ let addHackerRole (ctx : InteractionContext) =
players <- players <-
match player with match player with
| Some _ -> players | Some _ -> players
| None -> (newPlayer ctx.Member.Id)::players | None -> (newPlayer ctx.Member.Username ctx.Member.Id)::players
if Option.isSome player then if Option.isSome player then
do! ctx.CreateResponseAsync("Already registered as an elite haxxor", true) do! ctx.CreateResponseAsync("Already registered as an elite haxxor", true)
@ -34,7 +36,6 @@ let addHackerRole (ctx : InteractionContext) =
} |> Async.StartAsTask } |> Async.StartAsTask
:> Task :> Task
let removeHackerRole (ctx : InteractionContext) = let removeHackerRole (ctx : InteractionContext) =
async { async {
for role in ctx.Member.Roles do for role in ctx.Member.Roles do
@ -53,7 +54,7 @@ let attack (ctx : InteractionContext) (target : DiscordUser) =
let defender = players |> List.tryFind (fun p -> p.DiscordId = target.Id) let defender = players |> List.tryFind (fun p -> p.DiscordId = target.Id)
match attacker , defender with match attacker , defender with
| Some attacker , Some defender -> | Some attacker , Some defender ->
let updatedAttacks = removeExpiredActions (TimeSpan.FromMinutes(15)) (fun (atk : Attack) -> atk.Timestamp) attacker.Attacks let updatedAttacks = removeExpiredActions (TimeSpan.FromMinutes(5)) (fun (atk : Attack) -> atk.Timestamp) attacker.Attacks
players <- players <-
players players
|> List.map (fun p -> if p.DiscordId = attacker.DiscordId then { p with Attacks = updatedAttacks } else p) |> List.map (fun p -> if p.DiscordId = attacker.DiscordId then { p with Attacks = updatedAttacks } else p)
@ -78,8 +79,9 @@ let attack (ctx : InteractionContext) (target : DiscordUser) =
else else
async { async {
let builder = DiscordInteractionResponseBuilder() let builder = DiscordInteractionResponseBuilder()
let timeRemaining = TimeSpan.FromMinutes(15) - (DateTime.UtcNow - updatedAttacks.Head.Timestamp) let timestamp = updatedAttacks |> List.rev |> List.head |> fun a -> a.Timestamp // This should be the next expiring timestamp
builder.Content <- $"You already hacked, please wait {timeRemaining.Minutes} minutes and {timeRemaining.Seconds} seconds to attempt another hack" let timeRemaining = TimeSpan.FromMinutes(15) - (DateTime.UtcNow - timestamp)
builder.Content <- $"No more hacks available, please wait {timeRemaining.Minutes} minutes and {timeRemaining.Seconds} seconds to attempt another hack"
builder.AsEphemeral true |> ignore builder.AsEphemeral true |> ignore
@ -101,18 +103,29 @@ let defend (ctx : InteractionContext) =
players <- players <-
players players
|> List.map (fun p -> if p.DiscordId = player.DiscordId then { p with Defenses = updatedDefenses } else p) |> List.map (fun p -> if p.DiscordId = player.DiscordId then { p with Defenses = updatedDefenses } else p)
let builder = DiscordInteractionResponseBuilder() if updatedDefenses.Length < 2 then
builder.AddEmbed (constructEmbed "Pick a defense to mount for a duration of time") |> ignore let builder = DiscordInteractionResponseBuilder()
builder.AddEmbed (constructEmbed "Pick a defense to mount for a duration of time") |> ignore
constructButtons "Defend" (string player.DiscordId) player.Shields constructButtons "Defend" (string player.DiscordId) player.Shields
|> Seq.cast<DiscordComponent> |> Seq.cast<DiscordComponent>
|> builder.AddComponents |> builder.AddComponents
|> ignore |> ignore
builder.AsEphemeral true |> ignore builder.AsEphemeral true |> ignore
do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder) do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder)
|> Async.AwaitTask |> Async.AwaitTask
else
let builder = DiscordInteractionResponseBuilder()
let timestamp = updatedDefenses |> List.rev |> List.head |> fun a -> a.Timestamp // This should be the next expiring timestamp
let timeRemaining = TimeSpan.FromMinutes(15) - (DateTime.UtcNow - timestamp)
builder.Content <- $"Cannot add new defense, please wait {timeRemaining.Minutes} minutes and {timeRemaining.Seconds} seconds to add another defense"
builder.AsEphemeral true |> ignore
do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder)
|> Async.AwaitTask
} |> Async.StartAsTask } |> Async.StartAsTask
:> Task :> Task
@ -126,7 +139,7 @@ let status (ctx : InteractionContext) =
async { async {
let builder = DiscordInteractionResponseBuilder() let builder = DiscordInteractionResponseBuilder()
builder.IsEphemeral <- true builder.IsEphemeral <- true
builder.Content <- $"%A{player}" builder.Content <- Functions.statusFormat player
do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder) do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder)
|> Async.AwaitTask |> Async.AwaitTask
} }
@ -134,6 +147,20 @@ let status (ctx : InteractionContext) =
} |> Async.StartAsTask } |> Async.StartAsTask
:> Task :> Task
let leaderboard (ctx : InteractionContext) =
async {
let builder = DiscordInteractionResponseBuilder()
builder.IsEphemeral <- true
builder.Content <-
players
|> List.sortByDescending (fun p -> p.Bank)
|> List.mapi (fun i p -> $"{i + 1}. {p.Bank} {p.Name}")
|> String.concat "\n"
do! ctx.CreateResponseAsync(InteractionResponseType.ChannelMessageWithSource, builder)
|> Async.AwaitTask
} |> Async.StartAsTask
:> Task
let handleAttack (event : ComponentInteractionCreateEventArgs) = let handleAttack (event : ComponentInteractionCreateEventArgs) =
let updatePlayer amount attack p = { let updatePlayer amount attack p = {
p with Attacks = attack::p.Attacks p with Attacks = attack::p.Attacks

11
Functions.fs
View File

@ -9,7 +9,15 @@ open Joebot.Types
let hackDescription = "" let hackDescription = ""
let newPlayer (membr : uint64) = let statusFormat player =
$"Hack Inventory: {player.Weapons}
Shield Inventory: {player.Shields}
Active Hacks: {player.Attacks}
Active Defenses: {player.Defenses}
Bank: {player.Bank}"
let newPlayer nickname (membr : uint64) =
let h1 = [| Virus ; Ransom |] let h1 = [| Virus ; Ransom |]
let h2 = [| DDos ; Worm |] let h2 = [| DDos ; Worm |]
let h3 = [| Crack ; Injection |] let h3 = [| Crack ; Injection |]
@ -24,6 +32,7 @@ let newPlayer (membr : uint64) =
let shields = [ getRandom d1 ; getRandom d2 ; getRandom d3 ] let shields = [ getRandom d1 ; getRandom d2 ; getRandom d3 ]
{ DiscordId = membr { DiscordId = membr
Name = nickname
Weapons = weapons Weapons = weapons
Shields = shields Shields = shields
Attacks = [] Attacks = []

4
Program.fs
View File

@ -31,6 +31,8 @@ type JoeBot() =
[<SlashCommand("status", "Get your current status like bank account, and active hacks and defenses")>] [<SlashCommand("status", "Get your current status like bank account, and active hacks and defenses")>]
member this.Status (ctx : InteractionContext) = Commands.status ctx member this.Status (ctx : InteractionContext) = Commands.status ctx
[<SlashCommand("leaderboard", "View the current list of players ranked by highest earnings")>]
member this.Leaderboard (ctx : InteractionContext) = Commands.leaderboard ctx
let config = DiscordConfiguration() let config = DiscordConfiguration()
config.Token <- "OTIyNDIyMDIyMTI1MDEwOTU1.YcBOcw.JxfW1CSIwEO7j6RbRFCnPZ-HoTk" config.Token <- "OTIyNDIyMDIyMTI1MDEwOTU1.YcBOcw.JxfW1CSIwEO7j6RbRFCnPZ-HoTk"
@ -44,7 +46,7 @@ client.add_ComponentInteractionCreated(AsyncEventHandler(handleButtonEvent))
let slash = client.UseSlashCommands() let slash = client.UseSlashCommands()
slash.RegisterCommands<JoeBot>(922419263275425832uL); slash.RegisterCommands<JoeBot>(922414052708327494uL);
client.ConnectAsync () client.ConnectAsync ()
|> Async.AwaitTask |> Async.AwaitTask

4
Types.fs
View File

@ -32,8 +32,6 @@ type Weapon =
| "Injection" -> Some Injection | "Injection" -> Some Injection
| _ -> None | _ -> None
type Shield = type Shield =
| Firewall | Firewall
| PortScan | PortScan
@ -61,7 +59,6 @@ type HackResult =
| Strong | Strong
| Weak | Weak
type DiscordPlayer = { type DiscordPlayer = {
Id : uint64 Id : uint64
Name : string Name : string
@ -80,6 +77,7 @@ type Defense = {
type Player = { type Player = {
DiscordId : uint64 DiscordId : uint64
Name : string
Weapons : Weapon list Weapons : Weapon list
Shields : Shield list Shields : Shield list
Attacks : Attack list Attacks : Attack list