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