module RPGEngine.Render.Lose
( renderLose
) 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 lose! Press any key to retry."

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

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