X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=651675a2572865cb3fc2feeaeb657f963a9efbb5;hb=40aef8e7c0887d12cec058787540e83f0badf4dd;hp=8427dd30667efdf4cec6fae89589dde49f6b7f3d;hpb=dfd3e97bffa213f5b21206b8a292b80180bab948;p=d2df-sdl.git

diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index 8427dd3..992c023 100644
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -1,524 +1,382 @@
+(* Copyright (C)  Doom 2D: Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, version 3 of the License ONLY.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$INCLUDE ../shared/a_modes.inc}
 unit g_window;
 
 interface
 
 uses
-  WADEDITOR;
-
-function  SDLMain(): Integer;
-function  GetTimer(): Int64;
-procedure ResetTimer();
-function  CreateGLWindow(Title: PChar): Boolean;
-procedure KillGLWindow();
-procedure PushExitEvent();
-function  ProcessMessage(): Boolean;
-procedure ProcessLoading();
-procedure ReDrawWindow();
-procedure SwapBuffers();
-procedure Sleep(ms: LongWord);
-function  GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray;
-function  g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean;
-function  g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean;
+  utils;
 
-implementation
-
-uses
-  SDL, GL, GLExt, e_graphics, e_log, g_main,
-  g_console, SysUtils, e_input, g_options, g_game,
-  g_basic, g_textures, e_sound, g_sound, g_menu, ENet, g_net;
-
-var
-  h_Wnd: PSDL_Surface;
-  wFlags: LongWord = 0;
-  Time, Time_Delta, Time_Old: Int64;
-  flag: Boolean;
-  wNeedTimeReset: Boolean = False;
-  wWindowCreated: Boolean = False;
-  //wCursorShown: Boolean = False;
-  wMinimized: Boolean = False;
-  //wNeedFree: Boolean = True;
-  wLoadingProgress: Boolean = False;
-  wLoadingQuit: Boolean = False;
-  {wWinPause: Byte = 0;}
+function SDLMain (): Integer;
+procedure ResetTimer ();
+procedure ProcessLoading (forceUpdate: Boolean=false);
 
-const
-  // TODO: move this to a separate file
-  CP1251: array [0..127] of Word = (
-    $0402,$0403,$201A,$0453,$201E,$2026,$2020,$2021,$20AC,$2030,$0409,$2039,$040A,$040C,$040B,$040F,
-    $0452,$2018,$2019,$201C,$201D,$2022,$2013,$2014,$003F,$2122,$0459,$203A,$045A,$045C,$045B,$045F,
-    $00A0,$040E,$045E,$0408,$00A4,$0490,$00A6,$00A7,$0401,$00A9,$0404,$00AB,$00AC,$00AD,$00AE,$0407,
-    $00B0,$00B1,$0406,$0456,$0491,$00B5,$00B6,$00B7,$0451,$2116,$0454,$00BB,$0458,$0405,$0455,$0457,
-    $0410,$0411,$0412,$0413,$0414,$0415,$0416,$0417,$0418,$0419,$041A,$041B,$041C,$041D,$041E,$041F,
-    $0420,$0421,$0422,$0423,$0424,$0425,$0426,$0427,$0428,$0429,$042A,$042B,$042C,$042D,$042E,$042F,
-    $0430,$0431,$0432,$0433,$0434,$0435,$0436,$0437,$0438,$0439,$043A,$043B,$043C,$043D,$043E,$043F,
-    $0440,$0441,$0442,$0443,$0444,$0445,$0446,$0447,$0448,$0449,$044A,$044B,$044C,$044D,$044E,$044F
-  );
-
-// TODO: make a transition table or something
-function WCharToCP1251(wc: Word): Word;
 var
-  n: Word;
-begin
-  Result := 0;
-  for n := 0 to 127 do
-    if CP1251[n] = wc then begin Result := n; break end;
-  Result := Result + 128;
-end;
-
-function g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean;
-begin
-  Result := False;
+  gwin_dump_extensions: Boolean = false;
+  gwin_has_stencil: Boolean = false;
+  gwin_k8_enable_light_experiments: Boolean = false;
+  g_dbg_aimline_on: Boolean = false;
+  g_dbg_input: Boolean = False;
 
