Allow use of items while examine subinventory shows

Still not sure what to do with right click scrolling, item swapping

src/Dodge/Item/Scope.hs

@@ -15,8 +15,9 @@ module Dodge.Item.Scope (
     bulletModule,
     bulletPayloadModule,
     smokeReducer,
-    itemScanner,
+    itemScan,
     introScan,
+    mapper,
 ) where
 
 --import Dodge.Data.BlBl
@@ -55,13 +56,19 @@ introScan t =
         & itType .~ INTROSCAN t
         & itUse .~ UseNothing
 
-itemScanner :: Item
-itemScanner =
+itemScan :: Item
+itemScan =
     defaultHeldItem
-        & itType .~ ITEMSCANNER
+        & itType .~ ITEMSCAN
         & itUse .~ UseNothing
         & itEffect . ieOnDrop .~ ItemCancelExamineInventory
 
+mapper :: Item
+mapper =
+    defaultHeldItem
+        & itType .~ MAPPER
+        & itUse .~ UseNothing
+
 bulletModule :: BulletMod -> Item
 bulletModule bm =
     defaultHeldItem