Remove instantBullets

2024-12-24 12:50:00 +00:00
parent a28ec07ffb
commit 75958c1e2c
9 changed files with 25 additions and 23 deletions
@@ -478,9 +478,10 @@ makeBullet' bu itm cr mz w = makeBullet bu itm bulpos dir . (randGen .~ g) $ w
 makeBullet :: Bullet -> Item -> Point2 -> Float -> World -> World
 makeBullet thebullet itm bulpos dir w =
    w & randGen .~ g''
-        & cWorld . lWorld . instantBullets
+        & cWorld . lWorld . bullets
            .:~ ( thebullet
                    & buPos .~ bulpos
+                    & buOldPos .~ bulpos
                    & buVel %~ (rotateV dir . (muzvel *.*))
                    & buDrag *~ drag
                )