Tweak hover crit height

2026-04-03 00:10:59 +01:00
parent 06c7e89dee
commit 8037c69d16
8 changed files with 72 additions and 60 deletions
@@ -48,7 +48,11 @@ doDamage cid w = fromMaybe w $ do
 -- TODO generalise shake to arbitrary damage amounts
 applyPastDamages :: Creature -> World -> World
 applyPastDamages cr w
-    | HoverCrit {} <- cr ^. crType = w
+    | HoverCrit {} <- cr ^. crType 
+    , _crPain cr > 50 = w
+                & cWorld . lWorld . creatures . ix (_crID cr) . crPain -~ 50
+                & cWorld . lWorld . creatures . ix (_crID cr) . crPos . _z %~ max 12 . (subtract 1)
+    | HoverCrit {} <- cr ^. crType  = w
    | _crPain cr > 200 = dojitter 3 100
    | _crPain cr > 20 = dojitter 2 10
    | _crPain cr > 0 = dojitter 1 1