Stop all sound when stopping time

2022-10-28 14:36:16 +01:00
parent d3233c7daa
commit 0150655c6d
16 changed files with 99 additions and 96 deletions
@@ -459,7 +459,7 @@ withTempLight time rad col eff item cr =

 modClock :: Int -> ChainEffect -> ChainEffect
 modClock n chainEff eff it cr w
-    | (w ^. cwTime . worldClock) `mod` n == 0 = chainEff eff it cr w
+    | (w ^. cWorld . lWorld . lClock) `mod` n == 0 = chainEff eff it cr w
    | otherwise = eff it cr w

 withMuzFlareI :: ChainEffect