feb59808af5870cd802b22a8c1bbad0ac3e525af
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, either version 3 of the License, or
6 * (at your option) any later version.
7 *
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.
12 *
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/>.
15 *)
16 {$INCLUDE ../shared/a_modes.inc}
19 interface
29 var
36 implementation
38 uses
46 var
50 var
52 begin
66 {$IFDEF HEADLESS}
68 {$ENDIF}
71 //GetSystemDefaultLCID()
73 //e_WriteLog('Read language file', MSG_NOTIFY);
74 //g_Language_Load(DataDir + gLanguage + '.txt');
78 {$IFDEF HEADLESS}
79 {$IFDEF USE_SDLMIXER}
81 // HACK: shit this into env and hope for the best
83 {$ELSE}
85 {$ENDIF}
86 {$ELSE}
87 {$IFDEF USE_SDLMIXER}
89 {$ELSE}
91 {$ENDIF}
92 {$ENDIF}
96 {$IFDEF HEADLESS}
98 {$ENDIF}
102 {$WARNINGS OFF}
104 {$WARNINGS ON}
106 {$IFDEF HEADLESS}
108 {$ENDIF}
115 var
118 begin
119 Randomize;
121 {$IFDEF HEADLESS}
122 {$IFDEF USE_SDLMIXER}
124 {$ELSE}
126 {$ENDIF}
127 {$ELSE}
129 {$ENDIF}
136 else
140 begin
152 begin
160 begin
167 begin
172 begin
177 var
179 begin
220 var
222 begin
227 result :=
232 {
233 if ct = I_GAME_CHEAT_JETPACK then
234 begin
235 e_WriteLog('ls1: ['+ls1+']', MSG_NOTIFY);
236 e_WriteLog('ls2: ['+ls2+']', MSG_NOTIFY);
237 e_WriteLog('bf0: ['+Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1))+']', MSG_NOTIFY);
238 e_WriteLog('bf1: ['+Translit(Copy(charbuff, 17-Length(ls1)-eofs, Length(ls1)))+']', MSG_NOTIFY);
239 e_WriteLog('bf2: ['+Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2))+']', MSG_NOTIFY);
240 e_WriteLog('bf3: ['+Translit(Copy(charbuff, 17-Length(ls2)-eofs, Length(ls2)))+']', MSG_NOTIFY);
241 end;
242 }
247 const
249 label
250 Cheated;
251 var
255 begin
256 {
257 if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
258 (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
259 or g_Game_IsNet then Exit;
260 }
266 //
268 begin
273 // RAMBO
275 begin
280 // TANK
282 begin
287 // IDDQD
289 begin
295 //
297 begin
301 // GOODBYE
303 begin
307 begin
309 //g_Game_ExitLevel(gTriggers[a].Data.MapName);
311 Break;
315 //
317 if CheckCheat(I_GAME_CHEAT_CHANGEMAP, 2) and (s2[1] >= '0') and (s2[1] <= '9') and (s2[2] >= '0') and (s2[2] <= '9') then
318 begin
320 begin
328 //
330 begin
334 // BULLFROG
336 begin
340 // FORMULA1
342 begin
346 // CONDOM
348 begin
353 //
355 begin
360 // PURELOVE
362 begin
367 //
369 begin
374 // CASPER
376 begin
381 //
383 begin
388 // INFERNO
390 begin
396 begin
401 begin
405 Exit;
407 Cheated:
412 var
414 begin
417 begin
423 begin
428 begin
430 begin
432 Exit;
437 else
439 begin
443 end
444 else
446 if gGameOn
449 then
451 else
453 begin
456 begin
458 g_Game_Free;
460 Exit;
471 begin
479 IK_F2:
481 IK_F3:
483 IK_F4:
485 IK_F5:
487 IK_F6:
489 IK_F7:
491 IK_F10:
497 else
498 begin
502 else
504 begin
508 end
509 else
510 begin
512 begin
522 var
525 begin
527 Exit;
531 else
533 begin
537 end
538 else
539 begin