Tweak corpse/chasm interaction

2026-04-03 09:14:18 +01:00
parent b4d7c43307
commit 18dc469408
3 changed files with 20 additions and 4 deletions
@@ -24,6 +24,7 @@ data Carriage
    | Flying {_zSpeed :: Float, _flyInertia :: Float, _oldOldPos :: Point2}
    | Boosting Point2
    | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
+    | OnGround
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data FootForward = LeftForward | RightForward