hedgewars/hwengine.pas
changeset 3670 4c673e57f0d7
parent 3663 8c28abf427f5
child 3678 00428183300f
child 3690 c247dee9e1c0
--- a/hedgewars/hwengine.pas	Sun Jul 25 01:59:41 2010 +0200
+++ b/hedgewars/hwengine.pas	Sun Jul 25 16:02:02 2010 +0200
@@ -198,7 +198,6 @@
 ///////////////
 {$IFDEF HWLIBRARY}
 procedure Game(gameArgs: arrayofpchar); cdecl; export;
-var tmp_quality: LongInt;
 {$ELSE}
 procedure Game;
 {$ENDIF}
@@ -211,7 +210,6 @@
 {$IFDEF HWLIBRARY}
     cBits:= 32;
     cFullScreen:= false;
-    cVSyncInUse:= true;
     cTimerInterval:= 8;
     PathPrefix:= 'Data';
 {$IFDEF DEBUGFILE}
@@ -447,7 +445,7 @@
             val(ParamStr(5), ipcPort);
             cFullScreen:= ParamStr(6) = '1';
             isSoundEnabled:= ParamStr(7) = '1';
-            cVSyncInUse:= ParamStr(8) = '1';        //unused
+            //cVSyncInUse:= ParamStr(8) = '1';      //merged with rqFlags
             //cWeaponTooltips:= ParamStr(9) = '1';  //merged with rqFlags
             cLocaleFName:= ParamStr(10);
             val(ParamStr(11), cInitVolume);
@@ -462,7 +460,9 @@
                 cReducedQuality:= $FFFFFFFF xor rqLowRes
             else
                 val(ParamStr(18), cReducedQuality);
-                
+            
+            if (ParamStr(8) = '0') then         //HACK - ifcVSyncInUse not true, disable it
+                cReducedQuality:= cReducedQuality xor rqDesyncVBlank;
             if (ParamStr(9) = '0') then         //HACK - if cWeaponTooltips not true, disable it
                 cReducedQuality:= cReducedQuality xor rqTooltipsOff;
         end;