111 lines
3.9 KiB
Haskell
111 lines
3.9 KiB
Haskell
module Dodge.LoadSound where
|
|
-- imports {{{
|
|
import Dodge.Data
|
|
|
|
import Data.Maybe
|
|
import qualified Data.IntMap.Strict as IM
|
|
import qualified Data.Map as M
|
|
|
|
import Control.Monad
|
|
import Control.Lens
|
|
|
|
import qualified SDL.Mixer as Mix
|
|
|
|
-- }}}
|
|
loadSounds :: IO (IM.IntMap Mix.Chunk)
|
|
loadSounds = do
|
|
Mix.openAudio Mix.defaultAudio 128
|
|
pFireSound <- Mix.load "./data/sound/tap3.wav"
|
|
click <- Mix.load "./data/sound/click1.wav"
|
|
reloadSound' <- Mix.load "./data/sound/reload1.wav"
|
|
tone440 <- Mix.load "./data/sound/tone440.wav"
|
|
pickupSound' <- Mix.load "./data/sound/pickUp.wav"
|
|
putdownSound' <- Mix.load "./data/sound/whiteNoiseFadeOut.wav"
|
|
fireSound' <- Mix.load "./data/sound/fire1.wav"
|
|
grenadeBang' <- Mix.load "./data/sound/grenade.wav"
|
|
tapQuiet' <- Mix.load "./data/sound/tapQuiet.wav"
|
|
twoStep' <- Mix.load "./data/sound/twoStep.wav"
|
|
healSound' <- Mix.load "./data/sound/heal.wav"
|
|
doorSound' <- Mix.load "./data/sound/slideDoor.wav"
|
|
twoStepSlow' <- Mix.load "./data/sound/twoStepSlow.wav"
|
|
knifeSound' <- Mix.load "./data/sound/knife.wav"
|
|
buzzSound' <- Mix.load "./data/sound/buzz.wav"
|
|
hitSound' <- Mix.load "./data/sound/hit1.wav"
|
|
autoGunSound' <- Mix.load "./data/sound/autoGun.wav"
|
|
shotgunSound' <- Mix.load "./data/sound/shotgun.wav"
|
|
teleSound' <- Mix.load "./data/sound/tele.wav"
|
|
longGunSound' <- Mix.load "./data/sound/longTap.wav"
|
|
launcherSound' <- Mix.load "./data/sound/tap4.wav"
|
|
smokeTrailSound' <- Mix.load "./data/sound/missileLaunch.wav"
|
|
foot1Sound' <- Mix.load "./data/sound/foot1.wav"
|
|
foot2Sound' <- Mix.load "./data/sound/foot2.wav"
|
|
lasSound' <- Mix.load "./data/sound/tone440sawtooth.wav"
|
|
teslaSound' <- Mix.load "./data/sound/Electrical-Welding.wav"
|
|
crankSlow' <- Mix.load "./data/sound/crankSlow.wav"
|
|
autoB' <- Mix.load "./data/sound/autoB.wav"
|
|
mini' <- Mix.load "./data/sound/mini1.wav"
|
|
impactA' <- Mix.load "./data/sound/Impact-A.wav"
|
|
impactB' <- Mix.load "./data/sound/Impact-B.wav"
|
|
impactC' <- Mix.load "./data/sound/Impact-C.wav"
|
|
impactD' <- Mix.load "./data/sound/Impact-D.wav"
|
|
glassShat1' <- Mix.load "./data/sound/Glass-Bottle-Shattering-A1.wav"
|
|
glassShat2' <- Mix.load "./data/sound/Glass-Bottle-Shattering-A2.wav"
|
|
glassShat3' <- Mix.load "./data/sound/Glass-Bottle-Shattering-A3.wav"
|
|
glassShat4' <- Mix.load "./data/sound/Glass-Bottle-Shattering-A4.wav"
|
|
glass1' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A1.wav"
|
|
glass2' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A2.wav"
|
|
glass3' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A3.wav"
|
|
glass4' <- Mix.load "./data/sound/Small-Piece-Of-Glass-Shattering-A4.wav"
|
|
foamSpray' <- Mix.load "./data/sound/foamSprayLoop.wav"
|
|
return $ IM.fromList $ zip [0..] $
|
|
[ pFireSound
|
|
, click
|
|
, reloadSound'
|
|
, tone440
|
|
, pickupSound'
|
|
, putdownSound'
|
|
, fireSound'
|
|
, grenadeBang'
|
|
, tapQuiet'
|
|
, twoStep'
|
|
, healSound'
|
|
, doorSound'
|
|
, twoStepSlow'
|
|
, knifeSound'
|
|
, buzzSound'
|
|
, hitSound' --15
|
|
, autoGunSound'
|
|
, shotgunSound'
|
|
, teleSound'
|
|
, longGunSound'
|
|
, launcherSound'
|
|
, smokeTrailSound'
|
|
, foot1Sound'
|
|
, foot2Sound'
|
|
, lasSound'
|
|
, teslaSound' --25
|
|
, crankSlow'
|
|
, autoB'
|
|
, mini'
|
|
, impactA'
|
|
, impactB' --30
|
|
, impactC'
|
|
, impactD'
|
|
, glassShat1' --33
|
|
, glassShat2'
|
|
, glassShat3'
|
|
, glassShat4'
|
|
, glass1' --37
|
|
, glass2'
|
|
, glass3'
|
|
, glass4' --40
|
|
, foamSpray'
|
|
]
|
|
|
|
loadMusic :: IO (IM.IntMap Mix.Music)
|
|
loadMusic = do
|
|
undercity <- Mix.load "./data/music/undercity.mid"
|
|
return $ IM.fromList $ zip [0..] $
|
|
[ undercity
|
|
]
|