Add jitter when receiving damage

src/Dodge/Creature/Damage.hs

@@ -61,12 +61,18 @@ applyIndividualDamage cr w dm = applyDamageEffect dm (_dmEffect dm) cr $ applyIn
 applyIndividualDamage' :: Creature -> World -> Damage -> World
 applyIndividualDamage' cr w dm = case _dmType dm of
     Piercing -> applyPiercingDamage cr dm w
-    _ -> w & creatures . ix (_crID cr) . crHP -~ _dmAmount dm
+    _ -> w & damageHP cr (_dmAmount dm)
 
 applyPiercingDamage :: Creature -> Damage -> World -> World
 applyPiercingDamage cr dm
     | crIsArmouredFrom p cr = colSpark 8 (brightX 10 1.5 orange) p1 (argV (p1 -.- p))
-    | otherwise = creatures . ix (_crID cr) . crHP -~ _dmAmount dm
+    | otherwise = damageHP cr $ _dmAmount dm
   where
     p = _dmAt dm
     p1 = p +.+ 2 *.* squashNormalizeV (p -.- _crPos cr)
+
+damageHP :: Creature -> Int -> World -> World
+damageHP cr x = creatures . ix (_crID cr) %~
+    ( (crHP -~ x)
+    . (crPastDamage +~ x)
+    )

src/Dodge/Creature/State.hs

@@ -8,6 +8,7 @@ import Dodge.Reloading
 
 import Dodge.Base
 import Dodge.Creature.State.WalkCycle
+import Dodge.Creature.Impulse.Movement
 --import Dodge.Creature.Test
 --import Dodge.Base
 import Dodge.SoundLogic
@@ -93,10 +94,25 @@ dropByState cr w = foldr (copyInvItemToFloor cr) w $ case cr ^. crState . crDrop
 doDamage :: Creature -> World -> World
 doDamage cr w = w
     & creatures . ix (_crID cr) . crState . crDamage .~ [] 
+    & applyPastDamages cr
     & _crApplyDamage cr dams cr
   where 
     dams = _crDamage $ _crState cr
 
+-- TODO generalise shake to arbitrary damage amounts
+applyPastDamages :: Creature -> World -> World
+applyPastDamages cr w
+    | _crPastDamage cr > 200 = let (p,g) = runState (randInCirc 3) (_randGen w)
+        in w & creatures . ix (_crID cr) %~ (crMvBy p . (crPastDamage -~ 100))
+            & randGen .~ g
+    | _crPastDamage cr > 20 = let (p,g) = runState (randInCirc 2) (_randGen w)
+        in w & creatures . ix (_crID cr) %~ (crMvBy p . (crPastDamage -~ 10))
+            & randGen .~ g
+    | _crPastDamage cr > 0 = let (p,g) = runState (randInCirc 1) (_randGen w)
+        in w & creatures . ix (_crID cr) %~ (crMvBy p . (crPastDamage -~ 1))
+            & randGen .~ g
+    | otherwise = w
+
 movementSideEff :: Creature -> World -> World
 movementSideEff cr w
     | hasJetPack = case cr ^? crStance . carriage of