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
@@ -29,11 +29,11 @@ data EquipmentAllocation
    | SwapEquipment
        { _allocNewPos :: EquipSite
        , _allocOldPos :: EquipSite
-        , _allocSwapID :: NewInt InvInt
+        , _allocSwapID :: NewInt ItmInt
        }
    | ReplaceEquipment
        { _allocNewPos :: EquipSite
-        , _allocRemoveID :: NewInt InvInt
+        , _allocRemoveID :: NewInt ItmInt
        }
    | RemoveEquipment
        { _allocOldPos :: EquipSite