hedgewars/hwengine.pas
changeset 3634 93d260c96635
parent 3628 2b4d878ba565
child 3647 0d0df215fb52
equal deleted inserted replaced
3632:8e1bd8b5780e 3634:93d260c96635
   229     cAltDamage:= gameArgs[5] = '1';
   229     cAltDamage:= gameArgs[5] = '1';
   230     val(gameArgs[6], cScreenHeight);
   230     val(gameArgs[6], cScreenHeight);
   231     val(gameArgs[7], cScreenWidth);
   231     val(gameArgs[7], cScreenWidth);
   232     recordFileName:= gameArgs[8];
   232     recordFileName:= gameArgs[8];
   233     
   233     
   234     val(gameArgs[9], tmp_quality);
   234     val(gameArgs[9], cReducedQuality);
   235     case tmp_quality of
       
   236         0: cReducedQuality:= rqNone;
       
   237         1: cReducedQuality:= rqBlurryLand;
       
   238         2: cReducedQuality:= rqBlurryLand or rqKillFlakes;
       
   239         3: cReducedQuality:= rqBlurryLand or rqKillFlakes or rqLowRes;
       
   240     end;
       
   241 {$ENDIF}
   235 {$ENDIF}
   242 
   236 
   243     initEverything(true);
   237     initEverything(true);
   244     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   238     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
   245 {$IFDEF DEBUGFILE}
   239 {$IFDEF DEBUGFILE}
   452             val(cBitsStr, cBits);
   446             val(cBitsStr, cBits);
   453             val(ParamStr(5), ipcPort);
   447             val(ParamStr(5), ipcPort);
   454             cFullScreen:= ParamStr(6) = '1';
   448             cFullScreen:= ParamStr(6) = '1';
   455             isSoundEnabled:= ParamStr(7) = '1';
   449             isSoundEnabled:= ParamStr(7) = '1';
   456             cVSyncInUse:= ParamStr(8) = '1';        //unused
   450             cVSyncInUse:= ParamStr(8) = '1';        //unused
   457             cWeaponTooltips:= ParamStr(9) = '1';    //should be merged with rqFlags
   451             //cWeaponTooltips:= ParamStr(9) = '1';  //merged with rqFlags
   458             cLocaleFName:= ParamStr(10);
   452             cLocaleFName:= ParamStr(10);
   459             val(ParamStr(11), cInitVolume);
   453             val(ParamStr(11), cInitVolume);
   460             val(ParamStr(12), cTimerInterval);
   454             val(ParamStr(12), cTimerInterval);
   461             PathPrefix:= ParamStr(13);
   455             PathPrefix:= ParamStr(13);
   462             cShowFPS:= ParamStr(14) = '1';
   456             cShowFPS:= ParamStr(14) = '1';
   463             cAltDamage:= ParamStr(15) = '1';
   457             cAltDamage:= ParamStr(15) = '1';
   464             UserNick:= DecodeBase64(ParamStr(16));
   458             UserNick:= DecodeBase64(ParamStr(16));
   465             isMusicEnabled:= ParamStr(17) = '1';
   459             isMusicEnabled:= ParamStr(17) = '1';
   466 
   460 
   467             if (ParamStr(18) = '1') then        //HACK
   461             if (ParamStr(18) = '1') then        //HACK - always disable rqLowRes as it's a game breaker
   468                 cReducedQuality:= $FFFFFFFF xor rqLowRes
   462                 cReducedQuality:= $FFFFFFFF xor rqLowRes
   469             else
   463             else
   470                 val(ParamStr(18), cReducedQuality);
   464                 val(ParamStr(18), cReducedQuality);
       
   465                 
       
   466             if (ParamStr(9) = '0') then         //HACK - if cWeaponTooltips not true, disable it
       
   467                 cReducedQuality:= cReducedQuality xor rqTooltipsOff;
   471         end;
   468         end;
   472         3: begin
   469         3: begin
   473             val(ParamStr(2), ipcPort);
   470             val(ParamStr(2), ipcPort);
   474             GameType:= gmtLandPreview;
   471             GameType:= gmtLandPreview;
   475             if ParamStr(3) <> 'landpreview' then 
   472             if ParamStr(3) <> 'landpreview' then