From 1f7f1f67c87ed5c5580dde228f88ce55bccd9b77 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sat, 9 Jul 2016 14:45:50 +0200
Subject: vehicles
---
src/Sequence/Contact/Archetypes.hs | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
(limited to 'src/Sequence/Contact')
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
--
cgit v1.2.3