Make examine inventory controlled by item, perhaps still buggy

src/Dodge/Item/Scope.hs

@@ -19,6 +19,7 @@ module Dodge.Item.Scope (
     introScan,
 ) where
 
+--import Dodge.Data.BlBl
 import Dodge.Item.Attach
 import Control.Lens
 import Dodge.Data.Item
@@ -59,7 +60,7 @@ itemScanner =
     defaultHeldItem
         & itType .~ ITEMSCANNER
         & itUse .~ UseNothing
-
+        & itEffect . ieOnDrop .~ ItemCancelExamineInventory
 
 bulletModule :: BulletMod -> Item
 bulletModule bm =