-  e_WriteLog('Setting display mode...', MSG_NOTIFY);
-
-  if wWindowCreated and PreserveGL then
-    e_SaveGLContext(); // we need this and restore because of a bug in SDL1.2, apparently
-
-  wFlags := SDL_RESIZABLE or SDL_OPENGL;
-  if gFullscreen then wFlags := wFlags or SDL_FULLSCREEN;
-
-  h_Wnd := SDL_SetVideoMode(gScreenWidth, gScreenHeight, gBPP, wFlags);
-  SDL_EnableUNICODE(SDL_ENABLE);
-  SDL_EnableKeyRepeat(SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
-  SDL_ShowCursor(SDL_DISABLE);
+implementation
 
-  if wWindowCreated and PreserveGL then
-    e_RestoreGLContext();
+uses
+{$IFDEF WINDOWS}Windows,{$ENDIF}
+{$IFDEF ENABLE_HOLMES}
+  g_holmes, sdlcarcass, fui_ctls,
+{$ENDIF}
+{$INCLUDE ../nogl/noGLuses.inc}
+  SysUtils, Classes, MAPDEF, Math,
+  e_graphics, e_log, e_texture, g_main,
+  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, xprofiler,
+  g_touch, g_gui, g_system;
 
-  Result := h_Wnd <> nil;
-end;
 
-procedure ReShowCursor();
-begin
-  // TODO: what was this for?
-end;
+const
+  ProgressUpdateMSecs = 35; //1;//100;
 
-function GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray;
 var
-  modesp: PPSDL_Rect;
-  tmpp: PSDL_Rect;
-  tmpr: SDL_Rect;
-  i: Integer;
-begin
-  SetLength(Result, 0);
-  modesp := SDL_ListModes(nil, SDL_FULLSCREEN or SDL_HWSURFACE);
-  if modesp = nil then exit;
-  if Pointer(-1) = modesp then exit;
-
-  tmpp := modesp^;
-  i := 0;
-  while tmpp <> nil do
-  begin
-    tmpr := tmpp^;
-    if (tmpr.w = gScreenWidth) and (tmpr.h = gScreenHeight) then
-      SelRes := i;
-    SetLength(Result, Length(Result) + 1);
-    Result[i] := IntToStr(tmpr.w) + 'x' + IntToStr(tmpr.h);
-
-    modesp := Pointer(Cardinal(modesp) + SizeOf(PSDL_Rect));
-    tmpp := modesp^;
-    Inc(i);
-  end;
-
-  e_WriteLog('SDL: Got ' + IntToStr(Length(Result)) + ' resolutions.', MSG_NOTIFY);
-end;
-
-procedure Sleep(ms: LongWord);
-begin
-  SDL_Delay(ms);
-end;
+  Time, Time_Delta, Time_Old: Int64;
+  flag: Boolean;
+  wNeedTimeReset: Boolean = false;
+  wMinimized: Boolean = false;
+  wMaximized: Boolean = false;
+  wLoadingProgress: Boolean = false;
+  wLoadingQuit: Boolean = false;
 
-procedure ChangeWindowSize();
+procedure ResetTimer ();
 begin
-  gWinSizeX := gScreenWidth;
-  gWinSizeY := gScreenHeight;
-  e_ResizeWindow(gScreenWidth, gScreenHeight);
-  g_Game_SetupScreenSize();
-  g_Menu_Reset();
-  g_Game_ClearLoading();
+  wNeedTimeReset := true;
 end;
 
-function g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean;
+{$IFNDEF HEADLESS}
 var
-  Preserve: Boolean;
-begin
-  Result := False;
-  Preserve := False;
-
-  if (gScreenWidth <> W) or (gScreenHeight <> H) then
-  begin
-    Result := True;
-    gScreenWidth := W;
-    gScreenHeight := H;
-  end;
+  prevLoadingUpdateTime: UInt64 = 0;
+{$ENDIF}
 
-  if gFullscreen <> FScreen then
-  begin
-    Result := True;
-    gFullscreen := FScreen;
-    Preserve := True;
-  end;
-
-  if Result then
-  begin
-    g_Window_SetDisplay(Preserve);
-    ChangeWindowSize();
-  end;
-end;
-
-function EventHandler(ev: TSDL_Event): Boolean;
+procedure ProcessLoading (forceUpdate: Boolean=false);
 var
-  key, keychr: Word;
-  //joy: Integer;
+{$IFNDEF HEADLESS}
+//  ev: TSDL_Event;
+  stt: UInt64;
+{$ENDIF}
 begin
-  Result := False;
-  case ev.type_ of
-    SDL_VIDEORESIZE:
-    begin
-      g_Window_SetSize(ev.resize.w, ev.resize.h, gFullscreen);
-      e_Clear();
-    end;
-
-    SDL_ACTIVEEVENT:
-    begin
-      if (ev.active.gain = 0) then
-      begin
-        if g_debug_WinMsgs then
-        begin
-          g_Console_Add('Inactive');
-          e_WriteLog('[DEBUG] WinMsgs: Inactive', MSG_NOTIFY);
-        end;
-
-        if LongBool(ev.active.state and SDL_APPINPUTFOCUS) and gWinActive then
-        begin
-          e_EnableInput := False;
-          e_ClearInputBuffer();
-
-          if gMuteWhenInactive then
-            e_MuteChannels(True);
-
-          if g_debug_WinMsgs then
-          begin
-            g_Console_Add('Inactive indeed');
-            e_WriteLog('[DEBUG] WinMsgs: Inactive indeed', MSG_NOTIFY);
-          end;
-
-          gWinActive := False;
-        end;
-
-        if LongBool(ev.active.state and SDL_APPACTIVE) and (not wMinimized) then
-        begin
-          e_ResizeWindow(0, 0);
-          wMinimized := True;
-
-          if g_debug_WinMsgs then
-          begin
-            g_Console_Add('Minimized indeed');
-            e_WriteLog('[DEBUG] WinMsgs: Minimized indeed', MSG_NOTIFY);
-          end;
-        end;
-      end
-      else
-      begin
-        if g_debug_WinMsgs then
-        begin
-          g_Console_Add('Active');
-          e_WriteLog('[DEBUG] WinMsgs: Active', MSG_NOTIFY);
-        end;
-
-        // Åñëè îêíî áûëî íåàêòèâíûì:
-        if LongBool(ev.active.state and SDL_APPINPUTFOCUS) and (not gWinActive) then
-        begin
-          e_EnableInput := True;
-
-          if gMuteWhenInactive then
-            e_MuteChannels(False);
-
-          if g_debug_WinMsgs then
-          begin
-            g_Console_Add('Active indeed');
-            e_WriteLog('[DEBUG] WinMsgs: Active indeed', MSG_NOTIFY);
-          end;
-
-          gWinActive := True;
-        end;
-
-        if LongBool(ev.active.state and SDL_APPACTIVE) and wMinimized then
-        begin
-          e_ResizeWindow(gScreenWidth, gScreenHeight);
-
-          wMinimized := False;
-
-          if g_debug_WinMsgs then
-          begin
-            g_Console_Add('Restored indeed');
-            e_WriteLog('[DEBUG] WinMsgs: Restored indeed', MSG_NOTIFY);
-          end;
-        end;
-      end;
-    end;
-
-    SDL_VIDEOEXPOSE:
+//  FillChar(ev, sizeof(ev), 0);
+  wLoadingProgress := true;
+
+//  while (SDL_PollEvent(@ev) > 0) do
+//  begin
+//    EventHandler(ev);
+//    if (ev.type_ = SDL_QUITEV) then break;
+//  end;
+  //e_PollJoysticks();
+
+//  if (ev.type_ = SDL_QUITEV) or (gExit = EXIT_QUIT) then
+//  begin
+//    wLoadingProgress := false;
+//    exit;
+//  end;
+
+{$IFNDEF HEADLESS}
+  if not wMinimized then
+  begin
+    if not forceUpdate then
     begin
-      // TODO: the fuck is this event?
-      // Draw();
+      stt := getTimeMilli();
+      forceUpdate := (stt < prevLoadingUpdateTime) or (stt-prevLoadingUpdateTime >= ProgressUpdateMSecs);
     end;
 
-    SDL_QUITEV:
+    if forceUpdate then
     begin
-      if gExit <> EXIT_QUIT then
-      begin
-        if not wLoadingProgress then
-        begin
-          g_Game_Free();
-          g_Game_Quit();
-        end
-        else
-          wLoadingQuit := True;
-      end;
-      Result := True;
-    end;
+      DrawMenuBackground('INTER');
+      e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
 
-    SDL_KEYDOWN:
-    begin
-      key := ev.key.keysym.sym;
-      keychr := ev.key.keysym.unicode;
-      KeyPress(key);
-      if (keychr > 7) and (key <> IK_BACKSPACE) then
-      begin
-        if (keychr >= 128) then
-          keychr := WCharToCP1251(keychr);
-        CharPress(Chr(keychr));
-      end;
+      DrawLoadingStat();
+      g_Console_Draw(True);
+      sys_Repaint;
+      prevLoadingUpdateTime := getTimeMilli();
     end;
-
-    // key presses and joysticks are handled in e_input
   end;
-end;
+{$ENDIF}
 
-procedure SwapBuffers();
-begin
-  SDL_GL_SwapBuffers();
-end;
-
-procedure KillGLWindow();
-begin
-  wWindowCreated := False;
-end;
-
-function CreateGLWindow(Title: PChar): Boolean;
-//var
-//  flags: LongWord;
-begin
-  Result := False;
-
-  gWinSizeX := gScreenWidth;
-  gWinSizeY := gScreenHeight;
-
-  e_WriteLog('Creating window', MSG_NOTIFY);
-
-  if not g_Window_SetDisplay() then
-  begin
-    KillGLWindow();
-    e_WriteLog('Window creation error (resolution not supported?)', MSG_FATALERROR);
-    exit;
-  end;
-
-  SDL_WM_SetCaption(Title, Title);
-  wWindowCreated := True;
-
-  e_ResizeWindow(gScreenWidth, gScreenHeight);
-  e_InitGL();
-
-  Result := True;
-end;
-
-function GetTimer(): Int64;
-begin
-  Result := SDL_GetTicks() * 1000; // TODO: do we really need microseconds here?
-end;
-
-procedure ResetTimer();
-begin
-  wNeedTimeReset := True;
-end;
-
-procedure PushExitEvent();
-var
-  ev: TSDL_Event;
-begin
-  ev.type_ := SDL_QUITEV;
-  SDL_PushEvent(@ev);
-end;
-
-procedure ProcessLoading();
-var
-  ev: TSDL_Event;
-  ID: DWORD;
-begin
-  FillChar(ev, SizeOf(ev), 0);
-  //wNeedFree := False;
-  wLoadingProgress := True;
-  while SDL_PollEvent(@ev) > 0 do
-  begin
-    if (ev.type_ = SDL_QUITEV) then
-      break;
-  end;
-  //wNeedFree := True;
+  e_SoundUpdate();
 
-  if (ev.type_ = SDL_QUITEV) or (gExit = EXIT_QUIT) then
+  if NetMode = NET_SERVER then
   begin
-    wLoadingProgress := False;
-    exit;
-  end;
-
-  if not wMinimized then
+    g_Net_Host_Update();
+  end
+  else
   begin
-    if g_Texture_Get('INTER', ID) then
-      e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
-    else
-      e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
-
-    DrawLoadingStat();
-    SwapBuffers();
-
-    ReShowCursor();
+    if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then g_Net_Client_UpdateWhileLoading();
   end;
 
-  e_SoundUpdate();
-
-  if NetMode = NET_SERVER then
-    g_Net_Host_Update
-  else
-    if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then
-      g_Net_Client_UpdateWhileLoading;
-  wLoadingProgress := False;
+  wLoadingProgress := false;
 end;
 
-function ProcessMessage(): Boolean;
+
+function ProcessMessage (): Boolean;
 var
   i, t: Integer;
-  ev: TSDL_Event;
 begin
-  Result := False;
-  FillChar(ev, SizeOf(ev), 0);
-
-  while SDL_PollEvent(@ev) > 0 do
-  begin
-    Result := EventHandler(ev);
-    if ev.type_ = SDL_QUITEV then exit;
-  end;
+  result := sys_HandleInput();
 
-  Time := GetTimer();
-  Time_Delta := Time - Time_Old;
+  Time := sys_GetTicks();
+  Time_Delta := Time-Time_Old;
 
-  flag := False;
+  flag := false;
 
   if wNeedTimeReset then
   begin
-    Time_Delta := 27777;
-    wNeedTimeReset := False;
+    Time_Delta := 28;
+    wNeedTimeReset := false;
   end;
 
-  t := Time_Delta div 27777;
-  if t > 0 then
+  g_Map_ProfilersBegin();
+  g_Mons_ProfilersBegin();
+
+  t := Time_Delta div 28;
+  if (t > 0) then
   begin
-    flag := True;
+    flag := true;
     for i := 1 to t do
     begin
-      if NetMode = NET_SERVER then g_Net_Host_Update()
-      else if NetMode = NET_CLIENT then g_Net_Client_Update();
+           if (NetMode = NET_SERVER) then g_Net_Host_Update()
+      else if (NetMode = NET_CLIENT) then g_Net_Client_Update();
       Update();
     end;
   end
   else
   begin
-    if NetMode = NET_SERVER then g_Net_Host_Update()
-    else if NetMode = NET_CLIENT then g_Net_Client_Update();
+         if (NetMode = NET_SERVER) then g_Net_Host_Update()
+    else if (NetMode = NET_CLIENT) then g_Net_Client_Update();
   end;
 
+  if NetMode = NET_SERVER then g_Net_Flush();
+
+  g_Map_ProfilersEnd();
+  g_Mons_ProfilersEnd();
+
   if wLoadingQuit then
   begin
     g_Game_Free();
     g_Game_Quit();
   end;
 
-  if gExit = EXIT_QUIT then
+  if (gExit = EXIT_QUIT) then
   begin
-    Result := True;
-    Exit;
+    result := true;
+    exit;
   end;
 
-// Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ:
+  // Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ
   if flag then
   begin
-    Time_Old := Time - (Time_Delta mod 27777);
+    Time_Old := Time - (Time_Delta mod 28);
     if (not wMinimized) then
     begin
-      Draw();
-      SwapBuffers();
-      ReShowCursor();
-    end;
+      Draw;
+      sys_Repaint
+    end
   end
   else
-    Sleep(1);
+  begin
+    sys_Delay(1) // release time slice, so we won't eat 100% CPU
+  end;
 
   e_SoundUpdate();
 end;
 
-procedure ReDrawWindow;
+function GLExtensionList (): SSArray;
+  var s: PChar; i, j, num: GLint;
 begin
-  SwapBuffers();
-  ReShowCursor();
+  result := nil;
+  s := glGetString(GL_EXTENSIONS);
+  if s <> nil then
+  begin
+    num := 0; i := 0; j := 0;
+    while s[i] <> #0 do
+    begin
+      while (s[i] <> #0) and (s[i] <> ' ') do Inc(i);
+      SetLength(result, num + 1);
+      result[num] := Copy(s, j, i - j);
+      while (s[i] <> #0) and (s[i] = ' ') do Inc(i);
+      j := i;
+      Inc(num)
+    end
+  end
 end;
 
-procedure InitOpenGL(VSync: Boolean);
-var
-  v: Byte;
+function GLExtensionSupported (ext: AnsiString): Boolean;
+  var i, len: GLint; exts: SSArray;
 begin
-  if VSync then v := 1 else v := 0;
-  SDL_GL_SetAttribute(SDL_GL_RED_SIZE, 8);
-  SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE, 8);
-  SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE, 8);
-  SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE, 16);
-  SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
-  SDL_GL_SetAttribute(SDL_GL_SWAP_CONTROL, v);
+  result := false;
+  exts := GLExtensionList();
+  if exts <> nil then
+  begin
+    i := 0; len := Length(exts);
+    while (i < len) and (exts[i] <> ext) do Inc(i);
+    result := i < len
+  end
 end;
 
