hedgewars/uFLNetProtocol.pas
author unc0rr
Sat, 28 Nov 2015 00:18:04 +0300
branchqmlfrontend
changeset 11433 bca9afcc3a72
parent 11431 80a9b14bb8d3
child 11434 23912c93935a
permissions -rw-r--r--
Handle some CFG parameters
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
10951
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
     1
unit uFLNetProtocol;
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
     2
interface
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
     3
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
     4
procedure passNetData(p: pointer); cdecl;
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
     5
11416
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
     6
procedure sendChatLine(msg: PChar); cdecl;
11423
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
     7
procedure joinRoom(roomName: PChar); cdecl;
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
     8
procedure partRoom(msg: PChar); cdecl;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
     9
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
    10
procedure ResetNetState;
11416
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
    11
10951
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
    12
implementation
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    13
uses uFLNetTypes, uFLTypes, uFLUICallback, uFLNet, uFLGameConfig, uFLUtils;
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    14
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    15
type
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    16
    PHandler = procedure (var t: TCmdData);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    17
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
    18
var isInRoom: boolean;
11430
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
    19
    myNickname: shortstring;
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
    20
11430
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
    21
procedure handler_ADD_TEAM(var p: TCmdParam);
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    22
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    23
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    24
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    25
procedure handler_ADD_TEAM_s(var s: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    26
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    27
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    28
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    29
procedure handler_ASKPASSWORD(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    30
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    31
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    32
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    33
procedure handler_BANLIST(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    34
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    35
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
    36
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    37
procedure handler_BANLIST_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    38
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    39
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    40
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    41
procedure handler_BYE(var p: TCmdParamSL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    42
begin
11415
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
    43
    sendUI(mtDisconnected, @p.str2[1], length(p.str2));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    44
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
    45
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    46
procedure handler_CFG_AMMO(var p: TCmdParamSL);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    47
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    48
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    49
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    50
procedure handler_CFG_DRAWNMAP(var p: TCmdParamL);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    51
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    52
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    53
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    54
procedure handler_CFG_FEATURE_SIZE(var p: TCmdParami);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    55
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    56
    if isInRoom then
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    57
    begin
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    58
        netSetFeatureSize(p.param1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    59
        updatePreviewIfNeeded
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    60
    end;
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    61
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    62
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    63
var fmcfgIndex: integer;
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    64
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    65
procedure handler_CFG_FULLMAPCONFIG(var p: TCmdParam);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    66
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    67
    fmcfgIndex:= 0;
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    68
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    69
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    70
procedure handler_CFG_FULLMAPCONFIG_s(var s: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    71
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    72
    if not isInRoom then exit;
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    73
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    74
    inc(fmcfgIndex);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    75
    case fmcfgIndex of
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    76
        1: if s.str1[0] <> '+' then netSetMap(s.str1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    77
        2: netSetMapGen(strToInt(s.str1));
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    78
        3: netSetMazeSize(strToInt(s.str1));
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    79
        4: netSetTheme(s.str1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    80
        5: netSetTemplate(strToInt(s.str1));
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    81
        6: begin
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    82
                netSetFeatureSize(strToInt(s.str1));
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    83
                updatePreviewIfNeeded;
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    84
           end;
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    85
    end;
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    86
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    87
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    88
procedure handler_CFG_MAP(var p: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    89
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    90
    if isInRoom then
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    91
        netSetMap(p.str1);
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    92
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    93
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    94
procedure handler_CFG_MAPGEN(var p: TCmdParami);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
    95
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    96
    if isInRoom then
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    97
    begin
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    98
        netSetMapGen(p.param1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
    99
        updatePreviewIfNeeded
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   100
    end
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   101
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   102
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   103
procedure handler_CFG_MAZE_SIZE(var p: TCmdParami);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   104
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   105
    if isInRoom then
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   106
    begin
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   107
        netSetMazeSize(p.param1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   108
        updatePreviewIfNeeded
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   109
    end
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   110
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   111
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   112
procedure handler_CFG_SCHEME(var p: TCmdParam);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   113
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   114
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   115
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   116
procedure handler_CFG_SCHEME_s(var s: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   117
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   118
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   119
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   120
procedure handler_CFG_SCRIPT(var p: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   121
begin
11431
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   122
    if isInRoom then
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   123
        netSetScript(p.str1)
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   124
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   125
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   126
procedure handler_CFG_SEED(var p: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   127
begin
11431
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   128
    if isInRoom then
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   129
        netSetSeed(p.str1)
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   130
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   131
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   132
procedure handler_CFG_TEMPLATE(var p: TCmdParami);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   133
begin
11433
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   134
    if isInRoom then
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   135
    begin
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   136
        netSetTemplate(p.param1);
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   137
        updatePreviewIfNeeded
bca9afcc3a72 Handle some CFG parameters
unc0rr
parents: 11431
diff changeset
   138
    end
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   139
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   140
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   141
procedure handler_CFG_THEME(var p: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   142
begin
11431
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   143
    if isInRoom then
80a9b14bb8d3 Some game config methods and signals
unc0rr
parents: 11430
diff changeset
   144
        netSetTheme(p.str1)
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   145
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   146
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   147
procedure handler_CHAT(var p: TCmdParamSL);
11415
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   148
var s: string;
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   149
begin
11415
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   150
    s:= p.str1 + #10 + p.str2;
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   151
    if isInRoom then
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   152
        sendUI(mtRoomChatLine, @s[1], length(s))
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   153
    else
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   154
        sendUI(mtLobbyChatLine, @s[1], length(s));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   155
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   156
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   157
procedure handler_CLIENT_FLAGS(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   158
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   159
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   160
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   161
procedure handler_CLIENT_FLAGS_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   162
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   163
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   164
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   165
procedure handler_CONNECTED(var p: TCmdParami);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   166
begin
11415
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   167
    sendUI(mtConnected, nil, 0);
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   168
    sendNet('PROTO' + #10 + '51');
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   169
    sendNet('NICK' + #10 + 'qmlfrontend');
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   170
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   171
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   172
procedure handler_EM(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   173
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   174
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   175
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   176
procedure handler_EM_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   177
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   178
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   179
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   180
procedure handler_ERROR(var p: TCmdParamL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   181
begin
11423
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   182
    sendUI(mtError, @p.str1[1], length(p.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   183
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   184
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   185
procedure handler_HH_NUM(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   186
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   187
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   188
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   189
procedure handler_HH_NUM_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   190
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   191
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   192
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   193
procedure handler_INFO(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   194
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   195
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   196
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   197
procedure handler_INFO_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   198
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   199
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   200
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   201
procedure handler_JOINED(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   202
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   203
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   204
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   205
procedure handler_JOINED_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   206
begin
11430
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
   207
    if s.str1 = myNickname then // we joined a room
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   208
    begin
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   209
        isInRoom:= true;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   210
        sendUI(mtMoveToRoom, nil, 0);
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   211
    end;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   212
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   213
    sendUI(mtAddRoomClient, @s.str1[1], length(s.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   214
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   215
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   216
procedure handler_JOINING(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   217
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   218
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   219
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   220
procedure handler_KICKED(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   221
begin
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   222
    isInRoom:= false;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   223
    sendUI(mtMoveToLobby, nil, 0);
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   224
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   225
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   226
procedure handler_LEFT(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   227
begin
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   228
    sendUI(mtRemoveLobbyClient, @p.str1[1], length(p.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   229
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   230
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   231
procedure handler_LEFT_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   232
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   233
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   234
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   235
procedure handler_LOBBY_JOINED(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   236
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   237
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   238
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   239
procedure handler_LOBBY_JOINED_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   240
begin
11430
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
   241
    if s.str1 = myNickname then
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   242
    begin
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   243
        sendUI(mtMoveToLobby, nil, 0);
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   244
        sendNet('LIST');
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   245
    end;
11419
8a5cc31483c6 - Handle ROOM DEL
unc0rr
parents: 11418
diff changeset
   246
11415
05cf35103206 Lobby page with chat widget(readonly)
unc0rr
parents: 11413
diff changeset
   247
    sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   248
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   249
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   250
procedure handler_LOBBY_LEFT(var p: TCmdParamSL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   251
begin
11423
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   252
    p.str2:= p.str1 + #10 + p.str2;
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   253
    sendUI(mtRemoveLobbyClient, @p.str2[1], length(p.str2));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   254
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   255
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   256
procedure handler_NICK(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   257
begin
11430
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
   258
    myNickname:= p.str1;
f88b3948adf3 UI knowns local player nickname
unc0rr
parents: 11429
diff changeset
   259
    sendUI(mtNickname, @p.str1[1], length(p.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   260
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   261
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   262
procedure handler_NOTICE(var p: TCmdParamL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   263
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   264
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   265
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   266
procedure handler_PING(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   267
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   268
    sendNet('PONG')
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   269
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   270
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   271
procedure handler_PING_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   272
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   273
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   274
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   275
procedure handler_PROTO(var p: TCmdParami);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   276
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   277
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   278
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   279
procedure handler_REMOVE_TEAM(var p: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   280
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   281
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   282
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   283
var roomInfo: string;
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   284
    roomLinesCount: integer;
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   285
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   286
procedure handler_ROOMS(var p: TCmdParam);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   287
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   288
    roomInfo:= '';
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   289
    roomLinesCount:= 0
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   290
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   291
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   292
procedure handler_ROOMS_s(var s: TCmdParamS);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   293
begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   294
    roomInfo:= roomInfo + s.str1 + #10;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   295
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   296
    if roomLinesCount = 8 then
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   297
    begin
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   298
        sendUI(mtAddRoom, @roomInfo[1], length(roomInfo) - 1);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   299
        roomLinesCount:= 0;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   300
        roomInfo:= ''
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   301
    end else inc(roomLinesCount);
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   302
end;
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   303
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   304
procedure handler_ROOM_ADD(var p: TCmdParam);
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   305
begin
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   306
    roomInfo:= '';
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   307
    roomLinesCount:= 0
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   308
end;
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   309
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   310
procedure handler_ROOM_ADD_s(var s: TCmdParamS);
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   311
begin
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   312
    roomInfo:= roomInfo + s.str1 + #10;
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   313
    inc(roomLinesCount);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   314
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   315
    if roomLinesCount = 9 then
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   316
    begin
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   317
        sendUI(mtAddRoom, @roomInfo[1], length(roomInfo) - 1);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   318
        roomInfo:= '';
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   319
        roomLinesCount:= 0
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   320
    end;
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   321
end;
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   322
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   323
procedure handler_ROOM_DEL(var p: TCmdParamS);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   324
begin
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   325
    sendUI(mtRemoveRoom, @p.str1[1], length(p.str1));
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   326
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   327
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   328
procedure handler_ROOM_UPD(var p: TCmdParam);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   329
begin
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   330
    roomInfo:= '';
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   331
    roomLinesCount:= 0
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   332
end;
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   333
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   334
procedure handler_ROOM_UPD_s(var s: TCmdParamS);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   335
begin
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   336
    roomInfo:= roomInfo + s.str1 + #10;
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   337
    inc(roomLinesCount);
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   338
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   339
    if roomLinesCount = 10 then
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   340
        sendUI(mtUpdateRoom, @roomInfo[1], length(roomInfo) - 1);
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   341
end;
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   342
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   343
procedure handler_ROUND_FINISHED(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   344
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   345
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   346
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   347
procedure handler_RUN_GAME(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   348
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   349
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   350
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   351
procedure handler_SERVER_AUTH(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   352
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   353
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   354
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   355
procedure handler_SERVER_MESSAGE(var p: TCmdParamL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   356
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   357
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   358
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   359
procedure handler_SERVER_VARS(var p: TCmdParamSL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   360
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   361
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   362
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   363
procedure handler_TEAM_ACCEPTED(var p: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   364
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   365
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   366
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   367
procedure handler_TEAM_COLOR(var p: TCmdParam);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   368
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   369
end;
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   370
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   371
procedure handler_TEAM_COLOR_s(var s: TCmdParamS);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   372
begin
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   373
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   374
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   375
procedure handler_WARNING(var p: TCmdParamL);
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   376
begin
11423
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   377
    sendUI(mtWarning, @p.str1[1], length(p.str1));
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   378
end;
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   379
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   380
const handlers: array[TCmdType] of PHandler = (PHandler(@handler_ADD_TEAM),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   381
    PHandler(@handler_ADD_TEAM_s), PHandler(@handler_ASKPASSWORD),
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   382
    PHandler(@handler_BANLIST), PHandler(@handler_BANLIST_s),
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   383
    PHandler(@handler_BYE), PHandler(@handler_CFG_AMMO),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   384
    PHandler(@handler_CFG_DRAWNMAP), PHandler(@handler_CFG_FEATURE_SIZE),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   385
    PHandler(@handler_CFG_FULLMAPCONFIG), PHandler(@handler_CFG_FULLMAPCONFIG_s),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   386
    PHandler(@handler_CFG_MAP), PHandler(@handler_CFG_MAPGEN),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   387
    PHandler(@handler_CFG_MAZE_SIZE), PHandler(@handler_CFG_SCHEME),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   388
    PHandler(@handler_CFG_SCHEME_s), PHandler(@handler_CFG_SCRIPT),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   389
    PHandler(@handler_CFG_SEED), PHandler(@handler_CFG_TEMPLATE),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   390
    PHandler(@handler_CFG_THEME), PHandler(@handler_CHAT),
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   391
    PHandler(@handler_CLIENT_FLAGS), PHandler(@handler_CLIENT_FLAGS_s),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   392
    PHandler(@handler_CONNECTED), PHandler(@handler_EM), PHandler(@handler_EM_s),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   393
    PHandler(@handler_ERROR), PHandler(@handler_HH_NUM),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   394
    PHandler(@handler_HH_NUM_s), PHandler(@handler_INFO), PHandler(@handler_INFO_s),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   395
    PHandler(@handler_JOINED), PHandler(@handler_JOINED_s),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   396
    PHandler(@handler_JOINING), PHandler(@handler_KICKED), PHandler(@handler_LEFT),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   397
    PHandler(@handler_LEFT_s), PHandler(@handler_LOBBY_JOINED),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   398
    PHandler(@handler_LOBBY_JOINED_s), PHandler(@handler_LOBBY_LEFT),
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   399
    PHandler(@handler_NICK), PHandler(@handler_NOTICE), PHandler(@handler_PING),
11429
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   400
    PHandler(@handler_PING_s), PHandler(@handler_PROTO),
d96a37de1076 Apply generated code to .pas files, fix FULLMAPCONFIG handling
unc0rr
parents: 11425
diff changeset
   401
    PHandler(@handler_REMOVE_TEAM), PHandler(@handler_ROOMS),
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   402
    PHandler(@handler_ROOMS_s), PHandler(@handler_ROOM_ADD),
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   403
    PHandler(@handler_ROOM_ADD_s), PHandler(@handler_ROOM_DEL),
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   404
    PHandler(@handler_ROOM_UPD), PHandler(@handler_ROOM_UPD_s),
11418
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   405
    PHandler(@handler_ROUND_FINISHED), PHandler(@handler_RUN_GAME),
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   406
    PHandler(@handler_SERVER_AUTH), PHandler(@handler_SERVER_MESSAGE),
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   407
    PHandler(@handler_SERVER_VARS), PHandler(@handler_TEAM_ACCEPTED),
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   408
    PHandler(@handler_TEAM_COLOR), PHandler(@handler_TEAM_COLOR_s),
091149424aa4 Handle ROOMS and ROOM ADD protocol commands
unc0rr
parents: 11416
diff changeset
   409
    PHandler(@handler_WARNING));
10951
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   410
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   411
procedure passNetData(p: pointer); cdecl;
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   412
begin
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   413
    handlers[TCmdData(p^).cmd.cmd](TCmdData(p^))
10951
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   414
end;
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   415
11416
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   416
procedure sendChatLine(msg: PChar); cdecl;
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   417
begin
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   418
    sendNetLn('CHAT');
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   419
    sendNet(msg);
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   420
end;
78d6b99ddcb0 Can send chat messages now
unc0rr
parents: 11415
diff changeset
   421
11423
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   422
procedure joinRoom(roomName: PChar); cdecl;
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   423
begin
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   424
    sendNetLn('JOIN_ROOM');
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   425
    sendNet(roomName);
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   426
end;
e045dc60c37e - Warnings/errors message box
unc0rr
parents: 11420
diff changeset
   427
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   428
procedure partRoom(msg: PChar); cdecl;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   429
var s: string;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   430
begin
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   431
    if isInRoom then
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   432
    begin
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   433
        isInRoom:= false;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   434
        s:= 'PART';
11425
2947f06e8533 Another approach to parsing two-lines protocol commands
unc0rr
parents: 11424
diff changeset
   435
        if length(msg) > 0 then
11424
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   436
            s:= s + #10 + msg;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   437
        sendNet(s);
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   438
        sendUI(mtMoveToLobby, nil, 0);
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   439
    end
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   440
end;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   441
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   442
procedure ResetNetState;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   443
begin
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   444
    isInRoom:= false;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   445
end;
86c13e5662f1 - Some refactoring
unc0rr
parents: 11423
diff changeset
   446
10951
89a7f617e091 - Move protocol handling events to main thread through qt's main loop
unc0rr
parents:
diff changeset
   447
end.
11413
ffff8a0d1a76 Implement processing net commands in the main thread
unc0rr
parents: 10953
diff changeset
   448