--- 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}