equal
deleted
inserted
replaced
106 begin |
106 begin |
107 end; |
107 end; |
108 |
108 |
109 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
109 procedure handler_LOBBY_JOINED_s(var s: TCmdParamS); |
110 begin |
110 begin |
|
111 if s.str1 = 'qmlfrontend' then sendNet('LIST'); |
|
112 |
111 sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); |
113 sendUI(mtAddLobbyClient, @s.str1[1], length(s.str1)); |
112 end; |
114 end; |
113 |
115 |
114 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
116 procedure handler_LOBBY_LEFT(var p: TCmdParamSL); |
115 begin |
117 begin |
167 roomInfo:= roomInfo + s.str1 + #10; |
169 roomInfo:= roomInfo + s.str1 + #10; |
168 inc(roomLinesCount); |
170 inc(roomLinesCount); |
169 |
171 |
170 if roomLinesCount = raRoomInfoLength[roomAction] then |
172 if roomLinesCount = raRoomInfoLength[roomAction] then |
171 begin |
173 begin |
172 sendUI(raRoomAction[roomAction], @roomInfo[1], length(roomInfo)); |
174 sendUI(raRoomAction[roomAction], @roomInfo[1], length(roomInfo) - 1); |
173 roomLinesCount:= 0; |
175 roomLinesCount:= 0; |
174 roomInfo:= '' |
176 roomInfo:= '' |
175 end; |
177 end; |
176 end; |
178 end; |
177 end; |
179 end; |