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, either version 3 of the License, or
6 * (at your option) any later version.
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program. If not, see <http://www.gnu.org/licenses/>.
26 procedure KeyPress(K
: Word);
27 procedure CharPress(C
: Char);
39 SDL2
, GL
, GLExt
, wadreader
, e_log
, g_window
,
40 e_graphics
, e_input
, g_game
, g_console
, g_gui
,
41 e_sound
, g_options
, g_sound
, g_player
,
42 g_weapons
, SysUtils
, g_triggers
, MAPDEF
, g_map
,
43 MAPSTRUCT
, g_menu
, g_language
, g_net
, utils
, conbuf
;
46 charbuff
: Array [0..15] of Char;
52 e_InitWritelnDriver();
55 MapsDir
:= GameDir
+ '/maps/';
56 DataDir
:= GameDir
+ '/data/';
57 ModelsDir
:= DataDir
+ 'models/';
58 GameWAD
:= DataDir
+ 'Game.wad';
60 e_InitLog(GameDir
+ '/' + LOG_FILENAME
, WM_NEWFILE
);
62 e_WriteLog('Read config file', MSG_NOTIFY
);
63 g_Options_Read(GameDir
+ '/' + CONFIG_FILENAME
);
66 conbufDumpToStdOut
:= true;
68 e_WriteToStdOut
:= False; //{$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF}
70 //GetSystemDefaultLCID()
72 //e_WriteLog('Read language file', MSG_NOTIFY);
73 //g_Language_Load(DataDir + gLanguage + '.txt');
74 e_WriteLog(gLanguage
, MSG_NOTIFY
);
75 g_Language_Set(gLanguage
);
78 sdlflags
:= SDL_INIT_TIMER
or $00004000;
81 sdlflags
:= SDL_INIT_EVERYTHING
;
83 sdlflags
:= SDL_INIT_JOYSTICK
or SDL_INIT_TIMER
or SDL_INIT_VIDEO
;
86 if SDL_Init(sdlflags
) < 0 then
87 raise Exception
.Create('SDL: Init failed: ' + SDL_GetError());
93 e_WriteLog('Entering SDLMain', MSG_NOTIFY
);
103 e_WriteLog('Releasing SDL', MSG_NOTIFY
);
113 e_WriteLog('Init Input', MSG_NOTIFY
);
116 if (e_JoysticksAvailable
> 0) then
117 e_WriteLog('Input: Joysticks available.', MSG_NOTIFY
)
119 e_WriteLog('Input: No Joysticks.', MSG_NOTIFY
);
121 if (not gNoSound
) then
123 e_WriteLog('Initializing sound system', MSG_NOTIFY
);
124 e_InitSoundSystem({$IFDEF HEADLESS}True{$ELSE}False{$ENDIF});
127 e_WriteLog('Init game', MSG_NOTIFY
);
130 for a
:= 0 to 15 do charbuff
[a
] := ' ';
135 e_WriteLog('Releasing engine', MSG_NOTIFY
);
138 e_WriteLog('Releasing Input', MSG_NOTIFY
);
143 e_WriteLog('Releasing FMOD', MSG_NOTIFY
);
144 e_ReleaseSoundSystem();
158 function Translit(S
: String): String;
163 for i
:= 1 to Length(Result
) do
165 'É': Result
[i
] := 'Q';
166 'Ö': Result
[i
] := 'W';
167 'Ó': Result
[i
] := 'E';
168 'Ê': Result
[i
] := 'R';
169 'Å': Result
[i
] := 'T';
170 'Í': Result
[i
] := 'Y';
171 'Ã': Result
[i
] := 'U';
172 'Ø': Result
[i
] := 'I';
173 'Ù': Result
[i
] := 'O';
174 'Ç': Result
[i
] := 'P';
175 'Õ': Result
[i
] := '['; //Chr(219);
176 'Ú': Result
[i
] := ']'; //Chr(221);
177 'Ô': Result
[i
] := 'A';
178 'Û': Result
[i
] := 'S';
179 'Â': Result
[i
] := 'D';
180 'À': Result
[i
] := 'F';
181 'Ï': Result
[i
] := 'G';
182 'Ð': Result
[i
] := 'H';
183 'Î': Result
[i
] := 'J';
184 'Ë': Result
[i
] := 'K';
185 'Ä': Result
[i
] := 'L';
186 'Æ': Result
[i
] := ';'; //Chr(186);
187 'Ý': Result
[i
] := #39; //Chr(222);
188 'ß': Result
[i
] := 'Z';
189 '×': Result
[i
] := 'X';
190 'Ñ': Result
[i
] := 'C';
191 'Ì': Result
[i
] := 'V';
192 'È': Result
[i
] := 'B';
193 'Ò': Result
[i
] := 'N';
194 'Ü': Result
[i
] := 'M';
195 'Á': Result
[i
] := ','; //Chr(188);
196 'Þ': Result
[i
] := '.'; //Chr(190);
201 function CheckCheat (ct
: TStrings_Locale
; eofs
: Integer=0): Boolean;
206 ls2
:= Translit(CheatRus
[ct
]);
207 if length(ls1
) = 0 then ls1
:= '~';
208 if length(ls2
) = 0 then ls2
:= '~';
210 (Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
)) = ls1
) or
211 (Translit(Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
))) = ls1
) or
212 (Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
)) = ls2
) or
213 (Translit(Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
))) = ls2
);
215 if ct = I_GAME_CHEAT_JETPACK then
217 e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
218 e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
219 e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
220 e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
221 e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
222 e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
238 if (not gGameOn
) or (not gCheats
) or ((gGameSettings
.GameType
<> GT_SINGLE
) and
239 (gGameSettings
.GameMode
<> GM_COOP
) and (not gDebugMode
))
240 or g_Game_IsNet
then Exit
;
242 s
:= 'SOUND_GAME_RADIO';
245 if CheckCheat(I_GAME_CHEAT_GODMODE
) then
247 if gPlayer1
<> nil then gPlayer1
.GodMode
:= not gPlayer1
.GodMode
;
248 if gPlayer2
<> nil then gPlayer2
.GodMode
:= not gPlayer2
.GodMode
;
252 if CheckCheat(I_GAME_CHEAT_WEAPONS
) then
254 if gPlayer1
<> nil then gPlayer1
.AllRulez(False);
255 if gPlayer2
<> nil then gPlayer2
.AllRulez(False);
259 if CheckCheat(I_GAME_CHEAT_HEALTH
) then
261 if gPlayer1
<> nil then gPlayer1
.AllRulez(True);
262 if gPlayer2
<> nil then gPlayer2
.AllRulez(True);
266 if CheckCheat(I_GAME_CHEAT_DEATH
) then
268 if gPlayer1
<> nil then gPlayer1
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
269 if gPlayer2
<> nil then gPlayer2
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
270 s
:= 'SOUND_MONSTER_HAHA';
274 if CheckCheat(I_GAME_CHEAT_DOORS
) then
276 g_Triggers_OpenAll();
280 if CheckCheat(I_GAME_CHEAT_NEXTMAP
) then
282 if gTriggers
<> nil then
283 for a
:= 0 to High(gTriggers
) do
284 if gTriggers
[a
].TriggerType
= TRIGGER_EXIT
then
286 gExitByTrigger
:= True;
287 g_Game_ExitLevel(gTriggers
[a
].Data
.MapName
);
293 s2
:= Copy(charbuff
, 15, 2);
294 if CheckCheat(I_GAME_CHEAT_CHANGEMAP
, 2) and (s2
[1] >= '0') and (s2
[1] <= '9') and (s2
[2] >= '0') and (s2
[2] <= '9') then
296 if g_Map_Exist(MapsDir
+gGameSettings
.WAD
+':\MAP'+s2
) then
306 if CheckCheat(I_GAME_CHEAT_FLY
) then
312 if CheckCheat(I_GAME_CHEAT_JUMPS
) then
314 VEL_JUMP
:= 30-VEL_JUMP
;
318 if CheckCheat(I_GAME_CHEAT_SPEED
) then
320 MAX_RUNVEL
:= 32-MAX_RUNVEL
;
324 if CheckCheat(I_GAME_CHEAT_SUIT
) then
326 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_SUIT
);
327 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_SUIT
);
331 if CheckCheat(I_GAME_CHEAT_AIR
) then
333 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_OXYGEN
);
334 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_OXYGEN
);
338 if CheckCheat(I_GAME_CHEAT_BERSERK
) then
340 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_MEDKIT_BLACK
);
341 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_MEDKIT_BLACK
);
345 if CheckCheat(I_GAME_CHEAT_JETPACK
) then
347 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_JETPACK
);
348 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_JETPACK
);
352 if CheckCheat(I_GAME_CHEAT_NOCLIP
) then
354 if gPlayer1
<> nil then gPlayer1
.SwitchNoClip
;
355 if gPlayer2
<> nil then gPlayer2
.SwitchNoClip
;
359 if CheckCheat(I_GAME_CHEAT_NOTARGET
) then
361 if gPlayer1
<> nil then gPlayer1
.NoTarget
:= not gPlayer1
.NoTarget
;
362 if gPlayer2
<> nil then gPlayer2
.NoTarget
:= not gPlayer2
.NoTarget
;
366 if CheckCheat(I_GAME_CHEAT_NORELOAD
) then
368 if gPlayer1
<> nil then gPlayer1
.NoReload
:= not gPlayer1
.NoReload
;
369 if gPlayer2
<> nil then gPlayer2
.NoReload
:= not gPlayer2
.NoReload
;
372 if CheckCheat(I_GAME_CHEAT_AIMLINE
) then
374 gAimLine
:= not gAimLine
;
377 if CheckCheat(I_GAME_CHEAT_AUTOMAP
) then
379 gShowMap
:= not gShowMap
;
388 procedure KeyPress(K
: Word);
393 IK_PAUSE
: // <Pause/Break>:
395 if (g_ActiveWindow
= nil) then
396 g_Game_Pause(not gPause
);
399 IK_BACKQUOTE
: // <`/~/¨/¸>:
408 g_Console_Chat_Switch();
415 if g_ActiveWindow
<> nil then
417 Msg
.Msg
:= WM_KEYDOWN
;
418 Msg
.WParam
:= IK_ESCAPE
;
419 g_ActiveWindow
.OnMessage(Msg
);
422 if gState
<> STATE_FOLD
then
424 or (gState
= STATE_INTERSINGLE
)
425 or (gState
= STATE_INTERCUSTOM
)
427 g_Game_InGameMenu(True)
429 if (gExit
= 0) and (gState
<> STATE_SLIST
) then
431 if gState
<> STATE_MENU
then
432 if NetMode
<> NET_NONE
then
434 g_Game_StopAllSounds(True);
436 gState
:= STATE_MENU
;
440 g_GUI_ShowWindow('MainMenu');
441 g_Sound_PlayEx('MENU_OPEN');
445 IK_F2
, IK_F3
, IK_F4
, IK_F5
, IK_F6
, IK_F7
, IK_F10
:
446 begin // <F2> .. <F6> � <F12>
447 if gGameOn
and (not gConsoleShow
) and (not gChatShow
) then
449 while g_ActiveWindow
<> nil do
450 g_GUI_HideWindow(False);
452 if (not g_Game_IsNet
) then
457 g_Menu_Show_SaveMenu();
459 g_Menu_Show_LoadMenu();
461 g_Menu_Show_GameSetGame();
463 g_Menu_Show_OptionsVideo();
465 g_Menu_Show_OptionsSound();
467 g_Menu_Show_EndGameMenu();
469 g_Menu_Show_QuitGameMenu();
476 gJustChatted
:= False;
477 if gConsoleShow
or gChatShow
then
480 if g_ActiveWindow
<> nil then
482 Msg
.Msg
:= WM_KEYDOWN
;
484 g_ActiveWindow
.OnMessage(Msg
);
488 if (gState
= STATE_MENU
) then
490 g_GUI_ShowWindow('MainMenu');
491 g_Sound_PlayEx('MENU_OPEN');
498 procedure CharPress(C
: Char);
503 if (not gChatShow
) and ((C
= '`') or (C
= '~') or (C
= '¸') or (C
= '¨')) then
506 if gConsoleShow
or gChatShow
then
509 if g_ActiveWindow
<> nil then
512 Msg
.WParam
:= Ord(C
);
513 g_ActiveWindow
.OnMessage(Msg
);
517 for a
:= 0 to 14 do charbuff
[a
] := charbuff
[a
+1];
518 charbuff
[15] := UpCase1251(C
);