Model.elm 445 B

1234567891011121314151617181920212223242526272829
  1. module Model exposing (..)
  2. -- MODEL
  3. type alias Character =
  4. { name : String
  5. , abilities : Abilities
  6. }
  7. type alias Abilities =
  8. { str : Int
  9. , dex : Int
  10. , con : Int
  11. , int : Int
  12. , wis : Int
  13. , cha : Int
  14. }
  15. type Ability
  16. = Strength
  17. | Dexterity
  18. | Constitution
  19. | Intelligence
  20. | Wisdom
  21. | Charisma
  22. type alias Model =
  23. { name : String
  24. , val : Int
  25. , character : Character
  26. }