Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -65,7 +65,7 @@ showAutoRechargeProgress lc = case lc of
    ChargeableAmmo{} -> show (_wpCharge lc)

 showReloadProgress :: Creature -> HeldConsumption -> String
-showReloadProgress cr ic = case cr ^? crManipulation . isel . iselAction of
+showReloadProgress cr ic = case cr ^? crManipulation . manObject . inInventory . iselAction of
    Just (ReloadAction i la) -> show i ++ showLoadActionType la (_laLoaded ic)
    _ -> case ic ^? laProgress . _Just . ix 0 of
        Nothing -> show $ _laLoaded ic