-function SDLMain(): Integer;
+procedure PrintGLSupportedExtensions;
 begin
-  e_WriteLog('Creating GL window', MSG_NOTIFY);
-  if not CreateGLWindow(PChar(Format('Doom 2D: Forever %s', [GAME_VERSION]))) then
+  e_LogWritefln('GL Vendor: %s', [glGetString(GL_VENDOR)]);
+  e_LogWritefln('GL Renderer: %s', [glGetString(GL_RENDERER)]);
+  e_LogWritefln('GL Version: %s', [glGetString(GL_VERSION)]);
+  e_LogWritefln('GL Shaders: %s', [glGetString(GL_SHADING_LANGUAGE_VERSION)]);
+  e_LogWritefln('GL Extensions: %s', [glGetString(GL_EXTENSIONS)]);
+end;
+
+function SDLMain (): Integer;
+var
+  idx: Integer;
+  {$IF not DEFINED(HEADLESS)}
+  ltmp: Integer;
+  {$ENDIF}
+  arg: AnsiString;
+  mdfo: TStream;
+  {$IFDEF ENABLE_HOLMES}
+  itmp: Integer;
+  valres: Word;
+  {$ENDIF}
+begin
+{$IFDEF HEADLESS}
+  e_NoGraphics := true;
+{$ELSE}
+  {$IFDEF ENABLE_HOLMES}
+    if (not g_holmes_imfunctional) then
+    begin
+      uiInitialize();
+      uiContext.font := 'win14';
+    end;
+  {$ENDIF}
+{$ENDIF}
+
+  idx := 1;
+  while (idx <= ParamCount) do
   begin
