hedgewars/hwengine.dpr
changeset 1892 fddc1201df25
parent 1888 e76274ce7365
child 1906 644f93d8f148
--- a/hedgewars/hwengine.dpr	Sun Mar 15 12:58:23 2009 +0000
+++ b/hedgewars/hwengine.dpr	Sun Mar 15 12:59:52 2009 +0000
@@ -189,7 +189,7 @@
 {$ENDIF}
 
 case ParamCount of
-16: begin
+ 16: begin
      val(ParamStr(2), cScreenWidth);
      val(ParamStr(3), cScreenHeight);
      cInitWidth:= cScreenWidth;
@@ -216,9 +216,24 @@
      GameType:= gmtLandPreview;
      if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true);
      end;
-  2: begin
+ 14: begin
      PathPrefix:= ParamStr(1);
      recordFileName:= ParamStr(2);
+     val(ParamStr(3), cScreenWidth);
+     val(ParamStr(4), cScreenHeight);
+     cInitWidth:= cScreenWidth;
+     cInitHeight:= cScreenHeight;
+     cBitsStr:= ParamStr(5);
+     val(cBitsStr, cBits);
+     cFullScreen:= ParamStr(6) = '1';
+     isSoundEnabled:= ParamStr(7) = '1';
+     cLocaleFName:= ParamStr(8);
+     val(ParamStr(9), cInitVolume);
+     val(ParamStr(10), cTimerInterval);
+     cShowFPS:= ParamStr(11) = '1';
+     cAltDamage:= ParamStr(12) = '1';
+     isMusicEnabled:= ParamStr(13) = '1';
+     cReducedQuality:= ParamStr(14) = '1';
      for p:= Succ(Low(TPathType)) to High(TPathType) do
          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]
      end;