Improve falling, hover corpse

2026-04-05 09:31:25 +01:00
parent 3952b2b1b7
commit 73dfd1f319
4 changed files with 16 additions and 13 deletions
@@ -11,14 +11,16 @@ import Shape
 import ShapePicture

 makeCorpse :: Creature -> SPic
-makeCorpse cr =
-    noPic
-        . scaleSH (V3 crsize crsize crsize)
-        $ mconcat
-            [ colorSH (_skinHead cskin) $ deadScalp cr
-            , colorSH (_skinUpper cskin) $ deadUpperBody cr
-            , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
-            ]
+makeCorpse cr = case cr ^. crType of
+    HoverCrit{} -> noPic $ drawHoverCrit cr
+    _ ->
+        noPic
+            . scaleSH (V3 crsize crsize crsize)
+            $ mconcat
+                [ colorSH (_skinHead cskin) $ deadScalp cr
+                , colorSH (_skinUpper cskin) $ deadUpperBody cr
+                , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
+                ]
  where
    cskin = crShape $ _crType cr -- this should be fixed
    crsize = 0.1 * crRad (cr ^. crType)