From 5226496a805d58c1bd69df67e8ec8b9e0f05d5a3 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sat, 25 Jun 2016 01:41:14 +0200
Subject: Additional archetypes

---
 src/Sequence/Contact/Archetypes.hs | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

(limited to 'src')

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
+  
-- 
cgit v1.2.3