Implement simple flak and frag bullets

2023-01-12 15:48:32 +00:00
parent 3508d9c266
commit d08b6c5727
14 changed files with 133 additions and 42 deletions
@@ -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 =