Add options page scrolling

2022-06-25 09:28:45 +01:00
parent 3c2df2542a
commit dd0afc6166
12 changed files with 74 additions and 44 deletions
@@ -30,6 +30,7 @@ slTitleOptionsEff title ops eff = OptionScreen
    , _scOptions = ops
    , _scDefaultEff = eff
    , _scOptionFlag = NormalOptions
+    , _scOptionsOffset = 0
    }
 pauseMenu :: ScreenLayer
 pauseMenu = slTitleOptionsEff "PAUSED" pauseMenuOptions (return . unpause)
@@ -158,6 +159,7 @@ gameOverMenu = OptionScreen
    , _scOptions = pauseMenuOptions
    , _scDefaultEff = return . Just
    , _scOptionFlag = GameOverOptions
+    , _scOptionsOffset = 0
    }

 -- | hacky - no longer used