diff -r f14db208f2fa -r 304c6d32383a hedgewars/hwengine.pas --- 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}