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

Separate Clouds and Dust

Browse Source
This commit is contained in:
justin
2025-06-25 14:51:15 +01:00
parent d61ea304ad
commit d4b2f23c9d
19 changed files with 341 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Damage.hs
+10 -10
View File
@@ -28,10 +28,10 @@ damageStone dm ecw w =
Lasering _ p t -> makeSpark FireSpark (outTo p t) (rdir p t)
Piercing _ p t ->
makeSpark NormalSpark (outTo p t) (rdir p t)
. makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
. makeDustAt Stone 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
Blunt _ p t -> makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
Blunt _ p t -> makeDustAt Stone 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeDustAt Stone 200 (addZ 20 (outTo p t))
Crushing{} -> id
Explosive{} -> id
Sparking{} -> id
@@ -62,7 +62,7 @@ damageMetal dm ecw w =
Blunt _ p t ->
makeSpark NormalSpark (outTo p t) (rdir p t)
. randsound p [clangS,clang1S,clang2S]
Shattering _ _ _ -> id
Shattering {} -> id
Crushing{} -> id
Explosive{} -> id
Sparking{} -> id
@@ -85,7 +85,7 @@ damageMetal dm ecw w =
damageFlesh :: Damage -> ECW -> World -> World
damageFlesh dm _ w = w & case dm of
Lasering _ _ _ -> id
Lasering {} -> id
Piercing _ p t ->
randsound
p
@@ -98,7 +98,7 @@ damageFlesh dm _ w = w & case dm of
, bloodShort7S
, bloodShort8S
]
. makeCloudAt (Dust Flesh) 50 (addZ 20 (outTo p t))
. makeDustAt Flesh 50 (addZ 20 (outTo p t))
Blunt _ p _ -> randsound p [hitS]
Shattering _ _ _ -> id
Crushing{} -> id
@@ -120,12 +120,12 @@ damageDirt :: Damage -> ECW -> World -> World
damageDirt dm _ w =
w & case dm of
Lasering _ p t -> -- makeSpark FireSpark (outTo p t) (rdir p t)
makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
makeDustAt Dirt 200 (addZ 20 (outTo p t))
Piercing _ p t ->
makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
makeDustAt Dirt 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
Blunt _ p t -> makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
Blunt _ p t -> makeDustAt Dirt 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeDustAt Dirt 200 (addZ 20 (outTo p t))
Crushing{} -> id
Explosive{} -> id
Sparking{} -> id