gl: implement load screen

[d2df-sdl.git] / src / game / renders / opengl / r_console.pas

diff --git a/src/game/renders/opengl/r_console.pas b/src/game/renders/opengl/r_console.pas
index 60b14c1f6b12c38b485691b6dc483d51a4e646d3..4487afbf4c059a164e478e205ba2508c97a34597 100644 (file)
--- a/src/game/renders/opengl/r_console.pas
+++ b/src/game/renders/opengl/r_console.pas
@@ -30,7 +30,7 @@ implementation
 
   uses
     Math, utils, conbuf,
-    g_game, g_options, g_console,
+    g_game, g_options, g_console, g_language,
     r_draw, r_textures, r_fonts, r_common
   ;
 
@@ -56,6 +56,7 @@ implementation
 
   procedure r_Console_Load;
   begin
+    r_Common_SetLoading(_lc[I_LOAD_CONSOLE], 1);
     Background := r_Textures_LoadFromFile(GameWad + ':TEXTURES/CONSOLE');
   end;