Add sounds, move data types out into separate folders

2022-07-16 17:06:51 +01:00
parent f8f4766012
commit e4a4766ddf
48 changed files with 658 additions and 496 deletions
@@ -0,0 +1,26 @@
+module Dodge.Material.Sound 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]
+
+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]