justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add sounds

Browse Source
This commit is contained in:
justin
2025-12-26 20:45:24 +00:00
parent 60a69d0092
commit 2fd4a3d2e3
18 changed files with 687 additions and 606 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Sound.hs
+12 -12
View File
@@ -1,4 +1,4 @@
module Dodge.Material.Sound where
module Dodge.Material.Sound (destroyMatS) where
import Dodge.Data.Material
import Dodge.SoundLogic.ExternallyGeneratedSounds
@@ -16,14 +16,14 @@ destroyMatS mat = case mat of
Flesh -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S]
ForceField -> []
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 -> []
--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 -> []