hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11424 8a5cc31483c6
parent 11423 091149424aa4
child 11425 ef7f8ac96dfa
equal deleted inserted replaced
11423:091149424aa4 11424:8a5cc31483c6
   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;