Implement simple flak and frag bullets

src/Dodge/Item/Craftable.hs

@@ -16,14 +16,14 @@ makeTypeCraftNum i ct =
 makeTypeCraft :: CraftType -> Item
 makeTypeCraft = makeTypeCraftNum 1
 
-bulletPayloadCraft :: EnergyBallType -> Item
-bulletPayloadCraft ebt = 
-    makeTypeCraft (BULPAYLOADMODULE ebt)
+energyBallCraft :: EnergyBallType -> Item
+energyBallCraft ebt = 
+    makeTypeCraft (ENERGYBALLCRAFT ebt)
         & itInvSize .~ 1
         & itInvColor .~ chartreuse
 
 incendiaryModule :: Item
-incendiaryModule = bulletPayloadCraft IncBall
+incendiaryModule = energyBallCraft IncBall
 
 bulletBodyCraft :: BulletEffect -> Item
 bulletBodyCraft ebt = 

src/Dodge/Item/Draw/SPic.hs

@@ -257,6 +257,7 @@ bulletPayloadColor ebt = case ebt of
     IncBall -> orange
     TeslaBall -> cyan
     ConcBall -> white
+    FlashBall -> yellow
 
 volleyGunSPic :: Int -> Item -> SPic
 volleyGunSPic i it =

src/Dodge/Item/Info.hs

@@ -1,5 +1,6 @@
 module Dodge.Item.Info where
 
+import StringHelp
 import Dodge.Module.Info
 import Data.Char
 import Dodge.Data.Item
@@ -182,10 +183,11 @@ craftInfo fit = case fit of
     BATTERY -> "A store of electical potential energy."
     FUELCELL -> "A devices that converts chemical energy into electricity."
     PORTABLEFUSION -> "A miniature nuclear reactor."
-    BULPAYLOADMODULE ebt -> "A device that converts projectiles into " ++ displayBulletPayload ebt ++ " projectiles."
+    GASINJECTOR -> "A device that can inject small quantities of gas into objects."
+    ENERGYBALLCRAFT ebt -> "A device that can create " ++ addIndefiniteArticle (displayEnergyBallType ebt) ++ " effect."
     FRAGMODULE -> "A device that converts projectiles into fragmentation projectiles."
     FLASHMODULE -> "A device that converts projectiles into flashbang projectiles."
-    BULBODYCRAFT be -> "A device that converts projectiles into " ++ displayBulletBody be ++ " projectiles."
+    BULBODYCRAFT be -> "A device that converts bullets into " ++ displayBulletBody be ++ " projectiles."
     TELEPORTMODULE -> "A device that allows for near-instant translocation across space."
     TIMEMODULE -> "A device that can affect temporality."
     SIZEMODULE -> "A device that can affect physical size."
@@ -193,6 +195,9 @@ craftInfo fit = case fit of
 
     TARGETMODULE _ -> "A targeting module."
     
+    FLAKCRAFT -> "Creates flak bullets."
+    FRAGCRAFT -> "Creates fragmentation bullets."
+    
 
 detectorInfo :: Detector -> String
 detectorInfo d = case d of

src/Dodge/Item/Weapon/Bullet.hs

@@ -1,6 +1,7 @@
 module Dodge.Item.Weapon.Bullet (
     basicBullet,
     hvBullet,
+    defaultBullet,
 ) where
 
 import Dodge.Data.Item.Use.Consumption.Ammo