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}
25 procedure KeyPress (K
: Word);
26 procedure CharPress (C
: AnsiChar);
39 {$INCLUDE ../nogl/noGLuses.inc}
40 {$IFDEF ENABLE_HOLMES}
41 g_holmes
, sdlcarcass
, fui_ctls
, fui_wadread
, fui_style
, fui_gfx_gl
,
43 wadreader
, e_log
, g_window
,
44 e_graphics
, e_input
, g_game
, g_console
, g_gui
,
45 e_sound
, g_options
, g_sound
, g_player
, g_basic
,
46 g_weapons
, SysUtils
, g_triggers
, MAPDEF
, g_map
,
47 g_menu
, g_language
, g_net
, g_touch
, g_system
, g_res_downloader
,
48 utils
, conbuf
, envvars
,
53 charbuff
: packed array [0..15] of AnsiChar;
58 {$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)}
62 e_InitWritelnDriver();
65 MapsDir
:= GameDir
+ '/maps/';
66 DataDir
:= GameDir
+ '/data/';
67 ModelsDir
:= DataDir
+ 'models/';
68 GameWAD
:= DataDir
+ 'Game.wad';
70 e_InitLog(GameDir
+ '/' + LogFileName
, TWriteMode
.WM_NEWFILE
);
73 'Doom 2D: Forever version ' + GAME_VERSION
+
74 ' proto ' + IntToStr(NET_PROTOCOL_VER
),
78 'Build date: ' + GAME_BUILDDATE
+ ' ' + GAME_BUILDTIME
,
83 conbufDumpToStdOut
:= true;
85 e_WriteToStdOut
:= False; //{$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF}
90 g_Options_Read(GameDir
+ '/' + CONFIG_FILENAME
);
91 if sys_SetDisplayMode(gScreenWidth
, gScreenHeight
, gBPP
, gFullScreen
) = False then
92 raise Exception
.Create('Failed to set videomode on startup.');
95 e_WriteLog(gLanguage
, TMsgType
.Notify
);
96 g_Language_Set(gLanguage
);
98 {$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)}
100 if not fuiAddWad('flexui.wad') then
102 if not fuiAddWad('./data/flexui.wad') then fuiAddWad('./flexui.wad');
105 fuiGfxLoadFont('win8', 'flexui/fonts/win8.fuifont');
106 fuiGfxLoadFont('win14', 'flexui/fonts/win14.fuifont');
107 fuiGfxLoadFont('win16', 'flexui/fonts/win16.fuifont');
108 fuiGfxLoadFont('dos8', 'flexui/fonts/dos8.fuifont');
109 fuiGfxLoadFont('msx6', 'flexui/fonts/msx6.fuifont');
110 except on e
: Exception
do
112 writeln('ERROR loading FlexUI fonts');
125 e_LogWriteln('FlexUI: loading stylesheet...');
126 uiLoadStyles('flexui/widgets.wgs');
127 except on e
: TParserException
do
129 writeln('ERROR at (', e
.tokLine
, ',', e
.tokCol
, '): ', e
.message);
140 g_holmes_imfunctional
:= not flexloaded
;
142 if (not g_holmes_imfunctional
) then
145 uiContext
.font
:= 'win14';
148 if assigned(oglInitCB
) then oglInitCB
;
151 //g_Res_CreateDatabases(); // it will be done before connecting to the server for the first time
153 e_WriteLog('Entering SDLMain', TMsgType
.Notify
);
159 {$IFDEF ENABLE_HOLMES}
160 if assigned(oglDeinitCB
) then oglDeinitCB
;
173 {$IFDEF USE_SDLMIXER}
174 NoSound
:= False; // hope env has set SDL_AUDIODRIVER to dummy
176 NoSound
:= True; // FMOD backend will sort it out
185 if (e_JoysticksAvailable > 0) then
186 e_WriteLog('Input: Joysticks available.', TMsgType.Notify)
188 e_WriteLog('Input: No Joysticks.', TMsgType.Notify);
191 if (not gNoSound
) then
193 e_WriteLog('Initializing sound system', TMsgType
.Notify
);
194 e_InitSoundSystem(NoSound
);
197 e_WriteLog('Init game', TMsgType
.Notify
);
200 FillChar(charbuff
, sizeof(charbuff
), ' ');
206 e_WriteLog('Releasing engine', TMsgType
.Notify
);
209 e_WriteLog('Releasing Input', TMsgType
.Notify
);
214 e_WriteLog('Releasing FMOD', TMsgType
.Notify
);
215 e_ReleaseSoundSystem();
232 function Translit (const S
: AnsiString): AnsiString;
237 for i
:= 1 to Length(Result
) do
240 'É': Result
[i
] := 'Q';
241 'Ö': Result
[i
] := 'W';
242 'Ó': Result
[i
] := 'E';
243 'Ê': Result
[i
] := 'R';
244 'Å': Result
[i
] := 'T';
245 'Í': Result
[i
] := 'Y';
246 'Ã': Result
[i
] := 'U';
247 'Ø': Result
[i
] := 'I';
248 'Ù': Result
[i
] := 'O';
249 'Ç': Result
[i
] := 'P';
250 'Õ': Result
[i
] := '['; //Chr(219);
251 'Ú': Result
[i
] := ']'; //Chr(221);
252 'Ô': Result
[i
] := 'A';
253 'Û': Result
[i
] := 'S';
254 'Â': Result
[i
] := 'D';
255 'À': Result
[i
] := 'F';
256 'Ï': Result
[i
] := 'G';
257 'Ð': Result
[i
] := 'H';
258 'Î': Result
[i
] := 'J';
259 'Ë': Result
[i
] := 'K';
260 'Ä': Result
[i
] := 'L';
261 'Æ': Result
[i
] := ';'; //Chr(186);
262 'Ý': Result
[i
] := #39; //Chr(222);
263 'ß': Result
[i
] := 'Z';
264 '×': Result
[i
] := 'X';
265 'Ñ': Result
[i
] := 'C';
266 'Ì': Result
[i
] := 'V';
267 'È': Result
[i
] := 'B';
268 'Ò': Result
[i
] := 'N';
269 'Ü': Result
[i
] := 'M';
270 'Á': Result
[i
] := ','; //Chr(188);
271 'Þ': Result
[i
] := '.'; //Chr(190);
277 function CheckCheat (ct
: TStrings_Locale
; eofs
: Integer=0): Boolean;
282 ls2
:= Translit(CheatRus
[ct
]);
283 if length(ls1
) = 0 then ls1
:= '~';
284 if length(ls2
) = 0 then ls2
:= '~';
286 (Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
)) = ls1
) or
287 (Translit(Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
))) = ls1
) or
288 (Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
)) = ls2
) or
289 (Translit(Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
))) = ls2
);
291 if ct = I_GAME_CHEAT_JETPACK then
293 e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
294 e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
295 e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
296 e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
297 e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
298 e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
315 if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
316 (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
317 or g_Game_IsNet then Exit;
319 if not gGameOn
then exit
;
320 if not conIsCheatsEnabled
then exit
;
322 s
:= 'SOUND_GAME_RADIO';
325 if CheckCheat(I_GAME_CHEAT_GODMODE
) then
327 if gPlayer1
<> nil then gPlayer1
.GodMode
:= not gPlayer1
.GodMode
;
328 if gPlayer2
<> nil then gPlayer2
.GodMode
:= not gPlayer2
.GodMode
;
332 if CheckCheat(I_GAME_CHEAT_WEAPONS
) then
334 if gPlayer1
<> nil then gPlayer1
.AllRulez(False);
335 if gPlayer2
<> nil then gPlayer2
.AllRulez(False);
339 if CheckCheat(I_GAME_CHEAT_HEALTH
) then
341 if gPlayer1
<> nil then gPlayer1
.AllRulez(True);
342 if gPlayer2
<> nil then gPlayer2
.AllRulez(True);
346 if CheckCheat(I_GAME_CHEAT_DEATH
) then
348 if gPlayer1
<> nil then gPlayer1
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
349 if gPlayer2
<> nil then gPlayer2
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
350 s
:= 'SOUND_MONSTER_HAHA';
354 if CheckCheat(I_GAME_CHEAT_DOORS
) then
356 g_Triggers_OpenAll();
360 if CheckCheat(I_GAME_CHEAT_NEXTMAP
) then
362 if gTriggers
<> nil then
363 for a
:= 0 to High(gTriggers
) do
364 if gTriggers
[a
].TriggerType
= TRIGGER_EXIT
then
366 gExitByTrigger
:= True;
367 //g_Game_ExitLevel(gTriggers[a].Data.MapName);
368 g_Game_ExitLevel(gTriggers
[a
].tgcMap
);
374 s2
:= Copy(charbuff
, 15, 2);
375 if CheckCheat(I_GAME_CHEAT_CHANGEMAP
, 2) and (s2
[1] >= '0') and (s2
[1] <= '9') and (s2
[2] >= '0') and (s2
[2] <= '9') then
377 if g_Map_Exist(MapsDir
+gGameSettings
.WAD
+':\MAP'+s2
) then
385 if CheckCheat(I_GAME_CHEAT_FLY
) then
391 if CheckCheat(I_GAME_CHEAT_JUMPS
) then
393 VEL_JUMP
:= 30-VEL_JUMP
;
397 if CheckCheat(I_GAME_CHEAT_SPEED
) then
399 MAX_RUNVEL
:= 32-MAX_RUNVEL
;
403 if CheckCheat(I_GAME_CHEAT_SUIT
) then
405 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_SUIT
);
406 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_SUIT
);
410 if CheckCheat(I_GAME_CHEAT_AIR
) then
412 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_OXYGEN
);
413 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_OXYGEN
);
417 if CheckCheat(I_GAME_CHEAT_BERSERK
) then
419 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_MEDKIT_BLACK
);
420 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_MEDKIT_BLACK
);
424 if CheckCheat(I_GAME_CHEAT_JETPACK
) then
426 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_JETPACK
);
427 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_JETPACK
);
431 if CheckCheat(I_GAME_CHEAT_NOCLIP
) then
433 if gPlayer1
<> nil then gPlayer1
.SwitchNoClip
;
434 if gPlayer2
<> nil then gPlayer2
.SwitchNoClip
;
438 if CheckCheat(I_GAME_CHEAT_NOTARGET
) then
440 if gPlayer1
<> nil then gPlayer1
.NoTarget
:= not gPlayer1
.NoTarget
;
441 if gPlayer2
<> nil then gPlayer2
.NoTarget
:= not gPlayer2
.NoTarget
;
445 if CheckCheat(I_GAME_CHEAT_NORELOAD
) then
447 if gPlayer1
<> nil then gPlayer1
.NoReload
:= not gPlayer1
.NoReload
;
448 if gPlayer2
<> nil then gPlayer2
.NoReload
:= not gPlayer2
.NoReload
;
451 if CheckCheat(I_GAME_CHEAT_AIMLINE
) then
453 gAimLine
:= not gAimLine
;
456 if CheckCheat(I_GAME_CHEAT_AUTOMAP
) then
458 gShowMap
:= not gShowMap
;
468 procedure KeyPress (K
: Word);
478 if (g_ActiveWindow
<> nil) then
480 Msg
.Msg
:= WM_KEYDOWN
;
481 Msg
.WParam
:= VK_ESCAPE
;
482 g_ActiveWindow
.OnMessage(Msg
);
483 if (not g_Game_IsNet
) and (g_ActiveWindow
= nil) then g_Game_Pause(false); //Fn loves to do this
485 else if (gState
<> STATE_FOLD
) then
487 if gGameOn
or (gState
= STATE_INTERSINGLE
) or (gState
= STATE_INTERCUSTOM
) then
489 g_Game_InGameMenu(True);
491 else if (gExit
= 0) and (gState
<> STATE_SLIST
) then
493 if (gState
<> STATE_MENU
) then
495 if (NetMode
<> NET_NONE
) then
497 g_Game_StopAllSounds(True);
499 gState
:= STATE_MENU
;
503 g_GUI_ShowWindow('MainMenu');
504 g_Sound_PlayEx('MENU_OPEN');
509 IK_F2
, IK_F3
, IK_F4
, IK_F5
, IK_F6
, IK_F7
, IK_F10
:
510 begin // <F2> .. <F6> � <F12>
511 if gGameOn
and (not gConsoleShow
) and (not gChatShow
) then
513 while (g_ActiveWindow
<> nil) do g_GUI_HideWindow(False);
514 if (not g_Game_IsNet
) then g_Game_Pause(True);
516 IK_F2
: g_Menu_Show_SaveMenu();
517 IK_F3
: g_Menu_Show_LoadMenu();
518 IK_F4
: g_Menu_Show_GameSetGame();
519 IK_F5
: g_Menu_Show_OptionsVideo();
520 IK_F6
: g_Menu_Show_OptionsSound();
521 IK_F7
: g_Menu_Show_EndGameMenu();
522 IK_F10
: g_Menu_Show_QuitGameMenu();
529 gJustChatted
:= False;
530 if gConsoleShow
or gChatShow
then
532 g_Console_Control(K
);
534 else if (g_ActiveWindow
<> nil) then
536 Msg
.Msg
:= WM_KEYDOWN
;
538 g_ActiveWindow
.OnMessage(Msg
);
540 else if (gState
= STATE_MENU
) then
542 g_GUI_ShowWindow('MainMenu');
543 g_Sound_PlayEx('MENU_OPEN');
551 procedure CharPress (C
: AnsiChar);
556 if gConsoleShow
or gChatShow
then
560 else if (g_ActiveWindow
<> nil) then
563 Msg
.WParam
:= Ord(C
);
564 g_ActiveWindow
.OnMessage(Msg
);
568 for a
:= 0 to 14 do charbuff
[a
] := charbuff
[a
+1];
569 charbuff
[15] := upcase1251(C
);