hedgewars/hwengine.dpr
changeset 293 00a532e8808e
parent 288 929c44745fd9
child 295 8834f3cb620e
equal deleted inserted replaced
292:0ca921ca7557 293:00a532e8808e
   173      cLocaleFName:= ParamStr(7);
   173      cLocaleFName:= ParamStr(7);
   174      val(ParamStr(8), cInitVolume, c);
   174      val(ParamStr(8), cInitVolume, c);
   175      PathPrefix:= ParamStr(9);
   175      PathPrefix:= ParamStr(9);
   176      for p:= Succ(Low(TPathType)) to High(TPathType) do
   176      for p:= Succ(Low(TPathType)) to High(TPathType) do
   177          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   177          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
       
   178      AddClouds
   178      end;
   179      end;
   179   2: begin
   180   2: begin
   180      val(ParamStr(1), ipcPort, c);
   181      val(ParamStr(1), ipcPort, c);
   181      GameType:= gmtLandPreview;
   182      GameType:= gmtLandPreview;
   182      if ParamStr(2) <> 'landpreview' then OutError(errmsgShouldntRun, true);
   183      if ParamStr(2) <> 'landpreview' then OutError(errmsgShouldntRun, true);