Add z levels to shockwaves

2025-08-05 08:30:57 +01:00
parent 09428f2707
commit 22dafda9bd
12 changed files with 27 additions and 39 deletions
@@ -76,8 +76,8 @@ makeExplosionAt p' vel' w =
        & soundStart (Explosion (w ^. cWorld . lWorld . lClock)) (p) bangS Nothing
        & addFlames
        & cWorld . lWorld . worldEvents 
-            .:~ MakeTempLight (LSParam (addZ 20 p) 150 (V3 1 0.5 0)) 20
-        & makeShockwaveAt [] p 50 50 1 white
+            .:~ MakeTempLight (LSParam (p') 150 (V3 1 0.5 0)) 20
+        & makeShockwaveAt [] p' 50 50 1 white
  where
    p = p' ^. _xy
    fVs = fmap (`v2z` 0) $ replicateM 100 (randInCirc 1) & evalState $ _randGen w