Implement teleporting bullets

2022-02-21 20:51:01 +00:00
parent 724ee21afc
commit f626fce105
23 changed files with 245 additions and 154 deletions
@@ -29,6 +29,22 @@ bounceModule :: Item
 bounceModule = makeTypeCraft BOUNCEMODULE
    & itInvSize .~ 1
    & itInvColor .~ chartreuse
+teleportModule :: Item
+teleportModule = makeTypeCraft TELEPORTMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse
+timeModule :: Item
+timeModule = makeTypeCraft TIMEMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse
+sizeModule :: Item
+sizeModule = makeTypeCraft SIZEMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse
+gravityModule :: Item
+gravityModule = makeTypeCraft GRAVITYMODULE
+    & itInvSize .~ 1
+    & itInvColor .~ chartreuse

 pipe :: Item
 pipe = makeTypeCraft PIPE