hedgewars/uPhysFSLayer.pas
branchwebgl
changeset 9950 2759212a27de
parent 9521 8054d9d775fd
parent 9531 7fcdedc45589
child 10015 4feced261c68
equal deleted inserted replaced
9521:8054d9d775fd 9950:2759212a27de
   147     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   147     i:= PHYSFS_init(Str2PChar(cPhysfsId));
   148     AddFileLog('[PhysFS] init: ' + inttostr(i));
   148     AddFileLog('[PhysFS] init: ' + inttostr(i));
   149 
   149 
   150     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
   150     i:= PHYSFS_mount(Str2PChar(PathPrefix), nil, false);
   151     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   151     AddFileLog('[PhysFS] mount ' + PathPrefix + ': ' + inttostr(i));
   152     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/'), '/', false);
   152     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Data'), nil, false);
   153     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/: ' + inttostr(i));
   153     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
   154 
   154 
   155     hedgewarsMountPackages;
   155     hedgewarsMountPackages;
       
   156 
       
   157     i:= PHYSFS_mount(Str2PChar(UserPathPrefix), nil, false);
       
   158     // need access to teams and frontend configs (for bindings)
       
   159     AddFileLog('[PhysFS] mount ' + UserPathPrefix + ': ' + inttostr(i)); 
   156 end;
   160 end;
   157 
   161 
   158 procedure freeModule;
   162 procedure freeModule;
   159 begin
   163 begin
   160     PHYSFS_deinit;
   164     PHYSFS_deinit;