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

Tweak clouds

Browse Source
This commit is contained in:
justin
2025-06-24 13:54:14 +01:00
parent 444be7b49c
commit 03bc733de9
7 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Damage.hs
+7 -7
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 StoneDust 200 (addZ 20 (outTo p t))
. makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
Blunt _ p t -> makeCloudAt StoneDust 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt StoneDust 200 (addZ 20 (outTo p t))
Blunt _ p t -> makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt (Dust Stone) 200 (addZ 20 (outTo p t))
Crushing{} -> id
Explosive{} -> id
Sparking{} -> id
@@ -100,7 +100,7 @@ damageFlesh dm _ w = w & case dm of
, bloodShort7S
, bloodShort8S
]
. makeCloudAt BloodCloud 50 (addZ 20 (outTo p t))
. makeCloudAt (Dust Flesh) 50 (addZ 20 (outTo p t))
Blunt _ p _ -> randsound p [hitS]
Shattering _ _ _ -> id
Crushing{} -> id
@@ -123,10 +123,10 @@ damageDirt dm ecw w =
w & case dm of
Lasering _ p t -> makeSpark FireSpark (outTo p t) (rdir p t)
Piercing _ p t ->
makeCloudAt DirtDust 200 (addZ 20 (outTo p t))
makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
Blunt _ p t -> makeCloudAt DirtDust 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt DirtDust 200 (addZ 20 (outTo p t))
Blunt _ p t -> makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
Shattering _ p t -> makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
Crushing{} -> id
Explosive{} -> id
Sparking{} -> id