10 lines
308 B
Haskell
10 lines
308 B
Haskell
{- 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)})
|