Remove external corpses, handle them as creatures

2025-09-25 09:31:58 +01:00
parent fcb02850d0
commit 23f61081cf
33 changed files with 184 additions and 159 deletions
@@ -17,7 +17,7 @@ import Dodge.Default
 barrel :: Creature
 barrel =
    defaultInanimate
-        { _crHP = 500
+        { _crHP = HP 500
        , _crType = BarrelCrit PlainBarrel
 --        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
        }
@@ -25,7 +25,7 @@ barrel =
 explosiveBarrel :: Creature
 explosiveBarrel =
    defaultInanimate
-        { _crHP = 400
+        { _crHP = HP 400
        , _crType = BarrelCrit (ExplosiveBarrel [])
 --        , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
        }