Allow for inventory item bolding

2025-12-09 22:46:57 +00:00
parent bf8c538491
commit 851b26262a
18 changed files with 274 additions and 225 deletions
@@ -158,12 +158,18 @@ updateUniverseMid u = case _uvScreenLayers u of
    (sl : _) -> u & uvWorld . unpauseClock .~ 0 & updateUseInputOnScreen sl
    [] ->
        (uvWorld . unpauseClock +~ 1)
+            . (uvWorld . cWorld . highlightItems %~ IM.mapMaybe minusone)
+--            . (uvWorld . cWorld . highlightItems . filteredBy . non 0 -~ 1)
            . timeFlowUpdate
            . updateUseInputInGame
            $ over
                uvWorld
                (updateMouseInGame (u ^. uvConfig) . updateCamera (u ^. uvConfig))
                u
+  where
+    minusone x 
+        | x > 0 = Just $ x - 1
+        | otherwise = Nothing

 timeFlowUpdate :: Universe -> Universe
 timeFlowUpdate u = case u ^. uvWorld . timeFlow of