render: disable FBO on devices which not support NPOT textures

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

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 70321ddf707b89127dca6ab97bf6eaaa7e4cf719..c15aeaae6fa4750e39c3169fe78ad73f98129958 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -1,4 +1,4 @@
-(* 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
  *
  * 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


@@ -17,12 +17,15 @@ unit g_game;
 
 interface
 
 
 interface
 

-uses
-  SysUtils, Classes,
-  MAPDEF,
-  g_base, g_basic, g_player, r_graphics, g_res_downloader,
-  g_sound, g_gui, utils, md5, mempool, xprofiler,
-  g_touch, g_weapons;
+  uses
+    {$IFDEF ENABLE_MENU}
+      g_gui,
+    {$ENDIF}
+    SysUtils, Classes, MAPDEF,
+    g_base, g_basic, g_player, g_res_downloader,
+    g_sound, utils, md5, mempool, xprofiler,
+    g_weapons
+  ;

 
 type
   TGameSettings = record
 
 type
   TGameSettings = record


@@ -115,7 +118,6 @@ function  g_Game_GetNextMap(): String;
 procedure g_Game_NextLevel();
 procedure g_Game_Pause(Enable: Boolean);
 procedure g_Game_HolmesPause(Enable: Boolean);
 procedure g_Game_NextLevel();
 procedure g_Game_Pause(Enable: Boolean);
 procedure g_Game_HolmesPause(Enable: Boolean);

-procedure g_Game_InGameMenu(Show: Boolean);

 function  g_Game_IsWatchedPlayer(UID: Word): Boolean;
 function  g_Game_IsWatchedTeam(Team: Byte): Boolean;
 procedure g_Game_Message(Msg: String; Time: Word);
 function  g_Game_IsWatchedPlayer(UID: Word): Boolean;
 function  g_Game_IsWatchedTeam(Team: Byte): Boolean;
 procedure g_Game_Message(Msg: String; Time: Word);


@@ -130,7 +132,9 @@ procedure g_Game_Announce_KillCombo(Param: Integer);
 procedure g_Game_Announce_BodyKill(SpawnerUID: Word);
 procedure g_Game_StartVote(Command, Initiator: string);
 procedure g_Game_CheckVote;
 procedure g_Game_Announce_BodyKill(SpawnerUID: Word);
 procedure g_Game_StartVote(Command, Initiator: string);
 procedure g_Game_CheckVote;

-procedure g_TakeScreenShot(Filename: string = '');
+{$IFNDEF HEADLESS}
+  procedure g_TakeScreenShot(Filename: string = '');
+{$ENDIF}

 procedure g_FatalError(Text: String);
 procedure g_SimpleError(Text: String);
 function  g_Game_IsTestMap(): Boolean;
 procedure g_FatalError(Text: String);
 procedure g_SimpleError(Text: String);
 function  g_Game_IsTestMap(): Boolean;


@@ -151,8 +155,14 @@ function IsActivePlayer(p: TPlayer): Boolean;
 function GetActivePlayerID_Next(Skip: Integer = -1): Integer;
 procedure SortGameStat(var stat: TPlayerStatArray);
 
 function GetActivePlayerID_Next(Skip: Integer = -1): Integer;
 procedure SortGameStat(var stat: TPlayerStatArray);
 

-procedure KeyPress (K: Word);
-procedure CharPress (C: AnsiChar);
+
+{$IFDEF ENABLE_MENU}
+  procedure g_Game_InGameMenu(Show: Boolean);
+{$ENDIF}
+{$IFNDEF HEADLESS}
+  procedure CharPress (C: AnsiChar);
+{$ENDIF}
+  procedure KeyPress (K: Word);

 
 { procedure SetWinPause(Enable: Boolean); }
 
 
 { procedure SetWinPause(Enable: Boolean); }
 


@@ -175,8 +185,6 @@ const
   GM_COOP = 4;
   GM_SINGLE = 5;
 
   GM_COOP = 4;
   GM_SINGLE = 5;
 

-  MESSAGE_DIKEY = WM_USER + 1;
-

   EXIT_QUIT            = 1;
   EXIT_SIMPLE          = 2;
   EXIT_RESTART         = 3;
   EXIT_QUIT            = 1;
   EXIT_SIMPLE          = 2;
   EXIT_RESTART         = 3;


@@ -443,16 +451,22 @@ function gPause (): Boolean; inline;
 implementation
 
 uses
 implementation
 
 uses

-{$IFDEF ENABLE_HOLMES}
-  g_holmes,
-{$ENDIF}
-  e_res, g_window, g_menu, r_render, r_gfx,
-  e_input, e_log, g_console, r_console, g_items, g_map, g_panel,
+  {$IFDEF ENABLE_HOLMES}
+    g_holmes,
+  {$ENDIF}
+  {$IFDEF ENABLE_MENU}
+    g_menu,
+  {$ENDIF}
+  {$IFNDEF HEADLESS}
+    r_render, g_system,
+  {$ENDIF}
+  e_res, g_window,
+  e_input, e_log, g_console, g_items, g_map, g_panel,

   g_playermodel, g_gfx, g_options, Math,
   g_triggers, g_monsters, e_sound, CONFIG,
   g_language, g_net, g_phys,
   ENet, e_msg, g_netmsg, g_netmaster,
   g_playermodel, g_gfx, g_options, Math,
   g_triggers, g_monsters, e_sound, CONFIG,
   g_language, g_net, g_phys,
   ENet, e_msg, g_netmsg, g_netmaster,

-  sfs, wadreader, g_system, r_playermodel;
+  sfs, wadreader;

 
   var
     charbuff: packed array [0..15] of AnsiChar = (
 
   var
     charbuff: packed array [0..15] of AnsiChar = (


@@ -694,13 +708,10 @@ Cheated:
 end;
 
 
 end;
 
 

+{$IFDEF ENABLE_MENU}

 procedure KeyPress (K: Word);
 procedure KeyPress (K: Word);

-{$IFNDEF HEADLESS}
-var
-  Msg: g_gui.TMessage;
-{$ENDIF}
+  var Msg: g_gui.TMessage;

 begin
 begin

-{$IFNDEF HEADLESS}

   case K of
     VK_ESCAPE: // <Esc>:
       begin
   case K of
     VK_ESCAPE: // <Esc>:
       begin


@@ -773,31 +784,48 @@ begin
         end;
       end;
   end;
         end;
       end;
   end;

-{$ENDIF}

 end;
 end;

-
-procedure CharPress (C: AnsiChar);
-var
-  Msg: g_gui.TMessage;
-  a: Integer;
-begin
-  if gConsoleShow or gChatShow then
-  begin
-    g_Console_Char(C)
-  end
-  else if (g_ActiveWindow <> nil) then
+{$ELSE}
+  procedure KeyPress (K: Word);

   begin
   begin

-    Msg.Msg := WM_CHAR;
-    Msg.WParam := Ord(C);
-    g_ActiveWindow.OnMessage(Msg);
-  end
-  else
+    gJustChatted := False;
+    if gConsoleShow or gChatShow then
+    begin
+      g_Console_Control(K);
+    end
+  end;
+{$ENDIF}
+
+{$IFNDEF HEADLESS}
+  procedure CharPress (C: AnsiChar);
+    {$IFDEF ENABLE_MENU}
+      var Msg: g_gui.TMessage;
+    {$ENDIF}
+    var a: Integer;

   begin
   begin

-    for a := 0 to 14 do charbuff[a] := charbuff[a+1];
-    charbuff[15] := upcase1251(C);
-    Cheat();
+    if gConsoleShow or gChatShow then
+    begin
+      g_Console_Char(C);
+    end
+    {$IFDEF ENABLE_MENU}
+      else if g_ActiveWindow <> nil then
+      begin
+        Msg.Msg := WM_CHAR;
+        Msg.WParam := Ord(C);
+        g_ActiveWindow.OnMessage(Msg);
+      end
+    {$ENDIF}
+    else
+    begin
+      for a := 0 to 14 do
+      begin
+        charbuff[a] := charbuff[a + 1];
+      end;
+      charbuff[15] := upcase1251(C);
+      Cheat;
+    end;

   end;
   end;

-end;
+{$ENDIF}

 
 
 // ////////////////////////////////////////////////////////////////////////// //
 
 
 // ////////////////////////////////////////////////////////////////////////// //


@@ -896,7 +924,6 @@ var
   UPSTime: LongWord;
   DataLoaded: Boolean = False;
   MessageTime: Word;
   UPSTime: LongWord;
   DataLoaded: Boolean = False;
   MessageTime: Word;

-  MessageLineLength: Integer = 80;

   MapList: SSArray = nil;
   MapIndex: Integer = -1;
   InterReadyTime: Integer = -1;
   MapList: SSArray = nil;
   MapIndex: Integer = -1;
   InterReadyTime: Integer = -1;


@@ -1247,7 +1274,10 @@ begin
   MessageText := '';
 
   EndingGameCounter := 0;
   MessageText := '';
 
   EndingGameCounter := 0;

+
+{$IFDEF ENABLE_MENU}

   g_ActiveWindow := nil;
   g_ActiveWindow := nil;

+{$ENDIF}

 
   gLMSRespawn := LMS_RESPAWN_NONE;
   gLMSRespawnTime := 0;
 
   gLMSRespawn := LMS_RESPAWN_NONE;
   gLMSRespawnTime := 0;


@@ -1256,20 +1286,23 @@ begin
     EXIT_SIMPLE: // Выход через меню или конец теста
       begin
         g_Game_Free();
     EXIT_SIMPLE: // Выход через меню или конец теста
       begin
         g_Game_Free();

-

         if gMapOnce  then
         if gMapOnce  then

-          begin // Это был тест
-            g_Game_Quit();
-          end
+        begin // Это был тест
+          g_Game_Quit();
+        end

         else
         else

-          begin // Выход в главное меню
+        begin // Выход в главное меню
+          {$IFDEF DISABLE_MENU}
+            gState := STATE_MENU; // ???
+          {$ELSE}

             gMusic.SetByName('MUSIC_MENU');
             gMusic.Play();
             if gState <> STATE_SLIST then
             begin
               g_GUI_ShowWindow('MainMenu');
               gState := STATE_MENU;
             gMusic.SetByName('MUSIC_MENU');
             gMusic.Play();
             if gState <> STATE_SLIST then
             begin
               g_GUI_ShowWindow('MainMenu');
               gState := STATE_MENU;

-            end else
+            end
+            else

             begin
               // Обновляем список серверов
               slReturnPressed := True;
             begin
               // Обновляем список серверов
               slReturnPressed := True;


@@ -1282,9 +1315,9 @@ begin
                 slWaitStr := _lc[I_NET_SLIST_ERROR];
               g_Serverlist_GenerateTable(slCurrent, slTable);
             end;
                 slWaitStr := _lc[I_NET_SLIST_ERROR];
               g_Serverlist_GenerateTable(slCurrent, slTable);
             end;

-
-            g_Game_ExecuteEvent('ongameend');
-          end;
+          {$ENDIF}
+          g_Game_ExecuteEvent('ongameend');
+        end;

       end;
 
     EXIT_RESTART: // Начать уровень сначала
       end;
 
     EXIT_RESTART: // Начать уровень сначала


@@ -1658,6 +1691,7 @@ begin
     end
   end;
 
     end
   end;
 

+{$IFDEF ENABLE_MENU}

   // HACK: add dynlight here
   if gwin_k8_enable_light_experiments then
   begin
   // HACK: add dynlight here
   if gwin_k8_enable_light_experiments then
   begin


@@ -1672,6 +1706,7 @@ begin
   end;
 
   if gwin_has_stencil and g_playerLight then g_AddDynLight(plr.GameX+32, plr.GameY+40, 128, 1, 1, 0, 0.6);
   end;
 
   if gwin_has_stencil and g_playerLight then g_AddDynLight(plr.GameX+32, plr.GameY+40, 128, 1, 1, 0, 0.6);

+{$ENDIF}

 end;
 
 // HACK: don't have a "key was pressed" function
 end;
 
 // HACK: don't have a "key was pressed" function


@@ -1694,12 +1729,14 @@ begin
 end;
 
 procedure g_Game_Update();
 end;
 
 procedure g_Game_Update();

-var
-  Msg: g_gui.TMessage;
-  Time: Int64;
-  a: Byte;
-  w: Word;
-  i, b: Integer;
+  var
+    {$IFDEF ENABLE_MENU}
+      Msg: g_gui.TMessage;
+      w: Word;
+    {$ENDIF}
+    Time: Int64;
+    a: Byte;
+    i, b: Integer;

 
   function sendMonsPos (mon: TMonster): Boolean;
   begin
 
   function sendMonsPos (mon: TMonster): Boolean;
   begin


@@ -1757,7 +1794,6 @@ begin
   // no need to, as we'll do it in event handler
 
 // Обновляем консоль (движение и сообщения):
   // no need to, as we'll do it in event handler
 
 // Обновляем консоль (движение и сообщения):

-  r_Console_Update;

   g_Console_Update();
 
   if (NetMode = NET_NONE) and (g_Game_IsNet) and (gGameOn or (gState in [STATE_FOLD, STATE_INTERCUSTOM])) then
   g_Console_Update();
 
   if (NetMode = NET_NONE) and (g_Game_IsNet) and (gGameOn or (gState in [STATE_FOLD, STATE_INTERCUSTOM])) then


@@ -1797,7 +1833,9 @@ begin
               e_KeyPressed(JOY2_ATTACK) or e_KeyPressed(JOY3_ATTACK)
             )
             and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)
               e_KeyPressed(JOY2_ATTACK) or e_KeyPressed(JOY3_ATTACK)
             )
             and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)

