Make reloading based upon creature stance

2022-06-20 00:53:47 +01:00
parent 8d457033a2
commit 2f4b381484
11 changed files with 91 additions and 77 deletions
@@ -21,9 +21,9 @@ itemDisplay it = Prelude.take (itSlotsTaken it) $
  where 
    thename  = show . _iyBase $ _itType it
    thenumber = case it ^? itConsumption of
-        Just am@LoadableAmmo{} -> case _laReloadState am of 
-            Nothing' -> show (_laLoaded am)
-            Just' x  -> show x ++ "R" ++ show (_laLoaded am)
+        Just am@LoadableAmmo{} -> case _laTransfer am of 
+            NoTransfer -> show (_laLoaded am)
+            Transfer _ time  -> show time ++ "R" ++ show (_laLoaded am)
        Just am@ChargeableAmmo{} -> show $ _wpCharge am
        Just x@ItemItselfConsumable{} -> show (_icAmount x)
        Just NoConsumption -> ""