diff --git a/Bot/Games/HackerBattle.fs b/Bot/Games/HackerBattle.fs index 1b8cf03..18745bf 100644 --- a/Bot/Games/HackerBattle.fs +++ b/Bot/Games/HackerBattle.fs @@ -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