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

lib/RPGEngine/Render/Win.hs

@@ -4,12 +4,19 @@ module RPGEngine.Render.Win
 
 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 win! Press any key to return to the menu."
 
 ------------------------------ Exported ------------------------------
 
--- TODO
 renderWin :: Renderer State
-renderWin _ = text "You win!\nPress any key to return to the menu."
+renderWin _ = scaled $ center $ color textColor $ text message
+    where scaled = scale uizoom uizoom
+          center = translate (-1500) 0