From 4b7a983868b2447702b82c0077bce1cb70cdc72b Mon Sep 17 00:00:00 2001
From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 2 Dec 2019 17:46:40 +0300
Subject: [PATCH] always save temp map before test

---
 src/editor/f_main.pas | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index d2f7b2e..4498ee9 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -6728,21 +6728,13 @@ end;
 
 procedure TMainForm.miTestMapClick(Sender: TObject);
 var
-  mapWAD, mapToRun, tempWAD: String;
+  mapWAD, tempWAD: String;
   args: SSArray;
   opt: LongWord;
   time, i: Integer;
   proc: TProcessUTF8;
   res: Boolean;
 begin
-  mapToRun := '';
-  if OpenedMap <> '' then
-  begin
-    // Указываем текущую карту для теста:
-    g_ProcessResourceStr(OpenedMap, @mapWAD, nil, @mapToRun);
-    mapToRun := mapWAD + ':\' + mapToRun;
-    mapToRun := ExtractRelativePath(ExtractFilePath(TestD2dExe) + 'maps/', mapToRun);
-  end;
   // Сохраняем временную карту:
   time := 0;
   repeat
@@ -6751,11 +6743,7 @@ begin
   until not FileExists(mapWAD);
   tempWAD := mapWAD + ':\' + TEST_MAP_NAME;
   SaveMap(tempWAD);
-
   tempWAD := ExtractRelativePath(ExtractFilePath(TestD2dExe) + 'maps/', tempWAD);
-// Если карта не была открыта, указываем временную в качестве текущей:
-  if mapToRun = '' then
-    mapToRun := tempWAD;
 
 // Опции игры:
   opt := 32 + 64;
@@ -6774,7 +6762,7 @@ begin
   proc := TProcessUTF8.Create(nil);
   proc.Executable := TestD2dExe;
   proc.Parameters.Add('-map');
-  proc.Parameters.Add(mapToRun);
+  proc.Parameters.Add(tempWAD);
   proc.Parameters.Add('-testmap');
   proc.Parameters.Add(tempWAD);
   proc.Parameters.Add('-gm');
-- 
2.29.2