module RPGEngine.Render.Win
( renderWin
) where

import RPGEngine.Render.Core (Renderer)

import RPGEngine.Config (uizoom, textColor)
import RPGEngine.Data (State)

import Graphics.Gloss (text, scale, color, translate)

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

message :: String
message = "You win! Press any key to return to the menu."

------------------------------ Exported ------------------------------

renderWin :: Renderer State
renderWin _ = scaled $ center $ color textColor $ text message
    where scaled = scale uizoom uizoom
          center = translate (-1500) 0