Commit before perhaps rethinking item structure

2024-12-29 10:40:21 +00:00
parent ef7aee82e5
commit 2037891cc9
11 changed files with 33 additions and 13 deletions
@@ -1,4 +1,5 @@
 module Dodge.Item.Scope (
+    stickyMod,
    shellModule,
    zoomScope,
    targetingScope,
@@ -36,6 +37,13 @@ targetingScope tt = defaultHeldItem
 homingModule :: Item
 homingModule = makeAttach HOMINGMODULE

+stickyMod :: Item
+stickyMod =
+    defaultHeldItem
+        & itType .~ STICKYMOD
+        & itUse .~ UseNothing
+
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
    defaultHeldItem