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 -> []