Merge branch 'master' into dev
This commit is contained in:
commit
721b409e07
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user