16 lines
513 B
Haskell
16 lines
513 B
Haskell
module Mode (Mode(..)) where
|
|
|
|
import Menu (Menu(..), Promptable(..))
|
|
|
|
data Mode = OnePlayer | PlayerVsPlayer deriving (Enum, Bounded)
|
|
|
|
instance Promptable Mode where
|
|
menu = Menu {
|
|
title = "Choix du mode de jeu"
|
|
, question = "Entrez le numero du mode qui vous interesse : "
|
|
, invalidText = "Votre choix n'est pas valide, merci de taper 1 ou 2 selon le mode de jeu que vous souhaitez activer."
|
|
}
|
|
|
|
showOption OnePlayer = "Mode un joueur"
|
|
showOption PlayerVsPlayer = "Mode deux joueurs"
|