Remove left click/hotkey item data types

src/Dodge/HeldUse.hs

@@ -7,6 +7,8 @@ module Dodge.HeldUse (
     mcUseHeld,
 ) where
 
+import Dodge.Luse
+import Dodge.Creature.Action.Blink
 import Dodge.RadarSweep
 import Color
 import Control.Monad
@@ -245,6 +247,11 @@ useLoadedAmmo itmtree cr (cme, w) (mzid, Just (mz, x, magtree)) = (,) (cme & cme
         MuzzleNozzle{} -> useGasParams mid mz itm cr $ walkNozzle mzid mz itm cr w
         MuzzleShatter -> shootShatter itm cr w
         MuzzleDetector -> itemDetectorEffect itm cr w
+        MuzzleBlink -> unsafeBlinkAction cr w
+        MuzzleUnsafeBlink -> blinkActionMousePos cr w
+        MuzzleRewind -> useRewindGun (itm ^. itID) w
+        MuzzleStopper -> useStopWatch itm cr w
+        MuzzleScroller -> useTimeScrollGun itm cr w
   where
     mid = magtree ^? ldtValue . itLocation . ilInvID
     itm = itmtree ^. ldtValue
@@ -433,12 +440,6 @@ mcUseHeld hit = case hit of
     LASER -> mcShootLaser
     _ -> \_ _ -> id
 
---useHeld :: Huse -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
---useHeld hu = case hu of
---    HeldDoNothing -> const $ const id
---    HeldDetectorEffect dt -> detectorEffect dt . _ldtValue
---    HeldForceField -> useForceFieldGun . _ldtValue
-
 useGasParams :: Maybe Int -> Muzzle -> Item -> Creature -> World -> World
 useGasParams mmagid mz itm cr w =
     createGas