Move further towards removing _crInvEquipped

2024-12-19 12:29:17 +00:00
parent 7e0184a54d
commit 80b03e6544
11 changed files with 82 additions and 97 deletions
@@ -25,12 +25,6 @@ equipmentStrValue itm = case _itType itm of

 crCurrentEquipment :: Creature -> IM.IntMap Item
 crCurrentEquipment = IM.filter (isJust . (^? itLocation . ilEquipPosition . _Just)) . _crInv
--    merge
--        dropMissing
--        dropMissing
--        (zipWithMatched (\_ _ itm -> itm))
--        (_crInvEquipped cr)
--        (_crInv cr)

 strFromHeldItem :: Creature -> Int
 strFromHeldItem cr