23 lines
No EOL
699 B
Haskell
23 lines
No EOL
699 B
Haskell
module RPGEngine.Input.Menu
|
|
( handleInputMenu
|
|
) where
|
|
|
|
import RPGEngine.Input.Core (InputHandler, composeInputHandlers, handleAnyKey)
|
|
import RPGEngine.Data (Game (state), State (..))
|
|
import RPGEngine.Data.Default (defaultSelector)
|
|
import RPGEngine.Data.Level (getLevelList)
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
handleInputMenu :: InputHandler Game
|
|
handleInputMenu = composeInputHandlers [
|
|
handleAnyKey (\game -> game{ state = startLevelSelection })
|
|
]
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
startLevelSelection :: State
|
|
startLevelSelection = LevelSelection {
|
|
levelList = getLevelList,
|
|
selector = defaultSelector
|
|
} |