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

Cleanup

Browse Source
This commit is contained in:
justin
2025-10-24 11:16:30 +01:00
parent 18ab89d3f2
commit 27569ed8f3
11 changed files with 50 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Damage.hs
+17 -17
View File
@@ -38,14 +38,14 @@ damageStone dm ecw w = case dm of
. randsound p [slapS, slap1S]
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
Explosive{} -> f dmam $ id
Sparking{} -> f 0 $ id
Flaming{} -> f 0 $ id
Electrical{} -> f 0 $ id
Poison{} -> f 0 $ id
Enterrement{} -> f 0 $ id
Flashing{} -> f 0 $ id
Crushing{} -> f dmam id
Explosive{} -> f dmam id
Sparking{} -> f 0 id
Flaming{} -> f 0 id
Electrical{} -> f 0 id
Poison{} -> f 0 id
Enterrement{} -> f 0 id
Flashing{} -> f 0 id
where
f x g = (x, g w)
dmam = dm ^. dmAmount
@@ -69,15 +69,15 @@ damageMetal dm ecw w = case dm of
Blunt _ p t -> f dmam $
makeSpark NormalSpark (outTo p t) (rdir p t)
. randsound p [clangS,clang1S,clang2S]
Shattering {} -> f dmam $ id
Crushing{} -> f dmam $ id
Explosive{} -> f dmam $ id
Sparking{} -> f 0 $ id
Flaming{} -> f 0 $ id
Electrical{} -> f 0 $ id
Poison{} -> f 0 $ id
Enterrement{} -> f 0 $ id
Flashing{} -> f 0 $ id
Shattering {} -> f dmam id
Crushing{} -> f dmam id
Explosive{} -> f dmam id
Sparking{} -> f 0 id
Flaming{} -> f 0 id
Electrical{} -> f 0 id
Poison{} -> f 0 id
Enterrement{} -> f 0 id
Flashing{} -> f 0 id
where
f x g = (x, g w)
dmam = dm ^. dmAmount