22 lines
No EOL
609 B
Haskell
22 lines
No EOL
609 B
Haskell
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 |