Partially working change to selected items

2023-02-07 12:07:13 +00:00
parent 5f7d662454
commit c354949ca9
27 changed files with 386 additions and 288 deletions
@@ -65,7 +65,7 @@ showAutoRechargeProgress lc = case lc of
    ChargeableAmmo{} -> show (_wpCharge lc)

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