Implement simple flak and frag bullets

src/Dodge/Data/Bullet.hs

@@ -31,6 +31,7 @@ data Bullet = Bullet
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data EnergyBallType = IncBall | TeslaBall | ConcBall
+    | FlashBall
     deriving (Show, Eq, Ord, Enum, Bounded, Read) --Generic, Flat)
 
 data BulletUpdateMod = NoBulletUpdateMod
@@ -43,7 +44,12 @@ data BulletEffect
     | PenetrateBullet
     deriving (Eq, Ord, Show, Enum, Bounded, Read) --Generic, Flat)
 
-data BulletSpawn = BulBall {_spawnEBT :: EnergyBallType} | BulSpark
+data BulletSpawn 
+    = BulBall {_spawnEBT :: EnergyBallType} 
+    | BulSpark
+    | BulFlak
+    | BulFrag
+    | BulGas
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data BulletTrajectory

src/Dodge/Data/Item/Combine.hs

@@ -69,7 +69,10 @@ data CraftType
     | PORTABLEFUSION
     | FRAGMODULE
     | FLASHMODULE
-    | BULPAYLOADMODULE EnergyBallType
+    | GASINJECTOR
+    | FLAKCRAFT
+    | FRAGCRAFT
+    | ENERGYBALLCRAFT EnergyBallType
     | BULBODYCRAFT BulletEffect
     | TELEPORTMODULE
     | TIMEMODULE
@@ -183,7 +186,7 @@ data ItemModuleType
     | DRUMMAG
     | BELTMAG
     | MAGNETMAG
-    | BULPAY EnergyBallType
+    | BULPAY BulletSpawn
     | BULBODY BulletEffect
     | BULTRAJ BulletTrajectoryType
     | TARGET TargetType