Basic Contact stats

1 files changed, 63 insertions, 0 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