1 (* Copyright (C) Doom 2D: Forever Developers
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.
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.
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/>.
15 {$INCLUDE ../shared/a_modes.inc}
23 function SDLMain (): Integer;
24 procedure ResetTimer ();
25 procedure ProcessLoading (forceUpdate
: Boolean=false);
28 gwin_dump_extensions
: Boolean = false;
29 gwin_has_stencil
: Boolean = false;
30 gwin_k8_enable_light_experiments
: Boolean = false;
31 g_dbg_aimline_on
: Boolean = false;
32 g_dbg_input
: Boolean = False;
37 {$IFDEF WINDOWS}Windows
,{$ENDIF}
38 {$IFDEF ENABLE_HOLMES}
39 g_holmes
, sdlcarcass
, fui_ctls
,
41 {$INCLUDE ../nogl/noGLuses.inc}
42 SysUtils
, Classes
, MAPDEF
, Math
,
43 e_graphics
, e_log
, e_texture
, g_main
,
44 g_console
, e_input
, g_options
, g_game
,
45 g_basic
, g_textures
, e_sound
, g_sound
, g_menu
, ENet
, g_net
,
46 g_map
, g_gfx
, g_monsters
, xprofiler
,
47 g_touch
, g_gui
, g_system
, g_netmaster
;
51 ProgressUpdateMSecs
= 35; //1;//100;
54 Time
, Time_Delta
, Time_Old
: Int64;
56 wNeedTimeReset
: Boolean = false;
57 wMinimized
: Boolean = false;
58 wLoadingQuit
: Boolean = false;
60 procedure ResetTimer ();
62 wNeedTimeReset
:= true;
67 prevLoadingUpdateTime
: UInt64 = 0;
70 procedure ProcessLoading (forceUpdate
: Boolean=false);
76 if sys_HandleInput() = True then
80 if not wMinimized
then
82 if not forceUpdate
then
84 stt
:= getTimeMilli();
85 forceUpdate
:= (stt
< prevLoadingUpdateTime
) or (stt
-prevLoadingUpdateTime
>= ProgressUpdateMSecs
);
90 DrawMenuBackground('INTER');
91 e_DarkenQuadWH(0, 0, gScreenWidth
, gScreenHeight
, 150);
96 prevLoadingUpdateTime
:= getTimeMilli();
103 if NetMode
= NET_SERVER
then
109 if (NetMode
= NET_CLIENT
) and (NetState
<> NET_STATE_AUTH
) then g_Net_Client_UpdateWhileLoading();
114 function ProcessMessage (): Boolean;
118 result
:= sys_HandleInput();
120 Time
:= sys_GetTicks();
121 Time_Delta
:= Time
-Time_Old
;
125 if wNeedTimeReset
then
128 wNeedTimeReset
:= false;
131 g_Map_ProfilersBegin();
132 g_Mons_ProfilersBegin();
134 t
:= Time_Delta
div 28;
140 if (NetMode
= NET_SERVER
) then g_Net_Host_Update()
141 else if (NetMode
= NET_CLIENT
) then g_Net_Client_Update();
147 if (NetMode
= NET_SERVER
) then g_Net_Host_Update()
148 else if (NetMode
= NET_CLIENT
) then g_Net_Client_Update();
151 if NetMode
= NET_SERVER
then g_Net_Flush();
153 g_Map_ProfilersEnd();
154 g_Mons_ProfilersEnd();
162 if (gExit
= EXIT_QUIT
) then
168 // Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ
171 Time_Old
:= Time
- (Time_Delta
mod 28);
172 if (not wMinimized
) then
180 sys_Delay(1) // release time slice, so we won't eat 100% CPU
186 function GLExtensionList (): SSArray
;
192 s
:= glGetString(GL_EXTENSIONS
);
198 while (s
[i
] <> #0) and (s
[i
] = ' ') do Inc(i
);
199 while (s
[i
] <> #0) do
201 while (s
[i
] <> #0) and (s
[i
] <> ' ') do Inc(i
);
202 SetLength(result
, num
+1);
203 result
[num
] := Copy(s
, j
+1, i
-j
);
204 while (s
[i
] <> #0) and (s
[i
] = ' ') do Inc(i
);
211 function GLExtensionSupported (ext
: AnsiString): Boolean;
217 exts
:= GLExtensionList();
220 //writeln('<', e, '> : [', ext, '] = ', strEquCI1251(e, ext));
221 if (strEquCI1251(e
, ext
)) then begin result
:= true; exit
; end;
225 procedure PrintGLSupportedExtensions
;
227 e_LogWritefln('GL Vendor: %s', [glGetString(GL_VENDOR
)]);
228 e_LogWritefln('GL Renderer: %s', [glGetString(GL_RENDERER
)]);
229 e_LogWritefln('GL Version: %s', [glGetString(GL_VERSION
)]);
230 e_LogWritefln('GL Shaders: %s', [glGetString(GL_SHADING_LANGUAGE_VERSION
)]);
231 e_LogWritefln('GL Extensions: %s', [glGetString(GL_EXTENSIONS
)]);
234 function SDLMain (): Integer;
239 {$IFDEF ENABLE_HOLMES}
245 e_NoGraphics
:= true;
249 while (idx
<= ParamCount
) do
251 arg
:= ParamStr(idx
);
253 if arg
= '--opengl-dump-exts' then gwin_dump_extensions
:= true;
254 //if arg = '--twinkletwinkle' then gwin_k8_enable_light_experiments := true;
255 if arg
= '--jah' then g_profile_history_size
:= 100;
256 if arg
= '--no-particles' then gpart_dbg_enabled
:= false;
257 if arg
= '--no-los' then gmon_dbg_los_enabled
:= false;
259 if arg
= '--profile-render' then g_profile_frame_draw
:= true;
260 if arg
= '--profile-coldet' then g_profile_collision
:= true;
261 if arg
= '--profile-los' then g_profile_los
:= true;
263 if arg
= '--no-part-phys' then gpart_dbg_phys_enabled
:= false;
264 if arg
= '--no-part-physics' then gpart_dbg_phys_enabled
:= false;
265 if arg
= '--no-particles-phys' then gpart_dbg_phys_enabled
:= false;
266 if arg
= '--no-particles-physics' then gpart_dbg_phys_enabled
:= false;
267 if arg
= '--no-particle-phys' then gpart_dbg_phys_enabled
:= false;
268 if arg
= '--no-particle-physics' then gpart_dbg_phys_enabled
:= false;
270 if arg
= '--debug-input' then g_dbg_input
:= True;
272 {.$IF DEFINED(D2F_DEBUG)}
273 if arg
= '--aimline' then g_dbg_aimline_on
:= true;
276 {$IFDEF ENABLE_HOLMES}
277 if arg
= '--holmes' then begin g_holmes_enabled
:= true; g_Game_SetDebugMode(); end;
279 if (arg
= '--holmes-ui-scale') or (arg
= '-holmes-ui-scale') then
281 if (idx
<= ParamCount
) then
283 if not conParseFloat(fuiRenderScale
, ParamStr(idx
)) then fuiRenderScale
:= 1.0;
288 if (arg
= '--holmes-font') or (arg
= '-holmes-font') then
290 if (idx
<= ParamCount
) then
293 val(ParamStr(idx
), itmp
, valres
);
295 if (valres
= 0) and (not g_holmes_imfunctional
) then
298 8: uiContext
.font
:= 'win8';
299 14: uiContext
.font
:= 'win14';
300 16: uiContext
.font
:= 'win16';
313 if (arg
= '--game-scale') or (arg
= '-game-scale') then
315 if (idx
<= ParamCount
) then
317 if not conParseFloat(g_dbg_scale
, ParamStr(idx
)) then g_dbg_scale
:= 1.0;
322 if (arg
= '--write-mapdef') or (arg
= '-write-mapdef') then
324 mdfo
:= createDiskFile('mapdef.txt');
325 mdfo
.WriteBuffer(defaultMapDef
[1], Length(defaultMapDef
));
331 {$IFNDEF USE_SYSSTUB}
332 PrintGLSupportedExtensions
;
333 glLegacyNPOT
:= not (GLExtensionSupported('GL_ARB_texture_non_power_of_two') or GLExtensionSupported('GL_OES_texture_npot'));
335 glLegacyNPOT
:= False;
337 if glNPOTOverride
and glLegacyNPOT
then
339 glLegacyNPOT
:= true;
340 e_logWriteln('NPOT texture emulation: FORCED');
344 if (glLegacyNPOT
) then e_logWriteln('NPOT texture emulation: enabled')
345 else e_logWriteln('NPOT texture emulation: disabled');
347 gwin_dump_extensions
:= false;
350 Time_Old
:= sys_GetTicks();
352 g_Net_InitLowLevel();
355 if (ParamCount
> 0) then g_Game_Process_Params();
359 if (not gGameOn
) and gAskLanguage
then g_Menu_AskLanguage();
362 e_WriteLog('Entering the main loop', TMsgType
.Notify
);
365 while not ProcessMessage() do begin end;
367 g_Net_Slist_ShutdownAll();
371 g_Net_DeinitLowLevel();
377 conRegVar('d_input', @g_dbg_input
, '', '')