"-dbg-mainwad" cli arg

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

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 90332cab6501a7a09ce47d03ac833625a09834c6..ef7402b4d57cefca5af98a2f1b2583e0e1e628fb 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -6923,6 +6923,12 @@ begin
     Exit;
   end;
 
+  s := LowerCase(Find_Param_Value(pars, '-dbg-mainwad'));
+  if (s <> '') then
+  begin
+    gDefaultMegawadStart := s;
+  end;
+
 // Start map when game loads:
   map := LowerCase(Find_Param_Value(pars, '-map'));
   if isWadPath(map) then