module Dodge.TestString where

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

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