X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=bfd4377830c271bc278fe5480357782093cec5f7;hb=d0936017ccb8a078d1b03f55478af284bb015bbc;hp=ec3f1167d39f5d2709e44f06edf94ac361125bda;hpb=ae649f7ffbf9dae5ec6d307b9580d57b844cc0b1;p=d2df-sdl.git

diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index ec3f116..bfd4377 100644
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -1,9 +1,8 @@
-(* Copyright (C)  DooM 2D:Forever Developers
+(* 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, either version 3 of the License, or
- * (at your option) any later version.
+ * 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
@@ -19,704 +18,162 @@ unit g_window;
 interface
 
 uses
-  wadreader;
-
-function  SDLMain(): Integer;
-function  GetTimer(): Int64;
-procedure ResetTimer();
-function  CreateGLWindow(Title: PChar): Boolean;
-procedure KillGLWindow();
-procedure PushExitEvent();
-function  ProcessMessage(): Boolean;
+  utils;
+
+function SDLMain (): Integer;
+procedure ResetTimer ();
 procedure ProcessLoading (forceUpdate: Boolean=false);
-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;
 
 var
-  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;
 
 implementation
 
 uses
 {$IFDEF WINDOWS}Windows,{$ENDIF}
-  SysUtils, Classes, MAPDEF,
-  SDL2, GL, GLExt, e_graphics, e_log, g_main,
-  g_console, e_input, g_options, g_game,
+{$IFDEF ENABLE_HOLMES}
+  g_holmes, sdlcarcass, fui_ctls,
+{$ENDIF}
+  SysUtils, Classes, MAPDEF, Math, r_graphics,
+  r_window, e_log, r_game,
+  g_console, r_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;
+  g_map, g_gfx, g_monsters, xprofiler,
+  g_touch, g_gui, g_system, g_netmaster;
 
 var
-  h_Wnd: PSDL_Window;
-  h_GL: TSDL_GLContext;
-  wFlags: LongWord = 0;
   Time, Time_Delta, Time_Old: Int64;
+  Frame: Int64;
   flag: Boolean;
-  wTitle: PChar = nil;
-  wNeedTimeReset: Boolean = False;
-  //wWindowCreated: Boolean = False;
-  //wCursorShown: Boolean = False;
-  wMinimized: Boolean = False;
-  //wNeedFree: Boolean = True;
-  wLoadingProgress: Boolean = False;
-  wLoadingQuit: Boolean = False;
-  {wWinPause: Byte = 0;}
-{$IFNDEF WINDOWS}
-  ticksOverflow: Int64 = -1;
-  lastTicks: Uint32 = 0; // to detect overflow
-{$ENDIF}
-  curMsButState: Word = 0;
-  curKbState: Word = 0;
-  curMsX: Integer = 0;
-  curMsY: Integer = 0;
+  wNeedTimeReset: Boolean = false;
+  wLoadingQuit: Boolean = false;
 
-function g_Window_SetDisplay(PreserveGL: Boolean = False): Boolean;
-var
-  mode, cmode: TSDL_DisplayMode;
+procedure Update ();
 begin
-{$IFDEF HEADLESS}
-  Result := True;
-  Exit;
-{$ENDIF}
-
-  Result := False;
-
-  e_WriteLog('Setting display mode...', MSG_NOTIFY);
-
-  wFlags := SDL_WINDOW_OPENGL or SDL_WINDOW_RESIZABLE;
-  if gFullscreen then wFlags := wFlags or SDL_WINDOW_FULLSCREEN;
-  if gWinMaximized then wFlags := wFlags or SDL_WINDOW_MAXIMIZED;
-
-  if h_Wnd <> nil then
-  begin
-    SDL_DestroyWindow(h_Wnd);
-    h_Wnd := nil;
-  end;
-
-  if gFullscreen then
-  begin
-    mode.w := gScreenWidth;
-    mode.h := gScreenHeight;
-    mode.format := 0;
-    mode.refresh_rate := 0;
-    mode.driverdata := nil;
-    if SDL_GetClosestDisplayMode(0, @mode, @cmode) = nil then
-    begin
-      gScreenWidth := 800;
-      gScreenHeight := 600;
-    end
-    else
-    begin
-      gScreenWidth := cmode.w;
-      gScreenHeight := cmode.h;
-    end;
-  end;
-
-  h_Wnd := SDL_CreateWindow(PChar(wTitle), gWinRealPosX, gWinRealPosY, gScreenWidth, gScreenHeight, wFlags);
-  if h_Wnd = nil then Exit;
-
-  SDL_GL_MakeCurrent(h_Wnd, h_GL);
-  SDL_ShowCursor(SDL_DISABLE);
-
-  Result := True;
+  // remember old mobj positions, prepare for update
+  g_Game_PreUpdate();
+  // server: receive client commands for new frame
+  // client: receive game state changes from server
+       if (NetMode = NET_SERVER) then g_Net_Host_Update()
+  else if (NetMode = NET_CLIENT) then g_Net_Client_Update();
+  // think
+  g_Game_Update();
+  // server: send any accumulated outgoing data to clients
+  if NetMode = NET_SERVER then g_Net_Flush();
 end;
 
-procedure ReShowCursor();
-begin
-  // TODO: what was this for?
-end;
-
-function GetDisplayModes(dBPP: DWORD; var SelRes: DWORD): SArray;
-var
-  mode: TSDL_DisplayMode;
-  res, i, k, n, pw, ph: Integer;
-begin
-  SetLength(Result, 0);
-  {$IFDEF HEADLESS}Exit;{$ENDIF}
-  k := 0; SelRes := 0;
-  n := SDL_GetNumDisplayModes(0);
-  pw := 0; ph := 0;
-  for i := 0 to n do
-  begin
-    res := SDL_GetDisplayMode(0, i, @mode);
-    if res < 0 then continue;
-    if SDL_BITSPERPIXEL(mode.format) = gBPP then continue;
-    if (mode.w = pw) and (mode.h = ph) then continue;
-    if (mode.w = gScreenWidth) and (mode.h = gScreenHeight) then
-      SelRes := k;
-    Inc(k);
-    SetLength(Result, k);
-    Result[k-1] := IntToStr(mode.w) + 'x' + IntToStr(mode.h);
-    pw := mode.w; ph := mode.h
-  end;
-
-  e_WriteLog('SDL: Got ' + IntToStr(k) + ' resolutions.', MSG_NOTIFY);
-end;
 
-procedure Sleep(ms: LongWord);
+procedure Draw ();
 begin
-  SDL_Delay(ms);
+  r_Game_Draw();
 end;
 
-procedure ChangeWindowSize();
-begin
-  gWinSizeX := gScreenWidth;
-  gWinSizeY := gScreenHeight;
-  {$IFDEF HEADLESS}Exit;{$ENDIF}
-  e_ResizeWindow(gScreenWidth, gScreenHeight);
-  g_Game_SetupScreenSize();
-  g_Menu_Reset();
-  g_Game_ClearLoading();
-  g_Holmes_VidModeChanged();
-end;
 
-function g_Window_SetSize(W, H: Word; FScreen: Boolean): Boolean;
+procedure Init();
 var
-  Preserve: Boolean;
+  NoSound: Boolean;
 begin
-  Result := False;
-  {$IFDEF HEADLESS}Exit;{$ENDIF}
-  Preserve := False;
-
-  if (gScreenWidth <> W) or (gScreenHeight <> H) then
-  begin
-    Result := True;
-    gScreenWidth := W;
-    gScreenHeight := H;
-  end;
-
-  if gFullscreen <> FScreen then
-  begin
-    Result := True;
-    gFullscreen := FScreen;
-    Preserve := True;
-  end;
-
-  if Result then
-  begin
-    g_Window_SetDisplay(Preserve);
-    ChangeWindowSize();
-  end;
-end;
-
-function WindowEventHandler(ev: TSDL_WindowEvent): Boolean;
-var
-  wActivate, wDeactivate: Boolean;
-begin
-  Result := False;
-  wActivate := False;
-  wDeactivate := False;
-
-  case ev.event of
-    SDL_WINDOWEVENT_MOVED:
-    begin
-      if not (gFullscreen or gWinMaximized) then
-      begin
-        gWinRealPosX := ev.data1;
-        gWinRealPosY := ev.data2;
-      end;
-    end;
-
-    SDL_WINDOWEVENT_MINIMIZED:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      e_UnpressAllKeys();
-      if not wMinimized then
-      begin
-        e_ResizeWindow(0, 0);
-        wMinimized := True;
-
-        if g_debug_WinMsgs then
-        begin
-          g_Console_Add('Now minimized');
-          e_WriteLog('[DEBUG] WinMsgs: Now minimized', MSG_NOTIFY);
-        end;
-        wDeactivate := True;
-      end;
-    end;
-
-    SDL_WINDOWEVENT_RESIZED:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      gScreenWidth := ev.data1;
-      gScreenHeight := ev.data2;
-      ChangeWindowSize();
-      SwapBuffers();
-      if g_debug_WinMsgs then
-      begin
-        g_Console_Add('Resized to ' + IntToStr(ev.data1) + 'x' + IntToStr(ev.data2));
-        e_WriteLog('[DEBUG] WinMsgs: Resized to ' + IntToStr(ev.data1) + 'x' + IntToStr(ev.data2), MSG_NOTIFY);
-      end;
-    end;
-
-    SDL_WINDOWEVENT_EXPOSED:
-      SwapBuffers();
-
-    SDL_WINDOWEVENT_MAXIMIZED:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      if wMinimized then
-      begin
-        e_ResizeWindow(gScreenWidth, gScreenHeight);
-        wMinimized := False;
-        wActivate := True;
-      end;
-      if not gWinMaximized then
-      begin
-        gWinMaximized := True;
-        if g_debug_WinMsgs then
-        begin
-          g_Console_Add('Now maximized');
-          e_WriteLog('[DEBUG] WinMsgs: Now maximized', MSG_NOTIFY);
-        end;
-      end;
-    end;
-
-    SDL_WINDOWEVENT_RESTORED:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      if wMinimized then
-      begin
-        e_ResizeWindow(gScreenWidth, gScreenHeight);
-        wMinimized := False;
-        wActivate := True;
-      end;
-      if gWinMaximized then
-        gWinMaximized := False;
-      if g_debug_WinMsgs then
-      begin
-        g_Console_Add('Now restored');
-        e_WriteLog('[DEBUG] WinMsgs: Now restored', MSG_NOTIFY);
-      end;
-    end;
-
-    SDL_WINDOWEVENT_FOCUS_GAINED:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      wActivate := True;
-      //e_WriteLog('window gained focus!', MSG_NOTIFY);
-      g_Holmes_WindowFocused();
-    end;
-
-    SDL_WINDOWEVENT_FOCUS_LOST:
-    begin
-      curMsButState := 0;
-      curKbState := 0;
-      wDeactivate := True;
-      e_UnpressAllKeys();
-      //e_WriteLog('window lost focus!', MSG_NOTIFY);
-      g_Holmes_WindowBlured();
-    end;
-  end;
-
-  if wDeactivate then
-  begin
-    if gWinActive then
-    begin
-      e_WriteLog('deactivating window', MSG_NOTIFY);
-      e_EnableInput := False;
-      e_ClearInputBuffer();
+  Randomize;
 
-      if gMuteWhenInactive then
-      begin
-        //e_WriteLog('deactivating sounds', MSG_NOTIFY);
-        e_MuteChannels(True);
-      end;
-
-      if g_debug_WinMsgs then
-      begin
-        g_Console_Add('Now inactive');
-        e_WriteLog('[DEBUG] WinMsgs: Now inactive', MSG_NOTIFY);
-      end;
-
-      gWinActive := False;
-    end;
-  end
-  else if wActivate then
-  begin
-    if not gWinActive then
-    begin
-      //e_WriteLog('activating window', MSG_NOTIFY);
-      e_EnableInput := True;
-
-      if gMuteWhenInactive then
-      begin
-        //e_WriteLog('activating sounds', MSG_NOTIFY);
-        e_MuteChannels(False);
-      end;
-
-      if g_debug_WinMsgs then
-      begin
-        g_Console_Add('Now active');
-        e_WriteLog('[DEBUG] WinMsgs: Now active', MSG_NOTIFY);
-      end;
-
-      gWinActive := True;
-    end;
-  end;
-end;
+{$IFDEF HEADLESS}
+ {$IFDEF USE_SDLMIXER}
+  NoSound := False; // hope env has set SDL_AUDIODRIVER to dummy
+ {$ELSE}
+  NoSound := True; // FMOD backend will sort it out
+ {$ENDIF}
+{$ELSE}
+  NoSound := False;
+{$ENDIF}
 
-function EventHandler(ev: TSDL_Event): Boolean;
-var
-  key, keychr: Word;
-  uc: UnicodeChar;
-  //joy: Integer;
-  msev: THMouseEvent;
-  kbev: THKeyEvent;
+  g_Touch_Init;
 
-  function buildBut (b: Byte): Word;
-  begin
-    result := 0;
-    case b of
-      SDL_BUTTON_LEFT: result := result or THMouseEvent.Left;
-      SDL_BUTTON_MIDDLE: result := result or THMouseEvent.Middle;
-      SDL_BUTTON_RIGHT: result := result or THMouseEvent.Right;
-    end;
-  end;
+(*
+  if (e_JoysticksAvailable > 0) then
+    e_WriteLog('Input: Joysticks available.', TMsgType.Notify)
+  else
+    e_WriteLog('Input: No Joysticks.', TMsgType.Notify);
+*)
 
-  procedure updateKBState ();
-  var
-    kbstate: PUint8;
+  if (not gNoSound) then
   begin
-    curKbState := 0;
-    kbstate := SDL_GetKeyboardState(nil);
-    if (kbstate[SDL_SCANCODE_LCTRL] <> 0) or (kbstate[SDL_SCANCODE_RCTRL] <> 0) then curKbState := curKbState or THKeyEvent.ModCtrl;
-    if (kbstate[SDL_SCANCODE_LALT] <> 0) or (kbstate[SDL_SCANCODE_RALT] <> 0) then curKbState := curKbState or THKeyEvent.ModAlt;
-    if (kbstate[SDL_SCANCODE_LSHIFT] <> 0) or (kbstate[SDL_SCANCODE_RSHIFT] <> 0) then curKbState := curKbState or THKeyEvent.ModShift;
-  end;
-
-begin
-  Result := False;
-  updateKBState();
-
-  case ev.type_ of
-    SDL_WINDOWEVENT:
-      Result := WindowEventHandler(ev.window);
-
-    SDL_QUITEV:
-      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;
-
-    SDL_KEYDOWN, SDL_KEYUP:
-      begin
-        key := ev.key.keysym.scancode;
-        if (g_holmes_enabled) then
-        begin
-          if (ev.type_ = SDL_KEYDOWN) then kbev.kind := THKeyEvent.Press else kbev.kind := THKeyEvent.Release;
-          kbev.scan := ev.key.keysym.scancode;
-          kbev.sym := ev.key.keysym.sym;
-          kbev.bstate := curMsButState;
-          kbev.kstate := curKbState;
-          {$IF not DEFINED(HEADLESS)}
-          if g_Holmes_keyEvent(kbev) then
-          begin
-            if (ev.type_ <> SDL_KEYDOWN) then e_KeyUpDown(ev.key.keysym.scancode, false);
-            exit;
-          end;
-          {$ENDIF}
-        end;
-        if (ev.type_ = SDL_KEYDOWN) then KeyPress(key);
-        e_KeyUpDown(ev.key.keysym.scancode, (ev.type_ = SDL_KEYDOWN));
-      end;
-
-    {$IF not DEFINED(HEADLESS)}
-    SDL_MOUSEBUTTONDOWN, SDL_MOUSEBUTTONUP:
-      begin
-        msev.dx := ev.button.x-curMsX;
-        msev.dy := ev.button.y-curMsY;
-        curMsX := ev.button.x;
-        curMsY := ev.button.y;
-        if (ev.type_ = SDL_MOUSEBUTTONDOWN) then msev.kind := THMouseEvent.Press else msev.kind := THMouseEvent.Release;
-        msev.but := buildBut(ev.button.button);
-        msev.x := curMsX;
-        msev.y := curMsY;
-        if (msev.but <> 0) then
-        begin
-          // ev.button.clicks: Byte
-          if (ev.type_ = SDL_MOUSEBUTTONDOWN) then curMsButState := curMsButState or msev.but else curMsButState := curMsButState and (not msev.but);
-          msev.bstate := curMsButState;
-          msev.kstate := curKbState;
-          if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
-        end;
-      end;
-    SDL_MOUSEWHEEL:
-      begin
-        if (ev.wheel.y <> 0) then
-        begin
-          msev.dx := 0;
-          msev.dy := ev.wheel.y;
-          msev.kind := THMouseEvent.Press;
-          if (ev.wheel.y < 0) then msev.but := THMouseEvent.WheelUp else msev.but := THMouseEvent.WheelDown;
-          msev.x := curMsX;
-          msev.y := curMsY;
-          msev.bstate := curMsButState;
-          msev.kstate := curKbState;
-          if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
-        end;
-      end;
-    SDL_MOUSEMOTION:
-      begin
-        msev.dx := ev.button.x-curMsX;
-        msev.dy := ev.button.y-curMsY;
-        curMsX := ev.button.x;
-        curMsY := ev.button.y;
-        msev.kind := THMouseEvent.Motion;
-        msev.but := 0;
-        msev.x := curMsX;
-        msev.y := curMsY;
-        msev.bstate := curMsButState;
-        msev.kstate := curKbState;
-        if (g_holmes_enabled) then g_Holmes_mouseEvent(msev);
-      end;
-    {$ENDIF}
-
-    SDL_TEXTINPUT:
-      begin
-        Utf8ToUnicode(@uc, PChar(ev.text.text), 1);
-        keychr := Word(uc);
-        if (keychr > 127) then keychr := Word(wchar2win(WideChar(keychr)));
-        CharPress(AnsiChar(keychr));
-      end;
-
-    // other key presses and joysticks are handled in e_input
+    e_WriteLog('Initializing sound system', TMsgType.Notify);
+    e_InitSoundSystem(NoSound);
   end;
-end;
 
-procedure SwapBuffers();
-begin
-  {$IFDEF HEADLESS}Exit;{$ENDIF}
-  SDL_GL_SwapWindow(h_Wnd);
-end;
+  e_WriteLog('Init game', TMsgType.Notify);
+  g_Game_Init();
 
-procedure KillGLWindow();
-begin
-  if h_Wnd <> nil then SDL_DestroyWindow(h_Wnd);
-  if h_GL <> nil then SDL_GL_DeleteContext(h_GL);
-  h_Wnd := nil;
-  h_GL := nil;
-  //wWindowCreated := False;
+//  FillChar(charbuff, sizeof(charbuff), ' ');
 end;
 
-function CreateGLWindow(Title: PChar): Boolean;
-//var
-//  flags: LongWord;
+procedure Release();
 begin
-  Result := False;
+  e_WriteLog('Releasing engine', TMsgType.Notify);
+  e_ReleaseEngine();
 
-  gWinSizeX := gScreenWidth;
-  gWinSizeY := gScreenHeight;
+  e_WriteLog('Releasing input', TMsgType.Notify);
+  e_ReleaseInput();
 
-  wTitle := Title;
-  e_WriteLog('Creating window', MSG_NOTIFY);
-
-  if not g_Window_SetDisplay() then
+  if not gNoSound then
   begin
-    KillGLWindow();
-    e_WriteLog('Window creation error (resolution not supported?)', MSG_FATALERROR);
-    exit;
+    e_WriteLog('Releasing sound', TMsgType.Notify);
+    e_ReleaseSoundSystem();
   end;
-
-{$IFNDEF HEADLESS}
-  h_Gl := SDL_GL_CreateContext(h_Wnd);
-  if h_Gl = nil then Exit;
-{$ENDIF}
-  //wWindowCreated := True;
-
-  e_ResizeWindow(gScreenWidth, gScreenHeight);
-  e_InitGL();
-
-  Result := True;
 end;
 
-{$IFDEF WINDOWS}
-// windoze sux; in headless mode `GetTickCount()` (and SDL) returns shit
-function GetTimer(): Int64;
-var
-  F, C: Int64;
+procedure ResetTimer ();
 begin
-  QueryPerformanceFrequency(F);
-  QueryPerformanceCounter(C);
-  Result := Round(C/F*1000{000});
+  wNeedTimeReset := true;
 end;
-{$ELSE}
-function GetTimer(): Int64;
-var
-  t: Uint32;
-  tt: Int64;
-begin
-  t := SDL_GetTicks() {* 1000}; // TODO: do we really need microseconds here? k8: NOPE!
-  if ticksOverflow = -1 then
-  begin
-    ticksOverflow := 0;
-    lastTicks := t;
-  end
-  else
-  begin
-    if lastTicks > t then
-    begin
-      // overflow, increment overflow ;-)
-      ticksOverflow := ticksOverflow+(Int64($ffffffff)+Int64(1));
-      tt := (Int64($ffffffff)+Int64(1))+Int64(t);
-      t := Uint32(tt-lastTicks);
-    end;
-  end;
-  lastTicks := t;
-  result := ticksOverflow+Int64(t);
-end;
-{$ENDIF}
-
-procedure ResetTimer();
-begin
-  wNeedTimeReset := True;
-end;
-
-procedure PushExitEvent();
-var
-  ev: TSDL_Event;
-begin
-  ev.type_ := SDL_QUITEV;
-  SDL_PushEvent(@ev);
-end;
-
-
-var
-  prevLoadingUpdateTime: UInt64 = 0;
 
 procedure ProcessLoading (forceUpdate: Boolean=false);
-var
-  ev: TSDL_Event;
-  ID: DWORD;
-  stt: UInt64;
 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;
-
-  if (ev.type_ = SDL_QUITEV) or (gExit = EXIT_QUIT) then
-  begin
-    wLoadingProgress := False;
-    exit;
-  end;
-
-  if not wMinimized then
-  begin
-    if forceUpdate then
-    begin
-      prevLoadingUpdateTime := curTimeMilli();
-    end
-    else
-    begin
-      stt := curTimeMilli();
-      if (stt < prevLoadingUpdateTime) or (stt-prevLoadingUpdateTime >= 400) then
-      begin
-        prevLoadingUpdateTime := stt;
-        forceUpdate := true;
-      end;
-    end;
-
-    if forceUpdate then
-    begin
-      if g_Texture_Get('INTER', ID) then
-      begin
-        e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
-      end
-      else
-      begin
-        e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
-      end;
-
-      DrawLoadingStat();
-      SwapBuffers();
+  if sys_HandleInput() = True then
+    Exit;
 
-      ReShowCursor();
-    end;
-  end;
+{$IFNDEF HEADLESS}
+  r_Window_DrawLoading(forceUpdate);
+{$ENDIF}
 
   e_SoundUpdate();
 
   if NetMode = NET_SERVER then
-  begin
-    g_Net_Host_Update();
-  end
-  else
-  begin
-    if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then g_Net_Client_UpdateWhileLoading();
-  end;
-  wLoadingProgress := False;
+    g_Net_Host_Update()
+  else if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then
+    g_Net_Client_UpdateWhileLoading();
 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 := 28{(27777 div 1000)};
-    wNeedTimeReset := False;
+    Frame := 0;
+    Time_Delta := 28;
+    wNeedTimeReset := false;
   end;
 
   g_Map_ProfilersBegin();
   g_Mons_ProfilersBegin();
 
-  t := Time_Delta div 28{(27777 div 1000)};
-  if t > 0 then
+  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();
       Update();
-    end;
-  end
-  else
-  begin
-    if NetMode = NET_SERVER then g_Net_Host_Update()
-    else if NetMode = NET_CLIENT then g_Net_Client_Update();
   end;
 
   g_Map_ProfilersEnd();
@@ -728,114 +185,53 @@ begin
     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
+    Time_Old := Time - (Time_Delta mod 28);
+
+  // don't wait if VSync is on, GL already probably waits enough
+  if gLerpActors then
+    flag := (Time - Frame >= gFrameTime) or gVSync;
+
   if flag then
   begin
-    Time_Old := Time - (Time_Delta mod 28{(27777 div 1000)});
-    if (not wMinimized) then
-    begin
-      Draw();
-      SwapBuffers();
-      ReShowCursor();
-    end;
+    if gPause or (not gLerpActors) or (gState = STATE_FOLD) then
+      gLerpFactor := 1.0
+    else
+      gLerpFactor := nmin(1.0, (Time - Time_Old) / 28.0);
+    Draw;
+    sys_Repaint;
+    Frame := Time
   end
   else
-    Sleep(1);
+    sys_Delay(1);
 
   e_SoundUpdate();
 end;
 
-procedure ReDrawWindow;
-begin
-  SwapBuffers();
-  ReShowCursor();
-end;
-
-procedure InitOpenGL(VSync: Boolean);
-var
-  v: Byte;
-begin
-  {$IFDEF HEADLESS}Exit;{$ENDIF}
-  if VSync then v := 1 else v := 0;
-  SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 2);
-  SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 1);
-  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);
-  if gwin_k8_enable_light_experiments then
-  begin
-    SDL_GL_SetAttribute(SDL_GL_STENCIL_SIZE, 1); // lights; it is enough to have 1-bit stencil buffer for lighting
-  end;
-  SDL_GL_SetSwapInterval(v);
-end;
-
-function glHasExtension (name: AnsiString): Boolean;
-var
-  exts: PChar;
-  i: Integer;
-  found: Boolean;
-  extName: ShortString;
-begin
-  result := false;
-  if length(name) = 0 then exit;
-  exts := glGetString(GL_EXTENSIONS);
-  if exts = nil then exit;
-  while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts);
-  while exts[0] <> #0 do
-  begin
-    if gwin_dump_extensions then
-    begin
-      i := 0;
-      while (exts[i] <> #0) and (exts[i] <> ' ') do Inc(i);
-      if i > 255 then
-      begin
-        e_WriteLog('FUUUUUUUUUUUUU', MSG_WARNING);
-      end
-      else
-      begin
-        Move(exts^, extName[1], i);
-        extName[0] := Char(i);
-        e_WriteLog(Format('EXT: %s', [extName]), MSG_NOTIFY);
-      end;
-    end;
-    found := true;
-    for i := 0 to length(name)-1 do
-    begin
-      if exts[i] = #0 then begin found := false; break; end;
-      if exts[i] <> name[i+1] then begin found := false; break; end;
-    end;
-    if found and ((exts[length(name)] = #0) or (exts[length(name)] = ' ')) then begin result := true; exit; end;
-    while (exts[0] <> #0) and (exts[0] <> ' ') do Inc(exts);
-    while (exts[0] <> #0) and (exts[0] = ' ') do Inc(exts);
-  end;
-end;
-
-function SDLMain(): Integer;
+function SDLMain (): Integer;
 var
   idx: Integer;
-  ltmp: Integer;
   arg: AnsiString;
   mdfo: TStream;
+  {$IFDEF ENABLE_HOLMES}
+  itmp: Integer;
+  valres: Word;
+  {$ENDIF}
 begin
-{$IFDEF HEADLESS}
-  e_NoGraphics := True;
-{$ENDIF}
 
   idx := 1;
   while (idx <= ParamCount) do
   begin
     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 = '--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;
@@ -851,21 +247,49 @@ begin
     if arg = '--no-particle-phys' then gpart_dbg_phys_enabled := false;
     if arg = '--no-particle-physics' then gpart_dbg_phys_enabled := false;
 
-    {$IF DEFINED(D2F_DEBUG)}
-    if arg = '--aimline' then g_dbg_aimline_on := false;
-    {$ENDIF}
+    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(g_holmes_ui_scale, ParamStr(idx)) then g_holmes_ui_scale := 1.0;
+        if not conParseFloat(fuiRenderScale, ParamStr(idx)) then fuiRenderScale := 1.0;
+        Inc(idx);
+      end;
+    end;
+
+    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}
 
-    {$IF DEFINED(D2F_DEBUG)}
     if (arg = '--game-scale') or (arg = '-game-scale') then
     begin
       if (idx <= ParamCount) then
@@ -874,7 +298,6 @@ begin
         Inc(idx);
       end;
     end;
-    {$ENDIF}
 
     if (arg = '--write-mapdef') or (arg = '-write-mapdef') then
     begin
@@ -883,63 +306,46 @@ begin
       mdfo.Free();
       Halt(0);
     end;
-  end;
 
-  e_WriteLog('Initializing OpenGL', MSG_NOTIFY);
-  InitOpenGL(gVSync);
-
-  e_WriteLog('Creating GL window', MSG_NOTIFY);
-  if not CreateGLWindow(PChar(Format('Doom 2D: Forever %s', [GAME_VERSION]))) then
-  begin
-    Result := 0;
-    exit;
+    if (arg = '--pixel-scale') or (arg = '-pixel-scale') then
+    begin
+      if (idx <= ParamCount) then
+      begin
+        if not conParseFloat(r_pixel_scale, ParamStr(idx)) then r_pixel_scale := 1.0;
+        Inc(idx);
+      end;
+    end;
   end;
 
-  {EnumDisplayModes();}
+  r_Window_Initialize;
 
-  if gwin_k8_enable_light_experiments then
-  begin
-    SDL_GL_GetAttribute(SDL_GL_STENCIL_SIZE, @ltmp);
-    e_WriteLog(Format('stencil buffer size: %d', [ltmp]), MSG_WARNING);
-    gwin_has_stencil := (ltmp > 0);
-  end
-  else
-  begin
-    gwin_has_stencil := false;
-  end;
+  Init;
+  Time_Old := sys_GetTicks();
 
-  if not glHasExtension('GL_ARB_texture_non_power_of_two') then
-  begin
-    e_WriteLog('Driver DID''T advertised NPOT textures support', MSG_WARNING);
-    glLegacyNPOT := true;
-  end
-  else
-  begin
-    e_WriteLog('Driver advertised NPOT textures support', MSG_NOTIFY);
-    glLegacyNPOT := false;
-  end;
-  gwin_dump_extensions := false;
+  g_Net_InitLowLevel();
 
-  Init();
-  Time_Old := GetTimer();
+  // Êîìàíäíàÿ ñòðîêà
+  if (ParamCount > 0) then g_Game_Process_Params();
 
-// Êîìàíäíàÿ ñòðîêà:
-  if ParamCount > 0 then
-    g_Game_Process_Params();
+{$IFNDEF HEADLESS}
+  // Çàïðîñ ÿçûêà
+  if (not gGameOn) and gAskLanguage then g_Menu_AskLanguage();
+{$ENDIF}
 
-// Çàïðîñ ÿçûêà:
-  if (not gGameOn) and gAskLanguage then
-    g_Menu_AskLanguage();
+  e_WriteLog('Entering the main loop', TMsgType.Notify);
 
-  e_WriteLog('Entering the main loop', MSG_NOTIFY);
+  // main loop
+  while not ProcessMessage() do begin end;
 
-  while not ProcessMessage() do
-    { Main Loop } ;
+  g_Net_Slist_ShutdownAll();
 
   Release();
-  KillGLWindow();
 
-  Result := 0;
+  g_Net_DeinitLowLevel();
+  result := 0;
 end;
 
+
+initialization
+  conRegVar('d_input', @g_dbg_input, '', '')
 end.