Additional archetypes

1 files changed, 35 insertions, 0 deletions

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index 8bb44d4..1de286a 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -45,6 +45,8 @@ archetypes = [ ("Mensch", human)
              , ("Kind von Mu", childOfMu)
 
              , ("Milizenschläger", milizenschlaeger)
+             , ("Kindersoldat", kindersoldat)
+             , ("Passant", passant)
              ]
 
 cTable :: Ord v => [(Integer, Integer, v)] -> Table v
@@ -425,3 +427,36 @@ milizenschlaeger = human
                    & sACharisma .~ 5
                    & sAPerception .~ 5
                    & sAWillpower .~ 6
+                   & sArmor .~ armor
+  where
+    armor "Torso" Ballistic = 10
+    armor "Torso" Piercing = 10
+    armor "Torso" Blunt = 12
+    armor "Torso" Heat = 4
+    armor "Torso" Explosive = 7
+    armor _ _ = 0
+
+kindersoldat = human
+               & sAStrength .~ 4
+               & sAEndurance .~ 4
+               & sAMass .~ 2
+               & sAReflexes .~ 6
+               & sAMobility .~ 9
+               & sADexterity .~ 5
+               & sAIntelligence .~ 2
+               & sACharisma .~ 2
+               & sAPerception .~ 6
+               & sAWillpower .~ 3
+
+passant = human
+          & sAStrength .~ 4
+          & sAEndurance .~ 4
+          & sAMass .~ 4
+          & sAReflexes .~ 4
+          & sAMobility .~ 4
+          & sADexterity .~ 4
+          & sAIntelligence .~ 4
+          & sACharisma .~ 4
+          & sAPerception .~ 4
+          & sAWillpower .~ 4
+