[ByeClient msg]

    where

        msg = if not $ null xs then head xs else ""

    if pingsQueue client == 0 then

        [ProtocolError "Protocol violation"]

    else

        [ModifyClient (\cl -> cl{pingsQueue = pingsQueue cl - 1})]

    where

        client = clients IntMap.! clID

    if not $ logonPassed client then

        handleCmd_NotEntered clID clients rooms cmd

    else

        handleCmd_loggedin clID clients rooms cmd

    where

        client = clients IntMap.! clID

    if noSuchClient then

        []

    else

        [AnswerThisClient

            ["INFO",

            nick client,

            "[" ++ host client ++ "]",

            protoNumber2ver $ clientProto client,

            "[" ++ roomInfo ++ "]" ++ roomStatus]]

    where

        maybeClient = find (\cl -> asknick == nick cl) clients

        noSuchClient = isNothing maybeClient

        client = fromJust maybeClient

        room = rooms IntMap.! roomID client

        roomInfo = if roomID client /= 0 then roomMasterSign ++ "room " ++ (name room) else adminSign ++ "lobby"

        roomMasterSign = if isMaster client then "@" else ""

        adminSign = if isAdministrator client then "@" else ""

        roomStatus =

            if gameinprogress room

            then if teamsInGame client > 0 then "(playing)" else "(spectating)"

            else ""

    if inLobby || noSuchClient then

        []

    else

        handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomname]

    where

        maybeClient = find (\cl -> asknick == nick cl) clients

        noSuchClient = isNothing maybeClient

        client = fromJust maybeClient

        room = rooms IntMap.! roomID client

        roomname = (name room)

        inLobby = roomname == ""

    if roomID client == 0 then

        handleCmd_lobby clID clients rooms cmd

    else

        handleCmd_inRoom clID clients rooms cmd

    where

        client = clients IntMap.! clID