Use NewIntMap InvInt for crInv

2025-08-25 10:21:59 +01:00
parent 25e64d5378
commit 3f6f1b4019
38 changed files with 437 additions and 406 deletions
@@ -9,17 +9,17 @@ import Dodge.Creature.ChaseCrit
 import Dodge.Data.Creature
 import Dodge.Default
 --import Dodge.Item.Equipment
-import qualified IntMapHelp as IM
+--import qualified IntMapHelp as IM

 flockArmourChaseCrit :: Creature
 flockArmourChaseCrit =
    defaultCreature
        { _crName = "armourChaseCrit"
        , _crHP = 300
-        , _crInv =
-            IM.fromList
-                [ --(0, frontArmour)
-                ]
+        , _crInv = mempty
+--            IM.fromList
+--                [ --(0, frontArmour)
+--                ]
        , _crActionPlan =
            ActionPlan
                { _apImpulse = []
@@ -36,11 +36,11 @@ armourChaseCrit :: Creature
 armourChaseCrit =
    chaseCrit
        { _crName = "armourChaseCrit"
-        , --, _crUpdate = defaultImpulsive []
-          _crInv =
-            IM.fromList
-                [ --(0, frontArmour)
-                ]
+--        , --, _crUpdate = defaultImpulsive []
+--          _crInv =
+--            IM.fromList
+--                [ --(0, frontArmour)
+--                ]
 --        , _crMvType = defaultChaseMvType{_mvTurnRad = FloatConst 0.05}
        }
        & crEquipment . at OnChest ?~ 0