justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Refactor sound

Browse Source
This commit is contained in:
justin
2021-09-12 17:52:34 +01:00
parent ea333a363b
commit 51a85bd1ec
97 changed files with 409 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/Sound.hs
+7 -3
View File
@@ -3,17 +3,21 @@ module Dodge.WorldEvent.Sound
import Dodge.Data
import Dodge.Data.SoundOrigin
import Dodge.SoundLogic
import System.Random
import Dodge.SoundLogic.LoadSound
import Geometry.Data
import Dodge.RandomHelp
import System.Random
import Control.Lens
import Control.Monad.State.Lazy
mkSoundBreakGlass :: Point2 -> World -> World
mkSoundBreakGlass p w = soundOnceOrigin soundid (GlassBreakSound 0) p $ set randGen g w
where
(soundid,g) = _randGen w & randomR (37,40)
(soundid,g) = _randGen w & runState (takeOne [glassShat1S,glassShat2S,glassShat3S,glassShat4S])
mkSoundSplinterGlass :: Point2 -> World -> World
mkSoundSplinterGlass p w = soundOnceOrigin soundid (GlassBreakSound 1) p $ set randGen g w
where
(soundid,g) = _randGen w & randomR (33,36)
(soundid,g) = _randGen w & runState (takeOne [smallGlass1S,smallGlass2S,smallGlass3S,smallGlass4S])