-    Result := 0;
-    exit;
-  end;
+    arg := ParamStr(idx);
+    Inc(idx);
+    if arg = '--opengl-dump-exts' then gwin_dump_extensions := true;
+    //if arg = '--twinkletwinkle' then gwin_k8_enable_light_experiments := true;
+    if arg = '--jah' then g_profile_history_size := 100;
+    if arg = '--no-particles' then gpart_dbg_enabled := false;
+    if arg = '--no-los' then gmon_dbg_los_enabled := false;
+
+    if arg = '--profile-render' then g_profile_frame_draw := true;
+    if arg = '--profile-coldet' then g_profile_collision := true;
+    if arg = '--profile-los' then g_profile_los := true;
+
+    if arg = '--no-part-phys' then gpart_dbg_phys_enabled := false;
+    if arg = '--no-part-physics' then gpart_dbg_phys_enabled := false;
+    if arg = '--no-particles-phys' then gpart_dbg_phys_enabled := false;
+    if arg = '--no-particles-physics' then gpart_dbg_phys_enabled := false;
+    if arg = '--no-particle-phys' then gpart_dbg_phys_enabled := false;
+    if arg = '--no-particle-physics' then gpart_dbg_phys_enabled := false;
+
+    if arg = '--debug-input' then g_dbg_input := True;
+
+    {.$IF DEFINED(D2F_DEBUG)}
+    if arg = '--aimline' then g_dbg_aimline_on := true;
+    {.$ENDIF}
+
+{$IFDEF ENABLE_HOLMES}
+    if arg = '--holmes' then begin g_holmes_enabled := true; g_Game_SetDebugMode(); end;
+
+    if (arg = '--holmes-ui-scale') or (arg = '-holmes-ui-scale') then
+    begin
+      if (idx <= ParamCount) then
+      begin
+        if not conParseFloat(fuiRenderScale, ParamStr(idx)) then fuiRenderScale := 1.0;
+        Inc(idx);
+      end;
+    end;
 
