9 lines
229 B
Haskell
9 lines
229 B
Haskell
module Dodge.WorldEvent.HelperParticle
|
|
where
|
|
|
|
import Dodge.Data
|
|
|
|
ptTimer' :: Int -> World -> Particle' -> (World, Maybe Particle')
|
|
ptTimer' 0 w pt = (w, Nothing)
|
|
ptTimer' n w pt = (w, Just $ pt {_ptUpdate' = ptTimer' (n-1)})
|