Combat.fs

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 characterTo action distance =
    match action with
    | Attack amount ->
        let damage = applyRules amount attackRules characterFrom characterTo distance
        {characterTo with Health = characterto.Health - damage} 
    | Heal amount ->
        let healing = applyRules amount healRules characterFrom characterTo distance
        {characterTo with Health = characterto.Health + healing}