Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -153,7 +153,7 @@ doStrategyActions cr = case cr ^? crActionPlan . apStrategy of
 reloadOverride :: Creature -> Creature
 reloadOverride cr = fromMaybe cr $ do
    guard $ cr ^. crStance . posture == Aiming
-    itRef <- cr ^? crManipulation . isel . ispItem
+    itRef <- cr ^? crManipulation . manObject . inInventory . ispItem
    guard $ cr ^? crInv . ix itRef . itUse . heldConsumption . laLoaded == Just 0
    return $    cr & crActionPlan . apStrategy .~ StrategyActions Reload reloadActions
  where