17 lines
405 B
Haskell
17 lines
405 B
Haskell
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
|
|
|
|
|