module Dodge.LinearShockwave.Update
    where
import Dodge.Data.World
import qualified IntMapHelp as IM

import Control.Lens

updateLinearShockwave :: LinearShockwave -> World -> World
updateLinearShockwave lw
    | t < 1 = cWorld . lWorld . linearShockwaves %~ IM.delete lwid
    | otherwise = cWorld . lWorld . linearShockwaves . ix lwid . lwTimer -~ 1
  where
    lwid = _lwID lw
    t = _lwTimer lw