sfs: remove common dir from pk3 (this should fix invalid zips)

[d2df-sdl.git] / src / game / g_gui.pas

diff --git a/src/game/g_gui.pas b/src/game/g_gui.pas
index 7eaed7ba7128470653e26c6b53d49020b58f09b1..2f9bc08380d79cf1ba7447ce1800a727463e3ec4 100644 (file)
--- a/src/game/g_gui.pas
+++ b/src/game/g_gui.pas
@@ -2872,9 +2872,18 @@ begin
     repeat
       AddItem(SR.Name);
     until FindNext(SR) <> 0;
-
   FindClose(SR);
 
+  //FIXME: HACK!
+  if FFileMask = '*.wad' then
+  begin
+    if FindFirst(path+'*.pk3', faAnyFile, SR) = 0 then
+      repeat
+        AddItem(SR.Name);
+      until FindNext(SR) <> 0;
+    FindClose(SR);
+  end;
+
   for i := 0 to High(FItems) do
     if FItems[i][1] = #1 then
       FItems[i][1] := #29;