Add bullet damages field, move bullet data into own file

src/Dodge/Combine/Module.hs

@@ -1,8 +1,6 @@
 module Dodge.Combine.Module where
 import Dodge.Data
 import Dodge.Tesla
-import Dodge.WorldEvent.SpawnParticle
-import Dodge.Particle.Damage
 import Dodge.Item.Weapon.ExtraEffect
 import Dodge.Item.Weapon.Launcher
 import Dodge.Item.Weapon.TriggerType
@@ -19,10 +17,10 @@ moduleModification imt = case imt of
     DRUMMAG     -> itConsumption . laMax .~ 45
     BELTMAG     -> itConsumption . laMax .~ 150
     MAGNETMAG   -> itUse . useDelay . rateMax .~ 4
-    INCENDBUL   -> f $ spawnAtBulDams incBall
+    INCENDBUL   -> itConsumption . laAmmoType . amBulSpawn .~ BulBall IncBall
     BOUNCEBUL   -> itConsumption . laAmmoType . amBulEffect .~ BounceBullet 
-    STATICBUL   -> f $ spawnAtBulDams aStaticBall
-    CONCUSBUL   -> f $ spawnAtBulDams concBall
+    STATICBUL   -> itConsumption . laAmmoType . amBulSpawn .~ BulBall TeslaBall
+    CONCUSBUL   -> itConsumption . laAmmoType . amBulSpawn .~ BulBall ConcBall
     TARGCR      -> itTargeting .~ targetRBCreature
     TARGLAS     -> itTargeting .~ targetLaser
     TARGPOS     -> itTargeting .~ targetRBPress
@@ -39,7 +37,6 @@ moduleModification imt = case imt of
     EXTRABATTERY -> itConsumption . laMax +~ 1000
     ATTACHTORCH  -> id
   where
-    f ameff = itConsumption . laAmmoType . amBulDams .~ ameff
     makeDirectedTele it = it 
         & itTargeting .~ targetRBPress
         & itUse . useMods .:~ withPosDirWallCheck directedTelPos