From b6e4dcfd8b50f47f2ca781752b1b24c86cf8c962 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 4 Jun 2016 01:15:42 +0200 Subject: Additional species --- src/Sequence/Contact/Types.hs | 49 ++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 48 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs index b33e132..815bd4e 100644 --- a/src/Sequence/Contact/Types.hs +++ b/src/Sequence/Contact/Types.hs @@ -9,7 +9,7 @@ import Control.Lens import Data.Default data Stats = Prop - | Human + | Humanoid { _sAStrength , _sAEndurance , _sAMass @@ -52,6 +52,52 @@ data Stats = Prop , _sSTracked , _sSExoskeleton + , _sMaxVitality + , _sSeqVal + , _sPainTolerance + , _sFatigueTolerance :: FormulaM Stats Int + } + | Quadruped + { _sAStrength + , _sAEndurance + , _sAMass + , _sAReflexes + , _sAMobility + , _sADexterity + , _sAIntelligence + , _sACharisma + , _sAPerception + , _sAWillpower + + , _sSBiting + , _sSTracking + , _sSStealth + , _sSLeadership + , _sSDemeanour + + , _sMaxVitality + , _sSeqVal + , _sPainTolerance + , _sFatigueTolerance :: FormulaM Stats Int + } + | Dolphin + { _sAStrength + , _sAEndurance + , _sAMass + , _sAReflexes + , _sAMobility + , _sADexterity + , _sAIntelligence + , _sACharisma + , _sAPerception + , _sAWillpower + + , _sSRamming + , _sSTargeting + , _sSSearching + , _sSStealth + , _sSComprehension + , _sMaxVitality , _sSeqVal , _sPainTolerance @@ -61,3 +107,4 @@ makeLenses ''Stats instance Default Stats where def = Prop + -- cgit v1.2.3