Make projectile use 3d position/velocity records

2025-08-04 12:15:42 +01:00
parent 80d6133fd6
commit 7714e2e298
7 changed files with 80 additions and 84 deletions
@@ -36,10 +36,8 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
        & updatedetonator
        & cWorld . lWorld . projectiles . at i
            ?~ Shell
-                { _pjPos = pos
-                , _pjZ = 20
-                , _pjZVel = 5
-                , _pjVel = rotateV dir' (V2 speed 0) + crvelcomponent
+                { _pjPos = pos `v2z` 20
+                , _pjVel = (rotateV dir' (V2 speed 0) + crvelcomponent) `v2z` 5
                , _pjID = i
                , _pjDir = dir'
                , _pjSpin = 0