+{$IFDEF ENABLE_MENU}

             and (g_ActiveWindow = nil)
             and (g_ActiveWindow = nil)

+{$ENDIF}

           )
           or (g_Game_IsNet and ((gInterTime > gInterEndTime) or ((gInterReadyCount >= NetClientCount) and (NetClientCount > 0))))
         )
           )
           or (g_Game_IsNet and ((gInterTime > gInterEndTime) or ((gInterReadyCount >= NetClientCount) and (NetClientCount > 0))))
         )


@@ -1816,9 +1854,11 @@ begin
               begin
               // Выход в главное меню:
                 g_Game_Free;
               begin
               // Выход в главное меню:
                 g_Game_Free;

+{$IFDEF ENABLE_MENU}

                 g_GUI_ShowWindow('MainMenu');
                 gMusic.SetByName('MUSIC_MENU');
                 gMusic.Play();
                 g_GUI_ShowWindow('MainMenu');
                 gMusic.SetByName('MUSIC_MENU');
                 gMusic.Play();

+{$ENDIF}

                 gState := STATE_MENU;
               end else
               begin
                 gState := STATE_MENU;
               end else
               begin


@@ -1844,7 +1884,9 @@ begin
             e_KeyPressed(JOY2_ATTACK) or e_KeyPressed(JOY3_ATTACK)
           )
           and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)
             e_KeyPressed(JOY2_ATTACK) or e_KeyPressed(JOY3_ATTACK)
           )
           and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)

