entity notes

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
         , _sPainTolerance = vMass `quot'` 2 + vWillpower
         , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
 
+        , _sSeqEpsilon = False
 
         , _sHitzones = cTable [ (1, 5, "Kopf")
                               , (6, 54, "Torso")
@@ -173,6 +174,8 @@ dog = Quadruped
       , _sPainTolerance = vMass `quot'` 2 + vWillpower
       , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
 
+      , _sSeqEpsilon = False
+
       , _sHitzones = [ ("Kopf", 0.05)
                      , ("Torso", 0.49)
                      , ("Rechter Vorderlauf", 0.08)
@@ -208,6 +211,8 @@ dolphin = Dolphin
           , _sPainTolerance = vMass `quot'` 2 + vWillpower
           , _sFatigueTolerance = vWillpower `quot'` 2 + vEndurance
 
+          , _sSeqEpsilon = False
+
           , _sHitzones = [ ("Kopf", 0.10)
                          , ("Rumpf", 0.65)
                          , ("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 @@
 module Sequence.Types
   ( GameState, gEntities, gEntityNames, gFocus, gNextId'
   , Faction, faction, faction'
-  , Entity(..), eFaction, eSeqVal, eStats
+  , Entity(..), eFaction, eSeqVal, eStats, eNotes
   , EntityName(..), entityName
   , EntityIdentifier(..), entityId, entityId'
   , inhabitedFactions, priorityQueue, tip, insertEntity, gFocus', gRounds, gRounds', gRound