dolphins & dogs

2 files changed, 53 insertions, 1 deletions

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index 94addce..3b014e4 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -30,6 +30,8 @@ instance Argument Entity GameState where
 
 archetypes :: Map (CI String) Stats
 archetypes = [ ("Mensch", human)
+             , ("Hund", dog)
+             , ("Delfin", dolphin)
              , ("Kind von Mu", childOfMu)
              ]
 
@@ -83,8 +85,58 @@ human = Humanoid
         , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
         }
 
+dog = Quadruped
+      { _sAStrength = vStrength
+      , _sAEndurance = vEndurance
+      , _sAMass = vMass
+      , _sAReflexes = vReflexes
+      , _sAMobility = vMobility
+      , _sADexterity = vDexterity
+      , _sAIntelligence = vIntelligence
+      , _sACharisma = vCharisma
+      , _sAPerception = vPerception
+      , _sAWillpower = vWillpower
+
+      , _sSBiting = 40 + vReflexes + vStrength
+      , _sSSearching = 20 + vIntelligence * 10 + vPerception * 5
+      , _sSStealth = vIntelligence
+      , _sSLeadership = vCharisma * 3 + vMass * 2 + vWillpower
+      , _sSDemeanour = vIntelligence * 8 + vDexterity * 2 + vWillpower
+
+      , _sMaxVitality = vEndurance * 2 + vMass * 2 + vWillpower + 10
+      , _sSeqVal = vReflexes * 2 + vMobility + vPerception + 2 * d 10
+      , _sPainTolerance = vMass `quot'` 2 + vWillpower
+      , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
+      }
+
+dolphin = Dolphin
+          { _sAStrength = vStrength
+          , _sAEndurance = vEndurance
+          , _sAMass = vMass
+          , _sAReflexes = vReflexes
+          , _sAMobility = vMobility
+          , _sADexterity = vDexterity
+          , _sAIntelligence = vIntelligence
+          , _sACharisma = vCharisma
+          , _sAPerception = vPerception
+          , _sAWillpower = vWillpower
+
+          , _sSRamming = 30 + vReflexes * 2 + vPerception
+          , _sSTargeting = 10 + vDexterity * 3 + vPerception
+          , _sSSearching = 10 + vIntelligence * 2 + vPerception
+          , _sSStealth = 5 + vMobility + vPerception
+          , _sSComprehension = vIntelligence * 2 + vPerception
+
+          , _sMaxVitality = vEndurance * 2 + vMass * 2 + vWillpower + 10
+          , _sSeqVal = vReflexes * 2 + vMobility + vPerception + 2 * d 10
+          , _sPainTolerance = vMass `quot'` 2 + vWillpower
+          , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
+          }
+
 childOfMu = human
             & sAStrength +~ 2
             & sAReflexes +~ 5
             & sAMobility +~ 5
             & sAPerception +~ 2
+            & sSeqVal +~ d 10
+
diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
index d3ca31e..4166812 100644
--- a/src/Sequence/Contact/Types.hs
+++ b/src/Sequence/Contact/Types.hs
@@ -70,7 +70,7 @@ data Stats = Prop
              , _sAWillpower
 
              , _sSBiting
-             , _sSTracking
+             , _sSSearching
              , _sSStealth
              , _sSLeadership
              , _sSDemeanour