hedgewars/hwengine.pas
changeset 5242 e4f6aa3250eb
parent 5239 f34f391a223b
child 5286 22c1f4833a86
child 5505 a55aab592950
equal deleted inserted replaced
5241:e1fb0fc971c6 5242:e4f6aa3250eb
   238     AddFileLog('UserPrefix: "' + UserPathPrefix +'"');
   238     AddFileLog('UserPrefix: "' + UserPathPrefix +'"');
   239     for i:= 0 to ParamCount do
   239     for i:= 0 to ParamCount do
   240         AddFileLog(inttostr(i) + ': ' + ParamStr(i));
   240         AddFileLog(inttostr(i) + ': ' + ParamStr(i));
   241 
   241 
   242     for p:= Succ(Low(TPathType)) to High(TPathType) do
   242     for p:= Succ(Low(TPathType)) to High(TPathType) do
   243         if p <> ptMapCurrent then UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p];
   243         if (p <> ptMapCurrent) and (p <> ptData) then UserPathz[p]:= UserPathPrefix + '/Data/' + Pathz[p];
       
   244 
       
   245     UserPathz[ptData]:= UserPathPrefix + '/Data';
   244 
   246 
   245     for p:= Succ(Low(TPathType)) to High(TPathType) do
   247     for p:= Succ(Low(TPathType)) to High(TPathType) do
   246         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   248         if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p];
   247 
   249 
   248     WriteToConsole('Init SDL... ');
   250     WriteToConsole('Init SDL... ');