Make item display universal

2022-06-19 12:56:30 +01:00
parent df1f3ad6b0
commit 541a04f1bc
22 changed files with 349 additions and 358 deletions
@@ -0,0 +1,60 @@
+module Dodge.Item.Display where
+import Dodge.Module
+import Dodge.Data
+import Dodge.Inventory.ItemSpace
+import Padding
+import LensHelp
+
+import Data.Maybe
+import Data.Sequence
+
+itemString :: Item -> String
+itemString = head . itemDisplay
+
+{- | Displays the item name, ammo if loaded, and any selected '_itCharMode'.  -}
+-- TODO make work on remote launchers
+itemDisplay :: Item -> [String]
+itemDisplay it = Prelude.take (itSlotsTaken it) $
+    (midPadL 15 ' ' thename (' ' : thenumber) ++ theparam)
+    : catMaybes [maybeWarmupStatus it]
+    ++ moduleStrings it ++ repeat "*"
+  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@ChargeableAmmo{} -> show $ _wpCharge am
+        Just x@ItemItselfConsumable{} -> show (_icAmount x)
+        Just NoConsumption -> ""
+        Nothing -> ""
+    theparam = fromMaybe []
+        . listToMaybe 
+        $ mapMaybe ($ it) 
+        [ maybeModeStatus
+--        , maybeWarmupStatus
+--        , maybeRateStatus
+        ]
+
+--    & itInvDisplay .~ \it -> head (basicItemDisplay it) : 
+--        ["*FIRERATE:" ++ fromMaybe "" (maybeRateStatus it)
+--        ]
+
+maybeWarmupStatus :: Item -> Maybe String
+maybeWarmupStatus it = case it ^? itUse . useDelay . warmMax of
+    Nothing -> Nothing
+    Just m  -> case m - (_warmTime . _useDelay $ _itUse it) of
+        x | x <= 1      -> Just "*WARM"
+          | otherwise   -> let n = show x
+                in Just $ Prelude.take (5 - Prelude.length n) "*WARM" ++ n
+
+maybeModeStatus :: Item -> Maybe String
+maybeModeStatus it = case it ^? itAttachment of
+    Just AttachCharMode {_atCharMode = (c :<| _)} -> Just [' ',c]
+    Just AttachMode {_atMode = i} -> Just $ show i
+    _   -> Nothing
+
+maybeRateStatus :: Item -> Maybe String
+maybeRateStatus it = case it ^? itUse . useDelay . rateMaxMax of
+    Nothing -> Nothing
+    _ -> Just $ leftPad 3 ' ' (show (_rateMax . _useDelay $ _itUse it))