Remove left click/hotkey item data types

src/Dodge/Item/Draw/SPic.hs

@@ -35,7 +35,6 @@ itemSPic :: Item -> SPic
 itemSPic it = case it ^. itType of
     CRAFT _ -> defSPic
     HELD ht -> heldItemSPic ht it
-    LEFT lt -> leftItemSPic lt it
     EQUIP et -> equipItemSPic et it
     CONSUMABLE{} -> defSPic
     ATTACH{} -> defSPic
@@ -95,11 +94,6 @@ equipItemSPic et _ = case et of
 backpackShape :: Shape
 backpackShape = upperPrismPolyMT 10 $ rectNSWE 5 (-5) (-4) 4
 
-leftItemSPic :: LeftItemType -> Item -> SPic
-leftItemSPic lt _ = case lt of
-    BLINKER -> defSPic
-    _ -> defSPic
-
 --ammoPosition :: Item -> HeldItemType -> AmmoPosition
 --ammoPosition itm hit = case hit of
 --    FLATSHIELD -> NoAmmoPosition
@@ -207,6 +201,11 @@ heldItemSPic ht it = case ht of
     LAUNCHERX _ -> launcherPic it
     POISONSPRAYER -> flamerPic it
     DRONELAUNCHER -> defSPic
+    BLINKER -> defSPic
+    BLINKERUNSAFE -> defSPic
+    REWINDER -> defSPic
+    TIMESTOPPER -> defSPic
+    TIMESCROLLER -> defSPic
     SHATTERGUN -> shatterGunSPic
     DETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPolySU 3 $ rectWH 2 2)
     KEYCARD _ -> noShape (setDepth 0 $ translate (-5) (-5) $ rotate (pi / 2.5) keyPic)