Tweak module display and logic

2023-01-12 12:51:24 +00:00
parent 94c0af97fd
commit 37e26f53e6
19 changed files with 250 additions and 80 deletions
@@ -16,17 +16,23 @@ makeTypeCraftNum i ct =
 makeTypeCraft :: CraftType -> Item
 makeTypeCraft = makeTypeCraftNum 1

+bulletPayloadCraft :: EnergyBallType -> Item
+bulletPayloadCraft ebt = 
+    makeTypeCraft (BULPAYLOADMODULE ebt)
+        & itInvSize .~ 1
+        & itInvColor .~ chartreuse
+
 incendiaryModule :: Item
-incendiaryModule =
-    makeTypeCraft INCENDIARYMODULE
+incendiaryModule = bulletPayloadCraft IncBall
+
+bulletBodyCraft :: BulletEffect -> Item
+bulletBodyCraft ebt = 
+    makeTypeCraft (BULBODYMODULE ebt)
        & itInvSize .~ 1
        & itInvColor .~ chartreuse

 bounceModule :: Item
-bounceModule =
-    makeTypeCraft BOUNCEMODULE
-        & itInvSize .~ 1
-        & itInvColor .~ chartreuse
+bounceModule = bulletBodyCraft BounceBullet

 teleportModule :: Item
 teleportModule =