Sometimes crush creatures when doors close on them

2026-03-26 12:39:54 +00:00
parent e01029d06d
commit 7999373b69
7 changed files with 249 additions and 156 deletions
@@ -30,6 +30,7 @@ import Dodge.Data.Creature.State
 import Dodge.Data.Item
 import Dodge.Data.Material
 import Geometry.Data
+import qualified Data.IntMap.Strict as IM
 --import qualified IntMapHelp as IM

 data Creature = Creature
@@ -57,6 +58,7 @@ data Creature = Creature
    , _crIntention :: Intention
    , _crName :: String
    , _crDeathTimer :: Int
+    , _crCrushTimers :: IM.IntMap Int
    }

 data CrHP