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

src/Dodge/Data/Input.hs

@@ -9,6 +9,8 @@ import Control.Lens
 import qualified Data.Map.Strict as M
 import Geometry.Data
 import SDL (MouseButton, Scancode)
+import Data.Aeson
+import Data.Aeson.TH
 
 data PressType
     = InitialPress
@@ -69,3 +71,4 @@ data TermSignal
 
 makeLenses ''Input
 makeLenses ''MouseContext
+deriveJSON defaultOptions ''PressType

src/Dodge/Data/Item/Combine.hs

@@ -24,6 +24,7 @@ data ItemType
     | ITEMSCAN
     | MAPPER
     | DROPPER InventoryPathing
+    | CLICKER InventoryPathing
     | INTROSCAN {_ibtIntroScanType :: IntroScanType}
     | DETECTOR {_ibtDetector :: Detector}
     | ARHUD

src/Dodge/Data/WorldEffect.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.WorldEffect where
 
+import Dodge.Data.Input
 import Dodge.Data.LightSource
 import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
@@ -32,6 +33,7 @@ data WdWd
     | WdWdNegateTrig Int
     | WdWdFromItCrixWdWd (LabelDoubleTree ComposeLinkType Item) Int ItCrWdWd
     | MakeTempLight LSParam Int
+    | UseInvItem Int PressType
     --deriving (Eq, Show, Read) --, Generic)
     --h--deriving (Eq, Show, Read) --Generic, Flat)