16 lines
324 B
Haskell
16 lines
324 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Data.Menu
|
|
where
|
|
data MenuLayer
|
|
= LevelMenu Int
|
|
| PauseMenu
|
|
| GameOverMenu
|
|
| OptionMenu
|
|
| SoundOptionMenu
|
|
| GraphicsOptionMenu
|
|
| ControlList
|
|
| WaitMessage String Int
|
|
| Terminal String
|
|
| TerminalMessage Int [(Int,String)]
|
|
deriving (Eq,Ord)
|