diff options
Diffstat (limited to 'src/Sequence')
-rw-r--r-- | src/Sequence/Contact/Archetypes.hs | 5 | ||||
-rw-r--r-- | src/Sequence/Types.hs | 2 |
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 @@ | |||
3 | module Sequence.Types | 3 | module 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 |