ClientInfo

    {

        clientUID :: !Int,

        sendChan :: Chan [String],

        clientHandle :: Handle,

        host :: String,

        connectTime :: UTCTime,

        nick :: String,

        webPassword :: String,

        logonPassed :: Bool,

        clientProto :: !Word16,

        roomID :: !Int,

        pingsQueue :: !Word,

        isMaster :: Bool,

        isReady :: Bool,

        isAdministrator :: Bool,

        clientClan :: String,

        teamsInGame :: Word

    }

    show ci = show (clientUID ci)

            ++ " nick: " ++ (nick ci)

            ++ " host: " ++ (host ci)

    (==) = (==) `on` clientHandle

    HedgehogInfo String String

    TeamInfo

    {

        teamownerId :: !Int,

        teamowner :: String,

        teamname :: String,

        teamcolor :: String,

        teamgrave :: String,

        teamfort :: String,

        teamvoicepack :: String,

        teamflag :: String,

        difficulty :: Int,

        hhnum :: Int,

        hedgehogs :: [HedgehogInfo]

    }

    RoomInfo

    {

        roomUID :: !Int,

        masterID :: !Int,

        name :: String,

        password :: String,

        roomProto :: Word16,

        teams :: [TeamInfo],

        gameinprogress :: Bool,

        playersIn :: !Int,

        readyPlayers :: !Int,

        playersIDs :: IntSet.IntSet,

        isRestrictedJoins :: Bool,

        isRestrictedTeams :: Bool,

        roundMsgs :: Seq String,

        leftTeams :: [String],

        teamsAtStart :: [TeamInfo],

        params :: Map.Map String [String]

    }

    show ri = show (roomUID ri)

            ++ ", players ids: " ++ show (IntSet.size $ playersIDs ri)

            ++ ", players: " ++ show (playersIn ri)

            ++ ", ready: " ++ show (readyPlayers ri)

    (==) = (==) `on` roomUID

    RoomInfo

        0

        0

        ""

        ""

        0

        []

        False

        0

        0

        IntSet.empty

        False

        False

        Data.Sequence.empty

        []

        []

        (Map.singleton "MAP" ["+rnd+"])

    )

    StatisticsInfo

    {

        playersNumber :: Int,

        roomsNumber :: Int

    }

    ServerInfo

    {

        isDedicated :: Bool,

        serverMessage :: String,

        serverMessageForOldVersions :: String,

        listenPort :: PortNumber,

        nextRoomID :: Int,

        dbHost :: String,

        dbLogin :: String,

        dbPassword :: String,

        lastLogins :: [(String, UTCTime)],

        stats :: TMVar StatisticsInfo,

        coreChan :: Chan CoreMessage,

        dbQueries :: Chan DBQuery

    }

    show si = "Server Info"

    ServerInfo

        True

        "<h2><p align=center><a href=\"http://www.hedgewars.org/\">http://www.hedgewars.org/</a></p></h2>"

        "<font color=yellow><h3>Hedgewars 0.9.12 is out! Please update.</h3><p align=center><a href=http://hedgewars.org/download.html>Download page here</a></font>"

        46631

        0

        ""

        ""

        ""

        []

    )

    HasAccount String Bool

    | Guest

    | Admin

    deriving (Show, Read)

    CheckAccount Int String String

    | ClearCache

    | SendStats Int Int

    deriving (Show, Read)

    Accept ClientInfo

    | ClientMessage (Int, [String])

    | ClientAccountInfo (Int, AccountInfo)

    | TimerAction Int