Start simplifying projectile update

2025-08-03 13:46:20 +01:00
parent 5f158cc87a
commit c3b2bb30f5
10 changed files with 218 additions and 228 deletions
@@ -48,9 +48,8 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
                , _pjTimer = lifespan
                , _pjUpdates =
                    anyspin
-                        <> [ RemoteDirectionPU (lifespan - thrustdelay) 0
-                           ]
-                        <> thrustorgrav
+--                        <> [ RemoteDirectionPU 330 0
+--                           ]
                , _pjType = pjtype
                , _pjDetonatorID = mdetonator
                , _pjScreenID = mscreen
@@ -72,11 +71,6 @@ createShell (p,q) mdetonator mscreen stab pjtype payload muz cr w =
        Rocket{} -> 1
        RetiredProjectile -> 0
    lifespan = 350
-    thrustorgrav = case pjtype of
-        Grenade{} -> []
-        Rocket{} -> [ThrustPU (lifespan - thrustdelay) 0]
-        RetiredProjectile -> []
-    thrustdelay = 20
    updatedetonator = fromMaybe id $ do
        screenid <- mdetonator
        return $