34 lines
1.6 KiB
Haskell
34 lines
1.6 KiB
Haskell
module Dodge.Material.Sound (destroyMatS) 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]
|
|
ForceField -> []
|
|
Photovoltaic -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
LightningRod -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
Pyroelectric -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
Piezoelectric -> [glassShat1S, glassShat2S, glassShat3S, glassShat4S]
|
|
|
|
--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]
|
|
-- ForceField -> []
|