Fix unsafe blink bugs

2022-06-05 09:53:16 +01:00
parent 65fcea0f50
commit e84e5bad01
2 changed files with 29 additions and 6 deletions
@@ -59,15 +59,15 @@ foldCr xs cr w = foldr f w xs
 -- may affect whether the shield moves correctly
 stateUpdate :: (Creature -> World -> World) -> Creature -> World -> World
 stateUpdate f = foldCr
-    [ clearDamage
-    , equipmentEffects
+    [ equipmentEffects
    , invSideEff
    , upInv      -- upInv must be called before invSideEff 22.05.23
    , movementSideEff
    , f
    , internalUpdate 
-    , checkDeath
-    , doDamage
+    , clearDamage   -- these three
+    , checkDeath    -- must be in
+    , doDamage      -- this order 22/06/05
    ]

 checkDeath :: Creature -> World -> World