Make equipment indices point to item indices

2025-08-26 23:57:02 +01:00
parent 49efe62910
commit 06d50ac752
18 changed files with 108 additions and 522 deletions
@@ -48,7 +48,7 @@ data Creature = Creature
    , _crHP :: Int
    , _crInv :: NewIntMap InvInt Int
    , _crManipulation :: Manipulation
-    , _crEquipment :: M.Map EquipSite (NewInt InvInt)
+    , _crEquipment :: M.Map EquipSite (NewInt ItmInt)
    , _crDamage :: [Damage]
    , _crPain :: Int
    , _crStance :: Stance