Cleanup bullet effects

src/Dodge/Item/Weapon/Bullet.hs

@@ -3,8 +3,6 @@ module Dodge.Item.Weapon.Bullet
     , hvBullet
     ) where
 import Dodge.Data
-import Dodge.Particle.HitEffect
-import Dodge.Particle.Bullet.HitEffect
 import Dodge.Particle.Damage
 import Dodge.Particle.HitEffect.ExpireAndDamage
 
@@ -12,7 +10,6 @@ import Geometry.Data
 basicBullet :: AmmoType
 basicBullet = BulletAmmo
     { _amString = "BASIC"
-    --, _amBulEff = destroyOnImpact bulHitCr bulHitWall
     , _amBulEff = expireAndDamage basicBulDams
     , _amBulWth = 2
     , _amBulVel = V2 50 0
@@ -21,7 +18,7 @@ basicBullet = BulletAmmo
 hvBullet :: AmmoType
 hvBullet = BulletAmmo
     { _amString = "HVBULLET"
-    , _amBulEff = penWalls hvBulHitCr hvBulHitWall
+    , _amBulEff = expireAndDamage hvBulDams
     , _amBulWth = 6
     , _amBulVel = V2 80 0
     , _amBulTraj = BasicBulletTrajectory

src/Dodge/Item/Weapon/BulletGun/Rod.hs

@@ -14,7 +14,8 @@ import Dodge.Default.Weapon
 --import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Default
 import Dodge.Item.Weapon.ZoomScope
---import Dodge.Item.Attachment
+--import Dodge.Particle.HitEffect.ExpireAndDamage
+--import Dodge.Particle.Damage
 import Dodge.Item.Weapon.ExtraEffect
 --import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Item.Weapon.AmmoParams