Move laser sound to where it is created

2025-06-01 21:07:56 +01:00
parent c291c7e3da
commit b442001246
6 changed files with 156 additions and 133 deletions
@@ -141,13 +141,11 @@ rotateCamera cfig w
      , Just rotation <-
            angleBetween (w ^. input . mousePos)
                <$> (w ^. input . heldPos . at SDL.ButtonRight) =
-            w & wCam . camRot -~ rotation
+        w & wCam . camRot -~ rotation
    | _gameplay_rotate_to_wall cfig
-      , isNothing $ pkeys ^? ix SDL.ButtonRight =
+      , isNothing $ w ^? input . mouseButtons . ix SDL.ButtonRight =
        rotateToOverlappingWall w
    | otherwise = w
-  where
-    pkeys = w ^. input . mouseButtons

 rotateToOverlappingWall :: World -> World
 rotateToOverlappingWall w =