Implement simple flak and frag bullets

src/Dodge/Module/Info.hs

@@ -5,18 +5,27 @@ import Dodge.Data.Item
 displayBulletBody :: BulletEffect -> String
 displayBulletBody be = case be of
     DestroyBullet -> "DESBUL-shouldn't display"
-    BounceBullet -> "BOUNCING"
-    PenetrateBullet -> "PENETRATING"
+    BounceBullet -> "bouncing"
+    PenetrateBullet -> "penetrating"
 
-displayBulletPayload :: EnergyBallType -> String
-displayBulletPayload ebt = case ebt of
-    IncBall -> "INCENDIARY" 
-    TeslaBall -> "STATIC"
-    ConcBall -> "CONCUSSIVE"
+displayBulletPayload :: BulletSpawn -> String
+displayBulletPayload x = case x of
+    BulSpark -> ""
+    BulFrag -> "fragmentation"
+    BulFlak -> "flak"
+    BulGas -> "gaseous"
+    BulBall y -> displayEnergyBallType y
+
+displayEnergyBallType :: EnergyBallType -> String
+displayEnergyBallType ebt = case ebt of
+    IncBall -> "incendiary" 
+    TeslaBall -> "static"
+    ConcBall -> "concussive"
+    FlashBall -> "blinding"
 
 displayBulletTraj :: BulletTrajectoryType -> String
 displayBulletTraj x = case x of
     BasicBulletTrajectoryType-> "BTRAJ-shouldn't display"
-    BezierTrajectoryType     -> "MAGNET"
-    FlechetteTrajectoryType  -> "FLECHETTE"
-    MagnetTrajectoryType     -> "BEZIER CURVE"
+    BezierTrajectoryType     -> "magnet"
+    FlechetteTrajectoryType  -> "flechette"
+    MagnetTrajectoryType     -> "bezier curve"