38 lines
800 B
Haskell
38 lines
800 B
Haskell
module Dodge.Item.Weapon.Bullet (
|
|
-- hvBulletAmmo,
|
|
defaultBullet,
|
|
) where
|
|
|
|
--import Control.Lens
|
|
import Dodge.Data.Item.Use.Consumption.Ammo
|
|
import Geometry.Data
|
|
|
|
defaultBullet :: Bullet
|
|
defaultBullet =
|
|
Bullet
|
|
{ _buEffect = DestroyBullet
|
|
, _buPayload = BulPlain 100
|
|
, _buVel = V2 50 0
|
|
, _buDrag = 1
|
|
, _buPos = 0
|
|
, _buOldPos = 0
|
|
, _buOrigin = UnassignedO
|
|
}
|
|
|
|
--basicBulDams :: [Damage]
|
|
--basicBulDams =
|
|
-- [ Damage PIERCING 100 0 0 0 $ PushBackDamage 2
|
|
-- ]
|
|
|
|
--hvBulletAmmo :: Bullet
|
|
--hvBulletAmmo =
|
|
-- defaultBullet
|
|
-- & buWidth .~ 6
|
|
-- & buVel .~ V2 80 0
|
|
-- & buDamages .~ heavyBulDams
|
|
--
|
|
--heavyBulDams :: [Damage]
|
|
--heavyBulDams =
|
|
-- [ Damage PIERCING 300 0 0 0 $ PushBackDamage 2
|
|
-- ]
|