equal
deleted
inserted
replaced
21 begin |
21 begin |
22 end; |
22 end; |
23 |
23 |
24 procedure handler_BYE(var p: TCmdParamSL); |
24 procedure handler_BYE(var p: TCmdParamSL); |
25 begin |
25 begin |
|
26 sendUI(mtDisconnected, @p.str2[1], length(p.str2)); |
26 end; |
27 end; |
27 |
28 |
28 procedure handler_CHAT(var p: TCmdParamSL); |
29 procedure handler_CHAT(var p: TCmdParamSL); |
29 begin |
30 var s: string; |
|
31 begin |
|
32 s:= p.str1 + #10 + p.str2; |
|
33 sendUI(mtLobbyChatLine, @s[1], length(s)); |
30 end; |
34 end; |
31 |
35 |
32 procedure handler_CLIENT_FLAGS(var p: TCmdParamS); |
36 procedure handler_CLIENT_FLAGS(var p: TCmdParamS); |
33 begin |
37 begin |
34 end; |
38 end; |
37 begin |
41 begin |
38 end; |
42 end; |
39 |
43 |
40 procedure handler_CONNECTED(var p: TCmdParami); |
44 procedure handler_CONNECTED(var p: TCmdParami); |
41 begin |
45 begin |
42 writeln('Connected!!!!! ', p.param1) |
46 sendUI(mtConnected, nil, 0); |
|
47 sendNet('PROTO' + #10 + '51'); |
|
48 sendNet('NICK' + #10 + 'qmlfrontend'); |
43 end; |
49 end; |
44 |
50 |
45 procedure handler_EM(var p: TCmdParam); |
51 procedure handler_EM(var p: TCmdParam); |
46 begin |
52 begin |
47 end; |
53 end; |
98 begin |
104 begin |
99 end; |
105 end; |
100 |
106 |
101 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
107 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
102 begin |
108 begin |
|
109 sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); |
103 end; |
110 end; |
104 |
111 |
105 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
112 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
106 begin |
113 begin |
107 end; |
114 end; |