Refactor floor items, removing ids (not fully checked)

src/Dodge/Update/Input/InGame.hs

@@ -150,7 +150,7 @@ tryPickupSelected k mpos w = do
   where
     g i = do
         NInt j <- w ^? hud . closeItems . ix i
-        w ^? cWorld . lWorld . floorItems . unNIntMap . ix j
+        w ^? cWorld . lWorld . floorItems . ix j
 
 updateMouseReleaseInGame :: World -> World
 updateMouseReleaseInGame w = case w ^. input . mouseContext of
@@ -531,7 +531,7 @@ getCloseObj w = getSelectedCloseObj w <|> topcitem <|> topcbut
         k' <- (w ^? hud . hudElement . diSections . ix 3 . ssItems) 
             >>= (fmap fst . IM.lookupMin)
         NInt k <- w ^? hud . closeItems . ix k'
-        Left <$> w ^? cWorld . lWorld . floorItems . unNIntMap . ix k
+        Left <$> w ^? cWorld . lWorld . floorItems . ix k
     topcbut = do
         k <- w ^? hud . closeButtons . ix 0
         Right <$> w ^? cWorld . lWorld . buttons . ix k