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]