Separate out bullet effects, allow for tweaking to change these

src/Dodge/Item/Weapon/Bullet.hs

@@ -1,5 +1,8 @@
 module Dodge.Item.Weapon.Bullet
     ( basicBullet
+    , incBullet
+    , conBullet
+    , bounceBullet
     , ltBullet
     , hvBullet
     ) where
@@ -10,11 +13,32 @@ import Dodge.Particle.Bullet.HitEffect
 import Geometry.Data
 basicBullet :: AmmoType
 basicBullet = BulletAmmo
-    { _amString = "BULLET"
+    { _amString = "BASIC"
     , _amBulEff = destroyOnImpact bulHitCr bulHitWall
     , _amBulWth = 2
     , _amBulVel = V2 50 0
     }
+incBullet :: AmmoType
+incBullet = BulletAmmo
+    { _amString = "INCENDIARY"
+    , _amBulEff = destroyOnImpact bulIncCr bulIncWall
+    , _amBulWth = 2
+    , _amBulVel = V2 50 0
+    }
+conBullet :: AmmoType
+conBullet = BulletAmmo
+    { _amString = "CONCUSSIVE"
+    , _amBulEff = destroyOnImpact bulConCr bulConWall
+    , _amBulWth = 2
+    , _amBulVel = V2 50 0
+    }
+bounceBullet :: AmmoType
+bounceBullet = BulletAmmo
+    { _amString = "BOUNCING"
+    , _amBulEff = destroyOnImpact bulHitCr bulBounceWall
+    , _amBulWth = 2
+    , _amBulVel = V2 10 0
+    }
 ltBullet :: AmmoType
 ltBullet = BulletAmmo
     { _amString = "LTBULLET"