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 |
