hedgewars/uPhysFSLayer.pas
branchios-revival
changeset 11087 99578075df24
parent 10564 0cb20aa8877a
child 11139 4f4e97eb52fd
equal deleted inserted replaced
11086:95f97c4d154c 11087:99578075df24
   160     cPhysfsId:= ParamStr(0);
   160     cPhysfsId:= ParamStr(0);
   161 {$ENDIF}
   161 {$ENDIF}
   162 
   162 
   163     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   163     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   164     AddFileLog('[PhysFS] init: ' + inttostr(i));
   164     AddFileLog('[PhysFS] init: ' + inttostr(i));
   165 
   165 (*
   166     // mount system fonts paths first
   166     // mount system fonts paths first
   167     for i:= low(cFontsPaths) to high(cFontsPaths) do
   167     for i:= low(cFontsPaths) to high(cFontsPaths) do
   168         begin
   168         begin
   169             fp := cFontsPaths[i];
   169             fp := cFontsPaths[i];
   170             if fp <> nil then
   170             if fp <> nil then
   171                 pfsMount(ansistring(fp), PChar('/Fonts'));
   171                 pfsMount(ansistring(fp), PChar('/Fonts'));
   172         end;
   172         end;
   173 
   173 *)
   174     pfsMountAtRoot(PathPrefix);
   174     pfsMountAtRoot(PathPrefix);
   175     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));
   175     pfsMountAtRoot(UserPathPrefix + ansistring('/Data'));
   176 
   176 
   177     hedgewarsMountPackages;
   177     hedgewarsMountPackages;
   178 
   178