GCI2012: Improve Game Configuration Widget - Refactored mapmodel+datamanager to have two separate map models for static and mission maps, and then three static MapInfos in MapModel for the three special maps (random, maze, drawn). - Created theme selector dialog. - Created seed view/edit dialog. - Enlarged start icon on pagemultiplayer and pagenetgame, and added Start.png. - Moved "Settings" button on pagemultiplayer and pagenetgame from middle of page to page footer. - Added "load drawing" button to mapcontainer widget. - Map preview is no longer the randomize button; The randomize functionality is now in a button of its own. - Map preview no longer grays out (isn't disabled) when in slave mode. - Seed is now viewable and copyable when in slave mode -- but not editable. - You should now use the property master (isMaster() and setMaster()) on gamecfgwidget and mapcontainer instead of the enabled property. This is because some widgets (e.g. "view/edit seed" button and map preview) shouldn't be disabled, when all other widgets should be. - Added mission map descriptions w/ locale support in INI format in mapname/desc.txt if applicable. Use '|' for line break.

     1

{-# LANGUAGE CPP #-}

     2

module Opts

     3

(

     4

    getOpts,

     5

) where

     6

     7

import System.Environment

     8

import System.Console.GetOpt

     9

import Data.Maybe ( fromMaybe )

    10

-------------------

    11

import CoreTypes

    12

import Utils

    13

    14

options :: [OptDescr (ServerInfo -> ServerInfo)]

    15

options = [

    16

    Option "p" ["port"] (ReqArg readListenPort "PORT") "listen on PORT",

    17

    Option "d" ["dedicated"] (ReqArg readDedicated "BOOL") "start as dedicated (True or False)"

    18

    ]

    19

    20

readListenPort

    21

    , readDedicated

    22

    :: String -> ServerInfo -> ServerInfo

    23

    24

    25

readListenPort str opts = opts{listenPort = readPort}

    26

    where

    27

        readPort = fromInteger $ fromMaybe 46631 (maybeRead str :: Maybe Integer)

    28

    29

readDedicated str opts = opts{isDedicated = readDed}

    30

    where

    31

        readDed = fromMaybe True (maybeRead str :: Maybe Bool)

    32

    33

getOpts :: ServerInfo -> IO ServerInfo

    34

getOpts opts = do

    35

    args <- getArgs

    36

    case getOpt Permute options args of

    37

        (o, [], []) -> return $ foldr ($) opts{runArgs = args} o

    38

        (_,_,errs) -> ioError (userError (concat errs ++ usageInfo header options))

    39

    where header = "Usage: hedgewars-server [OPTION...]"