DEADSOFTWARE

render: hide gib textures within render
[d2df-sdl.git] / 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;
18 interface
20 procedure ProcessLoading (forceUpdate: Boolean=false);
22 implementation
24 uses e_sound, g_system, g_net, r_window;
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;
41 end.