From 486604532fa99fd294bb2d0c4166d815de6d4fde Mon Sep 17 00:00:00 2001 From: Gregor Kleen 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