tdpeuter/2022FuncProg-project3-RPGEngine
tdpeuter/2022FuncProg-project3-RPGEngine
Archived
1
Fork 0
Code Issues Pull requests Releases Activity

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

Browse source
This commit is contained in:
Tibo De Peuter 2022-12-22 16:25:29 +01:00
parent becd305e01
commit 5cc96cbdba
10 changed files with 53 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/RPGEngine/Render/Menu.hs
View file

@ -2,16 +2,23 @@ module RPGEngine.Render.Menu
( renderMenu
) where
import RPGEngine.Render.Core (Renderer)
import RPGEngine.Render.Core (Renderer, getRender)
import RPGEngine.Config ( uizoom, textColor )
import RPGEngine.Data (State)
import Graphics.Gloss (text, scale, color, white, translate)
import Graphics.Gloss (text, scale, color, translate, pictures)
------------------------------ Constants -----------------------------
message :: String
message = "[Press any key to start]"
------------------------------ Exported ------------------------------
renderMenu :: Renderer State
renderMenu _ = scaled $ center $ color textColor $ text "[Press any key to start]"
where scaled = scale uizoom uizoom
center = translate (-750) 0
renderMenu _ = pictures [main, pressAny]
where pressAny = scaled $ center $ color textColor $ text message
scaled = scale uizoom uizoom
center = translate (-800) (-320)
main = getRender "main"