Add muzzle flare

2021-10-31 13:04:18 +00:00
parent 502be6f64f
commit a6867b1fad
9 changed files with 80 additions and 34 deletions
@@ -1,9 +1,11 @@
 {- Helper functions for particles.  -}
 module Dodge.WorldEvent.HelperParticle
+    ( ptSimpleTime
+    )
    where
 import Dodge.Data

 {- A simple timer update for particles.  -}
-ptTimer' :: Int -> World -> Particle -> (World, Maybe Particle)
-ptTimer' 0 w _ = (w, Nothing)
-ptTimer' n w pt = (w, Just $ pt {_ptUpdate = ptTimer' (n-1)})
+ptSimpleTime :: Int -> World -> Particle -> (World, Maybe Particle)
+ptSimpleTime 0 w _ = (w, Nothing)
+ptSimpleTime n w pt = (w, Just $ pt {_ptUpdate = ptSimpleTime (n-1)})