added "SFSFastMode" hidden option; turned on by default

diff --git a/src/game/g_options.pas b/src/game/g_options.pas
index 54ea9208357b5bdbab46ccb58a9b0cf3db9b2823..bbaa0435d5a5078680024ed9ae9c3f21a2289ca3 100644 (file)
--- a/src/game/g_options.pas
+++ b/src/game/g_options.pas
@@ -95,6 +95,7 @@ var
   gsSDLSampleRate: Integer    = 44100;
   gsSDLBufferSize: Integer    = 2048;
   gSFSDebug: Boolean          = False;
+  gSFSFastMode: Boolean       = True;
 
 implementation
 
@@ -332,7 +333,8 @@ begin
   gShowMessages := config.ReadBool('Game', 'Messages', True);
   gRevertPlayers := config.ReadBool('Game', 'RevertPlayers', False);
   gChatBubble := Min(Max(config.ReadInt('Game', 'ChatBubble', 4), 0), 4);
-  gSFSDebug := config.ReadBool('Game', 'gSFSDebug', False);
+  gSFSDebug := config.ReadBool('Game', 'SFSDebug', False);
+  gSFSFastMode := config.ReadBool('Game', 'SFSFastMode', True);
 
 // Ãåéìïëåé â ñâîåé èãðå
   gcMap := config.ReadStr('GameplayCustom', 'Map', '');
@@ -535,6 +537,7 @@ begin
   config.WriteBool('Game', 'RevertPlayers', gRevertPlayers);
   config.WriteInt('Game', 'ChatBubble', gChatBubble);
   config.WriteBool('Game', 'SFSDebug', gSFSDebug);
+  config.WriteBool('Game', 'SFSFastMode', gSFSFastMode);
 
   config.WriteStr ('GameplayCustom', 'Map', gcMap);
   config.WriteStr ('GameplayCustom', 'GameMode', gcGameMode);

diff --git a/src/shared/WADEDITOR.pas b/src/shared/WADEDITOR.pas
index ac9e74781a103a295d65ade2b3b43b520ebe725a..5c9ca4f35a593c0b9691cce39096edf87f02a547 100644 (file)
--- a/src/shared/WADEDITOR.pas
+++ b/src/shared/WADEDITOR.pas
@@ -275,7 +275,14 @@ begin
   // cache this wad
   rfn := path+rfn;
   try
-    if not SFSAddDataFile(rfn) then exit;
+    if gSFSFastMode then
+    begin
+      if not SFSAddDataFile(rfn, true) then exit;
+    end
+    else
+    begin
+      if not SFSAddDataFileTemp(rfn, true) then exit;
+    end;
   except
     exit;
   end;
@@ -324,7 +331,7 @@ begin
 
   try
     st := TSFSMemoryStreamRO.Create(Data, Len);
-    if not SFSAddSubDataFile(fn, st) then
+    if not SFSAddSubDataFile(fn, st, true) then
     begin
       st.Free;
       Exit;