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 16:40:00 +01:00
parent 03bc733de9
commit 35a3f005c4
4 changed files with 16 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Material/Damage.hs
+4 -10
View File
@@ -58,9 +58,7 @@ damageMetal 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)
. randsound p [clangS,clang1S
,tingS, ting1S, ting2S, ting3S, ting4S, ting5S]
-- . randsound p [tingS, ting1S, ting2S, ting3S, ting4S, ting5S]
. randsound p [tingS, ting1S, ting2S, ting3S, ting4S, ting5S]
Blunt _ p t ->
makeSpark NormalSpark (outTo p t) (rdir p t)
. randsound p [clangS,clang1S,clang2S]
@@ -119,9 +117,10 @@ damageFlesh dm _ w = w & case dm of
outTo x t = x -.- squashNormalizeV t
damageDirt :: Damage -> ECW -> World -> World
damageDirt dm ecw w =
damageDirt dm _ w =
w & case dm of
Lasering _ p t -> makeSpark FireSpark (outTo p t) (rdir p t)
Lasering _ p t -> -- makeSpark FireSpark (outTo p t) (rdir p t)
makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
Piercing _ p t ->
makeCloudAt (Dust Dirt) 200 (addZ 20 (outTo p t))
. randsound p [slapS, slap1S]
@@ -136,11 +135,6 @@ damageDirt dm ecw w =
Enterrement{} -> id
Flashing{} -> id
where
rdir p t = argV $ reflectIn v t
where
v = case ecw of
Right wl -> uncurry (-) $ _wlLine wl
Left cr -> vNormal (p - _crPos cr)
randsound p xs =
let (x, g) = runState (takeOne xs) $ _randGen w
in soundStart so p x Nothing . set randGen g