20 lines
422 B
Haskell
20 lines
422 B
Haskell
module Dodge.Item.Weapon.Shell (
|
|
decTimMvVel,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.World
|
|
import Geometry.Vector
|
|
|
|
decTimMvVel :: Proj -> World -> World
|
|
decTimMvVel pj =
|
|
cWorld . lWorld . projectiles . ix pjid
|
|
%~ ( (prjTimer -~ 1)
|
|
. (prjPos %~ (+.+ vel))
|
|
. (prjAcc %~ rotateV rot)
|
|
)
|
|
where
|
|
rot = _prjSpin pj
|
|
vel = _prjVel pj
|
|
pjid = _prjID pj
|