Add looping sound, add sound to terminals

2022-03-16 09:23:17 +00:00
parent 5623747b01
commit 5aeb04ba05
24 changed files with 156 additions and 133 deletions
@@ -47,10 +47,11 @@ inventoryDisplay cfig w = listTextPicturesAt 0 0 cfig invlist
    inv = _crInv cr
    invlist = concatMap itemText (IM.elems inv)
        ++ displayFreeSlots
-        ++ map floorItemsColor (concatMap (closeObjectToTextPictures nfreeslots) (_closeObjects w))
-    floorItemsColor
-        | _hudElement (_hud w) == DisplayInventory NoSubInventory = id
-        | otherwise = color invDimColor
+        ++ concatMap (closeObjectToTextPictures nfreeslots) (_closeObjects w)
+--        ++ map floorItemsColor (concatMap (closeObjectToTextPictures nfreeslots) (_closeObjects w))
+--    floorItemsColor = case _hudElement (_hud w) of
+--        DisplayInventory NoSubInventory -> id
+--        _ -> color invDimColor
    nfreeslots = crNumFreeSlots cr
    displayFreeSlots = case nfreeslots of
        0 -> [color invDimColor . text $ "  INVENTORY FULL"]