21 lines
No EOL
600 B
Haskell
21 lines
No EOL
600 B
Haskell
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 |