28 lines
1.2 KiB
Haskell
28 lines
1.2 KiB
Haskell
module Dodge.Material.Sound where
|
|
|
|
import Dodge.Data.Material
|
|
import Dodge.SoundLogic.ExternallyGeneratedSounds
|
|
import Sound.Data
|
|
|
|
destroyMatS :: Material -> [SoundID]
|
|
destroyMatS mat = case mat of
|
|
Glass -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
Crystal -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
Stone -> [stone1S, stone2S, stone3S, stone4S, stone5S]
|
|
Dirt -> [stone1S, stone3S]
|
|
Wood -> [stone1S, stone3S]
|
|
Metal -> [metal1S, metal2S, metal3S, metal4S, metal5S, metal6S,metal7S]
|
|
Electronics -> [metal1S, metal2S, metal3S, metal4S, metal5S, metal6S,metal7S]
|
|
Flesh -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S]
|
|
|
|
weakenMatS :: Material -> [SoundID]
|
|
weakenMatS mat = case mat of
|
|
Glass -> [smallGlass1S, smallGlass2S, smallGlass3S, smallGlass4S]
|
|
Crystal -> [smallGlass1S, smallGlass2S, smallGlass3S, smallGlass4S]
|
|
Stone -> [stone1S, stone2S, stone3S, stone4S, stone5S]
|
|
Dirt -> [stone1S, stone3S]
|
|
Wood -> [stone1S, stone3S]
|
|
Metal -> [metal1S, metal2S, metal3S, metal4S, metal5S, metal6S, metal7S]
|
|
Electronics -> [metal1S, metal2S, metal3S, metal4S, metal5S, metal6S, metal7S]
|
|
Flesh -> [blood1S, blood2S, blood3S, blood4S, blood5S, blood6S, blood7S, blood8S]
|