-- Allows to render the played game

module RPGEngine.Render
( initWindow
, bgColor

, render
) where

import RPGEngine.Internals.Data.Game(Game(..))
import RPGEngine.Internals.Data.State(State(..))
import Graphics.Gloss

----------------------------- Constants ------------------------------

-- Game background color
bgColor :: Color
bgColor = white

----------------------------------------------------------------------

-- Initialize a window to play in
initWindow :: String -> (Int, Int) -> (Int, Int) -> Display
initWindow = InWindow

-- Render the game
render :: Game -> Picture
render g@Game{ state = Menu    } = renderMenu g
render g@Game{ state = Playing } = renderPlaying g
render g@Game{ state = Pause   } = renderPause g
render g@Game{ state = Win     } = renderWin g
render g@Game{ state = Lose    } = renderLose g

----------------------------------------------------------------------

-- TODO
renderMenu :: Game -> Picture
renderMenu _ = text "[Press any key to start]"

-- TODO
renderPlaying :: Game -> Picture
renderPlaying _ = text "Playing"

-- TODO
renderPause :: Game -> Picture
renderPause _ = text "[Press any key to continue]"

-- TODO
renderWin :: Game -> Picture
renderWin _ = text "Win"

-- TODO
renderLose :: Game -> Picture
renderLose _ = text "Lose"