{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.Creature 
    ( module Dodge.Data.Creature
    , module Dodge.Data.Creature.Misc
    , module Dodge.Data.Creature.State
    ) where
import GHC.Generics
import Data.Aeson
import Dodge.Data.Creature.Misc
import Dodge.Data.Creature.State
import Dodge.Data.Item
import Dodge.Data.LoadAction
import Dodge.Data.Material
import Dodge.Data.ActionPlan
import Dodge.Data.Hammer
import Dodge.Creature.Perception.Data
import Dodge.Creature.Memory.Data
import Dodge.Creature.Stance.Data
import Dodge.Creature.State.Data
import Geometry.Data
import qualified IntMapHelp as IM
import qualified Data.Map.Strict as M

import Control.Lens
data Creature = Creature
    { _crPos            :: Point2
    , _crOldPos         :: Point2
    , _crVel            :: Point2
    , _crDir            :: Float
    , _crOldDir         :: Float
    , _crMvDir          :: Float
    , _crTwist          :: Float
    , _crType           :: CreatureType
    , _crID             :: Int
    , _crRad            :: Float
    , _crMass           :: Float
    , _crHP             :: Int
    , _crMaxHP          :: Int
    , _crInv            :: IM.IntMap Item
    , _crInvSel         :: InvSel
    , _crInvCapacity    :: Int
    , _crInvLock        :: Bool
    , _crInvEquipped    :: IM.IntMap EquipPosition
    , _crEquipment      :: M.Map EquipPosition Int
    , _crLeftInvSel     :: Maybe Int
    , _crState          :: CreatureState
    , _crCorpse         :: CreatureCorpse --Creature -> Corpse -> SPic
    , _crMaterial       :: Material
    , _crPastDamage     :: Int
    , _crStance         :: Stance
    , _crActionPlan     :: ActionPlan
    , _crMeleeCooldown  :: Int
    , _crPerception     :: Perception
    , _crMemory         :: Memory
    , _crVocalization   :: Vocalization
    , _crFaction        :: Faction
    , _crGroup          :: CrGroup
    , _crIntention      :: Intention
    , _crMvType         :: CrMvType
    , _crHammerPosition :: HammerPosition
    , _crName           :: String
    , _crStatistics     :: CreatureStatistics
    , _crCamouflage     :: CamouflageStatus
    }
  deriving (Eq,Ord,Show,Read,Generic)
instance ToJSON Creature  where
    toEncoding = genericToEncoding defaultOptions
instance FromJSON Creature 
data CreatureCorpse = MakeDefaultCorpse
  deriving (Eq,Ord,Show,Read,Generic)
instance ToJSON CreatureCorpse  where
    toEncoding = genericToEncoding defaultOptions
instance FromJSON CreatureCorpse 
data Intention = Intention
    { _targetCr     :: Maybe Creature
    , _mvToPoint    :: Maybe Point2
    , _viewPoint    :: Maybe Point2
    }
  deriving (Eq,Ord,Show,Read,Generic)
instance ToJSON Intention  where
    toEncoding = genericToEncoding defaultOptions
instance FromJSON Intention 
makeLenses ''Creature
makeLenses ''Intention