Creature springs checks for heights

2026-04-04 08:33:09 +01:00
parent 615295ca3e
commit def204d211
8 changed files with 96 additions and 66 deletions
@@ -59,11 +59,13 @@ data Creature = Creature
    , _crWallTouch :: IM.IntMap Point2
    }

+-- Prisms, not lenses
 data CrHP
    = HP Int
    | CrIsCorpse SPic
-    | CrIsGibs
-    | CrIsPitted
+    | CrDestroyed CrDestructionType
+
+data CrDestructionType = Gibbed | Pitted

 data DeathType = CookDeath | PoisonDeath | PlainDeath | GibsDeath

@@ -93,4 +95,5 @@ concat
        [ ''Creature
        , ''Intention
        , ''CrHP
+        , ''CrDestructionType
        ]
@@ -23,7 +23,8 @@ data Vocalization

 data CrMvType
    = NoMvType
-    | MvWalking {_mvSpeed :: Float}
+    | MvWalking {_mvSpeed :: Float} -- note this may interact with a friction element
+    -- so currently 26.04.03 the actual max speed when walking is twice this
    | CrMvType
        { _mvSpeed :: Float
        , _mvTurnRad :: FloatFloat