-  e_WriteLog('Initializing OpenGL', MSG_NOTIFY);
-  InitOpenGL(gVSync);
+    if (arg = '--holmes-font') or (arg = '-holmes-font') then
+    begin
+      if (idx <= ParamCount) then
+      begin
+        itmp := 0;
+        val(ParamStr(idx), itmp, valres);
+        {$IFNDEF HEADLESS}
+        if (valres = 0) and (not g_holmes_imfunctional) then
+        begin
+          case itmp of
+            8: uiContext.font := 'win8';
+            14: uiContext.font := 'win14';
+            16: uiContext.font := 'win16';
+          end;
+        end;
+        {$ELSE}
+        // fuck off, fpc!
+        itmp := itmp;
+        valres := valres;
+        {$ENDIF}
+        Inc(idx);
+      end;
+    end;
+{$ENDIF}
 
-  {EnumDisplayModes();}
+    if (arg = '--game-scale') or (arg = '-game-scale') then
+    begin
+      if (idx <= ParamCount) then
+      begin
+        if not conParseFloat(g_dbg_scale, ParamStr(idx)) then g_dbg_scale := 1.0;
+        Inc(idx);
+      end;
+    end;
 
-  Init();
-  Time_Old := GetTimer();
+    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;
 
-// Êîìàíäíàÿ ñòðîêà:
-  if ParamCount > 0 then
-    g_Game_Process_Params();
+  PrintGLSupportedExtensions;
+  glLegacyNPOT := GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot');
+  e_logWritefln('NPOT textures: %s', [glLegacyNPOT]);
+  gwin_dump_extensions := false;
 
-// Çàïðîñ ÿçûêà:
-  if (not gGameOn) and gAskLanguage then
-    g_Menu_AskLanguage();
+  Init;
+  Time_Old := sys_GetTicks();
 
-  e_WriteLog('Entering the main loop', MSG_NOTIFY);
+  // Êîìàíäíàÿ ñòðîêà
+  if (ParamCount > 0) then g_Game_Process_Params();
 
-  while not ProcessMessage() do
-    { Main Loop } ;
+{$IFNDEF HEADLESS}
+  // Çàïðîñ ÿçûêà
+  if (not gGameOn) and gAskLanguage then g_Menu_AskLanguage();
+{$ENDIF}
 
-  Release();
-  KillGLWindow();
+  e_WriteLog('Entering the main loop', TMsgType.Notify);
+
+  // main loop
+  while not ProcessMessage() do begin end;
 
-  Result := 0;
+  Release();
+  result := 0;
 end;
 
+
+initialization
+  conRegVar('d_input', @g_dbg_input, '', '')
 end.