Basic Contact stats

2 files changed, 71 insertions, 5 deletions

diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
new file mode 100644
index 0000000..b33e132
--- /dev/null
+++ b/src/Sequence/Contact/Types.hs
@@ -0,0 +1,63 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module Sequence.Contact.Types where
+
+import Sequence.Formula
+
+import Control.Lens
+
+import Data.Default
+
+data Stats = Prop
+           | Human
+             { _sAStrength
+             , _sAEndurance
+             , _sAMass
+             , _sAReflexes
+             , _sAMobility
+             , _sADexterity
+             , _sAIntelligence
+             , _sACharisma
+             , _sAPerception
+             , _sAWillpower
+             
+             , _sSArchaicRanged
+             , _sSFirearms
+             , _sSHeavyWeapons
+             , _sSEnergyWeapons
+             , _sSUnarmedMelee
+             , _sSArmedMelee
+             , _sSThrownWeapons
+             , _sSStealth
+             , _sSThievery
+             , _sSLockpicking
+             , _sSTrapping
+             , _sSSciences
+             , _sSFirstAid
+             , _sSMedicine
+             , _sSHumanities
+             , _sSEngineering
+             , _sSCraft
+             , _sSInterfacte
+             , _sSSpeech
+             , _sSLeadership
+             , _sSHomeEconomics
+             , _sSSurvival
+             , _sSMotorcycle
+             , _sSWheeled
+             , _sSHovercraft
+             , _sSAircraft
+             , _sSSpacecraft
+             , _sSWatercraft
+             , _sSTracked
+             , _sSExoskeleton
+
+             , _sMaxVitality
+             , _sSeqVal
+             , _sPainTolerance
+             , _sFatigueTolerance :: FormulaM Stats Int
+             }
+makeLenses ''Stats
+
+instance Default Stats where
+  def = Prop
diff --git a/src/Sequence/Types.hs b/src/Sequence/Types.hs
index 55c9013..4370618 100644
--- a/src/Sequence/Types.hs
+++ b/src/Sequence/Types.hs
@@ -28,6 +28,8 @@ import Data.List
 import Data.Maybe
 import Data.Tuple
 import Data.Ord
+
+import Sequence.Contact.Types
   
 
 newtype Faction = Faction { _lFaction :: Maybe (CI String) }
@@ -58,16 +60,17 @@ makeLenses ''SeqVal
   
 
 data Entity = Entity
-              { _eFaction :: Faction
-              , _eSeqVal :: Maybe SeqVal
+              { _eSeqVal :: Maybe SeqVal
+              , _eFaction :: Faction
+              , _eStats :: Stats
               }
-  deriving (Show)
 makeLenses ''Entity
 
 instance Default Entity where
   def = Entity
-        { _eFaction = def
-        , _eSeqVal = def
+        { _eSeqVal = def
+        , _eFaction = def
+        , _eStats = def
         }
 
 newtype EntityName = EntityName { _entityName :: CI String }