Jumpbacks and continue

2022-12-22 09:43:17 +01:00 · 2022-12-22 09:43:17 +01:00 · b7278d6afc
commit b7278d6afc
parent dab6fadad4
11 changed files with 59 additions and 44 deletions
--- a/lib/RPGEngine/Render.hs
+++ b/lib/RPGEngine/Render.hs
@ -26,13 +26,14 @@ initWindow = InWindow
 -- Initialize the game
 initGame :: Game
 initGame = Game { 
-    state   = Menu{ base = StateBase{ renderer = renderMenu, inputHandler = handleInputMenu }},
-    levels  = [defaultLevel],
-    player  = spawnPlayer defaultLevel defaultPlayer
+    state   = Menu{ base = StateBase{ 
+        renderer = renderMenu, 
+        inputHandler = handleInputMenu
+    }}
 }

 -- Render all different states
 render :: Game -> Picture
-render g@Game{ state = state } = renderFunc g
+render g@Game{ state = state } = renderFunc state
    where stateBase  = base state
          renderFunc = renderer stateBase