hedgewars/hwengine.dpr
changeset 296 607912ccc5af
parent 295 8834f3cb620e
child 297 279e10ec31b4
--- a/hedgewars/hwengine.dpr	Sun Dec 10 15:55:53 2006 +0000
+++ b/hedgewars/hwengine.dpr	Sun Dec 10 18:13:10 2006 +0000
@@ -162,7 +162,7 @@
 {$ENDIF}
 
 case ParamCount of
-  9: begin
+11: begin
      val(ParamStr(1), cScreenWidth, c);
      val(ParamStr(2), cScreenHeight, c);
      cBitsStr:= ParamStr(3);
@@ -172,7 +172,10 @@
      isSoundEnabled:= ParamStr(6) = '1';
      cLocaleFName:= ParamStr(7);
      val(ParamStr(8), cInitVolume, c);
-     PathPrefix:= ParamStr(9);
+     val(ParamStr(9), cTimerInterval, c);
+     cTimerInterval:= 1024 div cTimerInterval;
+     PathPrefix:= ParamStr(10);
+     cShowFPS:= ParamStr(11) = '1';
      for p:= Succ(Low(TPathType)) to High(TPathType) do
          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
      AddClouds