src/game/g_window.pas

   1 (* Copyright (C)  Doom 2D: Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, version 3 of the License ONLY.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  *)
  15 {$INCLUDE ../shared/a_modes.inc}
  16 unit g_window;
  17
  18 interface
  19
  20   procedure ProcessLoading (forceUpdate: Boolean=false);
  21
  22 implementation
  23
  24   uses e_sound, g_system, g_net, r_window;
  25
  26   procedure ProcessLoading (forceUpdate: Boolean = False);
  27   begin
  28     if sys_HandleInput() = False then
  29     begin
  30       {$IFNDEF HEADLESS}
  31         r_Window_DrawLoading(forceUpdate);
  32       {$ENDIF}
  33       e_SoundUpdate();
  34       if NetMode = NET_SERVER then
  35         g_Net_Host_Update
  36       else if (NetMode = NET_CLIENT) and (NetState <> NET_STATE_AUTH) then
  37         g_Net_Client_UpdateWhileLoading
  38     end
  39   end;
  40
  41 end.