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
@@ -26,7 +26,9 @@ updatePressedButtons pkeys w
        & cameraRot -~ rotation
    | otherwise = w
  where 
-    inTopInv  = _hudElement (_hud w) == DisplayInventory NoSubInventory
+    inTopInv  = case _hudElement (_hud w) of
+        DisplayInventory NoSubInventory -> True
+        _ -> False
    lbPressed = ButtonLeft `S.member` pkeys
    rbPressed = ButtonRight `S.member` pkeys
    mbPressed = ButtonMiddle `S.member` pkeys