vehicles

1 files changed, 18 insertions, 0 deletions

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index c0c043a..c93210d 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -24,6 +24,7 @@ import qualified Data.Set as Set
 import Data.Default
 import Data.Maybe
 import Data.Ratio
+import Data.ExtendedReal
 
 import Data.List
 
@@ -52,6 +53,10 @@ archetypes = [ ("Requisite", prop)
              , ("Kindersoldat", kindersoldat)
              , ("Passant", passant)
              , ("Großer Hund", grosserHund)
+
+             , ("ATV", atv)
+             , ("FAV", fav)
+             , ("AUV", auv)
              ]
 
 cTable :: Ord v => [(Integer, Integer, v)] -> Table v
@@ -445,6 +450,7 @@ childOfMu = human
             & sSeqVal +~ d 10
             & sPainTolerance -~ vMass `quot'` 2
 
+
 grosserHund = dog
               & sAStrength .~ 5
               & sAEndurance .~ 8
@@ -545,3 +551,15 @@ passant = human
           & sAWillpower .~ 4
           & sSFirearms +~ 5
           & sSInterface +~ 4
+
+vehicle robustness armor = prop
+                           & sHitzones .~ [("Volumen", 1)]
+                           & sRobustness ?~ robustness
+                           & sArmor .~ const armor'
+  where
+    armor' Cold  = return PosInf
+    armor' Toxic = return PosInf
+    armor' _     = return armor
+atv = vehicle 100 3
+fav = vehicle 200 2
+auv = vehicle 400 10