{-# LANGUAGE DeriveGeneric #-}

module DND.Sheet.Content
( Character (..)
, Preamble (..)
, Trivia (..)
, Skill (..)
, Stat (..)
, ScoreMod(..)
, Spell(..)
, SpellComponent(..)
, Feature(..)
) where

import Data.Aeson ( FromJSON, ToJSON )
import GHC.Generics ( Generic )

instance FromJSON Character
instance ToJSON Character

instance FromJSON Preamble
instance ToJSON Preamble

instance FromJSON Trivia
instance ToJSON Trivia

instance FromJSON Stat
instance ToJSON Stat

instance FromJSON Skill
instance ToJSON Skill

instance FromJSON ScoreMod
instance ToJSON ScoreMod

instance FromJSON Spell
instance ToJSON Spell

instance FromJSON SpellComponent
instance ToJSON SpellComponent

data ScoreMod = None
              | Proficient
              | Expertise
              deriving (Show, Eq, Ord, Generic, Enum)

data Character = Character
               { preamble :: Preamble
               , trivia :: Trivia
               , stats :: [Stat]
               , spells :: Maybe [Spell]
               --, feats :: [Feat]
               } deriving ( Show, Eq, Ord, Generic)

data Preamble = Preamble
              { charLevel :: Int
              , charName :: String
              , charRace :: String
              , charClass :: String
              , jackOfAllTrades :: Bool
              } deriving ( Show, Eq, Ord, Generic)

data Trivia = Trivia
            { background :: String
            , personalityTrait :: String
            , ideals :: String
            , bonds :: String
            , flaws :: String
            , quirk :: String
            } deriving ( Show, Eq, Ord, Generic)

data Skill = Skill
           { skillName :: String
           , skillMod :: ScoreMod
           } deriving ( Show, Eq, Ord, Generic)

data Stat = Stat
          { stat :: String
          , score :: Int
          , proficient :: Bool
          , skills :: [Skill]
          } deriving ( Show, Eq, Ord, Generic)

data Spell = Spell
           { spellName :: String
           , spellLevel :: Int
           , castingTime :: String
           , range :: Int
           , components :: [SpellComponent]
           , duration :: String
           , attackSave :: String
           , damageEffect :: String
           , description :: String
           , school :: String
           , atHighLevel :: String
           } deriving ( Show, Eq, Ord, Generic)

data SpellComponent = Verbal
                    | Somatic
                    | Material
                    deriving ( Show, Eq, Ord, Generic)

data Feature = StatIncrease
                { increase :: [Stat] }
             | SetProficiency 
                { changeModState :: [ScoreMod]
                , featDescription :: String
                }
             | SetExpertise
                { changeModState :: [ScoreMod]
                , featDescription :: String
                }
             | AddSpell
                { addSpell :: [Spell]
                , featDescription :: String
                }
            | Roleplay
                { featDescription :: String
                }
            deriving ( Show, Eq, Ord, Generic)