X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2FDoom2DF.lpr;h=74354e0ea4fe5bed8ea7a24ef93164ab1c37ea75;hp=bbbcdd3089eeacf26c5e688d19b377a3e1b76990;hb=9a066f2c58ac3b0c590f269787de0f6204dcf353;hpb=d0936017ccb8a078d1b03f55478af284bb015bbc

diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr
index bbbcdd3..74354e0 100644
--- a/src/game/Doom2DF.lpr
+++ b/src/game/Doom2DF.lpr
@@ -200,7 +200,8 @@ uses
   fui_ctls in '../flexui/fui_ctls.pas',
 {$ENDIF}
   {$I ../shared/vampimg.inc}
-  SysUtils;
+
+  SysUtils, Classes;
 
 {$IFDEF WINDOWS}
   {$R *.res}
@@ -211,6 +212,275 @@ uses
     binPath: AnsiString = '';
     forceBinDir: Boolean = False;
 
+    wLoadingQuit: Boolean = false;
+    Time, Time_Delta, Time_Old: Int64;
+    Frame: Int64;
+    flag: Boolean = false;
+
+procedure Update ();
+begin
+  // 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 Init();
+var
+  NoSound: Boolean;
+begin
+  Randomize;
+
+{$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}
+
+  g_Touch_Init;
+
+(*
+  if (e_JoysticksAvailable > 0) then
+    e_WriteLog('Input: Joysticks available.', TMsgType.Notify)
+  else
+    e_WriteLog('Input: No Joysticks.', TMsgType.Notify);
+*)
+
+  if (not gNoSound) then
+  begin
+    e_WriteLog('Initializing sound system', TMsgType.Notify);
+    e_InitSoundSystem(NoSound);
+  end;
+
+  e_WriteLog('Init game', TMsgType.Notify);
+  g_Game_Init();
+
+//  FillChar(charbuff, sizeof(charbuff), ' ');
+end;
+
+procedure Release();
+begin
+  e_WriteLog('Releasing engine', TMsgType.Notify);
+  e_ReleaseEngine();
+
+  e_WriteLog('Releasing input', TMsgType.Notify);
+  e_ReleaseInput();
+
+  if not gNoSound then
+  begin
+    e_WriteLog('Releasing sound', TMsgType.Notify);
+    e_ReleaseSoundSystem();
+  end;
+end;
+
+function ProcessMessage (): Boolean;
+var
+  i, t: Integer;
+begin
+  result := sys_HandleInput();
+
+  Time := sys_GetTicks();
+  Time_Delta := Time-Time_Old;
+
+  flag := false;
+
+  if wNeedTimeReset then
+  begin
+    Frame := 0;
+    Time_Delta := 28;
+    wNeedTimeReset := false;
+  end;
+
+  g_Map_ProfilersBegin();
+  g_Mons_ProfilersBegin();
+
+  t := Time_Delta div 28;
+  if (t > 0) then
+  begin
+    flag := true;
+    for i := 1 to t do
+      Update();
+  end;
+
+  g_Map_ProfilersEnd();
+  g_Mons_ProfilersEnd();
+
+  if wLoadingQuit then
+  begin
+    g_Game_Free();
+    g_Game_Quit();
+  end;
+
+  if (gExit = EXIT_QUIT) then
+  begin
+    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
+    if gPause or (not gLerpActors) or (gState = STATE_FOLD) then
+      gLerpFactor := 1.0
+    else
+      gLerpFactor := nmin(1.0, (Time - Time_Old) / 28.0);
+    r_Game_Draw;
+    sys_Repaint;
+    Frame := Time
+  end
+  else
+    sys_Delay(1);
+
+  e_SoundUpdate();
+end;
+
+
+function SDLMain (): Integer;
+var
+  idx: Integer;
+  arg: AnsiString;
+  mdfo: TStream;
+  {$IFDEF ENABLE_HOLMES}
+  itmp: Integer;
+  valres: Word;
+  {$ENDIF}
+begin
+
+  idx := 1;
+  while (idx <= ParamCount) do
+  begin
+    arg := ParamStr(idx);
+    Inc(idx);
+    //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;
+
+    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 (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;
+
+    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;
+
+    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;
+
+  r_Window_Initialize;
+
+  Init;
+  Time_Old := sys_GetTicks();
+
+  g_Net_InitLowLevel();
+
+  // game commad line
+  if (ParamCount > 0) then g_Game_Process_Params();
+
+{$IFNDEF HEADLESS}
+  if (not gGameOn) and gAskLanguage then g_Menu_AskLanguage();
+{$ENDIF}
+
+  e_WriteLog('Entering the main loop', TMsgType.Notify);
+
+  // main loop
+  while not ProcessMessage() do begin end;
+
+  g_Net_Slist_ShutdownAll();
+
+  Release();
+
+  g_Net_DeinitLowLevel();
+  result := 0;
+end;
+
 function GetBinaryPath (): AnsiString;
   {$IFDEF LINUX}
     var sl: AnsiString;