Work on inventory management

2023-02-16 16:12:03 +00:00
parent ff5fa6321a
commit 934dd64704
30 changed files with 129 additions and 111 deletions
@@ -65,7 +65,7 @@ showAutoRechargeProgress lc = case lc of
    ChargeableAmmo{} -> show (_wpCharge lc)

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