1 files changed, 48 insertions, 1 deletions
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
@@ -57,7 +57,54 @@ data Stats = Prop
             , _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
+             , _sFatigueTolerance :: FormulaM Stats Int
+             }
 makeLenses ''Stats
 instance Default Stats where
  def = Prop

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
9	import Data.Default	9	import Data.Default
10		10
11	data Stats = Prop	11	data Stats = Prop
12	\| Human	12	\| Humanoid
13	{ _sAStrength	13	{ _sAStrength
14	, _sAEndurance	14	, _sAEndurance
15	, _sAMass	15	, _sAMass
@@ -57,7 +57,54 @@ data Stats = Prop
57	, _sPainTolerance	57	, _sPainTolerance
58	, _sFatigueTolerance :: FormulaM Stats Int	58	, _sFatigueTolerance :: FormulaM Stats Int
59	}	59	}
		60	\| Quadruped
		61	{ _sAStrength
		62	, _sAEndurance
		63	, _sAMass
		64	, _sAReflexes
		65	, _sAMobility
		66	, _sADexterity
		67	, _sAIntelligence
		68	, _sACharisma
		69	, _sAPerception
		70	, _sAWillpower
		71
		72	, _sSBiting
		73	, _sSTracking
		74	, _sSStealth
		75	, _sSLeadership
		76	, _sSDemeanour
		77
		78	, _sMaxVitality
		79	, _sSeqVal
		80	, _sPainTolerance
		81	, _sFatigueTolerance :: FormulaM Stats Int
		82	}
		83	\| Dolphin
		84	{ _sAStrength
		85	, _sAEndurance
		86	, _sAMass
		87	, _sAReflexes
		88	, _sAMobility
		89	, _sADexterity
		90	, _sAIntelligence
		91	, _sACharisma
		92	, _sAPerception
		93	, _sAWillpower
		94
		95	, _sSRamming
		96	, _sSTargeting
		97	, _sSSearching
		98	, _sSStealth
		99	, _sSComprehension
		100
		101	, _sMaxVitality
		102	, _sSeqVal
		103	, _sPainTolerance
		104	, _sFatigueTolerance :: FormulaM Stats Int
		105	}
60	makeLenses ''Stats	106	makeLenses ''Stats
61		107
62	instance Default Stats where	108	instance Default Stats where
63	def = Prop	109	def = Prop
		110