{- Helper functions for particles.  -}
module Dodge.WorldEvent.HelperParticle
    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)})