This commit is contained in:
2024-12-20 18:14:27 +00:00
parent 92b190aba8
commit e9006addd0
7 changed files with 46 additions and 64 deletions
+13 -13
View File
@@ -1,9 +1,9 @@
module Dodge.Item.Weapon.Bullet (
hvBulletAmmo,
-- hvBulletAmmo,
defaultBullet,
) where
import Control.Lens
--import Control.Lens
import Dodge.Data.Item.Use.Consumption.Ammo
import Geometry.Data
@@ -27,14 +27,14 @@ 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
]
--hvBulletAmmo :: Bullet
--hvBulletAmmo =
-- defaultBullet
-- & buWidth .~ 6
-- & buVel .~ V2 80 0
-- & buDamages .~ heavyBulDams
--
--heavyBulDams :: [Damage]
--heavyBulDams =
-- [ Damage PIERCING 300 0 0 0 $ PushBackDamage 2
-- ]