Implement/improve null/un/binary logic gates

src/Dodge/Item/Scope.hs

@@ -20,8 +20,9 @@ module Dodge.Item.Scope (
     dropper,
     clicker,
     copier,
-    bgate,
-    ugate,
+    nulgate,
+    unigate,
+    bingate,
 ) where
 
 import Dodge.Item.Attach
@@ -92,19 +93,27 @@ copier x =
         & itScroll .~ ItemScrollInt 0
         & itEffect . ieInv .~ ItemCopierUpdate
 
-bgate :: Item
-bgate =
+nulgate :: Item
+nulgate =
     defaultHeldItem
-        & itType .~ BGATE
-        & itUse .~ UseInt 0
-        & itScroll .~ ItemScrollIntRange 15 0
+        & itType .~ NULGATE
+        & itUse .~ UseNothing
+        & itScroll .~ ItemScrollIntRange 2 0
 
-ugate :: Item
-ugate =
+unigate :: Item
+unigate =
     defaultHeldItem
-        & itType .~ UGATE
-        & itUse .~ UseInt 0
-        & itScroll .~ ItemScrollIntRange 3 0
+        & itType .~ UNIGATE
+        & itUse .~ UseNothing
+        & itScroll .~ ItemScrollIntRange 4 0
+
+bingate :: Item
+bingate =
+    defaultHeldItem
+        & itType .~ BINGATE
+        & itUse .~ UseNothing
+        & itScroll .~ ItemScrollIntRange 16 0
+
 
 bulletModule :: BulletMod -> Item
 bulletModule bm =