equal
deleted
inserted
replaced
95 netSetAmmo(p.str1, p.str2) |
95 netSetAmmo(p.str1, p.str2) |
96 end; |
96 end; |
97 |
97 |
98 procedure handler_CFG_DRAWNMAP(var p: TCmdParamL); |
98 procedure handler_CFG_DRAWNMAP(var p: TCmdParamL); |
99 begin |
99 begin |
|
100 netDrawnData(copy(ansistring(p.str1), 1, p.str1len)) |
100 end; |
101 end; |
101 |
102 |
102 procedure handler_CFG_FEATURE_SIZE(var p: TCmdParami); |
103 procedure handler_CFG_FEATURE_SIZE(var p: TCmdParami); |
103 begin |
104 begin |
104 if isInRoom then |
105 if isInRoom then |
260 end; |
261 end; |
261 |
262 |
262 procedure handler_CHAT(var p: TCmdParamSL); |
263 procedure handler_CHAT(var p: TCmdParamSL); |
263 var s: string; |
264 var s: string; |
264 begin |
265 begin |
265 s:= p.str1 + #10 + p.str2; |
266 s:= p.str1 + #10 + copy(p.str2, 0, p.str2len); |
266 if isInRoom then |
267 if isInRoom then |
267 sendUI(mtRoomChatLine, @s[1], length(s)) |
268 sendUI(mtRoomChatLine, @s[1], length(s)) |
268 else |
269 else |
269 sendUI(mtLobbyChatLine, @s[1], length(s)); |
270 sendUI(mtLobbyChatLine, @s[1], length(s)); |
270 end; |
271 end; |
373 begin |
374 begin |
374 onRoomLeaving() |
375 onRoomLeaving() |
375 end; |
376 end; |
376 |
377 |
377 procedure handler_LEFT(var p: TCmdParamSL); |
378 procedure handler_LEFT(var p: TCmdParamSL); |
378 begin |
379 var s: string; |
379 p.str2:= p.str1 + #10 + p.str2; |
380 begin |
380 sendUI(mtRemoveRoomClient, @p.str2[1], length(p.str2)); |
381 s:= p.str1 + #10 + copy(p.str2, 0, p.str2len); |
|
382 sendUI(mtRemoveRoomClient, @s[1], length(s)); |
381 end; |
383 end; |
382 |
384 |
383 procedure handler_LOBBY_JOINED(var p: TCmdParam); |
385 procedure handler_LOBBY_JOINED(var p: TCmdParam); |
384 begin |
386 begin |
385 end; |
387 end; |
394 |
396 |
395 sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); |
397 sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); |
396 end; |
398 end; |
397 |
399 |
398 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
400 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
399 begin |
401 var s: string; |
400 p.str2:= p.str1 + #10 + p.str2; |
402 begin |
401 sendUI(mtRemoveLobbyClient, @p.str2[1], length(p.str2)); |
403 s:= p.str1 + #10 + copy(p.str2, 0, p.str2len); |
|
404 sendUI(mtRemoveLobbyClient, @s[1], length(s)); |
402 end; |
405 end; |
403 |
406 |
404 procedure handler_NICK(var p: TCmdParamS); |
407 procedure handler_NICK(var p: TCmdParamS); |
405 begin |
408 begin |
406 myNickname:= p.str1; |
409 myNickname:= p.str1; |