24 lines
538 B
Haskell
24 lines
538 B
Haskell
module Dodge.Default.Shell where
|
|
|
|
import Dodge.Data.Item.Use.Consumption.Ammo
|
|
import Dodge.Data.Projectile
|
|
import Geometry.Data
|
|
|
|
defaultShell :: Proj
|
|
defaultShell =
|
|
Shell
|
|
{ _prjPos = V2 0 0
|
|
, _prjZ = 20
|
|
, _prjStartPos = V2 0 0
|
|
, _prjVel = V2 0 0
|
|
, _prjAcc = V2 0 0
|
|
, _prjDir = 0
|
|
, _prjSpin = 0
|
|
, _prjDraw = DrawShell
|
|
, _prjID = 0
|
|
, _prjTimer = 0
|
|
, _prjPayload = ExplosionPayload
|
|
, _prjUpdates = []
|
|
, _prjMITID = Nothing
|
|
}
|