hedgewars/uFLNetTypes.pas
author unc0rr
Sat, 05 Sep 2015 20:12:49 +0300
branchqmlfrontend
changeset 11075 842eb00b36ac
parent 10953 360e57620df3
child 11413 ffff8a0d1a76
permissions -rw-r--r--
Generate handlers for lists
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10953
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     1
unit uFLNetTypes;
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     2
interface
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     3
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     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);
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     5
    TCmdConnectedData = record
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     6
                        cmd: TCmdType;
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     7
                        protocolNumber: Longword
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     8
                    end;
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
     9
    TCmdData = record
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    10
                   case byte of
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    11
                       0: (cmdConnected: TCmdConnectedData)
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    12
               end;
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    13
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    14
implementation
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    15
360e57620df3 Put types into a separate file
unc0rr
parents:
diff changeset
    16
end.