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/Damage.hs
+4 -2
View File
@@ -36,7 +36,8 @@ damageStone dm ecw w = case dm of
Piercing _ p t ->
f dmam $ makeSpark NormalSpark (outTo p t) (rdir p t)
. makeDustAt Stone 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
-- . randsound p [slapS, slap1S,slap2S,slap3S,slap4S,slap5S,slap6S,slap7S]
. randsound p [slapS, slap1S,slap2S]
Blunt _ p t -> f dmam $ makeDustAt Stone 200 (addZ 20 (outTo p t))
Shattering _ p t -> f dmam $ makeDustAt Stone 200 (addZ 20 (outTo p t))
Crushing{} -> f dmam id
@@ -133,7 +134,8 @@ damageDirt dm _ w =
makeDustAt Dirt 200 (addZ 20 (outTo p t))
Piercing _ p t ->
makeDustAt Dirt 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
-- . randsound p [slapS, slap1S]
. randsound p [slapS, slap1S,slap2S,slap3S,slap4S,slap5S,slap6S,slap7S]
Blunt _ p t -> makeDustAt Dirt 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeDustAt Dirt 200 (addZ 20 (outTo p t))
Crushing{} -> id
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 -> []