CharacterSheet.elm

module Data.CharacterSheet exposing (Die(..), Attributes, CharacterSheet, setName, setProfession, setAgilityDie)


type Die
    = D4
    | D6
    | D8
    | D10
    | D12


type alias Attributes =
    { agility : Die
    , smarts : Die
    , spirit : Die
    , strength : Die
    , vigor : Die
    }


type alias CharacterSheet =
    { name : String
    , profession : String
    , attributes : Attributes
    }


setName : String -> CharacterSheet -> CharacterSheet
setName name characterSheet =
    { characterSheet | name = name }


setProfession : String -> CharacterSheet -> CharacterSheet
setProfession profession characterSheet =
    { characterSheet | profession = profession }


setAgilityDie : Die -> CharacterSheet -> CharacterSheet
setAgilityDie die characterSheet =
    let
        oldAttributes =
            characterSheet.attributes
    in
        { characterSheet | attributes = { oldAttributes | agility = die } }


setSmartsDie : Die -> CharacterSheet -> CharacterSheet
setSmartsDie die characterSheet =
    let
        oldAttributes =
            characterSheet.attributes
    in
        { characterSheet | attributes = { oldAttributes | smarts = die } }


setSpiritDie : Die -> CharacterSheet -> CharacterSheet
setSpiritDie die characterSheet =
    let
        oldAttributes =
            characterSheet.attributes
    in
        { characterSheet | attributes = { oldAttributes | spirit = die } }


setStrengthDie : Die -> CharacterSheet -> CharacterSheet
setStrengthDie die characterSheet =
    let
        oldAttributes =
            characterSheet.attributes
    in
        { characterSheet | attributes = { oldAttributes | strength = die } }


setVigorDie : Die -> CharacterSheet -> CharacterSheet
setVigorDie die characterSheet =
    let
        oldAttributes =
            characterSheet.attributes
    in
        { characterSheet | attributes = { oldAttributes | vigor = die } }