hedgewars/uPhysFSLayer.pas
changeset 9531 7fcdedc45589
parent 9466 8b48c27201af
child 9950 2759212a27de
child 9988 317d46a2afd2
equal deleted inserted replaced
9528:9351e96990ae 9531:7fcdedc45589
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   141     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   142     AddFileLog('[PhysFS] init: ' + inttostr(i));
   142     AddFileLog('[PhysFS] init: ' + inttostr(i));
   143 
   143 
   144     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
   144     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
   145     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   145     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   146     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/'), '/', false);
   146     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, false);
   147     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/: ' + inttostr(i));
   147     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
   148 
   148 
   149     hedgewarsMountPackages;
   149     hedgewarsMountPackages;
       
   150 
       
   151     i:= PHYSFS_mount(Str2PChar(UserPathPrefix), nil, false);
       
   152     // need access to teams and frontend configs (for bindings)
       
   153     AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i)); 
   150 end;
   154 end;
   151 
   155 
   152 procedure freeModule;
   156 procedure freeModule;
   153 begin
   157 begin
   154     PHYSFS_deinit;
   158     PHYSFS_deinit;