23 lines
917 B
Haskell
23 lines
917 B
Haskell
module Dodge.Material 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]
|
|
|
|
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]
|