Combat.fs

let applyDamage damage player =
    match player with
    | Thing t -> Player.Thing {t with Health = t.Health - damage}
    | Character c -> Player.Character {c with Health = c.Health - damage}


let applyHeal healing player =
    match player with
    | Thing t -> Player.Thing {t with Health = t.Health + healing}
    | Character c -> Player.Character {c with Health = c.Health + healing}


let rec applyRules value rules characterFrom playerTo distance =
    match rules with
    | [] -> value
    | x::xs ->
        let result = x characterFrom playerTo distance value
        match result with
        | None -> 0
        | Some v -> applyRules v xs characterFrom playerTo distance

let interactWith characterFrom playerTo action distance =
    match action with
    | Attack amount ->
        let damage = applyRules amount attackRules characterFrom playerTo distance
        playerTo |> applyDamage damage 
    | Heal amount ->
        let healing = applyRules amount healRules characterFrom playerTo distance
        playerTo |> applyHeal healing