Cleanup damages further

2022-03-25 11:37:16 +00:00
parent af6cdfd048
commit cb9bdf9c55
8 changed files with 100 additions and 68 deletions
@@ -1,6 +1,5 @@
 module Dodge.Item.Weapon.Bullet
    ( basicBullet
-    , ltBullet
    , hvBullet
    ) where
 import Dodge.Data
@@ -11,19 +10,12 @@ import Geometry.Data
 basicBullet :: AmmoType
 basicBullet = BulletAmmo
    { _amString = "BASIC"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall
+    --, _amBulEff = destroyOnImpact bulHitCr bulHitWall
+    , _amBulEff = bulletDestroyDamage basicBulDams
    , _amBulWth = 2
    , _amBulVel = V2 50 0
    , _amBulTraj = BasicBulletTrajectory
    }
-ltBullet :: AmmoType
-ltBullet = BulletAmmo
-    { _amString = "LTBULLET"
-    , _amBulEff = destroyOnImpact bulHitCr bulHitWall
-    , _amBulWth = 2
-    , _amBulVel = V2 40 0
-    , _amBulTraj = BasicBulletTrajectory
-    }
 hvBullet :: AmmoType
 hvBullet = BulletAmmo
    { _amString = "HVBULLET"