sfs: multiple files fix

[d2df-sdl.git] / src / sfs / xstreams.pas

diff --git a/src/sfs/xstreams.pas b/src/sfs/xstreams.pas
index a9026cfd7dabdf5261e28d1f75522827bddc9a4a..20a503f6edb1a3fd3ba8a59b5cab8fbea40137b6 100644 (file)
--- a/src/sfs/xstreams.pas
+++ b/src/sfs/xstreams.pas
@@ -174,10 +174,17 @@ end;
 
 procedure TSFSPartialStream.CheckPos ();
 begin
+  {
   if fSource.Position <> fStartPos+fCurrentPos-Length(fPreBuf) then
   begin
     fSource.Position := fStartPos+fCurrentPos-Length(fPreBuf);
   end;
+  }
+  if fCurrentPos >= length(fPreBuf) then
+  begin
+    //writeln('seeking at ', fCurrentPos, ' (real: ', fStartPos+fCurrentPos-Length(fPreBuf), ')');
+    fSource.Position := fStartPos+fCurrentPos-Length(fPreBuf);
+  end;
   fLastReadPos := fCurrentPos;
 end;