From: Ketmar Dark Date: Wed, 6 Sep 2017 20:41:29 +0000 (+0300) Subject: "--write-mapdef" cli arg to write "mapdef.txt" and exit X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=ae649f7ffbf9dae5ec6d307b9580d57b844cc0b1;p=d2df-sdl.git "--write-mapdef" cli arg to write "mapdef.txt" and exit --- diff --git a/src/game/g_window.pas b/src/game/g_window.pas index 52363d0..ec3f116 100644 --- a/src/game/g_window.pas +++ b/src/game/g_window.pas @@ -47,8 +47,9 @@ implementation uses {$IFDEF WINDOWS}Windows,{$ENDIF} + SysUtils, Classes, MAPDEF, SDL2, GL, GLExt, e_graphics, e_log, g_main, - g_console, SysUtils, e_input, g_options, g_game, + g_console, e_input, g_options, g_game, g_basic, g_textures, e_sound, g_sound, g_menu, ENet, g_net, g_map, g_gfx, g_monsters, g_holmes, xprofiler, utils; @@ -822,6 +823,7 @@ var idx: Integer; ltmp: Integer; arg: AnsiString; + mdfo: TStream; begin {$IFDEF HEADLESS} e_NoGraphics := True; @@ -873,6 +875,14 @@ begin end; end; {$ENDIF} + + if (arg = '--write-mapdef') or (arg = '-write-mapdef') then + begin + mdfo := createDiskFile('mapdef.txt'); + mdfo.WriteBuffer(defaultMapDef[1], Length(defaultMapDef)); + mdfo.Free(); + Halt(0); + end; end; e_WriteLog('Initializing OpenGL', MSG_NOTIFY);