1 unit uFLNetTypes;

     2 interface

     3 

     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);

     5     TCmdConnectedData = record

     6                         cmd: TCmdType;

     7                         protocolNumber: Longword

     8                     end;

     9     TCmdData = record

    10                    case byte of

    11                        0: (cmdConnected: TCmdConnectedData)

    12                end;

    13 

    14 implementation

    15 

    16 end.