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
@@ -138,7 +138,6 @@ makeFragBullets p w = w & cWorld . lWorld . bullets .++~ bus
            & buDrag .~ 0.8
            & buPos .~ p
            & buOldPos .~ p
-            & buWidth .~ 1

 makeFlak :: Bullet -> Point2 -> World -> World
 makeFlak bu _ w = w & cWorld . lWorld . bullets .++~ [f x | x <- xs]
@@ -148,7 +147,6 @@ makeFlak bu _ w = w & cWorld . lWorld . bullets .++~ [f x | x <- xs]
    f x =
        bu & buVel %~ g x
            & buPayload .~ BulPlain 25
-            & buWidth .~ 0.5
    g x v = v +.+ x *.* normalizeV (vNormal v)

 hitEffFromBul :: World -> Bullet -> (World, Bullet)