Add basic booster

2021-05-24 13:59:51 +02:00
parent cda035b1d1
commit 968273bf25
20 changed files with 276 additions and 324 deletions
@@ -18,8 +18,8 @@ import Control.Lens
 {-
 Update for a generic bullet.
 -}
-mvGenBullet' :: World -> Particle -> (World, Maybe Particle)
-mvGenBullet' w bt 
+mvGenBullet :: World -> Particle -> (World, Maybe Particle)
+mvGenBullet w bt 
    | t <= 0 = (w, Nothing)
    | t < 4  = (w, Just $ set btPassThrough' Nothing
                        $ set btTrail' (p:p:ps)