Combat.fs

let noMoreThanOneThousand characterFrom playerTo distance amount =
    match playerTo with
    | Thing t -> None
    | Character c ->
        if amount < 1000 - c.Health then Some (amount)
        else Some (1000 - c.Health)

let sameFactionNotAllowed characterFrom playerTo distance amount =
    match playerTo with
    | Thing _ -> Some(amount)
    | Character c ->
        let setFrom = set characterFrom.Factions
        let setTo = set c.Factions

        if setFrom |> Set.isEmpty && setTo |> Set.isEmpty then Some(amount)
        elif Set.intersect setFrom setTo |> Set.isEmpty then Some(amount)
        else None