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

Merge branch 'master' into staging

Browse Source
This commit is contained in:
Joseph Ferano 2022-04-18 13:58:06 +07:00
commit 5c62792af6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Bot/Games/HackerBattle.fs
View File

@ -232,9 +232,10 @@ let scan (ctx : IDiscordContext) =
let! targets = DbService.getRandomHackablePlayers (ctx.GetDiscordMember().Id)
let targets =
let hackedIds =
player.Events
|> List.choose (fun e ->
match e.Type with | Hacking hack -> Some hack.Adversary.Id | _ -> None)
player
|> Player.removeExpiredActions
|> fun p -> p.Events
|> List.choose (fun e -> match e.Type with | Hacking hack -> Some hack.Adversary.Id | _ -> None)
targets
|> List.filter (fun t -> hackedIds |> List.exists (fun hid -> hid = t.Id) |> not)
|> List.truncate 5