4 files changed, 37 insertions, 16 deletions

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index ff37fdb..32cfa22 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
 
+
         , _sHitzones = cTable [ (1, 5, "Kopf")
                               , (6, 54, "Torso")
                               , (55, 62, "Rechter Arm")
@@ -113,7 +114,7 @@ human = Humanoid
                                                                                    , (26, 35, effect "Blind, Rechts")
                                                                                    , (36, 45, effect "Blind, Links")
                                                                                    , (46, 75, effect "Taub")
-                                                                                   , (76, 100, effect "Bewusstlos – 1w10 Runden")
+                                                                                   , (76, 100, Effect "Bewusstlos" . unconscious $ d 10)
                                                                                    ])
                                                    )
                                                  , ("Torso", def)
@@ -127,8 +128,13 @@ human = Humanoid
         , _sDamage = const 0
         , _sFatigue = 0
 
+        , _sSequence = Nothing
+
         , _sPainShock = def
         , _sFatigueShock = def
+
+        , _sExtraSkills = []
+        , _sModifiers = []
         }
   where
     headshot = runMaybeT $ do
@@ -139,6 +145,11 @@ human = Humanoid
           dmg' = if dmg >= 0 then dmg else 0
       MaybeT . previews ctx $ set (sDamage' "Kopf") dmg'
 
+    unconscious :: Formula Stats -> FormulaM Stats (Maybe Stats)
+    unconscious roundsF = do
+      rounds <- roundsF
+      previews ctx $ over (sSequence . _Just . seqRound . _Wrapped) (+ rounds)
+
 dog = Quadruped
       { _sAStrength = vStrength
       , _sAEndurance = vEndurance
diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
index a0add1a..dff886d 100644
--- a/src/Sequence/Contact/Types.hs
+++ b/src/Sequence/Contact/Types.hs
@@ -94,7 +94,7 @@ makePrisms ''SeqVal
 makeLenses ''SeqVal
 
 instance Default SeqVal where
-  def = SeqVal { _seqRound = 0
+  def = SeqVal { _seqRound = Down 0
                , _seqVal = Nothing
                , _seqEpsilon = False
                }
@@ -112,7 +112,9 @@ makeLenses ''Stats
 
 instance Default Stats where
   def = Prop
-        { _sHitzones = [("Volumen", 1)]
+        { _sSeqEpsilon = False
+        
+        , _sHitzones = [("Volumen", 1)]
         , _sArmor = const def
         , _sCripple = const def
 
diff --git a/src/Sequence/Contact/Types/Internal.hs b/src/Sequence/Contact/Types/Internal.hs
index 7e9be2b..e4a2eef 100644
--- a/src/Sequence/Contact/Types/Internal.hs
+++ b/src/Sequence/Contact/Types/Internal.hs
@@ -7,6 +7,7 @@ import Sequence.Formula (Formula, FormulaM, Table)
 import Data.Map (Map)
 import Data.Set (Set)
 import Data.Ratio
+import Data.Ord
 import Data.Monoid
 
 import Control.Lens
@@ -46,11 +47,11 @@ data Modifier = Modifier (CI String) (Test -> FormulaM Stats Test)
 data Effect = Effect (CI String) (FormulaM Stats (Maybe Stats))
 
 data SeqVal = SeqVal
-              { _seqRound :: Int
+              { _seqRound :: Down Int
               , _seqVal :: Maybe Int
               , _seqEpsilon :: Bool
               }
-  deriving (Show, Ord, Eq)
+  deriving (Show, Eq, Ord)
 
 data ShockEffect = ShockEffect
                    { _seApplied :: Bool
@@ -60,7 +61,9 @@ data ShockEffect = ShockEffect
                    }
 
 data Stats = Prop
-             { _sHitzones :: Table Hitzone
+             { _sSeqEpsilon :: Bool
+
+             , _sHitzones :: Table Hitzone
              , _sArmor :: Hitzone -> Armor 
              , _sCripple :: Hitzone -> ShockEffect
 
@@ -123,6 +126,8 @@ data Stats = Prop
              , _sPainTolerance
              , _sFatigueTolerance :: Formula Stats
 
+             , _sSeqEpsilon :: Bool
+               
              , _sHitzones :: Table Hitzone
              , _sArmor :: Hitzone -> Armor 
              , _sCripple :: Hitzone -> ShockEffect
@@ -161,6 +166,8 @@ data Stats = Prop
              , _sPainTolerance
              , _sFatigueTolerance :: Formula Stats
 
+             , _sSeqEpsilon :: Bool
+
              , _sHitzones :: Table Hitzone
              , _sArmor :: Hitzone -> Armor 
              , _sCripple :: Hitzone -> ShockEffect
@@ -199,6 +206,8 @@ data Stats = Prop
              , _sPainTolerance
              , _sFatigueTolerance :: Formula Stats
 
+             , _sSeqEpsilon :: Bool
+
              , _sHitzones :: Table Hitzone
              , _sArmor :: Hitzone -> Armor 
              , _sCripple :: Hitzone -> ShockEffect
diff --git a/src/Sequence/Types.hs b/src/Sequence/Types.hs
index 33bbc2a..f5bf010 100644
--- a/src/Sequence/Types.hs
+++ b/src/Sequence/Types.hs
@@ -6,7 +6,7 @@ module Sequence.Types
   , Entity(..), eFaction, eSeqVal, eStats
   , EntityName(..), entityName
   , EntityIdentifier(..), entityId, entityId'
-  , inhabitedFactions, priorityQueue, tip, insertEntity, gFocus', gRound
+  , inhabitedFactions, priorityQueue, tip, insertEntity, gFocus', gRounds, gRounds', gRound
   ) where
 
 import Control.Lens
@@ -151,13 +151,12 @@ insertEntity entity = execState $ do
   identifier <- use gNextId
   gEntities . at identifier ?= entity
   gNextId %= succ
+
+gRounds :: Traversal' GameState Int
+gRounds = gEntities . each . eStats . sSequence . _Just . seqRound . _Wrapped
+
+gRounds' :: Getter GameState [Int]
+gRounds' = to $ nub . sort . toListOf gRounds
   
-gRound :: Lens' GameState Int
-gRound = lens lowestRound $ flip trimBelow
-  where
-    lowestRound = getMin . (<> Min 0) . view (gEntities . each . eStats . sSequence . _Just . seqRound . _Unwrapped)
-    trimBelow = over (gEntities . each . eStats . sSequence) . trimBelow'
-    trimBelow' cutoff = runReader . runMaybeT $ do
-      round <- MaybeT . preview $ _Just . seqRound
-      guard $ round >= cutoff
-      MaybeT ask
+gRound :: Getter GameState Int
+gRound = to $ getMin . (<> Min 0) . view (gRounds . _Unwrapped)