Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -37,6 +37,6 @@ crCurrentEquipment cr =
 strFromHeldItem :: Creature -> Int
 strFromHeldItem cr
    | _posture (_crStance cr) == Aiming || crIsReloading cr = negate $ fromMaybe 0 $ do
-        i <- cr ^? crManipulation . isel . ispItem
+        i <- cr ^? crManipulation . manObject . inInventory . ispItem
        cr ^? crInv . ix i . itUse . heldAim . aimWeight
    | otherwise = 0