From 486604532fa99fd294bb2d0c4166d815de6d4fde Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Fri, 10 Jun 2016 14:20:08 +0200
Subject: entity notes
---
src/Sequence/Contact/Archetypes.hs | 5 +++++
src/Sequence/Types.hs | 2 +-
2 files changed, 6 insertions(+), 1 deletion(-)
(limited to 'src/Sequence')
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
--
cgit v1.2.3