Add z levels to shockwaves

src/Dodge/Projectile/Create.hs

@@ -18,7 +18,6 @@ data PJStabiliser
     | StabSpinIncrease
 
 -- assumes the mscreen is in your inventory
--- TODO take into account creature aimstance positioning
 createShell ::
     (Point3, Q.Quaternion Float) ->
     Maybe (NewInt ItmInt) ->
@@ -37,7 +36,7 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
         & cWorld . lWorld . projectiles . at i
             ?~ Shell
                 { _pjPos = pos `v2z` 20
-                , _pjVel = (rotateV dir' (V2 speed 0) + crvelcomponent) `v2z` 5
+                , _pjVel = (rotateV dir' (V2 speed 0) + crvelcomponent) `v2z` 0
                 , _pjID = i
                 , _pjDir = dir'
                 , _pjSpin = 0