Add clicker items that use other items with a one frame delay

src/Dodge/Item/Display.hs

@@ -72,6 +72,7 @@ itemBaseName = \case
     DETECTOR t -> show t
     ARHUD -> "AR-HUD"
     DROPPER x -> "DROPPER-" ++ showInventoryPathing x
+    CLICKER x -> "CLICKER-" ++ showInventoryPathing x
 
 showInventoryPathing :: InventoryPathing -> String
 showInventoryPathing = \case

src/Dodge/Item/Draw/SPic.hs

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

src/Dodge/Item/Grammar.hs

@@ -167,6 +167,7 @@ itemToFunction itm = case itm ^. itType of
     EQUIP{} -> EquipmentPlatformSF
     ATTACH SHELLPAYLOAD{} -> AmmoPayloadSF LauncherAmmo
     DROPPER{} -> GadgetPlatformSF
+    CLICKER{} -> GadgetPlatformSF
     _ -> NoSF
 
 structureToPotentialFunction ::

src/Dodge/Item/Scope.hs

@@ -18,6 +18,7 @@ module Dodge.Item.Scope (
     introScan,
     mapper,
     dropper,
+    clicker,
 ) where
 
 import Dodge.Item.Attach
@@ -74,6 +75,12 @@ dropper x =
         & itType .~ DROPPER x
         & itUse .~ UseInt 0
 
+clicker :: InventoryPathing -> Item
+clicker x =
+    defaultHeldItem
+        & itType .~ CLICKER x
+        & itUse .~ UseInt 0
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
     defaultHeldItem