Cleanup inventory management, arbitrary limit on cloud height

2022-05-24 17:25:39 +01:00
parent 0349443853
commit 28e9adaea3
4 changed files with 24 additions and 10 deletions
@@ -132,10 +132,6 @@ subInventoryDisplay subinv cfig w = case subinv of
        _ -> mempty
    equipcursors = IM.foldMapWithKey (f yellow) (_crInvEquipped cr)
    f col invid epos = listTextPictureAt 144 0 cfig (selNumPos invid w) . color col $ text $ eqPosText epos
--        | _crInvSel cr /= invid || not (ButtonRight `S.member` _mouseButtons w)
--            = listTextPictureAt 144 0 cfig (selNumPos invid w) . color col $ text $ eqPosText epos
--        | otherwise = mempty
-    --rboptions = listTextPicturesAtOffset 200 0 cfig (selNumPos invid w) ["TEST","ME"]
    rboptions = if ButtonRight `S.member` _mouseButtons w
        then drawRBOptions cfig w (_rbOptions w)
        else mempty