From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Mon, 25 Nov 2019 15:24:28 +0000 (+0300)
Subject: fix split screen for default megawad
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=d985a32a91a55643f61e83e9ed412686906977ca;p=d2df-sdl.git

fix split screen for default megawad
---

diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index cdf0f13..3cfec36 100644
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -1281,13 +1281,14 @@ end;
 procedure ProcSinglePlayer (n: Integer);
   var wad, map: AnsiString;
 begin
+  assert(n >= 1);
   wad := g_ExtractWadName(gDefaultMegawadStart);
   map := g_ExtractFilePathName(gDefaultMegawadStart);
   if e_FindResource(AllMapDirs, wad) then
   begin
     wad := ExpandFileName(wad);
-    g_Game_StartSingle(wad + ':\' + map, False, n);
-  end;
+    g_Game_StartSingle(wad + ':\' + map, n > 1, n)
+  end
 end;
 
 procedure ProcSingle1Player;