Fix terminal shape

2026-04-10 11:19:16 +01:00
parent b197e22de7
commit f19e165571
8 changed files with 36 additions and 31 deletions
@@ -55,9 +55,8 @@ updateLivingCreature cr =
        ChaseCrit{} -> \w ->
            crUpdate cid . performActions cid $
                over (cWorld . lWorld . creatures . ix cid) (chaseCritInternal w) w
-        CrabCrit{} -> \w ->
-            crUpdate cid . performActions cid $
-                crabCritInternal cid w
+        CrabCrit{} -> 
+            crUpdate cid . performActions cid . crabCritInternal cid
        AutoCrit {} -> crUpdate cid
        SwarmCrit {} -> crUpdate cid
        HoverCrit {} -> \w ->
@@ -129,7 +128,7 @@ startDeathTimer cr = cr
 toDeathCarriage :: Carriage -> Carriage
 toDeathCarriage = \case
    Flying {} -> Falling Q.qid Q.qid
-    Walking -> OnGround
+    Walking -> OnGround Q.qid
    _ -> Falling Q.qid Q.qid

 -- could look at the amount of damage here (given by maxDamage) too