diff --git a/src/Dodge/Render/HUD.hs b/src/Dodge/Render/HUD.hs index 3a3963ef7..480be27aa 100644 --- a/src/Dodge/Render/HUD.hs +++ b/src/Dodge/Render/HUD.hs @@ -153,7 +153,9 @@ lnkMidInvSel cfig w lefti midi = winScale cfig combineCounts :: Configuration -> World -> [Int] -> Picture combineCounts cfig w = winScale cfig . foldMap f . group where - f (i:is) = uncurryV translate (V2 10 5 +.+ selNumMidHeight cfig w i) . scale 0.1 0.1 . text . show $ length is + 1 + f (i:is) = case yourInv w ^? ix i . itConsumption of + Just _ -> color (selNumCol i w) $ uncurryV translate (V2 10 5 +.+ selNumMidHeight cfig w i) . scale 0.1 0.1 . text . show $ length is + 1 + Nothing -> mempty f _ = mempty lnkMidPosInvSelsCol :: Configuration -> World -> Int -> Color -> [Int] -> Picture