4 type TCmdType = (cmd___UNKNOWN__, cmd_WARNING, cmd_TEAM_COLOR, cmd_TEAM_ACCEPTED, cmd_SERVER_VARS, cmd_SERVER_MESSAGE, cmd_SERVER_AUTH, cmd_RUN_GAME, cmd_ROUND_FINISHED, cmd_ROOMS, cmd_PROTO, cmd_PING, cmd_NOTICE, cmd_NICK, cmd_LOBBY_LEFT, cmd_LOBBY_JOINED, cmd_LEFT, cmd_KICKED, cmd_JOINING, cmd_JOINED, cmd_INFO, cmd_HH_NUM, cmd_EM, cmd_CONNECTED, cmd_CLIENT_FLAGS, cmd_CHAT, cmd_BYE, cmd_BANLIST, cmd_ASKPASSWORD);

     4 type TCmdType = (cmd_ASKPASSWORD, cmd_BANLIST, cmd_BANLIST_s, cmd_BYE, cmd_CHAT,

     5     TCmdConnectedData = record

     5     cmd_CLIENT_FLAGS, cmd_CLIENT_FLAGS_s, cmd_CONNECTED, cmd_EM, cmd_EM_s,

     6                         cmd: TCmdType;

     6     cmd_ERROR, cmd_HH_NUM, cmd_HH_NUM_s, cmd_INFO, cmd_INFO_s, cmd_JOINED,

     7                         protocolNumber: Longword

     7     cmd_JOINED_s, cmd_JOINING, cmd_KICKED, cmd_LEFT, cmd_LEFT_s, cmd_LOBBY_JOINED,

     8                     end;

     8     cmd_LOBBY_JOINED_s, cmd_LOBBY_LEFT, cmd_NICK, cmd_NOTICE, cmd_PING, cmd_PING_s,

     9     cmd_PROTO, cmd_ROOMS, cmd_ROOMS_s, cmd_ROUND_FINISHED, cmd_RUN_GAME,

    10     cmd_SERVER_AUTH, cmd_SERVER_MESSAGE, cmd_SERVER_VARS, cmd_TEAM_ACCEPTED,

    11     cmd_TEAM_COLOR, cmd_TEAM_COLOR_s, cmd_WARNING);

    12 

    13     type TCmdParam = packed record

    14         cmd: TCmdType;

    15         end;

    16     type TCmdParamL = packed record

    17         cmd: TCmdType;

    18         str1: string;

    19         end;

    20     type TCmdParamS = packed record

    21         cmd: TCmdType;

    22         str1: shortstring;

    23         end;

    24     type TCmdParamSL = packed record

    25         cmd: TCmdType;

    26         str1: shortstring;

    27         str2: string;

    28         end;

    29     type TCmdParami = packed record

    30         cmd: TCmdType;

    31         param1: LongInt;

    32         end;

    33 

    11                        0: (cmdConnected: TCmdConnectedData)

    36                        0: (cmd: TCmdParam);

    37                        1: (cpl: TCmdParamL);

    38                        2: (cps: TCmdParamS);

    39                        3: (cpsl: TCmdParamSL);

    40                        4: (cpi: TCmdParami);