Fix close floor item bug

src/Dodge/TestString.hs

@@ -26,9 +26,12 @@ import Control.Lens
 import Dodge.Data.Universe
 import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
+import NewInt
 
 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . itemLocations)
+    <> map show (IM.keys $ u ^. uvWorld . cWorld . lWorld . floorItems)
+    <> map show (u ^. uvWorld . hud . closeItems)
 -- map shortShow (u ^.. uvWorld . cWorld . lWorld . debris . each . to g)
 --  where
 --    g db = (pz,z,norm v)