hedgewars/hwengine.pas
changeset 3594 aeca3d8f1b29
parent 3525 1d7b056ff866
child 3598 a8aa06bae895
equal deleted inserted replaced
3593:ae50f63e4fa9 3594:aeca3d8f1b29
   248     cBits:= 32;
   248     cBits:= 32;
   249     cFullScreen:= false;
   249     cFullScreen:= false;
   250     cVSyncInUse:= true;
   250     cVSyncInUse:= true;
   251     cTimerInterval:= 8;
   251     cTimerInterval:= 8;
   252     PathPrefix:= 'Data';
   252     PathPrefix:= 'Data';
   253     cReducedQuality:= false;
   253     cReducedQuality:= 0;                //FIXME
   254     cShowFPS:= true;
   254     cShowFPS:= true;
   255     cInitVolume:= 100;
   255     cInitVolume:= 100;
   256 
   256 
   257     UserNick:= gameArgs[0];
   257     UserNick:= gameArgs[0];
   258     val(gameArgs[1], ipcPort);
   258     val(gameArgs[1], ipcPort);
   499             PathPrefix:= ParamStr(13);
   499             PathPrefix:= ParamStr(13);
   500             cShowFPS:= ParamStr(14) = '1';
   500             cShowFPS:= ParamStr(14) = '1';
   501             cAltDamage:= ParamStr(15) = '1';
   501             cAltDamage:= ParamStr(15) = '1';
   502             UserNick:= DecodeBase64(ParamStr(16));
   502             UserNick:= DecodeBase64(ParamStr(16));
   503             isMusicEnabled:= ParamStr(17) = '1';
   503             isMusicEnabled:= ParamStr(17) = '1';
   504             cReducedQuality:= ParamStr(18) = '1';
   504 
       
   505             if (ParamStr(18) = '1') then        //HACK
       
   506                 cReducedQuality:= $FFFFFFFF
       
   507             else
       
   508                 val(ParamStr(18), cReducedQuality);
   505         end;
   509         end;
   506         3: begin
   510         3: begin
   507             val(ParamStr(2), ipcPort);
   511             val(ParamStr(2), ipcPort);
   508             GameType:= gmtLandPreview;
   512             GameType:= gmtLandPreview;
   509             if ParamStr(3) <> 'landpreview' then 
   513             if ParamStr(3) <> 'landpreview' then 
   583                 cLocaleFName:= ParamStr(10);
   587                 cLocaleFName:= ParamStr(10);
   584                 cFullScreen:= ParamStr(11) = '1';
   588                 cFullScreen:= ParamStr(11) = '1';
   585                 cAltDamage:= ParamStr(12) = '1';
   589                 cAltDamage:= ParamStr(12) = '1';
   586                 cShowFPS:= ParamStr(13) = '1';
   590                 cShowFPS:= ParamStr(13) = '1';
   587                 val(ParamStr(14), cTimerInterval);
   591                 val(ParamStr(14), cTimerInterval);
   588                 cReducedQuality:= ParamStr(15) = '1';
   592                 if (ParamStr(15) = '1') then        //HACK
       
   593                     cReducedQuality:= $FFFFFFFF
       
   594                 else
       
   595                     val(ParamStr(15), cReducedQuality);
   589             end
   596             end
   590             else GameType:= gmtSyntax;
   597             else GameType:= gmtSyntax;
   591         end;
   598         end;
   592         else GameType:= gmtSyntax;
   599         else GameType:= gmtSyntax;
   593     end;
   600     end;