Tweak sound

2021-03-27 15:23:16 +01:00
parent 2011728de5
commit eb2a1a0edb
6 changed files with 49 additions and 115 deletions
@@ -8,11 +8,11 @@ import System.Random
 import Control.Lens

 mkSoundBreakGlass :: World -> World
-mkSoundBreakGlass w = soundOnce soundid $ set randGen g w
+mkSoundBreakGlass w = soundOnceOrigin soundid (GlassBreakSound 0) $ set randGen g w
  where
    (soundid,g) = _randGen w & randomR (37,40)

 mkSoundSplinterGlass :: World -> World
-mkSoundSplinterGlass w = soundOnce soundid $ set randGen g w
+mkSoundSplinterGlass w = soundOnceOrigin soundid (GlassBreakSound 1) $ set randGen g w
  where
    (soundid,g) = _randGen w & randomR (33,36)