Refactor material sounds

src/Dodge/Material.hs

@@ -0,0 +1,22 @@
+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,stone3S]
+    Dirt    -> [stone1S,stone3S]
+    Wood    -> [stone1S,stone3S]
+    Metal   -> [metal2S,metal4S]
+
+weakenMatS :: Material -> [SoundID]
+weakenMatS mat = case mat of
+    Glass   -> [smallGlass1S,smallGlass2S,smallGlass3S,smallGlass4S]
+    Crystal -> [smallGlass1S,smallGlass2S,smallGlass3S,smallGlass4S]
+    Stone   -> [stone1S,stone3S]
+    Dirt    -> [stone1S,stone3S]
+    Wood    -> [stone1S,stone3S]
+    Metal   -> [metal2S,metal4S]