Cleanup, delete hotkeys when deleting item from inventory

src/Dodge/Item/Display.hs

@@ -66,6 +66,7 @@ itemBaseName = \case
     BULLETMOD (BulletModPayload btt) -> show btt
     BULLETMOD (BulletModEffect btt) -> show btt
     STICKYMOD -> "STICKYMOD" 
+    ITEMSCANNER -> "ITEMSCANNER"
 
 showAttachItem :: AttachType -> String
 showAttachItem t = case t of

src/Dodge/Item/Draw/SPic.hs

@@ -41,6 +41,7 @@ itemSPic it = case it ^. itType of
     TARGETING{} -> defSPic
     BULLETMOD{} -> defSPic
     STICKYMOD -> defSPic
+    ITEMSCANNER -> defSPic
 
 craftItemSPic :: CraftType -> Shape
 craftItemSPic = \case

src/Dodge/Item/Scope.hs

@@ -15,6 +15,7 @@ module Dodge.Item.Scope (
     bulletModule,
     bulletPayloadModule,
     smokeReducer,
+    itemScanner,
 ) where
 
 import Dodge.Item.Attach
@@ -46,6 +47,12 @@ stickyMod =
         & itType .~ STICKYMOD
         & itUse .~ UseNothing
 
+itemScanner :: Item
+itemScanner =
+    defaultHeldItem
+        & itType .~ ITEMSCANNER
+        & itUse .~ UseNothing
+
 
 bulletModule :: BulletMod -> Item
 bulletModule bm =
@@ -80,7 +87,7 @@ remoteDetonator = makeAttach REMOTEDETONATOR
 joystick :: Item
 joystick = makeAttach JOYSTICK
 --    & itUse . uaParams .~ APLinkProjectile Nothing 
---
+
 gimbal :: Item
 gimbal = makeAttach GIMBAL