{-# OPTIONS_GHC -Wno-unused-imports #-}
module Dodge.TestString where

import HelpNum
import Dodge.Base.Coordinate
import Geometry.Vector
import Data.Maybe
import Dodge.Render.Lights
import Data.Aeson (ToJSON)
import Data.ByteString.Lazy.Char8 (unpack)
import qualified Data.Aeson.Encode.Pretty as AEP
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 $ u ^. uvWorld . input . mouseButtons
    , show $ u ^. uvWorld . input . heldPos]
--    [show $ length $ lightsToRender (u ^. uvConfig) (u ^. uvWorld . cWorld . cwCam) 
--        (u ^. uvWorld . cWorld . lWorld)
--        , show a
--        , show $ u ^. uvWorld . input . mousePos
--        , show $ u ^. uvConfig . windowX
--        , show $ u ^. uvConfig . windowY
--        , show $ u ^. uvWorld . input . scrollTestInt
--        ]
--  where
--    w = u ^. uvWorld
--    a = fromMaybe 0 $ do 
--        cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos
--        return . toClosestMultiple (pi/ 8) $ argV (mouseWorldPos (w ^. input) (w ^. cWorld . cwCam) -.- cpos)
--            - w ^. cWorld . cwCam . camRot

    --[show $ u ^? uvWorld . hud . hudElement . diSections . sssExtra . sssSelPos . _Just]
--    [show $ fmap IM.keys $ u ^? uvWorld . hud . hudElement . subInventory . ciSections . sssSections]

getPretty :: ToJSON a => a -> [String]
getPretty = lines . unpack . AEP.encodePretty' (AEP.Config (AEP.Spaces 2) compare AEP.Generic False)

showTimeFlow :: TimeFlowStatus -> String
showTimeFlow tfs = case tfs of
    DeathTime i -> "DeathTime"++show i
    NormalTimeFlow -> "NormalTimeFlow"
    ScrollTimeFlow {_reverseAmount = ra } -> "ScrollTimeFlow" ++ show ra
    RewindLeftClick {_reverseAmount = ra } -> "RewindLeftClick" ++ show ra
    PausedTimeFlow {_timeFlowCharge = ra } -> "PausedTimeFlow" ++ show ra
--    [ show $ u ^? uvScreenLayers . _head . scOffset
--    ]
--    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
--    ] 
--     ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))