hedgewars/uFLNetProtocol.pas
branchqmlfrontend
changeset 11436 f7fa429e42ab
parent 11434 23912c93935a
child 11437 6e641b5453f9
equal deleted inserted replaced
11435:28fb618d99c4 11436:f7fa429e42ab
    71 begin
    71 begin
    72     if not isInRoom then exit;
    72     if not isInRoom then exit;
    73 
    73 
    74     inc(fmcfgIndex);
    74     inc(fmcfgIndex);
    75     case fmcfgIndex of
    75     case fmcfgIndex of
    76         1: if s.str1[0] <> '+' then netSetMap(s.str1);
    76         1: netSetFeatureSize(strToInt(s.str1));
    77         2: netSetMapGen(strToInt(s.str1));
    77         2: if s.str1[0] <> '+' then netSetMap(s.str1);
    78         3: netSetMazeSize(strToInt(s.str1));
    78         3: netSetMapGen(strToInt(s.str1));
    79         4: netSetTheme(s.str1);
    79         4: netSetMazeSize(strToInt(s.str1));
    80         5: netSetTemplate(strToInt(s.str1));
    80         5: netSetSeed(s.str1);
    81         6: begin
    81         6: begin
    82                 netSetFeatureSize(strToInt(s.str1));
    82                 netSetTemplate(strToInt(s.str1));
    83                 updatePreviewIfNeeded;
    83                 updatePreviewIfNeeded;
    84            end;
    84             end;
    85     end;
    85     end;
    86 end;
    86 end;
    87 
    87 
    88 procedure handler_CFG_MAP(var p: TCmdParamS);
    88 procedure handler_CFG_MAP(var p: TCmdParamS);
    89 begin
    89 begin