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
--    ]