hedgewars/hwengine.dpr
changeset 297 279e10ec31b4
parent 296 607912ccc5af
child 302 7aca131ecd7f
equal deleted inserted replaced
296:607912ccc5af 297:279e10ec31b4
   171      cFullScreen:= ParamStr(5) = '1';
   171      cFullScreen:= ParamStr(5) = '1';
   172      isSoundEnabled:= ParamStr(6) = '1';
   172      isSoundEnabled:= ParamStr(6) = '1';
   173      cLocaleFName:= ParamStr(7);
   173      cLocaleFName:= ParamStr(7);
   174      val(ParamStr(8), cInitVolume, c);
   174      val(ParamStr(8), cInitVolume, c);
   175      val(ParamStr(9), cTimerInterval, c);
   175      val(ParamStr(9), cTimerInterval, c);
   176      cTimerInterval:= 1024 div cTimerInterval;
       
   177      PathPrefix:= ParamStr(10);
   176      PathPrefix:= ParamStr(10);
   178      cShowFPS:= ParamStr(11) = '1';
   177      cShowFPS:= ParamStr(11) = '1';
   179      for p:= Succ(Low(TPathType)) to High(TPathType) do
   178      for p:= Succ(Low(TPathType)) to High(TPathType) do
   180          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   179          if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   181      AddClouds
   180      AddClouds