equal
deleted
inserted
replaced
163 end; |
163 end; |
164 |
164 |
165 procedure handler_CONNECTED(var p: TCmdParami); |
165 procedure handler_CONNECTED(var p: TCmdParami); |
166 begin |
166 begin |
167 sendUI(mtConnected, nil, 0); |
167 sendUI(mtConnected, nil, 0); |
|
168 writeln('Server features version ', p.param1); |
168 sendNet('PROTO' + #10 + '51'); |
169 sendNet('PROTO' + #10 + '51'); |
169 sendNet('NICK' + #10 + 'qmlfrontend'); |
170 sendNet('NICK' + #10 + 'qmlfrontend'); |
170 end; |
171 end; |
171 |
172 |
172 procedure handler_EM(var p: TCmdParam); |
173 procedure handler_EM(var p: TCmdParam); |
272 begin |
273 begin |
273 end; |
274 end; |
274 |
275 |
275 procedure handler_PROTO(var p: TCmdParami); |
276 procedure handler_PROTO(var p: TCmdParami); |
276 begin |
277 begin |
|
278 writeln('Protocol ', p.param1) |
277 end; |
279 end; |
278 |
280 |
279 procedure handler_REMOVE_TEAM(var p: TCmdParamS); |
281 procedure handler_REMOVE_TEAM(var p: TCmdParamS); |
280 begin |
282 begin |
281 end; |
283 end; |