Commit before trying to deal with leak in main inventory display

src/Dodge/Item/Display.hs

@@ -73,6 +73,9 @@ itemBaseName = \case
     ARHUD -> "AR-HUD"
     DROPPER x -> "DROPPER-" ++ showInventoryPathing x
     CLICKER x -> "CLICKER-" ++ showInventoryPathing x
+    COPIER x -> "COPIER-" ++ showInventoryPathing x
+    BGATE -> "BGATE"
+    UGATE -> "UGATE"
 
 showInventoryPathing :: InventoryPathing -> String
 showInventoryPathing = \case

src/Dodge/Item/Draw/SPic.hs

@@ -48,6 +48,9 @@ itemSPic it = case it ^. itType of
     DETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPolySU 3 $ rectWH 2 2)
     DROPPER{} -> defSPic
     CLICKER{} -> defSPic
+    COPIER{} -> defSPic
+    BGATE -> defSPic
+    UGATE -> defSPic
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case

src/Dodge/Item/Scope.hs

@@ -19,6 +19,9 @@ module Dodge.Item.Scope (
     mapper,
     dropper,
     clicker,
+    copier,
+    bgate,
+    ugate,
 ) where
 
 import Dodge.Item.Attach
@@ -81,6 +84,24 @@ clicker x =
         & itType .~ CLICKER x
         & itUse .~ UseInt 0
 
+copier :: InventoryPathing -> Item
+copier x =
+    defaultHeldItem
+        & itType .~ COPIER x
+        & itUse .~ UseInt 0
+
+bgate :: Item
+bgate =
+    defaultHeldItem
+        & itType .~ BGATE
+        & itUse .~ UseInt 0
+
+ugate :: Item
+ugate =
+    defaultHeldItem
+        & itType .~ UGATE
+        & itUse .~ UseInt 0
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
     defaultHeldItem