hedgewars/hwengine.pas
changeset 3624 304c6d32383a
parent 3617 1df21e06b8ba
child 3625 9f1d79e01a60
--- a/hedgewars/hwengine.pas	Sun Jul 04 01:27:41 2010 +0200
+++ b/hedgewars/hwengine.pas	Mon Jul 05 22:42:43 2010 +0200
@@ -198,6 +198,7 @@
 ///////////////
 {$IFDEF HWLIBRARY}
 procedure Game(gameArgs: arrayofpchar); cdecl; export;
+var tmp_quality: LongInt;
 {$ELSE}
 procedure Game;
 {$ENDIF}
@@ -213,7 +214,11 @@
     cVSyncInUse:= true;
     cTimerInterval:= 8;
     PathPrefix:= 'Data';
+{$IFDEF DEBUGFILE}
     cShowFPS:= true;
+{$ELSE}
+    cShowFPS:= false;
+{$ENDIF}
     cInitVolume:= 100;
 
     UserNick:= gameArgs[0];
@@ -226,15 +231,15 @@
     val(gameArgs[7], cScreenWidth);
     recordFileName:= gameArgs[8];
     
-    if (gameArgs[9] = '2') then
-        cReducedQuality:= rqLowRes or rqBlurryLand
-    else 
-        if (gameArgs[9] = '1') then
-            cReducedQuality:= rqBlurryLand
-        else
-            cReducedQuality:= rqNone;
+    val(gameArgs[9], tmp_quality);
+    case tmp_quality of
+        0: cReducedQuality:= rqNone;
+        1: cReducedQuality:= rqBlurryLand;
+        2: cReducedQuality:= rqBlurryLand or rqKillFlakes;
+        3: cReducedQuality:= rqBlurryLand or rqKillFlakes or rqLowRes;
+    end;
+{$ENDIF}
 
-{$ENDIF}
     initEverything(true);
     WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')');
 {$IFDEF DEBUGFILE}