summaryrefslogtreecommitdiff
path: root/src/Sequence
diff options
context:
space:
mode:
Diffstat (limited to 'src/Sequence')
-rw-r--r--src/Sequence/Contact/Archetypes.hs5
-rw-r--r--src/Sequence/Types.hs2
2 files changed, 6 insertions, 1 deletions
diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index 32cfa22..30aa2b6 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -96,6 +96,7 @@ human = Humanoid
96 , _sPainTolerance = vMass `quot'` 2 + vWillpower 96 , _sPainTolerance = vMass `quot'` 2 + vWillpower
97 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance 97 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
98 98
99 , _sSeqEpsilon = False
99 100
100 , _sHitzones = cTable [ (1, 5, "Kopf") 101 , _sHitzones = cTable [ (1, 5, "Kopf")
101 , (6, 54, "Torso") 102 , (6, 54, "Torso")
@@ -173,6 +174,8 @@ dog = Quadruped
173 , _sPainTolerance = vMass `quot'` 2 + vWillpower 174 , _sPainTolerance = vMass `quot'` 2 + vWillpower
174 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance 175 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
175 176
177 , _sSeqEpsilon = False
178
176 , _sHitzones = [ ("Kopf", 0.05) 179 , _sHitzones = [ ("Kopf", 0.05)
177 , ("Torso", 0.49) 180 , ("Torso", 0.49)
178 , ("Rechter Vorderlauf", 0.08) 181 , ("Rechter Vorderlauf", 0.08)
@@ -208,6 +211,8 @@ dolphin = Dolphin
208 , _sPainTolerance = vMass `quot'` 2 + vWillpower 211 , _sPainTolerance = vMass `quot'` 2 + vWillpower
209 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance 212 , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
210 213
214 , _sSeqEpsilon = False
215
211 , _sHitzones = [ ("Kopf", 0.10) 216 , _sHitzones = [ ("Kopf", 0.10)
212 , ("Rumpf", 0.65) 217 , ("Rumpf", 0.65)
213 , ("Schwanz", 0.25) 218 , ("Schwanz", 0.25)
diff --git a/src/Sequence/Types.hs b/src/Sequence/Types.hs
index f5bf010..6594f78 100644
--- a/src/Sequence/Types.hs
+++ b/src/Sequence/Types.hs
@@ -3,7 +3,7 @@
3module Sequence.Types 3module Sequence.Types
4 ( GameState, gEntities, gEntityNames, gFocus, gNextId' 4 ( GameState, gEntities, gEntityNames, gFocus, gNextId'
5 , Faction, faction, faction' 5 , Faction, faction, faction'
6 , Entity(..), eFaction, eSeqVal, eStats 6 , Entity(..), eFaction, eSeqVal, eStats, eNotes
7 , EntityName(..), entityName 7 , EntityName(..), entityName
8 , EntityIdentifier(..), entityId, entityId' 8 , EntityIdentifier(..), entityId, entityId'
9 , inhabitedFactions, priorityQueue, tip, insertEntity, gFocus', gRounds, gRounds', gRound 9 , inhabitedFactions, priorityQueue, tip, insertEntity, gFocus', gRounds, gRounds', gRound