#6 Win/End state #8 End screen #9 level selection

lib/RPGEngine/Render/Lose.hs

@@ -1,15 +1,21 @@
 module RPGEngine.Render.Lose
 ( renderLose
 ) where
-
 import RPGEngine.Render.Core (Renderer)
 
+import RPGEngine.Config (uizoom, textColor)
 import RPGEngine.Data (State)
 
-import Graphics.Gloss (text)
+import Graphics.Gloss (text, scale, color, translate)
+
+------------------------------ Constants -----------------------------
+
+message :: String
+message = "You lose! Press any key to retry."
 
 ------------------------------ Exported ------------------------------
 
--- TODO
 renderLose :: Renderer State
-renderLose _ = text "You lose"
+renderLose _ = scaled $ center $ color textColor $ text message
+    where scaled = scale uizoom uizoom
+          center = translate (-1200) 0