hedgewars/uPhysFSLayer.pas
changeset 9466 8b48c27201af
parent 9407 860f959f92c9
child 9521 8054d9d775fd
child 9531 7fcdedc45589
equal deleted inserted replaced
9464:901e363d5837 9466:8b48c27201af
   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 + '/Data'), nil, false);
   146     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/'), '/', false);
   147     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Data: ' + inttostr(i));
   147     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/: ' + inttostr(i));
   148     i:= PHYSFS_mount(Str2PChar(UserPathPrefix + '/Teams'), '/Teams', false);
       
   149     AddFileLog('[PhysFS] mount ' + UserPathPrefix + '/Teams: ' + inttostr(i));
       
   150 
   148 
   151     hedgewarsMountPackages;
   149     hedgewarsMountPackages;
   152 end;
   150 end;
   153 
   151 
   154 procedure freeModule;
   152 procedure freeModule;