import Options.Applicative
import Game (Game(..), Setup(..), beginGame)

setup :: Parser Setup
setup = Setup
        <$> option auto
            (  short 'n'
            <> long "player-number"
            <> metavar "n"
            <> value 4
            <> help "n players, n must be larger than 2 (default: 4)"
            )
        <*> option auto
            (  short 'r'
            <> long "rounds"
            <> metavar "r"
            <> value 1
            <> help "play r rounds, r must be at least 1 (default: 1)"
            )
        <*> option auto
            (  short 'd'
            <> long "decks"
            <> metavar "d"
            <> value 2
            <> help "use d decks 52 cards each, d must be at least 2 (default: 2)"
            )
        <*> option auto
            (  short 'c'
            <> long "initial-cards"
            <> metavar "c"
            <> value 5
            <> help "deal c cards per player, c must be at least 2 (default: 5)"
            )
        <*> switch
            (  short 'a'
            <> long "auto"
            <> help "run in demo mode"
            )

main :: IO ()
main = do
    let opts = info (setup <**> helper) (fullDesc <> progDesc "One Card")
    beginGame =<< execParser opts
    return ()