hedgewars/hwengine.dpr
changeset 529 812682c1ab62
parent 510 4e994e1b7abb
child 564 17fb45c670c1
--- a/hedgewars/hwengine.dpr	Sun May 27 17:55:55 2007 +0000
+++ b/hedgewars/hwengine.dpr	Sun May 27 20:17:55 2007 +0000
@@ -177,7 +177,7 @@
 {$ENDIF}
 
 case ParamCount of
-12: begin
+13: begin
      val(ParamStr(2), cScreenWidth);
      val(ParamStr(3), cScreenHeight);
      cBitsStr:= ParamStr(4);
@@ -190,6 +190,7 @@
      val(ParamStr(10), cTimerInterval);
      PathPrefix:= ParamStr(11);
      cShowFPS:= ParamStr(12) = '1';
+     cAltDamage:= ParamStr(13) = '1';
      for p:= Succ(Low(TPathType)) to High(TPathType) do
          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
      AddClouds