Improve carriage/stride when falling down pit

2026-03-27 00:33:19 +00:00
parent fed607681b
commit ac09ed6629
7 changed files with 119 additions and 109 deletions
@@ -24,6 +24,7 @@ data Carriage
    | Floating
    | Flying
    | Boosting Point2
+    | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data FootForward = LeftForward | RightForward