hedgewars/ArgParsers.pas
changeset 10316 0f46fb0e0d5f
parent 10175 c92668840ea8
child 10404 1baaab44a0b2
child 11046 47a8c19ecb60
child 11099 c51e4c942525
equal deleted inserted replaced
10315:d464a04450cc 10316:0f46fb0e0d5f
   268         {--help}                30 : DisplayUsage();
   268         {--help}                30 : DisplayUsage();
   269         {--no-teamtag}          31 : cTagsMask := cTagsMask and (not htTeamName);
   269         {--no-teamtag}          31 : cTagsMask := cTagsMask and (not htTeamName);
   270         {--no-hogtag}           32 : cTagsMask := cTagsMask and (not htName);
   270         {--no-hogtag}           32 : cTagsMask := cTagsMask and (not htName);
   271         {--no-healthtag}        33 : cTagsMask := cTagsMask and (not htHealth);
   271         {--no-healthtag}        33 : cTagsMask := cTagsMask and (not htHealth);
   272         {--translucent-tags}    34 : cTagsMask := cTagsMask or htTransparent;
   272         {--translucent-tags}    34 : cTagsMask := cTagsMask or htTransparent;
   273         {--lua-test}            35 : begin cTestLua := true; cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
   273         {--lua-test}            35 : begin cTestLua := true; SetSound(false); cScriptName := getstringParameter(arg, paramIndex, parseParameter); WriteLn(stdout, 'Lua test file specified: ' + cScriptName);end;
   274     else
   274     else
   275         begin
   275         begin
   276         //Assume the first "non parameter" is the replay file, anything else is invalid
   276         //Assume the first "non parameter" is the replay file, anything else is invalid
   277         if (recordFileName = '') and (Copy(cmd,1,2) <> '--') then
   277         if (recordFileName = '') and (Copy(cmd,1,2) <> '--') then
   278             recordFileName := cmd
   278             recordFileName := cmd