hedgewars/ArgParsers.inc
changeset 3708 64e059b6f9c5
parent 3678 00428183300f
child 3709 c7849b74748d
equal deleted inserted replaced
3706:a79784328c03 3708:64e059b6f9c5
    24     PathPrefix:= ParamStr(13);
    24     PathPrefix:= ParamStr(13);
    25     cShowFPS:= ParamStr(14) = '1';
    25     cShowFPS:= ParamStr(14) = '1';
    26     cAltDamage:= ParamStr(15) = '1';
    26     cAltDamage:= ParamStr(15) = '1';
    27     UserNick:= DecodeBase64(ParamStr(16));
    27     UserNick:= DecodeBase64(ParamStr(16));
    28     isMusicEnabled:= ParamStr(17) = '1';
    28     isMusicEnabled:= ParamStr(17) = '1';
    29 
    29     val(ParamStr(18), cReducedQuality);
    30     if (ParamStr(18) = '1') then        //HACK - always disable rqLowRes as it is a game breaker
    30 
    31         cReducedQuality:= $FFFFFFFF xor rqLowRes
       
    32     else
       
    33         val(ParamStr(18), cReducedQuality);
       
    34     
       
    35     if (ParamStr(8) = '0') then         //HACK - ifcVSyncInUse not true, disable it
       
    36         cReducedQuality:= cReducedQuality xor rqDesyncVBlank;
       
    37     if (ParamStr(9) = '0') then         //HACK - if cWeaponTooltips not true, disable it
       
    38         cReducedQuality:= cReducedQuality xor rqTooltipsOff;
       
    39 end;
    31 end;
    40 
    32 
    41 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
    33 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
    42 begin
    34 begin
    43     cScreenWidth:= screenWidth;
    35     cScreenWidth:= screenWidth;