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}
27 procedure KeyPress (K
: Word);
28 procedure CharPress (C
: AnsiChar);
31 {--- Read-only dirs ---}
38 AllMapDirs
: SSArray
; // Maps + Megawads
40 {--- Read-Write dirs ---}
46 ScreenshotDirs
: SSArray
;
47 MapDownloadDirs
: SSArray
;
48 WadDownloadDirs
: SSArray
;
53 {$INCLUDE ../nogl/noGLuses.inc}
54 {$IFDEF ENABLE_HOLMES}
55 g_holmes
, sdlcarcass
, fui_ctls
, fui_wadread
, fui_style
, fui_gfx_gl
,
66 wadreader
, e_log
, g_window
,
67 e_graphics
, e_input
, g_game
, g_console
, g_gui
,
68 e_sound
, g_options
, g_sound
, g_player
, g_basic
,
69 g_weapons
, SysUtils
, g_triggers
, MAPDEF
, g_map
, e_res
,
70 g_menu
, g_language
, g_net
, g_touch
, g_system
, g_res_downloader
,
76 charbuff
: packed array [0..15] of AnsiChar;
77 binPath
: AnsiString = '';
80 function GetBinaryPath (): AnsiString;
87 result
:= ExtractFilePath(ParamStr(0));
89 // it may be a symlink; do some guesswork here
90 sl
:= fpReadLink(ExtractFileName(ParamStr(0)));
91 if (sl
= ParamStr(0)) then
93 // use current directory, as we don't have anything better
98 result
:= fixSlashes(result
);
99 if (length(result
) > 0) and (result
[length(result
)] <> '/') then result
:= result
+'/';
102 procedure PrintDirs (msg
: AnsiString; dirs
: SSArray
);
105 e_LogWriteln(msg
+ ':');
107 e_LogWriteln(' ' + dir
);
111 function NSStringToAnsiString (s
: NSString
): AnsiString;
115 for i
:= 0 to s
.length
- 1 do
116 result
:= result
+ AnsiChar(s
.characterAtIndex(i
));
119 function GetBundlePath (): AnsiString;
120 var pathRef
: CFURLRef
; pathCFStr
: CFStringRef
; pathStr
: ShortString;
122 pathRef
:= CFBundleCopyBundleURL(CFBundleGetMainBundle());
123 pathCFStr
:= CFURLCopyFileSystemPath(pathRef
, kCFURLPOSIXPathStyle
);
124 CFStringGetPascalString(pathCFStr
, @pathStr
, 255, CFStringGetSystemEncoding());
126 CFRelease(pathCFStr
);
132 var i
: Integer; rwdir
, rodir
: AnsiString; rwdirs
, rodirs
: SSArray
;
134 procedure AddDir (var dirs
: SSArray
; append
: AnsiString);
136 SetLength(dirs
, Length(dirs
) + 1);
137 dirs
[High(dirs
)] := ExpandFileName(append
)
140 function IsSep (ch
: Char): Boolean;
143 result
:= (ch
= '/') or (ch
= '\');
145 result
:= (ch
= '/');
149 function OptimizePath (dir
: AnsiString): AnsiString;
150 var i
, len
: Integer; s
: AnsiString;
152 i
:= 1; len
:= Length(dir
); s
:= '';
155 if IsSep(dir
[i
]) then
157 s
:= s
+ DirectorySeparator
;
159 while (i
<= len
) and IsSep(dir
[i
]) do Inc(i
);
160 if (i
<= len
) and (dir
[i
] = '.') then
162 if (i
= len
) or IsSep(dir
[i
+ 1]) then
166 else if (i
+ 1 <= len
) and (dir
[i
+ 1] = '.') then
168 if (i
+ 1 = len
) or IsSep(dir
[i
+ 2]) then
185 procedure OptimizeDirs (var dirs
: SSArray
);
186 var i
, j
, k
: Integer;
188 for i
:= 0 to High(dirs
) do
189 dirs
[i
] := OptimizePath(dirs
[i
]);
197 if dirs
[j
] = dirs
[i
] then
199 for k
:= j
+ 1 to High(dirs
) do
200 dirs
[k
- 1] := dirs
[k
];
202 SetLength(dirs
, High(dirs
))
213 procedure AddDef (var dirs
: SSArray
; base
: SSArray
; append
: AnsiString);
216 if Length(dirs
) = 0 then
218 AddDir(dirs
, e_CatPath(s
, append
));
222 function GetDefaultRODirs (): SSArray
;
223 {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)}
224 var home
: AnsiString;
227 var appdata
: AnsiString;
230 var bundle
, s
: AnsiString; dirArr
: NSArray
; i
: Integer;
235 bundle
:= GetBundlePath();
236 if ExtractFileExt(bundle
) <> '.app' then
237 AddDir(result
, binpath
);
239 AddDir(result
, binPath
);
241 if forceBinDir
= false then
244 AddDir(result
, SDL_GetBasePath());
245 AddDir(result
, SDL_GetPrefPath('', 'doom2df'));
248 appdata
:= GetEnvironmentVariable('APPDATA') + '\doom2df';
249 if appdata
<> '' then
250 AddDir(result
, appdata
);
252 {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)}
253 AddDir(result
, '/usr/share/doom2df');
254 AddDir(result
, '/usr/local/share/doom2df');
255 home
:= GetEnvironmentVariable('HOME');
257 AddDir(result
, e_CatPath(home
, '.doom2df'));
260 bundle
:= GetBundlePath();
262 AddDir(result
, e_CatPath(bundle
, 'Contents/Resources'));
263 dirArr
:= NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory
, NSUserDomainMask
, true);
264 for i
:= 0 to dirArr
.count
- 1 do
266 s
:= NSStringToAnsiString(dirArr
.objectAtIndex(i
));
267 AddDir(result
, e_CatPath(s
, 'Doom 2D Forever'))
270 {$IF DEFINED(ANDROID) AND DEFINED(USE_SDL2)}
271 AddDir(result
, SDL_AndroidGetInternalStoragePath());
272 if SDL_AndroidGetExternalStorageState() <> 0 then
273 AddDir(result
, SDL_AndroidGetExternalStoragePath());
278 function GetDefaultRWDirs (): SSArray
;
279 {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)}
280 var home
: AnsiString;
283 var appdata
: AnsiString;
286 var bundle
, s
: AnsiString; dirArr
: NSArray
; i
: Integer;
291 bundle
:= GetBundlePath();
292 if ExtractFileExt(bundle
) <> '.app' then
293 AddDir(result
, binPath
);
295 AddDir(result
, binPath
);
297 if forceBinDir
= false then
300 AddDir(result
, SDL_GetPrefPath('', 'doom2df'));
303 appdata
:= GetEnvironmentVariable('APPDATA') + '\doom2df';
304 if appdata
<> '' then
305 AddDir(result
, appdata
);
307 {$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN) AND NOT DEFINED(ANDROID)}
308 home
:= GetEnvironmentVariable('HOME');
310 AddDir(result
, e_CatPath(home
, '.doom2df'));
313 dirArr
:= NSSearchPathForDirectoriesInDomains(NSApplicationSupportDirectory
, NSUserDomainMask
, true);
314 for i
:= 0 to dirArr
.count
- 1 do
316 s
:= NSStringToAnsiString(dirArr
.objectAtIndex(i
));
317 AddDir(result
, e_CatPath(s
, 'Doom 2D Forever'))
320 {$IF DEFINED(ANDROID) AND DEFINED(USE_SDL2)}
321 if SDL_AndroidGetExternalStorageState() <> 0 then
322 AddDir(result
, SDL_AndroidGetExternalStoragePath());
328 forceBinDir
:= false;
329 binPath
:= GetBinaryPath();
332 while i
< ParamCount
do
335 '--like-windoze': forceBinDir
:= true;
339 rwdir
:= ParamStr(i
);
341 AddDir(LogDirs
, e_CatPath(rwdir
, ''));
342 AddDir(SaveDirs
, e_CatPath(rwdir
, 'data'));
343 AddDir(CacheDirs
, e_CatPath(rwdir
, 'data/cache'));
344 AddDir(ConfigDirs
, e_CatPath(rwdir
, ''));
345 AddDir(MapDownloadDirs
, e_CatPath(rwdir
, 'maps/downloads'));
346 AddDir(WadDownloadDirs
, e_CatPath(rwdir
, 'wads/downloads'));
347 AddDir(ScreenshotDirs
, e_CatPath(rwdir
, 'screenshots'));
349 AddDir(DataDirs
, e_CatPath(rwdir
, 'data'));
350 AddDir(ModelDirs
, e_CatPath(rwdir
, 'data/models'));
351 AddDir(MegawadDirs
, e_CatPath(rwdir
, 'maps/megawads'));
352 AddDir(MapDirs
, e_CatPath(rwdir
, 'maps'));
353 AddDir(WadDirs
, e_CatPath(rwdir
, 'wads'));
358 rodir
:= ParamStr(i
);
360 AddDir(DataDirs
, e_CatPath(rodir
, 'data'));
361 AddDir(ModelDirs
, e_CatPath(rodir
, 'data/models'));
362 AddDir(MegawadDirs
, e_CatPath(rodir
, 'maps/megawads'));
363 AddDir(MapDirs
, e_CatPath(rodir
, 'maps'));
364 AddDir(WadDirs
, e_CatPath(rodir
, 'wads'));
370 // prefer bin dir if it writable and contains game.wad
371 if forceBinDir
= false then
373 if findDiskWad(binPath
+ 'data' + '/' + 'GAME') <> '' then
374 if e_CanCreateFilesAt(binPath
) then
379 rodirs
:= GetDefaultRODirs();
380 AddDef(DataDirs
, rodirs
, 'data');
381 AddDef(ModelDirs
, rodirs
, 'data/models');
382 AddDef(MegawadDirs
, rodirs
, 'maps/megawads');
383 AddDef(MapDirs
, rodirs
, 'maps');
384 AddDef(WadDirs
, rodirs
, 'wads');
387 rwdirs
:= GetDefaultRWDirs();
388 AddDef(LogDirs
, rwdirs
, '');
389 AddDef(SaveDirs
, rwdirs
, 'data');
390 AddDef(CacheDirs
, rwdirs
, 'data/cache');
391 AddDef(ConfigDirs
, rwdirs
, '');
392 AddDef(MapDownloadDirs
, rwdirs
, 'maps/downloads');
393 AddDef(WadDownloadDirs
, rwdirs
, 'wads/downloads');
394 AddDef(ScreenshotDirs
, rwdirs
, 'screenshots');
396 for i
:= 0 to High(MapDirs
) do
397 AddDir(AllMapDirs
, MapDirs
[i
]);
398 for i
:= 0 to High(MegawadDirs
) do
399 AddDir(AllMapDirs
, MegawadDirs
[i
]);
400 OptimizeDirs(AllMapDirs
);
402 if LogFileName
= '' then
404 rwdir
:= e_GetWriteableDir(LogDirs
, false);
408 LogFileName
:= e_CatPath(rwdir
, 'Doom2DF_H.log');
410 LogFileName
:= e_CatPath(rwdir
, 'Doom2DF.log');
417 {$IF DEFINED(ANDROID) AND DEFINED(USE_SDLMIXER)}
418 var timiditycfg
: AnsiString;
423 conbufDumpToStdOut
:= true;
425 for i
:= 1 to ParamCount
do
427 if (ParamStr(i
) = '--con-stdout') then
429 conbufDumpToStdOut
:= true;
434 if LogFileName
<> '' then
435 e_InitLog(LogFileName
, TWriteMode
.WM_NEWFILE
);
436 e_InitWritelnDriver();
437 e_WriteLog('Doom 2D: Forever version ' + GAME_VERSION
+ ' proto ' + IntToStr(NET_PROTOCOL_VER
), TMsgType
.Notify
);
438 e_WriteLog('Build date: ' + GAME_BUILDDATE
+ ' ' + GAME_BUILDTIME
, TMsgType
.Notify
);
439 e_WriteLog('Build hash: ' + g_GetBuildHash(), TMsgType
.Notify
);
440 e_WriteLog('Build by: ' + g_GetBuilderName(), TMsgType
.Notify
);
442 e_LogWritefln('Force bin dir: %s', [forceBinDir
], TMsgType
.Notify
);
443 e_LogWritefln('BINARY PATH: [%s]', [binPath
], TMsgType
.Notify
);
445 PrintDirs('DataDirs', DataDirs
);
446 PrintDirs('ModelDirs', ModelDirs
);
447 PrintDirs('MegawadDirs', MegawadDirs
);
448 PrintDirs('MapDirs', MapDirs
);
449 PrintDirs('WadDirs', WadDirs
);
451 PrintDirs('LogDirs', LogDirs
);
452 PrintDirs('SaveDirs', SaveDirs
);
453 PrintDirs('CacheDirs', CacheDirs
);
454 PrintDirs('ConfigDirs', ConfigDirs
);
455 PrintDirs('ScreenshotDirs', ScreenshotDirs
);
456 PrintDirs('MapDownloadDirs', MapDownloadDirs
);
457 PrintDirs('WadDownloadDirs', WadDownloadDirs
);
459 GameWAD
:= e_FindWad(DataDirs
, 'GAME');
462 e_WriteLog('GAME.WAD not installed?', TMsgType
.Fatal
);
463 {$IF DEFINED(USE_SDL2) AND NOT DEFINED(HEADLESS)}
464 if forceBinDir
= false then
465 SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR
, 'Doom 2D Forever', 'GAME.WAD not installed?', nil);
471 {$IF DEFINED(ANDROID) AND DEFINED(USE_SDLMIXER)}
472 timiditycfg
:= 'timidity.cfg';
473 if e_FindResource(ConfigDirs
, timiditycfg
) = true then
475 timiditycfg
:= ExpandFileName(timiditycfg
);
476 SetEnvVar('TIMIDITY_CFG', timiditycfg
);
477 e_LogWritefln('Set TIMIDITY_CFG = "%s"', [timiditycfg
]);
483 {$IFDEF ENABLE_HOLMES}
484 var flexloaded
: Boolean;
493 s
:= CONFIG_FILENAME
;
494 if e_FindResource(ConfigDirs
, s
) = true then
500 g_Options_SetDefault
;
501 g_Options_SetDefaultVideo
503 if sys_SetDisplayMode(gScreenWidth
, gScreenHeight
, gBPP
, gFullScreen
) = False then
504 raise Exception
.Create('Failed to set videomode on startup.');
507 e_WriteLog(gLanguage
, TMsgType
.Notify
);
508 g_Language_Set(gLanguage
);
510 {$IF not DEFINED(HEADLESS) and DEFINED(ENABLE_HOLMES)}
512 if not fuiAddWad('flexui.wad') then
514 if not fuiAddWad('./data/flexui.wad') then fuiAddWad('./flexui.wad');
517 fuiGfxLoadFont('win8', 'flexui/fonts/win8.fuifont');
518 fuiGfxLoadFont('win14', 'flexui/fonts/win14.fuifont');
519 fuiGfxLoadFont('win16', 'flexui/fonts/win16.fuifont');
520 fuiGfxLoadFont('dos8', 'flexui/fonts/dos8.fuifont');
521 fuiGfxLoadFont('msx6', 'flexui/fonts/msx6.fuifont');
522 except on e
: Exception
do
524 writeln('ERROR loading FlexUI fonts');
537 e_LogWriteln('FlexUI: loading stylesheet...');
538 uiLoadStyles('flexui/widgets.wgs');
539 except on e
: TParserException
do
541 writeln('ERROR at (', e
.tokLine
, ',', e
.tokCol
, '): ', e
.message);
552 g_holmes_imfunctional
:= not flexloaded
;
554 if (not g_holmes_imfunctional
) then
557 uiContext
.font
:= 'win14';
560 if assigned(oglInitCB
) then oglInitCB
;
563 //g_Res_CreateDatabases(true); // it will be done before connecting to the server for the first time
565 e_WriteLog('Entering SDLMain', TMsgType
.Notify
);
571 {$IFDEF ENABLE_HOLMES}
572 if assigned(oglDeinitCB
) then oglDeinitCB
;
585 {$IFDEF USE_SDLMIXER}
586 NoSound
:= False; // hope env has set SDL_AUDIODRIVER to dummy
588 NoSound
:= True; // FMOD backend will sort it out
597 if (e_JoysticksAvailable > 0) then
598 e_WriteLog('Input: Joysticks available.', TMsgType.Notify)
600 e_WriteLog('Input: No Joysticks.', TMsgType.Notify);
603 if (not gNoSound
) then
605 e_WriteLog('Initializing sound system', TMsgType
.Notify
);
606 e_InitSoundSystem(NoSound
);
609 e_WriteLog('Init game', TMsgType
.Notify
);
612 FillChar(charbuff
, sizeof(charbuff
), ' ');
618 e_WriteLog('Releasing engine', TMsgType
.Notify
);
621 e_WriteLog('Releasing input', TMsgType
.Notify
);
626 e_WriteLog('Releasing sound', TMsgType
.Notify
);
627 e_ReleaseSoundSystem();
644 function Translit (const S
: AnsiString): AnsiString;
649 for i
:= 1 to Length(Result
) do
652 'É': Result
[i
] := 'Q';
653 'Ö': Result
[i
] := 'W';
654 'Ó': Result
[i
] := 'E';
655 'Ê': Result
[i
] := 'R';
656 'Å': Result
[i
] := 'T';
657 'Í': Result
[i
] := 'Y';
658 'Ã': Result
[i
] := 'U';
659 'Ø': Result
[i
] := 'I';
660 'Ù': Result
[i
] := 'O';
661 'Ç': Result
[i
] := 'P';
662 'Õ': Result
[i
] := '['; //Chr(219);
663 'Ú': Result
[i
] := ']'; //Chr(221);
664 'Ô': Result
[i
] := 'A';
665 'Û': Result
[i
] := 'S';
666 'Â': Result
[i
] := 'D';
667 'À': Result
[i
] := 'F';
668 'Ï': Result
[i
] := 'G';
669 'Ð': Result
[i
] := 'H';
670 'Î': Result
[i
] := 'J';
671 'Ë': Result
[i
] := 'K';
672 'Ä': Result
[i
] := 'L';
673 'Æ': Result
[i
] := ';'; //Chr(186);
674 'Ý': Result
[i
] := #39; //Chr(222);
675 'ß': Result
[i
] := 'Z';
676 '×': Result
[i
] := 'X';
677 'Ñ': Result
[i
] := 'C';
678 'Ì': Result
[i
] := 'V';
679 'È': Result
[i
] := 'B';
680 'Ò': Result
[i
] := 'N';
681 'Ü': Result
[i
] := 'M';
682 'Á': Result
[i
] := ','; //Chr(188);
683 'Þ': Result
[i
] := '.'; //Chr(190);
689 function CheckCheat (ct
: TStrings_Locale
; eofs
: Integer=0): Boolean;
694 ls2
:= Translit(CheatRus
[ct
]);
695 if length(ls1
) = 0 then ls1
:= '~';
696 if length(ls2
) = 0 then ls2
:= '~';
698 (Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
)) = ls1
) or
699 (Translit(Copy(charbuff
, 17-Length(ls1
)-eofs
, Length(ls1
))) = ls1
) or
700 (Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
)) = ls2
) or
701 (Translit(Copy(charbuff
, 17-Length(ls2
)-eofs
, Length(ls2
))) = ls2
);
703 if ct = I_GAME_CHEAT_JETPACK then
705 e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
706 e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
707 e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
708 e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
709 e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
710 e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
727 if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
728 (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
729 or g_Game_IsNet then Exit;
731 if not gGameOn
then exit
;
732 if not conIsCheatsEnabled
then exit
;
734 s
:= 'SOUND_GAME_RADIO';
737 if CheckCheat(I_GAME_CHEAT_GODMODE
) then
739 if gPlayer1
<> nil then gPlayer1
.GodMode
:= not gPlayer1
.GodMode
;
740 if gPlayer2
<> nil then gPlayer2
.GodMode
:= not gPlayer2
.GodMode
;
744 if CheckCheat(I_GAME_CHEAT_WEAPONS
) then
746 if gPlayer1
<> nil then gPlayer1
.AllRulez(False);
747 if gPlayer2
<> nil then gPlayer2
.AllRulez(False);
751 if CheckCheat(I_GAME_CHEAT_HEALTH
) then
753 if gPlayer1
<> nil then gPlayer1
.AllRulez(True);
754 if gPlayer2
<> nil then gPlayer2
.AllRulez(True);
758 if CheckCheat(I_GAME_CHEAT_DEATH
) then
760 if gPlayer1
<> nil then gPlayer1
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
761 if gPlayer2
<> nil then gPlayer2
.Damage(CHEAT_DAMAGE
, 0, 0, 0, HIT_TRAP
);
762 s
:= 'SOUND_MONSTER_HAHA';
766 if CheckCheat(I_GAME_CHEAT_DOORS
) then
768 g_Triggers_OpenAll();
772 if CheckCheat(I_GAME_CHEAT_NEXTMAP
) then
774 if gTriggers
<> nil then
775 for a
:= 0 to High(gTriggers
) do
776 if gTriggers
[a
].TriggerType
= TRIGGER_EXIT
then
778 gExitByTrigger
:= True;
779 //g_Game_ExitLevel(gTriggers[a].Data.MapName);
780 g_Game_ExitLevel(gTriggers
[a
].tgcMap
);
786 s2
:= Copy(charbuff
, 15, 2);
787 if CheckCheat(I_GAME_CHEAT_CHANGEMAP
, 2) and (s2
[1] >= '0') and (s2
[1] <= '9') and (s2
[2] >= '0') and (s2
[2] <= '9') then
789 if g_Map_Exist(gGameSettings
.WAD
+ ':\MAP' + s2
) then
797 if CheckCheat(I_GAME_CHEAT_FLY
) then
803 if CheckCheat(I_GAME_CHEAT_JUMPS
) then
805 VEL_JUMP
:= 30-VEL_JUMP
;
809 if CheckCheat(I_GAME_CHEAT_SPEED
) then
811 MAX_RUNVEL
:= 32-MAX_RUNVEL
;
815 if CheckCheat(I_GAME_CHEAT_SUIT
) then
817 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_SUIT
);
818 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_SUIT
);
822 if CheckCheat(I_GAME_CHEAT_AIR
) then
824 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_OXYGEN
);
825 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_OXYGEN
);
829 if CheckCheat(I_GAME_CHEAT_BERSERK
) then
831 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_MEDKIT_BLACK
);
832 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_MEDKIT_BLACK
);
836 if CheckCheat(I_GAME_CHEAT_JETPACK
) then
838 if gPlayer1
<> nil then gPlayer1
.GiveItem(ITEM_JETPACK
);
839 if gPlayer2
<> nil then gPlayer2
.GiveItem(ITEM_JETPACK
);
843 if CheckCheat(I_GAME_CHEAT_NOCLIP
) then
845 if gPlayer1
<> nil then gPlayer1
.SwitchNoClip
;
846 if gPlayer2
<> nil then gPlayer2
.SwitchNoClip
;
850 if CheckCheat(I_GAME_CHEAT_NOTARGET
) then
852 if gPlayer1
<> nil then gPlayer1
.NoTarget
:= not gPlayer1
.NoTarget
;
853 if gPlayer2
<> nil then gPlayer2
.NoTarget
:= not gPlayer2
.NoTarget
;
857 if CheckCheat(I_GAME_CHEAT_NORELOAD
) then
859 if gPlayer1
<> nil then gPlayer1
.NoReload
:= not gPlayer1
.NoReload
;
860 if gPlayer2
<> nil then gPlayer2
.NoReload
:= not gPlayer2
.NoReload
;
863 if CheckCheat(I_GAME_CHEAT_AIMLINE
) then
865 gAimLine
:= not gAimLine
;
868 if CheckCheat(I_GAME_CHEAT_AUTOMAP
) then
870 gShowMap
:= not gShowMap
;
880 procedure KeyPress (K
: Word);
890 if (g_ActiveWindow
<> nil) then
892 Msg
.Msg
:= WM_KEYDOWN
;
893 Msg
.WParam
:= VK_ESCAPE
;
894 g_ActiveWindow
.OnMessage(Msg
);
895 if (not g_Game_IsNet
) and (g_ActiveWindow
= nil) then g_Game_Pause(false); //Fn loves to do this
897 else if (gState
<> STATE_FOLD
) then
899 if gGameOn
or (gState
= STATE_INTERSINGLE
) or (gState
= STATE_INTERCUSTOM
) then
901 g_Game_InGameMenu(True);
903 else if (gExit
= 0) and (gState
<> STATE_SLIST
) then
905 if (gState
<> STATE_MENU
) then
907 if (NetMode
<> NET_NONE
) then
909 g_Game_StopAllSounds(True);
911 gState
:= STATE_MENU
;
915 g_GUI_ShowWindow('MainMenu');
916 g_Sound_PlayEx('MENU_OPEN');
921 IK_F2
, IK_F3
, IK_F4
, IK_F5
, IK_F6
, IK_F7
, IK_F10
:
922 begin // <F2> .. <F6> � <F12>
923 if gGameOn
and (not gConsoleShow
) and (not gChatShow
) then
925 while (g_ActiveWindow
<> nil) do g_GUI_HideWindow(False);
926 if (not g_Game_IsNet
) then g_Game_Pause(True);
928 IK_F2
: g_Menu_Show_SaveMenu();
929 IK_F3
: g_Menu_Show_LoadMenu();
930 IK_F4
: g_Menu_Show_GameSetGame();
931 IK_F5
: g_Menu_Show_OptionsVideo();
932 IK_F6
: g_Menu_Show_OptionsSound();
933 IK_F7
: g_Menu_Show_EndGameMenu();
934 IK_F10
: g_Menu_Show_QuitGameMenu();
941 gJustChatted
:= False;
942 if gConsoleShow
or gChatShow
then
944 g_Console_Control(K
);
946 else if (g_ActiveWindow
<> nil) then
948 Msg
.Msg
:= WM_KEYDOWN
;
950 g_ActiveWindow
.OnMessage(Msg
);
952 else if (gState
= STATE_MENU
) then
954 g_GUI_ShowWindow('MainMenu');
955 g_Sound_PlayEx('MENU_OPEN');
963 procedure CharPress (C
: AnsiChar);
968 if gConsoleShow
or gChatShow
then
972 else if (g_ActiveWindow
<> nil) then
975 Msg
.WParam
:= Ord(C
);
976 g_ActiveWindow
.OnMessage(Msg
);
980 for a
:= 0 to 14 do charbuff
[a
] := charbuff
[a
+1];
981 charbuff
[15] := upcase1251(C
);