+{$IFDEF ENABLE_MENU}

           and (g_ActiveWindow = nil)
           and (g_ActiveWindow = nil)

+{$ENDIF}

         )
         then
         begin
         )
         then
         begin


@@ -1978,7 +2020,11 @@ begin
     // Обрабатываем клавиши игроков:
       if gPlayer1 <> nil then gPlayer1.ReleaseKeys();
       if gPlayer2 <> nil then gPlayer2.ReleaseKeys();
     // Обрабатываем клавиши игроков:
       if gPlayer1 <> nil then gPlayer1.ReleaseKeys();
       if gPlayer2 <> nil then gPlayer2.ReleaseKeys();

+{$IFDEF DISABLE_MENU}
+      if (not gConsoleShow) and (not gChatShow) then
+{$ELSE}

       if (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
       if (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then

+{$ENDIF}

       begin
         ProcessPlayerControls(gPlayer1, 0, P1MoveButton);
         ProcessPlayerControls(gPlayer2, 1, P2MoveButton);
       begin
         ProcessPlayerControls(gPlayer1, 0, P1MoveButton);
         ProcessPlayerControls(gPlayer2, 1, P2MoveButton);


@@ -1991,8 +2037,12 @@ begin
     end; // if server
 
   // Наблюдатель
     end; // if server
 
   // Наблюдатель

-    if (gPlayer1 = nil) and (gPlayer2 = nil) and
-       (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
+    if (gPlayer1 = nil) and (gPlayer2 = nil)
+      and (not gConsoleShow) and (not gChatShow)
+{$IFDEF ENABLE_MENU}
+      and (g_ActiveWindow = nil)
+{$ENDIF}
+    then

     begin
       if not gSpectKeyPress then
       begin
     begin
       if not gSpectKeyPress then
       begin


@@ -2154,7 +2204,6 @@ begin
     g_Weapon_Update();
     g_Monsters_Update();
     g_GFX_Update();
     g_Weapon_Update();
     g_Monsters_Update();
     g_GFX_Update();

-    r_GFX_Update;

     g_Player_UpdateAll();
     g_Player_UpdatePhysicalObjects();
 
     g_Player_UpdateAll();
     g_Player_UpdatePhysicalObjects();
 


@@ -2247,6 +2296,7 @@ begin
   end; // if gameOn ...
 
 // Активно окно интерфейса - передаем клавиши ему:
   end; // if gameOn ...
 
 // Активно окно интерфейса - передаем клавиши ему:

+{$IFDEF ENABLE_MENU}

   if g_ActiveWindow <> nil then
   begin
     w := e_GetFirstKeyPressed();
   if g_ActiveWindow <> nil then
   begin
     w := e_GetFirstKeyPressed();


@@ -2265,8 +2315,10 @@ begin
   // Нужно сменить разрешение:
     if gResolutionChange then
     begin
   // Нужно сменить разрешение:
     if gResolutionChange then
     begin

-      e_WriteLog('Changing resolution', TMsgType.Notify);
-      r_Render_Apply;
+      {$IFNDEF HEADLESS}
+        e_WriteLog('Changing resolution', TMsgType.Notify);
+        r_Render_Apply;
+      {$ENDIF}

       gResolutionChange := False;
       g_ActiveWindow := nil;
     end;
       gResolutionChange := False;
       g_ActiveWindow := nil;
     end;


@@ -2277,9 +2329,7 @@ begin
       //e_WriteLog('Read language file', MSG_NOTIFY);
       //g_Language_Load(DataDir + gLanguage + '.txt');
       g_Language_Set(gLanguage);
       //e_WriteLog('Read language file', MSG_NOTIFY);
       //g_Language_Load(DataDir + gLanguage + '.txt');
       g_Language_Set(gLanguage);

-{$IFNDEF HEADLESS}

       g_Menu_Reset();
       g_Menu_Reset();

-{$ENDIF}

       gLanguageChange := False;
     end;
   end;
       gLanguageChange := False;
     end;
   end;


@@ -2292,6 +2342,7 @@ begin
   begin
     KeyPress(IK_F10);
   end;
   begin
     KeyPress(IK_F10);
   end;

+{$ENDIF}

 
   Time := GetTickCount64() {div 1000};
 
 
   Time := GetTickCount64() {div 1000};
 


@@ -2512,7 +2563,10 @@ begin
     g_Game_DeleteTestMap();
 
   gExit := EXIT_QUIT;
     g_Game_DeleteTestMap();
 
   gExit := EXIT_QUIT;

-  sys_RequestQuit;
+
+  {$IFNDEF HEADLESS}
+    sys_RequestQuit;
+  {$ENDIF}

 end;
 
 procedure g_Game_FreeData();
 end;
 
 procedure g_Game_FreeData();


@@ -3359,14 +3413,18 @@ begin
   begin
     //result := g_Map_Load(gGameSettings.WAD + ':\' + ResName);
     result := g_Map_Load(NewWAD+':\'+ResName);
   begin
     //result := g_Map_Load(gGameSettings.WAD + ':\' + ResName);
     result := g_Map_Load(NewWAD+':\'+ResName);

-    r_Render_LoadTextures;
+    {$IFNDEF HEADLESS}
+      r_Render_LoadTextures;
+    {$ENDIF}

   end;
   if Result then
     begin
       g_Player_ResetAll(Force or gLastMap, gGameSettings.GameType = GT_SINGLE);
 
       gState := STATE_NONE;
   end;
   if Result then
     begin
       g_Player_ResetAll(Force or gLastMap, gGameSettings.GameType = GT_SINGLE);
 
       gState := STATE_NONE;

-      g_ActiveWindow := nil;
+      {$IFDEF ENABLE_MENU}
+        g_ActiveWindow := nil;
+      {$ENDIF}

       gGameOn := True;
 
       DisableCheats();
       gGameOn := True;
 
       DisableCheats();


@@ -4824,8 +4882,12 @@ begin
   chstr := '';
   if cmd = 'pause' then
   begin
   chstr := '';
   if cmd = 'pause' then
   begin

-    if (g_ActiveWindow = nil) then
+    {$IFDEF ENABLE_MENU}
+      if (g_ActiveWindow = nil) then
+        g_Game_Pause(not gPauseMain);
+    {$ELSE}

       g_Game_Pause(not gPauseMain);
       g_Game_Pause(not gPauseMain);

+    {$ENDIF}

   end
   else if cmd = 'endgame' then
     gExit := EXIT_SIMPLE
   end
   else if cmd = 'endgame' then
     gExit := EXIT_SIMPLE


@@ -5784,7 +5846,9 @@ begin
   end
   else if cmd = 'screenshot' then
   begin
   end
   else if cmd = 'screenshot' then
   begin

-    g_TakeScreenShot()
+    {$IFNDEF HEADLESS}
+      g_TakeScreenShot()
+    {$ENDIF}

   end
   else if (cmd = 'weapnext') or (cmd = 'weapprev') then
   begin
   end
   else if (cmd = 'weapnext') or (cmd = 'weapprev') then
   begin


@@ -6068,8 +6132,10 @@ begin
         g_Game_Free();
         g_Game_Quit();
       end;
         g_Game_Free();
         g_Game_Quit();
       end;

+{$IFNDEF HEADLESS}

     'r_reset':
     'r_reset':

-       r_Render_Apply;
+         r_Render_Apply;
+{$ENDIF}

     'r_maxfps':
       begin
         if Length(p) = 2 then
     'r_maxfps':
       begin
         if Length(p) = 2 then


@@ -6115,36 +6181,30 @@ begin
   end;
 end;
 
   end;
 end;
 

+{$IFNDEF HEADLESS}

 procedure g_TakeScreenShot(Filename: string = '');
 procedure g_TakeScreenShot(Filename: string = '');

-  var s: TStream; t: TDateTime; dir, date, name: String;
+  var t: TDateTime; dir, date, name: String;

 begin
 begin

-  if e_NoGraphics then Exit;
-  try
-    dir := e_GetWriteableDir(ScreenshotDirs);
+  if e_NoGraphics then
+    Exit;

 
 

-    if Filename = '' then
-    begin
-      t := Now;
-      DateTimeToString(date, 'yyyy-mm-dd-hh-nn-ss', t);
-      Filename := 'screenshot-' + date;
-    end;
-    
-    name := e_CatPath(dir, Filename + '.png');
-    s := createDiskFile(name);
-    try
-      e_MakeScreenshot(s, gWinSizeX, gWinSizeY);
-      s.Free;
-      g_Console_Add(Format(_lc[I_CONSOLE_SCREENSHOT], [name]))
-    except
-      g_Console_Add(Format(_lc[I_CONSOLE_ERROR_WRITE], [name]));
-      s.Free;
-      DeleteFile(name)
-    end
-  except
-    g_Console_Add('oh shit, i can''t create screenshot!')
-  end
+  dir := e_GetWriteableDir(ScreenshotDirs);
+  if Filename = '' then
+  begin
+    t := Now;
+    DateTimeToString(date, 'yyyy-mm-dd-hh-nn-ss', t);
+    Filename := 'screenshot-' + date;
+  end;
+
+  name := e_CatPath(dir, Filename + '.png');
+  if r_Render_WriteScreenShot(name) then
+    g_Console_Add(Format(_lc[I_CONSOLE_SCREENSHOT], [name]))
+  else
+    g_Console_Add(Format(_lc[I_CONSOLE_ERROR_WRITE], [name]));

 end;
 end;

+{$ENDIF}

 
 

+{$IFDEF ENABLE_MENU}

 procedure g_Game_InGameMenu(Show: Boolean);
 begin
   if (g_ActiveWindow = nil) and Show then
 procedure g_Game_InGameMenu(Show: Boolean);
 begin
   if (g_ActiveWindow = nil) and Show then


@@ -6175,6 +6235,7 @@ begin
         g_Game_Pause(False);
     end;
 end;
         g_Game_Pause(False);
     end;
 end;

+{$ENDIF}

 
 procedure g_Game_Pause (Enable: Boolean);
 var
 
 procedure g_Game_Pause (Enable: Boolean);
 var


@@ -6318,12 +6379,11 @@ begin
   end;
 end;
 
   end;
 end;
 

-procedure g_Game_Message(Msg: string; Time: Word);
-begin
-  MessageLineLength := (gScreenWidth - 204) div e_CharFont_GetMaxWidth(gMenuFont);
-  MessageText := b_Text_Wrap(b_Text_Format(Msg), MessageLineLength);
-  MessageTime := Time;
-end;
+  procedure g_Game_Message (Msg: string; Time: Word);
+  begin
+    MessageText := Msg;
+    MessageTime := Time;
+  end;

 
 procedure g_Game_ChatSound(Text: String; Taunt: Boolean = True);
 const
 
 procedure g_Game_ChatSound(Text: String; Taunt: Boolean = True);
 const


@@ -6624,8 +6684,11 @@ begin
     PBarWasHere := false;
   end;
 
     PBarWasHere := false;
   end;
 

-  g_ActiveWindow := nil;
-  ProcessLoading(True);
+  {$IFDEF ENABLE_MENU}
+    g_ActiveWindow := nil;
+  {$ENDIF}
+
+  ProcessLoading(true);

 end;
 
 procedure g_Game_StepLoading(Value: Integer = -1);
 end;
 
 procedure g_Game_StepLoading(Value: Integer = -1);