mischief-ecs-0.1.0.0: src/Mischief/ECS/Timer.hs

module Mischief.ECS.Timer where

data Timer = Timer {duration :: Float, elapsed :: Float, mode :: Mode}

data Mode = Once | Repeat

new :: Float -> Mode -> Timer
new duration mode = Timer {duration, mode, elapsed = 0}

tick :: Float -> Timer -> (Timer, Bool)
tick _ timer | timer.elapsed >= timer.duration = (timer, False)
tick x timer | timer.elapsed + x < timer.duration = (timer {elapsed = timer.elapsed + x}, False)
tick _ Timer {duration, elapsed = _, mode = Once} = (Timer {duration, elapsed = duration, mode = Once}, True)
tick x Timer {duration, elapsed, mode = Repeat} = (Timer {duration, elapsed = elapsed + x - duration, mode = Repeat}, True)