module Dodge.TestString where

import Control.Lens
import Dodge.Data.Universe
--import Data.Maybe
--import ShortShow
--import qualified Data.Map.Strict as M
import qualified IntMapHelp as IM

testStringInit :: Universe -> [String]
testStringInit u =
     [  show $ IM.keys $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crInv ]
--    [ show $ u ^? uvScreenLayers . _head . scOffset
--    ]
--    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
--    ] 
--     ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))