justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Allow bullets to spawn bullets

Browse Source
This commit is contained in:
justin
2024-12-24 14:17:36 +00:00
parent dc96424de9
commit a79dfa1bb3
2 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Bullet.hs
-2
View File
@@ -21,7 +21,6 @@ import Data.Bifunctor
updateBullet :: World -> Bullet -> (World, Maybe Bullet)
updateBullet w bu
-- | magV (_buVel bu) < 1 || _buTimer bu <= 0 = (endspawn w, Nothing)
| magV (_buVel bu) < 1 = (endspawn w, Nothing)
| otherwise =
second (fmap updateBulVel)
@@ -208,7 +207,6 @@ moveBullet pt =
pt
& buPos %~ (+.+ _buVel pt)
& buOldPos .~ _buPos pt
-- & buTimer -~ 1
destroyAt :: Point2 -> Bullet -> Maybe Bullet
destroyAt hitp pt =