Continue tree based inventory update

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import Dodge.Item.Grammar
 import Dodge.Item.Display
 import AesonHelp
 import Dodge.SmoothScroll
@@ -19,10 +20,7 @@ import Dodge.Data.Universe
 --import qualified Data.Map.Strict as M
 import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit u = [fromMaybe "" $ do
-    proj <- u ^? uvWorld . cWorld . lWorld . projectiles
-    return $ show $ IM.size proj
-    ] 
+testStringInit u = maybe [] invTree (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv)
 --    [fromMaybe "" $ do
 --    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
 --    i <- cr ^? crManipulation . manObject . inInventory . ispItem