Add z levels to shockwaves

src/Dodge/Payload.hs

@@ -8,7 +8,6 @@ import RandomHelp
 import Control.Monad
 import Color
 import Dodge.WorldEvent.Shockwave
-import Geometry.Vector3D
 import Dodge.Data.World
 import Dodge.SoundLogic
 import Dodge.WorldEvent.Explosion
@@ -27,8 +26,8 @@ makeShrapnelAt p' vel' w =
     w
         & soundMultiFrom [Explosion 0, Explosion 1] p bangS Nothing
         & cWorld . lWorld . worldEvents
-            .:~ MakeTempLight (LSParam (addZ 20 p) 150 (V3 0.8 0.8 0.8)) 20
-        & makeShockwaveAt [] p 50 5 0 white
+            .:~ MakeTempLight (LSParam p' 150 (V3 0.8 0.8 0.8)) 20
+        & makeShockwaveAt [] p' 50 5 0 white
         & cWorld . lWorld . bullets .++~ buls
   where
     p = p' ^. _xy
@@ -44,5 +43,3 @@ makeShrapnelAt p' vel' w =
         & buDrag .~ drag
         & buPos .~ (p - v)
         & buOldPos .~ (p - v)
---        & buDamages .~ [Damage PIERCING 10 0 0 0 $ PushBackDamage 2]
-        & buWidth .~ 1