DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob


9edbcf0ed2f5c7d00cbba3850735174494a7419c
[d2df-sdl.git] / src / game / g_game.pas
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}
17 unit g_game;
18
19 interface
20
21 uses
22 g_basic, g_player, e_graphics, Classes, g_res_downloader,
23 SysUtils, g_sound, g_gui, MAPSTRUCT, wadreader, md5, xprofiler;
24
25 type
26 TGameSettings = record
27 GameType: Byte;
28 GameMode: Byte;
29 TimeLimit: Word;
30 GoalLimit: Word;
31 WarmupTime: Word;
32 MaxLives: Byte;
33 Options: LongWord;
34 WAD: String;
35 end;
36
37 TGameEvent = record
38 Name: String;
39 Command: String;
40 end;
41
42 TDelayedEvent = record
43 Pending: Boolean;
44 Time: LongWord;
45 DEType: Byte;
46 DENum: Integer;
47 DEStr: String;
48 end;
49
50 TPlayerSettings = record
51 Name: String;
52 Model: String;
53 Color: TRGB;
54 Team: Byte;
55 end;
56
57 TMegaWADInfo = record
58 Name: String;
59 Description: String;
60 Author: String;
61 Pic: String;
62 end;
63
64 THearPoint = record
65 Active: Boolean;
66 Coords: TPoint;
67 end;
68
69 function g_Game_IsNet(): Boolean;
70 function g_Game_IsServer(): Boolean;
71 function g_Game_IsClient(): Boolean;
72 procedure g_Game_Init();
73 procedure g_Game_Free();
74 procedure g_Game_LoadData();
75 procedure g_Game_FreeData();
76 procedure g_Game_Update();
77 procedure g_Game_Draw();
78 procedure g_Game_Quit();
79 procedure g_Game_SetupScreenSize();
80 procedure g_Game_ChangeResolution(newWidth, newHeight: Word; nowFull, nowMax: Boolean);
81 function g_Game_ModeToText(Mode: Byte): string;
82 function g_Game_TextToMode(Mode: string): Byte;
83 procedure g_Game_ExecuteEvent(Name: String);
84 function g_Game_DelayEvent(DEType: Byte; Time: LongWord; Num: Integer = 0; Str: String = ''): Integer;
85 procedure g_Game_AddPlayer(Team: Byte = TEAM_NONE);
86 procedure g_Game_RemovePlayer();
87 procedure g_Game_Spectate();
88 procedure g_Game_SpectateCenterView();
89 procedure g_Game_StartSingle(Map: String; TwoPlayers: Boolean; nPlayers: Byte);
90 procedure g_Game_StartCustom(Map: String; GameMode: Byte; TimeLimit, GoalLimit: Word; MaxLives: Byte; Options: LongWord; nPlayers: Byte);
91 procedure g_Game_StartServer(Map: String; GameMode: Byte; TimeLimit, GoalLimit: Word; MaxLives: Byte; Options: LongWord; nPlayers: Byte; IPAddr: LongWord; Port: Word);
92 procedure g_Game_StartClient(Addr: String; Port: Word; PW: String);
93 procedure g_Game_Restart();
94 procedure g_Game_RestartLevel();
95 procedure g_Game_RestartRound(NoMapRestart: Boolean = False);
96 procedure g_Game_ClientWAD(NewWAD: String; WHash: TMD5Digest);
97 procedure g_Game_SaveOptions();
98 function g_Game_StartMap(Map: String; Force: Boolean = False): Boolean;
99 procedure g_Game_ChangeMap(MapPath: String);
100 procedure g_Game_ExitLevel(Map: Char16);
101 function g_Game_GetFirstMap(WAD: String): String;
102 function g_Game_GetNextMap(): String;
103 procedure g_Game_NextLevel();
104 procedure g_Game_Pause(Enable: Boolean);
105 procedure g_Game_InGameMenu(Show: Boolean);
106 function g_Game_IsWatchedPlayer(UID: Word): Boolean;
107 function g_Game_IsWatchedTeam(Team: Byte): Boolean;
108 procedure g_Game_Message(Msg: String; Time: Word);
109 procedure g_Game_LoadMapList(FileName: String);
110 procedure g_Game_PauseAllSounds(Enable: Boolean);
111 procedure g_Game_StopAllSounds(all: Boolean);
112 procedure g_Game_UpdateTriggerSounds();
113 function g_Game_GetMegaWADInfo(WAD: String): TMegaWADInfo;
114 procedure g_Game_Announce_GoodShot(SpawnerUID: Word);
115 procedure g_Game_Announce_KillCombo(Param: Integer);
116 procedure g_Game_StartVote(Command, Initiator: string);
117 procedure g_Game_CheckVote;
118 procedure g_TakeScreenShot();
119 procedure g_FatalError(Text: String);
120 procedure g_SimpleError(Text: String);
121 function g_Game_IsTestMap(): Boolean;
122 procedure g_Game_DeleteTestMap();
123 procedure GameCVars(P: SArray);
124 procedure GameCommands(P: SArray);
125 procedure GameCheats(P: SArray);
126 procedure DebugCommands(P: SArray);
127 procedure ProfilerCommands(P: SArray);
128 procedure g_Game_Process_Params;
129 procedure g_Game_SetLoadingText(Text: String; Max: Integer; reWrite: Boolean);
130 procedure g_Game_StepLoading();
131 procedure g_Game_ClearLoading();
132 procedure g_Game_SetDebugMode();
133 procedure DrawLoadingStat();
134
135 { procedure SetWinPause(Enable: Boolean); }
136
137 const
138 GAME_TICK = 28;
139
140 LOADING_SHOW_STEP = 100;
141 LOADING_INTERLINE = 20;
142
143 GT_NONE = 0;
144 GT_SINGLE = 1;
145 GT_CUSTOM = 2;
146 GT_SERVER = 3;
147 GT_CLIENT = 4;
148
149 GM_NONE = 0;
150 GM_DM = 1;
151 GM_TDM = 2;
152 GM_CTF = 3;
153 GM_COOP = 4;
154 GM_SINGLE = 5;
155
156 MESSAGE_DIKEY = WM_USER + 1;
157
158 EXIT_QUIT = 1;
159 EXIT_SIMPLE = 2;
160 EXIT_RESTART = 3;
161 EXIT_ENDLEVELSINGLE = 4;
162 EXIT_ENDLEVELCUSTOM = 5;
163
164 GAME_OPTION_RESERVED = 1;
165 GAME_OPTION_TEAMDAMAGE = 2;
166 GAME_OPTION_ALLOWEXIT = 4;
167 GAME_OPTION_WEAPONSTAY = 8;
168 GAME_OPTION_MONSTERS = 16;
169 GAME_OPTION_BOTVSPLAYER = 32;
170 GAME_OPTION_BOTVSMONSTER = 64;
171
172 STATE_NONE = 0;
173 STATE_MENU = 1;
174 STATE_FOLD = 2;
175 STATE_INTERCUSTOM = 3;
176 STATE_INTERSINGLE = 4;
177 STATE_INTERTEXT = 5;
178 STATE_INTERPIC = 6;
179 STATE_ENDPIC = 7;
180 STATE_SLIST = 8;
181
182 LMS_RESPAWN_NONE = 0;
183 LMS_RESPAWN_WARMUP = 1;
184 LMS_RESPAWN_FINAL = 2;
185
186 SPECT_NONE = 0;
187 SPECT_STATS = 1;
188 SPECT_MAPVIEW = 2;
189 SPECT_PLAYERS = 3;
190
191 DE_GLOBEVENT = 0;
192 DE_BFGHIT = 1;
193 DE_KILLCOMBO = 2;
194
195 ANNOUNCE_NONE = 0;
196 ANNOUNCE_ME = 1;
197 ANNOUNCE_MEPLUS = 2;
198 ANNOUNCE_ALL = 3;
199
200 CONFIG_FILENAME = 'Doom2DF.cfg';
201 LOG_FILENAME = 'Doom2DF.log';
202
203 TEST_MAP_NAME = '$$$_TEST_$$$';
204
205 STD_PLAYER_MODEL = 'Doomer';
206
207 var
208 gStdFont: DWORD;
209 gGameSettings: TGameSettings;
210 gPlayer1Settings: TPlayerSettings;
211 gPlayer2Settings: TPlayerSettings;
212 gGameOn: Boolean;
213 gPlayerScreenSize: TPoint;
214 gPlayer1ScreenCoord: TPoint;
215 gPlayer2ScreenCoord: TPoint;
216 gPlayer1: TPlayer = nil;
217 gPlayer2: TPlayer = nil;
218 gPlayerDrawn: TPlayer = nil;
219 gTime: LongWord;
220 gSwitchGameMode: Byte = GM_DM;
221 gHearPoint1, gHearPoint2: THearPoint;
222 gSoundEffectsDF: Boolean = False;
223 gSoundTriggerTime: Word = 0;
224 gAnnouncer: Byte = ANNOUNCE_NONE;
225 goodsnd: array[0..3] of TPlayableSound;
226 killsnd: array[0..3] of TPlayableSound;
227 gDefInterTime: ShortInt = -1;
228 gInterEndTime: LongWord = 0;
229 gInterTime: LongWord = 0;
230 gServInterTime: Byte = 0;
231 gGameStartTime: LongWord = 0;
232 gTotalMonsters: Integer = 0;
233 gPause: Boolean;
234 gShowTime: Boolean = True;
235 gShowFPS: Boolean = False;
236 gShowGoals: Boolean = True;
237 gShowStat: Boolean = True;
238 gShowKillMsg: Boolean = True;
239 gShowLives: Boolean = True;
240 gShowPing: Boolean = False;
241 gShowMap: Boolean = False;
242 gExit: Byte = 0;
243 gState: Byte = STATE_NONE;
244 sX, sY: Integer;
245 sWidth, sHeight: Word;
246 gSpectMode: Byte = SPECT_NONE;
247 gSpectHUD: Boolean = True;
248 gSpectKeyPress: Boolean = False;
249 gSpectX: Integer = 0;
250 gSpectY: Integer = 0;
251 gSpectStep: Byte = 8;
252 gSpectViewTwo: Boolean = False;
253 gSpectPID1: Integer = -1;
254 gSpectPID2: Integer = -1;
255 gMusic: TMusic = nil;
256 gLoadGameMode: Boolean;
257 gCheats: Boolean = False;
258 gMapOnce: Boolean = False;
259 gMapToDelete: String;
260 gTempDelete: Boolean = False;
261 gLastMap: Boolean = False;
262 gWinPosX, gWinPosY: Integer;
263 gWinSizeX, gWinSizeY: Integer;
264 gWinFrameX, gWinFrameY, gWinCaption: Integer;
265 gWinActive: Boolean = True; // by default window is active, lol
266 gResolutionChange: Boolean = False;
267 gRC_Width, gRC_Height: Word;
268 gRC_FullScreen, gRC_Maximized: Boolean;
269 gLanguageChange: Boolean = False;
270 gDebugMode: Boolean = False;
271 g_debug_Sounds: Boolean = False;
272 g_debug_Frames: Boolean = False;
273 g_debug_WinMsgs: Boolean = False;
274 g_debug_MonsterOff: Boolean = False;
275 g_debug_BotAIOff: Byte = 0;
276 g_debug_HealthBar: Boolean = False;
277 g_Debug_Player: Boolean = False;
278 gCoopMonstersKilled: Word = 0;
279 gCoopSecretsFound: Word = 0;
280 gCoopTotalMonstersKilled: Word = 0;
281 gCoopTotalSecretsFound: Word = 0;
282 gCoopTotalMonsters: Word = 0;
283 gCoopTotalSecrets: Word = 0;
284 gStatsOff: Boolean = False;
285 gStatsPressed: Boolean = False;
286 gExitByTrigger: Boolean = False;
287 gNextMap: String = '';
288 gLMSRespawn: Byte = LMS_RESPAWN_NONE;
289 gLMSRespawnTime: Cardinal = 0;
290 gLMSSoftSpawn: Boolean = False;
291 gMissionFailed: Boolean = False;
292 gVoteInProgress: Boolean = False;
293 gVotePassed: Boolean = False;
294 gVoteCommand: string = '';
295 gVoteTimer: Cardinal = 0;
296 gVoteCmdTimer: Cardinal = 0;
297 gVoteCount: Integer = 0;
298 gVoteTimeout: Cardinal = 30;
299 gVoted: Boolean = False;
300 gVotesEnabled: Boolean = True;
301 gEvents: Array of TGameEvent;
302 gDelayedEvents: Array of TDelayedEvent;
303
304 // move button values:
305 // bits 0-1: l/r state:
306 // 0: neither left, nor right pressed
307 // 1: left pressed
308 // 2: right pressed
309 // bits 4-5: l/r state when strafe was pressed
310 P1MoveButton: Byte = 0;
311 P2MoveButton: Byte = 0;
312
313 g_profile_frame_update: Boolean = false;
314 g_profile_frame_draw: Boolean = false;
315 g_profile_collision: Boolean = false;
316 g_profile_history_size: Integer = 1000;
317
318 procedure g_ResetDynlights ();
319 procedure g_AddDynLight (x, y, radius: Integer; r, g, b, a: Single);
320 procedure g_DynLightExplosion (x, y, radius: Integer; r, g, b: Single);
321
322 implementation
323
324 uses
325 g_textures, g_main, g_window, g_menu,
326 e_input, e_log, g_console, g_items, g_map, g_panel,
327 g_playermodel, g_gfx, g_options, g_weapons, Math,
328 g_triggers, MAPDEF, g_monsters, e_sound, CONFIG,
329 BinEditor, g_language, g_net, SDL,
330 ENet, e_msg, g_netmsg, g_netmaster, GL, GLExt,
331 utils, sfs;
332
333
334 // ////////////////////////////////////////////////////////////////////////// //
335 var
336 profileFrameDraw: TProfiler = nil;
337
338
339 // ////////////////////////////////////////////////////////////////////////// //
340 type
341 TDynLight = record
342 x, y, radius: Integer;
343 r, g, b, a: Single;
344 exploCount: Integer;
345 exploRadius: Integer;
346 end;
347
348 var
349 g_dynLights: array of TDynLight = nil;
350 g_dynLightCount: Integer = 0;
351 g_playerLight: Boolean = false;
352
353 procedure g_ResetDynlights ();
354 var
355 lnum, idx: Integer;
356 begin
357 if not gwin_has_stencil then begin g_dynLightCount := 0; exit; end;
358 lnum := 0;
359 for idx := 0 to g_dynLightCount-1 do
360 begin
361 if g_dynLights[idx].exploCount = -666 then
362 begin
363 // skip it
364 end
365 else
366 begin
367 // explosion
368 Inc(g_dynLights[idx].exploCount);
369 if (g_dynLights[idx].exploCount < 10) then
370 begin
371 g_dynLights[idx].radius := g_dynLights[idx].exploRadius+g_dynLights[idx].exploCount*8;
372 g_dynLights[idx].a := 0.4+g_dynLights[idx].exploCount/10;
373 if (g_dynLights[idx].a > 0.8) then g_dynLights[idx].a := 0.8;
374 if lnum <> idx then g_dynLights[lnum] := g_dynLights[idx];
375 Inc(lnum);
376 end;
377 end;
378 end;
379 g_dynLightCount := lnum;
380 end;
381
382 procedure g_AddDynLight (x, y, radius: Integer; r, g, b, a: Single);
383 begin
384 if not gwin_has_stencil then exit;
385 if g_dynLightCount = length(g_dynLights) then SetLength(g_dynLights, g_dynLightCount+1024);
386 g_dynLights[g_dynLightCount].x := x;
387 g_dynLights[g_dynLightCount].y := y;
388 g_dynLights[g_dynLightCount].radius := radius;
389 g_dynLights[g_dynLightCount].r := r;
390 g_dynLights[g_dynLightCount].g := g;
391 g_dynLights[g_dynLightCount].b := b;
392 g_dynLights[g_dynLightCount].a := a;
393 g_dynLights[g_dynLightCount].exploCount := -666;
394 Inc(g_dynLightCount);
395 end;
396
397 procedure g_DynLightExplosion (x, y, radius: Integer; r, g, b: Single);
398 begin
399 if not gwin_has_stencil then exit;
400 if g_dynLightCount = length(g_dynLights) then SetLength(g_dynLights, g_dynLightCount+1024);
401 g_dynLights[g_dynLightCount].x := x;
402 g_dynLights[g_dynLightCount].y := y;
403 g_dynLights[g_dynLightCount].radius := 0;
404 g_dynLights[g_dynLightCount].exploRadius := radius;
405 g_dynLights[g_dynLightCount].r := r;
406 g_dynLights[g_dynLightCount].g := g;
407 g_dynLights[g_dynLightCount].b := b;
408 g_dynLights[g_dynLightCount].a := 0;
409 g_dynLights[g_dynLightCount].exploCount := 0;
410 Inc(g_dynLightCount);
411 end;
412
413
414 // ////////////////////////////////////////////////////////////////////////// //
415 function calcProfilesHeight (prof: TProfiler): Integer;
416 begin
417 result := 0;
418 if (prof = nil) then exit;
419 if (length(prof.bars) = 0) then exit;
420 result := length(prof.bars)*(16+2);
421 end;
422
423 // returns width
424 function drawProfiles (x, y: Integer; prof: TProfiler): Integer;
425 var
426 wdt, hgt: Integer;
427 yy: Integer;
428 ii: Integer;
429 begin
430 result := 0;
431 if (prof = nil) then exit;
432 // gScreenWidth
433 if (length(prof.bars) = 0) then exit;
434 wdt := 192;
435 hgt := calcProfilesHeight(prof);
436 if (x < 0) then x := gScreenWidth-(wdt-1)+x;
437 if (y < 0) then y := gScreenHeight-(hgt-1)+y;
438 // background
439 //e_DrawFillQuad(x, y, x+wdt-1, y+hgt-1, 255, 255, 255, 200, B_BLEND);
440 e_DrawFillQuad(x, y, x+wdt-1, y+hgt-1, 20, 20, 20, 0, B_NONE);
441 // title
442 yy := y+2;
443 for ii := 0 to High(prof.bars) do
444 begin
445 e_TextureFontPrintEx(x+2+4*prof.bars[ii].level, yy, Format('%s: %d', [prof.bars[ii].name, prof.bars[ii].value]), gStdFont, 255, 255, 0, 1, false);
446 Inc(yy, 16+2);
447 end;
448 result := wdt;
449 end;
450
451
452 // ////////////////////////////////////////////////////////////////////////// //
453 type
454 TEndCustomGameStat = record
455 PlayerStat: TPlayerStatArray;
456 TeamStat: TTeamStat;
457 GameTime: LongWord;
458 GameMode: Byte;
459 Map, MapName: String;
460 end;
461
462 TEndSingleGameStat = record
463 PlayerStat: Array [0..1] of record
464 Kills: Integer;
465 Secrets: Integer;
466 end;
467 GameTime: LongWord;
468 TwoPlayers: Boolean;
469 TotalSecrets: Integer;
470 end;
471
472 TLoadingStat = record
473 CurValue: Integer;
474 MaxValue: Integer;
475 ShowCount: Integer;
476 Msgs: Array of String;
477 NextMsg: Word;
478 end;
479
480 TParamStrValue = record
481 Name: String;
482 Value: String;
483 end;
484
485 TParamStrValues = Array of TParamStrValue;
486
487 const
488 INTER_ACTION_TEXT = 1;
489 INTER_ACTION_PIC = 2;
490 INTER_ACTION_MUSIC = 3;
491
492 var
493 FPS, UPS: Word;
494 FPSCounter, UPSCounter: Word;
495 FPSTime, UPSTime: LongWord;
496 DataLoaded: Boolean = False;
497 LastScreenShot: Int64;
498 IsDrawStat: Boolean = False;
499 CustomStat: TEndCustomGameStat;
500 SingleStat: TEndSingleGameStat;
501 LoadingStat: TLoadingStat;
502 EndingGameCounter: Byte = 0;
503 MessageText: String;
504 MessageTime: Word;
505 MapList: SArray = nil;
506 MapIndex: Integer = -1;
507 MegaWAD: record
508 info: TMegaWADInfo;
509 endpic: String;
510 endmus: String;
511 res: record
512 text: Array of ShortString;
513 anim: Array of ShortString;
514 pic: Array of ShortString;
515 mus: Array of ShortString;
516 end;
517 triggers: Array of record
518 event: ShortString;
519 actions: Array of record
520 action, p1, p2: Integer;
521 end;
522 end;
523 cur_trigger: Integer;
524 cur_action: Integer;
525 end;
526 //InterPic: String;
527 InterText: record
528 lines: SArray;
529 img: String;
530 cur_line: Integer;
531 cur_char: Integer;
532 counter: Integer;
533 endtext: Boolean;
534 end;
535
536 function Compare(a, b: TPlayerStat): Integer;
537 begin
538 if a.Spectator then Result := 1
539 else if b.Spectator then Result := -1
540 else if a.Frags < b.Frags then Result := 1
541 else if a.Frags > b.Frags then Result := -1
542 else if a.Deaths < b.Deaths then Result := -1
543 else if a.Deaths > b.Deaths then Result := 1
544 else if a.Kills < b.Kills then Result := -1
545 else Result := 1;
546 end;
547
548 procedure SortGameStat(var stat: TPlayerStatArray);
549 var
550 I, J: Integer;
551 T: TPlayerStat;
552 begin
553 if stat = nil then Exit;
554
555 for I := High(stat) downto Low(stat) do
556 for J := Low(stat) to High(stat) - 1 do
557 if Compare(stat[J], stat[J + 1]) = 1 then
558 begin
559 T := stat[J];
560 stat[J] := stat[J + 1];
561 stat[J + 1] := T;
562 end;
563 end;
564
565 function g_Game_ModeToText(Mode: Byte): string;
566 begin
567 Result := '';
568 case Mode of
569 GM_DM: Result := _lc[I_MENU_GAME_TYPE_DM];
570 GM_TDM: Result := _lc[I_MENU_GAME_TYPE_TDM];
571 GM_CTF: Result := _lc[I_MENU_GAME_TYPE_CTF];
572 GM_COOP: Result := _lc[I_MENU_GAME_TYPE_COOP];
573 GM_SINGLE: Result := _lc[I_MENU_GAME_TYPE_SINGLE];
574 end;
575 end;
576
577 function g_Game_TextToMode(Mode: string): Byte;
578 begin
579 Result := GM_NONE;
580 Mode := UpperCase(Mode);
581 if Mode = _lc[I_MENU_GAME_TYPE_DM] then
582 begin
583 Result := GM_DM;
584 Exit;
585 end;
586 if Mode = _lc[I_MENU_GAME_TYPE_TDM] then
587 begin
588 Result := GM_TDM;
589 Exit;
590 end;
591 if Mode = _lc[I_MENU_GAME_TYPE_CTF] then
592 begin
593 Result := GM_CTF;
594 Exit;
595 end;
596 if Mode = _lc[I_MENU_GAME_TYPE_COOP] then
597 begin
598 Result := GM_COOP;
599 Exit;
600 end;
601 if Mode = _lc[I_MENU_GAME_TYPE_SINGLE] then
602 begin
603 Result := GM_SINGLE;
604 Exit;
605 end;
606 end;
607
608 function g_Game_IsNet(): Boolean;
609 begin
610 Result := (gGameSettings.GameType in [GT_SERVER, GT_CLIENT]);
611 end;
612
613 function g_Game_IsServer(): Boolean;
614 begin
615 Result := (gGameSettings.GameType in [GT_SINGLE, GT_CUSTOM, GT_SERVER]);
616 end;
617
618 function g_Game_IsClient(): Boolean;
619 begin
620 Result := (gGameSettings.GameType = GT_CLIENT);
621 end;
622
623 function g_Game_GetMegaWADInfo(WAD: String): TMegaWADInfo;
624 var
625 w: TWADFile;
626 cfg: TConfig;
627 p: Pointer;
628 len: Integer;
629 begin
630 Result.name := ExtractFileName(WAD);
631 Result.description := '';
632 Result.author := '';
633
634 w := TWADFile.Create();
635 w.ReadFile(WAD);
636
637 if not w.GetResource('INTERSCRIPT', p, len) then
638 begin
639 w.Free();
640 Exit;
641 end;
642
643 cfg := TConfig.CreateMem(p, len);
644 Result.name := cfg.ReadStr('megawad', 'name', ExtractFileName(WAD));
645 Result.description := cfg.ReadStr('megawad', 'description', '');
646 Result.author := cfg.ReadStr('megawad', 'author', '');
647 Result.pic := cfg.ReadStr('megawad', 'pic', '');
648 cfg.Free();
649
650 FreeMem(p);
651 end;
652
653 procedure g_Game_FreeWAD();
654 var
655 a: Integer;
656 begin
657 for a := 0 to High(MegaWAD.res.pic) do
658 if MegaWAD.res.pic[a] <> '' then
659 g_Texture_Delete(MegaWAD.res.pic[a]);
660
661 for a := 0 to High(MegaWAD.res.mus) do
662 if MegaWAD.res.mus[a] <> '' then
663 g_Sound_Delete(MegaWAD.res.mus[a]);
664
665 MegaWAD.res.pic := nil;
666 MegaWAD.res.text := nil;
667 MegaWAD.res.anim := nil;
668 MegaWAD.res.mus := nil;
669 MegaWAD.triggers := nil;
670
671 g_Texture_Delete('TEXTURE_endpic');
672 g_Sound_Delete('MUSIC_endmus');
673
674 ZeroMemory(@MegaWAD, SizeOf(MegaWAD));
675 gGameSettings.WAD := '';
676 end;
677
678 procedure g_Game_LoadWAD(WAD: string);
679 var
680 w: TWADFile;
681 cfg: TConfig;
682 p: Pointer;
683 {b, }len: Integer;
684 s: string;
685 begin
686 g_Game_FreeWAD();
687 gGameSettings.WAD := WAD;
688 if not (gGameSettings.GameMode in [GM_COOP, GM_SINGLE]) then
689 Exit;
690
691 MegaWAD.info := g_Game_GetMegaWADInfo(MapsDir + WAD);
692
693 w := TWADFile.Create();
694 w.ReadFile(MapsDir + WAD);
695
696 if not w.GetResource('INTERSCRIPT', p, len) then
697 begin
698 w.Free();
699 Exit;
700 end;
701
702 cfg := TConfig.CreateMem(p, len);
703
704 {b := 1;
705 while True do
706 begin
707 s := cfg.ReadStr('pic', 'pic'+IntToStr(b), '');
708 if s = '' then Break;
709 b := b+1;
710
711 SetLength(MegaWAD.res.pic, Length(MegaWAD.res.pic)+1);
712 MegaWAD.res.pic[High(MegaWAD.res.pic)] := s;
713
714 g_Texture_CreateWADEx(s, s);
715 end;
716
717 b := 1;
718 while True do
719 begin
720 s := cfg.ReadStr('mus', 'mus'+IntToStr(b), '');
721 if s = '' then Break;
722 b := b+1;
723
724 SetLength(MegaWAD.res.mus, Length(MegaWAD.res.mus)+1);
725 MegaWAD.res.mus[High(MegaWAD.res.mus)] := s;
726
727 g_Music_CreateWADEx(s, s);
728 end;}
729
730 MegaWAD.endpic := cfg.ReadStr('megawad', 'endpic', '');
731 if MegaWAD.endpic <> '' then
732 begin
733 s := g_ExtractWadName(MegaWAD.endpic);
734 if s = '' then s := MapsDir+WAD else s := GameDir+'/wads/';
735 g_Texture_CreateWADEx('TEXTURE_endpic', s+MegaWAD.endpic);
736 end;
737 MegaWAD.endmus := cfg.ReadStr('megawad', 'endmus', 'Standart.wad:D2DMUS\ÊÎÍÅÖ');
738 if MegaWAD.endmus <> '' then
739 begin
740 s := g_ExtractWadName(MegaWAD.endmus);
741 if s = '' then s := MapsDir+WAD else s := GameDir+'/wads/';
742 g_Sound_CreateWADEx('MUSIC_endmus', s+MegaWAD.endmus, True);
743 end;
744
745 cfg.Free();
746 FreeMem(p);
747 w.Free();
748 end;
749
750 {procedure start_trigger(t: string);
751 begin
752 end;
753
754 function next_trigger(): Boolean;
755 begin
756 end;}
757
758 procedure DisableCheats();
759 begin
760 MAX_RUNVEL := 8;
761 VEL_JUMP := 10;
762 gFly := False;
763
764 if gPlayer1 <> nil then gPlayer1.GodMode := False;
765 if gPlayer2 <> nil then gPlayer2.GodMode := False;
766 if gPlayer1 <> nil then gPlayer1.NoTarget := False;
767 if gPlayer2 <> nil then gPlayer2.NoTarget := False;
768 end;
769
770 procedure g_Game_ExecuteEvent(Name: String);
771 var
772 a: Integer;
773 begin
774 if Name = '' then
775 Exit;
776 if gEvents = nil then
777 Exit;
778 for a := 0 to High(gEvents) do
779 if gEvents[a].Name = Name then
780 begin
781 if gEvents[a].Command <> '' then
782 g_Console_Process(gEvents[a].Command, True);
783 break;
784 end;
785 end;
786
787 function g_Game_DelayEvent(DEType: Byte; Time: LongWord; Num: Integer = 0; Str: String = ''): Integer;
788 var
789 a, n: Integer;
790 begin
791 n := -1;
792 if gDelayedEvents <> nil then
793 for a := 0 to High(gDelayedEvents) do
794 if not gDelayedEvents[a].Pending then
795 begin
796 n := a;
797 break;
798 end;
799 if n = -1 then
800 begin
801 SetLength(gDelayedEvents, Length(gDelayedEvents) + 1);
802 n := High(gDelayedEvents);
803 end;
804 gDelayedEvents[n].Pending := True;
805 gDelayedEvents[n].DEType := DEType;
806 gDelayedEvents[n].DENum := Num;
807 gDelayedEvents[n].DEStr := Str;
808 if DEType = DE_GLOBEVENT then
809 gDelayedEvents[n].Time := (GetTimer() {div 1000}) + Time
810 else
811 gDelayedEvents[n].Time := gTime + Time;
812 Result := n;
813 end;
814
815 procedure EndGame();
816 var
817 a: Integer;
818 FileName: string;
819 begin
820 if g_Game_IsNet and g_Game_IsServer then
821 MH_SEND_GameEvent(NET_EV_MAPEND, Byte(gMissionFailed));
822
823 // Ñòîï èãðà:
824 gPause := False;
825 gGameOn := False;
826
827 g_Game_StopAllSounds(False);
828
829 MessageTime := 0;
830 MessageText := '';
831
832 EndingGameCounter := 0;
833 g_ActiveWindow := nil;
834
835 gLMSRespawn := LMS_RESPAWN_NONE;
836 gLMSRespawnTime := 0;
837
838 case gExit of
839 EXIT_SIMPLE: // Âûõîä ÷åðåç ìåíþ èëè êîíåö òåñòà
840 begin
841 g_Game_Free();
842
843 if gMapOnce then
844 begin // Ýòî áûë òåñò
845 g_Game_Quit();
846 end
847 else
848 begin // Âûõîä â ãëàâíîå ìåíþ
849 gMusic.SetByName('MUSIC_MENU');
850 gMusic.Play();
851 if gState <> STATE_SLIST then
852 begin
853 g_GUI_ShowWindow('MainMenu');
854 gState := STATE_MENU;
855 end else
856 begin
857 // Îáíîâëÿåì ñïèñîê ñåðâåðîâ
858 slReturnPressed := True;
859 if g_Net_Slist_Fetch(slCurrent) then
860 begin
861 if slCurrent = nil then
862 slWaitStr := _lc[I_NET_SLIST_NOSERVERS];
863 end
864 else
865 slWaitStr := _lc[I_NET_SLIST_ERROR];
866 end;
867
868 g_Game_ExecuteEvent('ongameend');
869 end;
870 end;
871
872 EXIT_RESTART: // Íà÷àòü óðîâåíü ñíà÷àëà
873 begin
874 if not g_Game_IsClient then g_Game_Restart();
875 end;
876
877 EXIT_ENDLEVELCUSTOM: // Çàêîí÷èëñÿ óðîâåíü â Ñâîåé èãðå
878 begin
879 // Ñòàòèñòèêà Ñâîåé èãðû:
880 FileName := g_ExtractWadName(gMapInfo.Map);
881
882 CustomStat.GameTime := gTime;
883 CustomStat.Map := ExtractFileName(FileName)+':'+g_ExtractFileName(gMapInfo.Map); //ResName;
884 CustomStat.MapName := gMapInfo.Name;
885 CustomStat.GameMode := gGameSettings.GameMode;
886 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
887 CustomStat.TeamStat := gTeamStat;
888
889 CustomStat.PlayerStat := nil;
890
891 // Ñòàòèñòèêà èãðîêîâ:
892 if gPlayers <> nil then
893 begin
894 for a := 0 to High(gPlayers) do
895 if gPlayers[a] <> nil then
896 begin
897 SetLength(CustomStat.PlayerStat, Length(CustomStat.PlayerStat)+1);
898 with CustomStat.PlayerStat[High(CustomStat.PlayerStat)] do
899 begin
900 Name := gPlayers[a].Name;
901 Frags := gPlayers[a].Frags;
902 Deaths := gPlayers[a].Death;
903 Kills := gPlayers[a].Kills;
904 Team := gPlayers[a].Team;
905 Color := gPlayers[a].Model.Color;
906 Spectator := gPlayers[a].FSpectator;
907 end;
908 end;
909
910 SortGameStat(CustomStat.PlayerStat);
911 end;
912
913 g_Game_ExecuteEvent('onmapend');
914
915 // Çàòóõàþùèé ýêðàí:
916 EndingGameCounter := 255;
917 gState := STATE_FOLD;
918 gInterTime := 0;
919 if gDefInterTime < 0 then
920 gInterEndTime := IfThen((gGameSettings.GameType = GT_SERVER) and (gPlayer1 = nil), 15000, 25000)
921 else
922 gInterEndTime := gDefInterTime * 1000;
923 end;
924
925 EXIT_ENDLEVELSINGLE: // Çàêîí÷èëñÿ óðîâåíü â Îäèíî÷íîé èãðå
926 begin
927 // Ñòàòèñòèêà Îäèíî÷íîé èãðû:
928 SingleStat.GameTime := gTime;
929 SingleStat.TwoPlayers := gPlayer2 <> nil;
930 SingleStat.TotalSecrets := gSecretsCount;
931 // Ñòàòèñòèêà ïåðâîãî èãðîêà:
932 SingleStat.PlayerStat[0].Kills := gPlayer1.MonsterKills;
933 SingleStat.PlayerStat[0].Secrets := gPlayer1.Secrets;
934 // Ñòàòèñòèêà âòîðîãî èãðîêà (åñëè åñòü):
935 if SingleStat.TwoPlayers then
936 begin
937 SingleStat.PlayerStat[1].Kills := gPlayer2.MonsterKills;
938 SingleStat.PlayerStat[1].Secrets := gPlayer2.Secrets;
939 end;
940
941 g_Game_ExecuteEvent('onmapend');
942
943 // Åñòü åùå êàðòû:
944 if gNextMap <> '' then
945 begin
946 gMusic.SetByName('MUSIC_INTERMUS');
947 gMusic.Play();
948 gState := STATE_INTERSINGLE;
949
950 g_Game_ExecuteEvent('oninter');
951 end
952 else // Áîëüøå íåò êàðò
953 begin
954 // Çàòóõàþùèé ýêðàí:
955 EndingGameCounter := 255;
956 gState := STATE_FOLD;
957 end;
958 end;
959 end;
960
961 // Îêîí÷àíèå îáðàáîòàíî:
962 if gExit <> EXIT_QUIT then
963 gExit := 0;
964 end;
965
966 procedure DrawStat();
967 var
968 pc, x, y, w, h: Integer;
969 w1, w2, w3, w4: Integer;
970 a, aa: Integer;
971 cw, ch, r, g, b, rr, gg, bb: Byte;
972 s1, s2, s3: String;
973 _y: Integer;
974 stat: TPlayerStatArray;
975 wad, map: string;
976 mapstr: string;
977 begin
978 s1 := '';
979 s2 := '';
980 s3 := '';
981 pc := g_Player_GetCount;
982 e_TextureFontGetSize(gStdFont, cw, ch);
983
984 w := gScreenWidth-(gScreenWidth div 5);
985 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
986 h := 32+ch*(11+pc)
987 else
988 h := 40+ch*5+(ch+8)*pc;
989 x := (gScreenWidth div 2)-(w div 2);
990 y := (gScreenHeight div 2)-(h div 2);
991
992 e_DrawFillQuad(x, y, x+w-1, y+h-1, 64, 64, 64, 32);
993 e_DrawQuad(x, y, x+w-1, y+h-1, 255, 127, 0);
994
995 wad := g_ExtractWadNameNoPath(gMapInfo.Map);
996 map := g_ExtractFileName(gMapInfo.Map);
997 mapstr := wad + ':\' + map + ' - ' + gMapInfo.Name;
998
999 case gGameSettings.GameMode of
1000 GM_DM:
1001 begin
1002 if gGameSettings.MaxLives = 0 then
1003 s1 := _lc[I_GAME_DM]
1004 else
1005 s1 := _lc[I_GAME_LMS];
1006 s2 := Format(_lc[I_GAME_FRAG_LIMIT], [gGameSettings.GoalLimit]);
1007 s3 := Format(_lc[I_GAME_TIME_LIMIT], [gGameSettings.TimeLimit div 3600, (gGameSettings.TimeLimit div 60) mod 60, gGameSettings.TimeLimit mod 60]);
1008 end;
1009
1010 GM_TDM:
1011 begin
1012 if gGameSettings.MaxLives = 0 then
1013 s1 := _lc[I_GAME_TDM]
1014 else
1015 s1 := _lc[I_GAME_TLMS];
1016 s2 := Format(_lc[I_GAME_FRAG_LIMIT], [gGameSettings.GoalLimit]);
1017 s3 := Format(_lc[I_GAME_TIME_LIMIT], [gGameSettings.TimeLimit div 3600, (gGameSettings.TimeLimit div 60) mod 60, gGameSettings.TimeLimit mod 60]);
1018 end;
1019
1020 GM_CTF:
1021 begin
1022 s1 := _lc[I_GAME_CTF];
1023 s2 := Format(_lc[I_GAME_SCORE_LIMIT], [gGameSettings.GoalLimit]);
1024 s3 := Format(_lc[I_GAME_TIME_LIMIT], [gGameSettings.TimeLimit div 3600, (gGameSettings.TimeLimit div 60) mod 60, gGameSettings.TimeLimit mod 60]);
1025 end;
1026
1027 GM_COOP:
1028 begin
1029 if gGameSettings.MaxLives = 0 then
1030 s1 := _lc[I_GAME_COOP]
1031 else
1032 s1 := _lc[I_GAME_SURV];
1033 s2 := _lc[I_GAME_MONSTERS] + ' ' + IntToStr(gCoopMonstersKilled) + '/' + IntToStr(gTotalMonsters);
1034 s3 := _lc[I_GAME_SECRETS] + ' ' + IntToStr(gCoopSecretsFound) + '/' + IntToStr(gSecretsCount);
1035 end;
1036
1037 else
1038 begin
1039 s1 := '';
1040 s2 := '';
1041 end;
1042 end;
1043
1044 _y := y+8;
1045 e_TextureFontPrintEx(x+(w div 2)-(Length(s1)*cw div 2), _y, s1, gStdFont, 255, 255, 255, 1);
1046 _y := _y+ch+8;
1047 e_TextureFontPrintEx(x+(w div 2)-(Length(mapstr)*cw div 2), _y, mapstr, gStdFont, 200, 200, 200, 1);
1048 _y := _y+ch+8;
1049 e_TextureFontPrintEx(x+16, _y, s2, gStdFont, 200, 200, 200, 1);
1050
1051 e_TextureFontPrintEx(x+w-16-(Length(s3))*cw, _y, s3,
1052 gStdFont, 200, 200, 200, 1);
1053
1054 if NetMode = NET_SERVER then
1055 e_TextureFontPrintEx(x+8, y + 8, _lc[I_NET_SERVER], gStdFont, 255, 255, 255, 1)
1056 else
1057 if NetMode = NET_CLIENT then
1058 e_TextureFontPrintEx(x+8, y + 8,
1059 NetClientIP + ':' + IntToStr(NetClientPort), gStdFont, 255, 255, 255, 1);
1060
1061 if pc = 0 then
1062 Exit;
1063 stat := g_Player_GetStats();
1064 SortGameStat(stat);
1065
1066 w2 := (w-16) div 6 + 48; // øèðèíà 2 ñòîëáöà
1067 w3 := (w-16) div 6; // øèðèíà 3 è 4 ñòîëáöîâ
1068 w4 := w3;
1069 w1 := w-16-w2-w3-w4; // îñòàâøååñÿ ïðîñòðàíñòâî - äëÿ öâåòà è èìåíè èãðîêà
1070
1071 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
1072 begin
1073 _y := _y+ch+ch;
1074
1075 for a := TEAM_RED to TEAM_BLUE do
1076 begin
1077 if a = TEAM_RED then
1078 begin
1079 s1 := _lc[I_GAME_TEAM_RED];
1080 r := 255;
1081 g := 0;
1082 b := 0;
1083 end
1084 else
1085 begin
1086 s1 := _lc[I_GAME_TEAM_BLUE];
1087 r := 0;
1088 g := 0;
1089 b := 255;
1090 end;
1091
1092 e_TextureFontPrintEx(x+16, _y, s1, gStdFont, r, g, b, 1);
1093 e_TextureFontPrintEx(x+w1+16, _y, IntToStr(gTeamStat[a].Goals),
1094 gStdFont, r, g, b, 1);
1095
1096 _y := _y+ch+(ch div 4);
1097 e_DrawLine(1, x+16, _y, x+w-16, _y, r, g, b);
1098 _y := _y+(ch div 4);
1099
1100 for aa := 0 to High(stat) do
1101 if stat[aa].Team = a then
1102 with stat[aa] do
1103 begin
1104 if Spectator then
1105 begin
1106 rr := r div 2;
1107 gg := g div 2;
1108 bb := b div 2;
1109 end
1110 else
1111 begin
1112 rr := r;
1113 gg := g;
1114 bb := b;
1115 end;
1116 // Èìÿ
1117 e_TextureFontPrintEx(x+16, _y, Name, gStdFont, rr, gg, bb, 1);
1118 // Ïèíã/ïîòåðè
1119 e_TextureFontPrintEx(x+w1+16, _y, Format(_lc[I_GAME_PING_MS], [Ping, Loss]), gStdFont, rr, gg, bb, 1);
1120 // Ôðàãè
1121 e_TextureFontPrintEx(x+w1+w2+16, _y, IntToStr(Frags), gStdFont, rr, gg, bb, 1);
1122 // Ñìåðòè
1123 e_TextureFontPrintEx(x+w1+w2+w3+16, _y, IntToStr(Deaths), gStdFont, rr, gg, bb, 1);
1124 _y := _y+ch;
1125 end;
1126
1127 _y := _y+ch;
1128 end;
1129 end
1130 else if gGameSettings.GameMode in [GM_DM, GM_COOP] then
1131 begin
1132 _y := _y+ch+ch;
1133 e_TextureFontPrintEx(x+16, _y, _lc[I_GAME_PLAYER_NAME], gStdFont, 255, 127, 0, 1);
1134 e_TextureFontPrintEx(x+16+w1, _y, _lc[I_GAME_PING], gStdFont, 255, 127, 0, 1);
1135 e_TextureFontPrintEx(x+16+w1+w2, _y, _lc[I_GAME_FRAGS], gStdFont, 255, 127, 0, 1);
1136 e_TextureFontPrintEx(x+16+w1+w2+w3, _y, _lc[I_GAME_DEATHS], gStdFont, 255, 127, 0, 1);
1137
1138 _y := _y+ch+8;
1139 for aa := 0 to High(stat) do
1140 with stat[aa] do
1141 begin
1142 if Spectator then
1143 begin
1144 r := 127;
1145 g := 64;
1146 end
1147 else
1148 begin
1149 r := 255;
1150 g := 127;
1151 end;
1152 // Öâåò èãðîêà
1153 e_DrawFillQuad(x+16, _y+4, x+32-1, _y+16+4-1, Color.R, Color.G, Color.B, 0);
1154 e_DrawQuad(x+16, _y+4, x+32-1, _y+16+4-1, 192, 192, 192);
1155 // Èìÿ
1156 e_TextureFontPrintEx(x+16+16+8, _y+4, Name, gStdFont, r, g, 0, 1);
1157 // Ïèíã/ïîòåðè
1158 e_TextureFontPrintEx(x+w1+16, _y+4, Format(_lc[I_GAME_PING_MS], [Ping, Loss]), gStdFont, r, g, 0, 1);
1159 // Ôðàãè
1160 e_TextureFontPrintEx(x+w1+w2+16, _y+4, IntToStr(Frags), gStdFont, r, g, 0, 1);
1161 // Ñìåðòè
1162 e_TextureFontPrintEx(x+w1+w2+w3+16, _y+4, IntToStr(Deaths), gStdFont, r, g, 0, 1);
1163 _y := _y+ch+8;
1164 end;
1165 end
1166 end;
1167
1168 procedure g_Game_Init();
1169 var
1170 SR: TSearchRec;
1171 begin
1172 gExit := 0;
1173 gMapToDelete := '';
1174 gTempDelete := False;
1175
1176 sfsGCDisable(); // temporary disable removing of temporary volumes
1177
1178 try
1179 g_Texture_CreateWADEx('MENU_BACKGROUND', GameWAD+':TEXTURES\TITLE');
1180 g_Texture_CreateWADEx('INTER', GameWAD+':TEXTURES\INTER');
1181 g_Texture_CreateWADEx('ENDGAME_EN', GameWAD+':TEXTURES\ENDGAME_EN');
1182 g_Texture_CreateWADEx('ENDGAME_RU', GameWAD+':TEXTURES\ENDGAME_RU');
1183
1184 LoadStdFont('STDTXT', 'STDFONT', gStdFont);
1185 LoadFont('MENUTXT', 'MENUFONT', gMenuFont);
1186 LoadFont('SMALLTXT', 'SMALLFONT', gMenuSmallFont);
1187
1188 g_Game_ClearLoading();
1189 g_Game_SetLoadingText(Format('Doom 2D: Forever %s', [GAME_VERSION]), 0, False);
1190 g_Game_SetLoadingText('', 0, False);
1191
1192 g_Game_SetLoadingText(_lc[I_LOAD_CONSOLE], 0, False);
1193 g_Console_Init();
1194
1195 g_Game_SetLoadingText(_lc[I_LOAD_MODELS], 0, False);
1196 g_PlayerModel_LoadData();
1197
1198 if FindFirst(ModelsDir+'*.wad', faAnyFile, SR) = 0 then
1199 repeat
1200 if not g_PlayerModel_Load(ModelsDir+SR.Name) then
1201 e_WriteLog(Format('Error loading model %s', [SR.Name]), MSG_WARNING);
1202 until FindNext(SR) <> 0;
1203 FindClose(SR);
1204
1205 if FindFirst(ModelsDir+'*.pk3', faAnyFile, SR) = 0 then
1206 repeat
1207 if not g_PlayerModel_Load(ModelsDir+SR.Name) then
1208 e_WriteLog(Format('Error loading model %s', [SR.Name]), MSG_WARNING);
1209 until FindNext(SR) <> 0;
1210 FindClose(SR);
1211
1212 if FindFirst(ModelsDir+'*.zip', faAnyFile, SR) = 0 then
1213 repeat
1214 if not g_PlayerModel_Load(ModelsDir+SR.Name) then
1215 e_WriteLog(Format('Error loading model %s', [SR.Name]), MSG_WARNING);
1216 until FindNext(SR) <> 0;
1217 FindClose(SR);
1218
1219 gGameOn := False;
1220 gPause := False;
1221 gTime := 0;
1222 LastScreenShot := 0;
1223
1224 {e_MouseInfo.Accel := 1.0;}
1225
1226 g_Game_SetLoadingText(_lc[I_LOAD_GAME_DATA], 0, False);
1227 g_Game_LoadData();
1228
1229 g_Game_SetLoadingText(_lc[I_LOAD_MUSIC], 0, False);
1230 g_Sound_CreateWADEx('MUSIC_INTERMUS', GameWAD+':MUSIC\INTERMUS', True);
1231 g_Sound_CreateWADEx('MUSIC_MENU', GameWAD+':MUSIC\MENU', True);
1232 g_Sound_CreateWADEx('MUSIC_ROUNDMUS', GameWAD+':MUSIC\ROUNDMUS', True);
1233 g_Sound_CreateWADEx('MUSIC_STDENDMUS', GameWAD+':MUSIC\ENDMUS', True);
1234
1235 g_Game_SetLoadingText(_lc[I_LOAD_MENUS], 0, False);
1236 g_Menu_Init();
1237
1238 gMusic := TMusic.Create();
1239 gMusic.SetByName('MUSIC_MENU');
1240 gMusic.Play();
1241
1242 gGameSettings.WarmupTime := 30;
1243
1244 gState := STATE_MENU;
1245
1246 SetLength(gEvents, 6);
1247 gEvents[0].Name := 'ongamestart';
1248 gEvents[1].Name := 'ongameend';
1249 gEvents[2].Name := 'onmapstart';
1250 gEvents[3].Name := 'onmapend';
1251 gEvents[4].Name := 'oninter';
1252 gEvents[5].Name := 'onwadend';
1253 finally
1254 sfsGCEnable(); // enable releasing unused volumes
1255 end;
1256 end;
1257
1258 procedure g_Game_Free();
1259 begin
1260 if NetMode = NET_CLIENT then g_Net_Disconnect();
1261 if NetMode = NET_SERVER then g_Net_Host_Die();
1262
1263 g_Map_Free();
1264 g_Player_Free();
1265 g_Player_RemoveAllCorpses();
1266
1267 gGameSettings.GameType := GT_NONE;
1268 if gGameSettings.GameMode = GM_SINGLE then
1269 gGameSettings.GameMode := GM_DM;
1270 gSwitchGameMode := gGameSettings.GameMode;
1271
1272 gChatShow := False;
1273 gExitByTrigger := False;
1274 end;
1275
1276 function IsActivePlayer(p: TPlayer): Boolean;
1277 begin
1278 Result := False;
1279 if p = nil then
1280 Exit;
1281 Result := (not p.FDummy) and (not p.FSpectator);
1282 end;
1283
1284 function GetActivePlayer_ByID(ID: Integer): TPlayer;
1285 var
1286 a: Integer;
1287 begin
1288 Result := nil;
1289 if ID < 0 then
1290 Exit;
1291 if gPlayers = nil then
1292 Exit;
1293 for a := Low(gPlayers) to High(gPlayers) do
1294 if IsActivePlayer(gPlayers[a]) then
1295 begin
1296 if gPlayers[a].UID <> ID then
1297 continue;
1298 Result := gPlayers[a];
1299 break;
1300 end;
1301 end;
1302
1303 function GetActivePlayerID_Next(Skip: Integer = -1): Integer;
1304 var
1305 a, idx: Integer;
1306 ids: Array of Word;
1307 begin
1308 Result := -1;
1309 if gPlayers = nil then
1310 Exit;
1311 SetLength(ids, 0);
1312 idx := -1;
1313 for a := Low(gPlayers) to High(gPlayers) do
1314 if IsActivePlayer(gPlayers[a]) then
1315 begin
1316 SetLength(ids, Length(ids) + 1);
1317 ids[High(ids)] := gPlayers[a].UID;
1318 if gPlayers[a].UID = Skip then
1319 idx := High(ids);
1320 end;
1321 if Length(ids) = 0 then
1322 Exit;
1323 if idx = -1 then
1324 Result := ids[0]
1325 else
1326 Result := ids[(idx + 1) mod Length(ids)];
1327 end;
1328
1329 function GetActivePlayerID_Prev(Skip: Integer = -1): Integer;
1330 var
1331 a, idx: Integer;
1332 ids: Array of Word;
1333 begin
1334 Result := -1;
1335 if gPlayers = nil then
1336 Exit;
1337 SetLength(ids, 0);
1338 idx := -1;
1339 for a := Low(gPlayers) to High(gPlayers) do
1340 if IsActivePlayer(gPlayers[a]) then
1341 begin
1342 SetLength(ids, Length(ids) + 1);
1343 ids[High(ids)] := gPlayers[a].UID;
1344 if gPlayers[a].UID = Skip then
1345 idx := High(ids);
1346 end;
1347 if Length(ids) = 0 then
1348 Exit;
1349 if idx = -1 then
1350 Result := ids[Length(ids) - 1]
1351 else
1352 Result := ids[(Length(ids) - 1 + idx) mod Length(ids)];
1353 end;
1354
1355 function isKeyPressed (key1: Word; key2: Word): Boolean;
1356 begin
1357 if (key1 <> 0) and e_KeyPressed(key1) then begin result := true; exit; end;
1358 if (key2 <> 0) and e_KeyPressed(key2) then begin result := true; exit; end;
1359 result := false;
1360 end;
1361
1362 procedure processPlayerControls (plr: TPlayer; var ctrl: TPlayerControl; var MoveButton: Byte; p2hack: Boolean=false);
1363 var
1364 time: Word;
1365 strafeDir: Byte;
1366 i: Integer;
1367 begin
1368 if (plr = nil) then exit;
1369 if (p2hack) then time := 1000 else time := 1;
1370 strafeDir := MoveButton shr 4;
1371 MoveButton := MoveButton and $0F;
1372 with ctrl do
1373 begin
1374 if isKeyPressed(KeyLeft, KeyLeft2) and (not isKeyPressed(KeyRight, KeyRight2)) then MoveButton := 1 // Íàæàòà òîëüêî "Âëåâî"
1375 else if (not isKeyPressed(KeyLeft, KeyLeft2)) and isKeyPressed(KeyRight, KeyRight2) then MoveButton := 2 // Íàæàòà òîëüêî "Âïðàâî"
1376 else if (not isKeyPressed(KeyLeft, KeyLeft2)) and (not isKeyPressed(KeyRight, KeyRight2)) then MoveButton := 0; // Íå íàæàòû íè "Âëåâî", íè "Âïðàâî"
1377
1378 // Ñåé÷àñ èëè ðàíüøå áûëè íàæàòû "Âëåâî"/"Âïðàâî" => ïåðåäàåì èãðîêó:
1379 if MoveButton = 1 then plr.PressKey(KEY_LEFT, time)
1380 else if MoveButton = 2 then plr.PressKey(KEY_RIGHT, time);
1381
1382 // if we have "strafe" key, turn off old strafe mechanics
1383 if isKeyPressed(KeyStrafe, KeyStrafe2) then
1384 begin
1385 // new strafe mechanics
1386 if (strafeDir = 0) then strafeDir := MoveButton; // start strafing
1387 // now set direction according to strafe (reversed)
1388 if (strafeDir = 2) then plr.SetDirection(D_LEFT)
1389 else if (strafeDir = 1) then plr.SetDirection(D_RIGHT);
1390 end
1391 else
1392 begin
1393 strafeDir := 0; // not strafing anymore
1394 // Ðàíüøå áûëà íàæàòà "Âïðàâî", à ñåé÷àñ "Âëåâî" => áåæèì âïðàâî, ñìîòðèì âëåâî:
1395 if (MoveButton = 2) and isKeyPressed(KeyLeft, KeyLeft2) then plr.SetDirection(D_LEFT)
1396 // Ðàíüøå áûëà íàæàòà "Âëåâî", à ñåé÷àñ "Âïðàâî" => áåæèì âëåâî, ñìîòðèì âïðàâî:
1397 else if (MoveButton = 1) and isKeyPressed(KeyRight, KeyRight2) then plr.SetDirection(D_RIGHT)
1398 // ×òî-òî áûëî íàæàòî è íå èçìåíèëîñü => êóäà áåæèì, òóäà è ñìîòðèì:
1399 else if MoveButton <> 0 then plr.SetDirection(TDirection(MoveButton-1));
1400 end;
1401
1402 // fix movebutton state
1403 MoveButton := MoveButton or (strafeDir shl 4);
1404
1405 // Îñòàëüíûå êëàâèøè:
1406 if isKeyPressed(KeyJump, KeyJump2) then plr.PressKey(KEY_JUMP, time);
1407 if isKeyPressed(KeyUp, KeyUp2) then plr.PressKey(KEY_UP, time);
1408 if isKeyPressed(KeyDown, KeyDown2) then plr.PressKey(KEY_DOWN, time);
1409 if isKeyPressed(KeyFire, KeyFire2) then plr.PressKey(KEY_FIRE);
1410 if isKeyPressed(KeyNextWeapon, KeyNextWeapon2) then plr.PressKey(KEY_NEXTWEAPON);
1411 if isKeyPressed(KeyPrevWeapon, KeyPrevWeapon2) then plr.PressKey(KEY_PREVWEAPON);
1412 if isKeyPressed(KeyOpen, KeyOpen2) then plr.PressKey(KEY_OPEN);
1413
1414 for i := 0 to High(KeyWeapon) do
1415 if isKeyPressed(KeyWeapon[i], KeyWeapon2[i]) then
1416 plr.QueueWeaponSwitch(i); // all choices are passed there, and god will take the best
1417 end;
1418
1419 // HACK: add dynlight here
1420 if gwin_k8_enable_light_experiments then
1421 begin
1422 if e_KeyPressed(IK_F8) and gGameOn and (not gConsoleShow) and (g_ActiveWindow = nil) then
1423 begin
1424 g_playerLight := true;
1425 end;
1426 if e_KeyPressed(IK_F9) and gGameOn and (not gConsoleShow) and (g_ActiveWindow = nil) then
1427 begin
1428 g_playerLight := false;
1429 end;
1430 end;
1431
1432 if gwin_has_stencil and g_playerLight then g_AddDynLight(plr.GameX+32, plr.GameY+40, 128, 1, 1, 0, 0.6);
1433 end;
1434
1435 procedure g_Game_Update();
1436 var
1437 Msg: g_gui.TMessage;
1438 Time: Int64;
1439 a: Byte;
1440 w: Word;
1441 i, b: Integer;
1442
1443 function sendMonsPos (mon: TMonster): Boolean;
1444 begin
1445 result := false; // don't stop
1446 if (mon.MonsterType = MONSTER_BARREL) then
1447 begin
1448 if (mon.GameVelX <> 0) or (mon.GameVelY <> 0) then MH_SEND_MonsterPos(mon.UID);
1449 end
1450 else
1451 if (mon.MonsterState <> MONSTATE_SLEEP) then
1452 begin
1453 if (mon.MonsterState <> MONSTATE_DEAD) or (mon.GameVelX <> 0) or (mon.GameVelY <> 0) then
1454 begin
1455 MH_SEND_MonsterPos(mon.UID);
1456 end;
1457 end;
1458 end;
1459
1460 begin
1461 g_ResetDynlights();
1462 // Ïîðà âûêëþ÷àòü èãðó:
1463 if gExit = EXIT_QUIT then
1464 Exit;
1465 // Èãðà çàêîí÷èëàñü - îáðàáàòûâàåì:
1466 if gExit <> 0 then
1467 begin
1468 EndGame();
1469 if gExit = EXIT_QUIT then
1470 Exit;
1471 end;
1472
1473 // ×èòàåì êëàâèàòóðó è äæîéñòèê, åñëè îêíî àêòèâíî:
1474 e_PollInput();
1475
1476 // Îáíîâëÿåì êîíñîëü (äâèæåíèå è ñîîáùåíèÿ):
1477 g_Console_Update();
1478
1479 if (NetMode = NET_NONE) and (g_Game_IsNet) and (gGameOn or (gState in [STATE_FOLD, STATE_INTERCUSTOM])) then
1480 begin
1481 gExit := EXIT_SIMPLE;
1482 EndGame();
1483 Exit;
1484 end;
1485
1486 case gState of
1487 STATE_INTERSINGLE, // Ñòàòèñòêà ïîñëå ïðîõîæäåíèÿ óðîâíÿ â Îäèíî÷íîé èãðå
1488 STATE_INTERCUSTOM, // Ñòàòèñòêà ïîñëå ïðîõîæäåíèÿ óðîâíÿ â Ñâîåé èãðå
1489 STATE_INTERTEXT, // Òåêñò ìåæäó óðîâíÿìè
1490 STATE_INTERPIC: // Êàðòèíêà ìåæäó óðîâíÿìè
1491 begin
1492 if g_Game_IsNet and g_Game_IsServer then
1493 begin
1494 gInterTime := gInterTime + GAME_TICK;
1495 a := Min((gInterEndTime - gInterTime) div 1000 + 1, 255);
1496 if a <> gServInterTime then
1497 begin
1498 gServInterTime := a;
1499 MH_SEND_TimeSync(gServInterTime);
1500 end;
1501 end;
1502
1503 if (not g_Game_IsClient) and
1504 (
1505 (
1506 (e_KeyPressed(IK_RETURN) or e_KeyPressed(IK_KPRETURN) or e_KeyPressed(IK_SPACE))
1507 and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)
1508 and (g_ActiveWindow = nil)
1509 )
1510 or (g_Game_IsNet and (gInterTime > gInterEndTime))
1511 )
1512 then
1513 begin // Íàæàëè <Enter>/<Ïðîáåë> èëè ïðîøëî äîñòàòî÷íî âðåìåíè:
1514 g_Game_StopAllSounds(True);
1515
1516 if gMapOnce then // Ýòî áûë òåñò
1517 gExit := EXIT_SIMPLE
1518 else
1519 if gNextMap <> '' then // Ïåðåõîäèì íà ñëåäóþùóþ êàðòó
1520 g_Game_ChangeMap(gNextMap)
1521 else // Ñëåäóþùåé êàðòû íåò
1522 begin
1523 if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER] then
1524 begin
1525 // Âûõîä â ãëàâíîå ìåíþ:
1526 g_Game_Free;
1527 g_GUI_ShowWindow('MainMenu');
1528 gMusic.SetByName('MUSIC_MENU');
1529 gMusic.Play();
1530 gState := STATE_MENU;
1531 end else
1532 begin
1533 // Ôèíàëüíàÿ êàðòèíêà:
1534 g_Game_ExecuteEvent('onwadend');
1535 g_Game_Free();
1536 if not gMusic.SetByName('MUSIC_endmus') then
1537 gMusic.SetByName('MUSIC_STDENDMUS');
1538 gMusic.Play();
1539 gState := STATE_ENDPIC;
1540 end;
1541 g_Game_ExecuteEvent('ongameend');
1542 end;
1543
1544 Exit;
1545 end;
1546
1547 if gState = STATE_INTERTEXT then
1548 if InterText.counter > 0 then
1549 InterText.counter := InterText.counter - 1;
1550 end;
1551
1552 STATE_FOLD: // Çàòóõàíèå ýêðàíà
1553 begin
1554 if EndingGameCounter = 0 then
1555 begin
1556 // Çàêîí÷èëñÿ óðîâåíü â Ñâîåé èãðå:
1557 if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT] then
1558 begin
1559 if gLastMap and (gGameSettings.GameMode = GM_COOP) then
1560 begin
1561 g_Game_ExecuteEvent('onwadend');
1562 if not gMusic.SetByName('MUSIC_endmus') then
1563 gMusic.SetByName('MUSIC_STDENDMUS');
1564 end
1565 else
1566 gMusic.SetByName('MUSIC_ROUNDMUS');
1567
1568 gMusic.Play();
1569 gState := STATE_INTERCUSTOM;
1570 end
1571 else // Çàêîí÷èëàñü ïîñëåäíÿÿ êàðòà â Îäèíî÷íîé èãðå
1572 begin
1573 gMusic.SetByName('MUSIC_INTERMUS');
1574 gMusic.Play();
1575 gState := STATE_INTERSINGLE;
1576 end;
1577 g_Game_ExecuteEvent('oninter');
1578 end
1579 else
1580 DecMin(EndingGameCounter, 6, 0);
1581 end;
1582
1583 STATE_ENDPIC: // Êàðòèíêà îêîí÷àíèÿ ìåãàÂàäà
1584 begin
1585 if gMapOnce then // Ýòî áûë òåñò
1586 begin
1587 gExit := EXIT_SIMPLE;
1588 Exit;
1589 end;
1590 end;
1591
1592 STATE_SLIST:
1593 g_Serverlist_Control(slCurrent);
1594 end;
1595
1596 if g_Game_IsNet then
1597 if not gConsoleShow then
1598 if not gChatShow then
1599 begin
1600 if g_ActiveWindow = nil then
1601 begin
1602 if e_KeyPressed(gGameControls.GameControls.Chat) then
1603 g_Console_Chat_Switch(False)
1604 else if (e_KeyPressed(gGameControls.GameControls.TeamChat)) and
1605 (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
1606 g_Console_Chat_Switch(True);
1607 end;
1608 end else
1609 if not gChatEnter then
1610 if (not e_KeyPressed(gGameControls.GameControls.Chat))
1611 and (not e_KeyPressed(gGameControls.GameControls.TeamChat)) then
1612 gChatEnter := True;
1613
1614 // Ñòàòèñòèêà ïî Tab:
1615 if gGameOn then
1616 IsDrawStat := (not gConsoleShow) and (not gChatShow) and
1617 (gGameSettings.GameType <> GT_SINGLE) and
1618 e_KeyPressed(gGameControls.GameControls.Stat);
1619
1620 // Èãðà èäåò:
1621 if gGameOn and not gPause and (gState <> STATE_FOLD) then
1622 begin
1623 // Âðåìÿ += 28 ìèëëèñåêóíä:
1624 gTime := gTime + GAME_TICK;
1625
1626 // Ñîîáùåíèå ïîñåðåäèíå ýêðàíà:
1627 if MessageTime = 0 then
1628 MessageText := '';
1629 if MessageTime > 0 then
1630 MessageTime := MessageTime - 1;
1631
1632 if (g_Game_IsServer) then
1633 begin
1634 // Áûë çàäàí ëèìèò âðåìåíè:
1635 if (gGameSettings.TimeLimit > 0) then
1636 if (gTime - gGameStartTime) div 1000 >= gGameSettings.TimeLimit then
1637 begin // Îí ïðîøåë => êîíåö óðîâíÿ
1638 g_Game_NextLevel();
1639 Exit;
1640 end;
1641
1642 // Íàäî ðåñïàâíèòü èãðîêîâ â LMS:
1643 if (gLMSRespawn > LMS_RESPAWN_NONE) and (gLMSRespawnTime < gTime) then
1644 g_Game_RestartRound(gLMSSoftSpawn);
1645
1646 // Ïðîâåðèì ðåçóëüòàò ãîëîñîâàíèÿ, åñëè âðåìÿ ïðîøëî
1647 if gVoteInProgress and (gVoteTimer < gTime) then
1648 g_Game_CheckVote
1649 else if gVotePassed and (gVoteCmdTimer < gTime) then
1650 begin
1651 g_Console_Process(gVoteCommand);
1652 gVoteCommand := '';
1653 gVotePassed := False;
1654 end;
1655
1656 // Çàìåðÿåì âðåìÿ çàõâàòà ôëàãîâ
1657 if gFlags[FLAG_RED].State = FLAG_STATE_CAPTURED then
1658 gFlags[FLAG_RED].CaptureTime := gFlags[FLAG_RED].CaptureTime + GAME_TICK;
1659 if gFlags[FLAG_BLUE].State = FLAG_STATE_CAPTURED then
1660 gFlags[FLAG_BLUE].CaptureTime := gFlags[FLAG_BLUE].CaptureTime + GAME_TICK;
1661
1662 // Áûë çàäàí ëèìèò ïîáåä:
1663 if (gGameSettings.GoalLimit > 0) then
1664 begin
1665 b := 0;
1666
1667 if gGameSettings.GameMode = GM_DM then
1668 begin // Â DM èùåì èãðîêà ñ max ôðàãàìè
1669 for i := 0 to High(gPlayers) do
1670 if gPlayers[i] <> nil then
1671 if gPlayers[i].Frags > b then
1672 b := gPlayers[i].Frags;
1673 end
1674 else
1675 if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
1676 begin //  CTF/TDM âûáèðàåì êîìàíäó ñ íàèáîëüøèì ñ÷åòîì
1677 b := Max(gTeamStat[TEAM_RED].Goals, gTeamStat[TEAM_BLUE].Goals);
1678 end;
1679
1680 // Ëèìèò ïîáåä íàáðàí => êîíåö óðîâíÿ:
1681 if b >= gGameSettings.GoalLimit then
1682 begin
1683 g_Game_NextLevel();
1684 Exit;
1685 end;
1686 end;
1687
1688 // Îáðàáàòûâàåì êëàâèøè èãðîêîâ:
1689 if gPlayer1 <> nil then gPlayer1.ReleaseKeys();
1690 if gPlayer2 <> nil then gPlayer2.ReleaseKeys();
1691 if (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
1692 begin
1693 processPlayerControls(gPlayer1, gGameControls.P1Control, P1MoveButton);
1694 processPlayerControls(gPlayer2, gGameControls.P2Control, P2MoveButton, true);
1695 end // if not console
1696 else
1697 begin
1698 if g_Game_IsNet and (gPlayer1 <> nil) then gPlayer1.PressKey(KEY_CHAT, 10000);
1699 end;
1700 // process weapon switch queue
1701 end; // if server
1702
1703 // Íàáëþäàòåëü
1704 if (gPlayer1 = nil) and (gPlayer2 = nil) and
1705 (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
1706 begin
1707 if not gSpectKeyPress then
1708 begin
1709 if isKeyPressed(gGameControls.P1Control.KeyJump, gGameControls.P1Control.KeyJump2) then
1710 begin
1711 // switch spect mode
1712 case gSpectMode of
1713 SPECT_NONE: ; // not spectator
1714 SPECT_STATS,
1715 SPECT_MAPVIEW: Inc(gSpectMode);
1716 SPECT_PLAYERS: gSpectMode := SPECT_STATS; // reset to 1
1717 end;
1718 gSpectKeyPress := True;
1719 end;
1720 if gSpectMode = SPECT_MAPVIEW then
1721 begin
1722 if isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2) then
1723 gSpectX := Max(gSpectX - gSpectStep, 0);
1724 if isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2) then
1725 gSpectX := Min(gSpectX + gSpectStep, gMapInfo.Width - gScreenWidth);
1726 if isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2) then
1727 gSpectY := Max(gSpectY - gSpectStep, 0);
1728 if isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2) then
1729 gSpectY := Min(gSpectY + gSpectStep, gMapInfo.Height - gScreenHeight);
1730 if isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2) then
1731 begin
1732 // decrease step
1733 if gSpectStep > 4 then gSpectStep := gSpectStep shr 1;
1734 gSpectKeyPress := True;
1735 end;
1736 if isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2) then
1737 begin
1738 // increase step
1739 if gSpectStep < 64 then gSpectStep := gSpectStep shl 1;
1740 gSpectKeyPress := True;
1741 end;
1742 end;
1743 if gSpectMode = SPECT_PLAYERS then
1744 begin
1745 if isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2) then
1746 begin
1747 // add second view
1748 gSpectViewTwo := True;
1749 gSpectKeyPress := True;
1750 end;
1751 if isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2) then
1752 begin
1753 // remove second view
1754 gSpectViewTwo := False;
1755 gSpectKeyPress := True;
1756 end;
1757 if isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2) then
1758 begin
1759 // prev player (view 1)
1760 gSpectPID1 := GetActivePlayerID_Prev(gSpectPID1);
1761 gSpectKeyPress := True;
1762 end;
1763 if isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2) then
1764 begin
1765 // next player (view 1)
1766 gSpectPID1 := GetActivePlayerID_Next(gSpectPID1);
1767 gSpectKeyPress := True;
1768 end;
1769 if isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2) then
1770 begin
1771 // prev player (view 2)
1772 gSpectPID2 := GetActivePlayerID_Prev(gSpectPID2);
1773 gSpectKeyPress := True;
1774 end;
1775 if isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2) then
1776 begin
1777 // next player (view 2)
1778 gSpectPID2 := GetActivePlayerID_Next(gSpectPID2);
1779 gSpectKeyPress := True;
1780 end;
1781 end;
1782 end
1783 else
1784 if (not isKeyPressed(gGameControls.P1Control.KeyJump, gGameControls.P1Control.KeyJump2)) and
1785 (not isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2)) and
1786 (not isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2)) and
1787 (not isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2)) and
1788 (not isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2)) and
1789 (not isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2)) and
1790 (not isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2)) then
1791 gSpectKeyPress := False;
1792 end;
1793
1794 // Îáíîâëÿåì âñå îñòàëüíîå:
1795 g_Map_Update();
1796 g_Items_Update();
1797 g_Triggers_Update();
1798 g_Weapon_Update();
1799 g_Monsters_Update();
1800 g_GFX_Update();
1801 g_Player_UpdateAll();
1802 g_Player_UpdatePhysicalObjects();
1803 if gGameSettings.GameType = GT_SERVER then
1804 if Length(gMonstersSpawned) > 0 then
1805 begin
1806 for I := 0 to High(gMonstersSpawned) do
1807 MH_SEND_MonsterSpawn(gMonstersSpawned[I]);
1808 SetLength(gMonstersSpawned, 0);
1809 end;
1810
1811 if (gSoundTriggerTime > 8) then
1812 begin
1813 g_Game_UpdateTriggerSounds();
1814 gSoundTriggerTime := 0;
1815 end
1816 else
1817 Inc(gSoundTriggerTime);
1818
1819 if (NetMode = NET_SERVER) then
1820 begin
1821 Inc(NetTimeToUpdate);
1822 Inc(NetTimeToReliable);
1823 if NetTimeToReliable >= NetRelupdRate then
1824 begin
1825 for I := 0 to High(gPlayers) do
1826 if gPlayers[I] <> nil then
1827 MH_SEND_PlayerPos(True, gPlayers[I].UID);
1828
1829 g_Mons_ForEach(sendMonsPos);
1830
1831 NetTimeToReliable := 0;
1832 NetTimeToUpdate := NetUpdateRate;
1833 end
1834 else if NetTimeToUpdate >= NetUpdateRate then
1835 begin
1836 if gPlayers <> nil then
1837 for I := 0 to High(gPlayers) do
1838 if gPlayers[I] <> nil then
1839 MH_SEND_PlayerPos(False, gPlayers[I].UID);
1840
1841 g_Mons_ForEach(sendMonsPos);
1842
1843 NetTimeToUpdate := 0;
1844 end;
1845
1846 if NetUseMaster then
1847 if gTime >= NetTimeToMaster then
1848 begin
1849 if (NetMHost = nil) or (NetMPeer = nil) then
1850 if not g_Net_Slist_Connect then
1851 g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
1852
1853 g_Net_Slist_Update;
1854 NetTimeToMaster := gTime + NetMasterRate;
1855 end;
1856 end
1857 else
1858 if NetMode = NET_CLIENT then
1859 MC_SEND_PlayerPos();
1860 end; // if gameOn ...
1861
1862 // Àêòèâíî îêíî èíòåðôåéñà - ïåðåäàåì êëàâèøè åìó:
1863 if g_ActiveWindow <> nil then
1864 begin
1865 w := e_GetFirstKeyPressed();
1866
1867 if (w <> IK_INVALID) then
1868 begin
1869 Msg.Msg := MESSAGE_DIKEY;
1870 Msg.wParam := w;
1871 g_ActiveWindow.OnMessage(Msg);
1872 end;
1873
1874 // Åñëè îíî îò ýòîãî íå çàêðûëîñü, òî îáíîâëÿåì:
1875 if g_ActiveWindow <> nil then
1876 g_ActiveWindow.Update();
1877
1878 // Íóæíî ñìåíèòü ðàçðåøåíèå:
1879 if gResolutionChange then
1880 begin
1881 e_WriteLog('Changing resolution', MSG_NOTIFY);
1882 g_Game_ChangeResolution(gRC_Width, gRC_Height, gRC_FullScreen, gRC_Maximized);
1883 gResolutionChange := False;
1884 end;
1885
1886 // Íóæíî ñìåíèòü ÿçûê:
1887 if gLanguageChange then
1888 begin
1889 //e_WriteLog('Read language file', MSG_NOTIFY);
1890 //g_Language_Load(DataDir + gLanguage + '.txt');
1891 g_Language_Set(gLanguage);
1892 g_Menu_Reset();
1893 gLanguageChange := False;
1894 end;
1895 end;
1896
1897 // Äåëàåì ñêðèíøîò (íå ÷àùå 200 ìèëëèñåêóíä):
1898 if e_KeyPressed(gGameControls.GameControls.TakeScreenshot) then
1899 if (GetTimer()-LastScreenShot) > 200000 div 1000 then
1900 begin
1901 g_TakeScreenShot();
1902 LastScreenShot := GetTimer();
1903 end;
1904
1905 // Ãîðÿ÷àÿ êëàâèøà äëÿ âûçîâà ìåíþ âûõîäà èç èãðû (F10):
1906 if e_KeyPressed(IK_F10) and
1907 gGameOn and
1908 (not gConsoleShow) and
1909 (g_ActiveWindow = nil) then
1910 begin
1911 KeyPress(IK_F10);
1912 end;
1913
1914 Time := GetTimer() {div 1000};
1915
1916 // Îáðàáîòêà îòëîæåííûõ ñîáûòèé:
1917 if gDelayedEvents <> nil then
1918 for a := 0 to High(gDelayedEvents) do
1919 if gDelayedEvents[a].Pending and
1920 (
1921 ((gDelayedEvents[a].DEType = DE_GLOBEVENT) and (gDelayedEvents[a].Time <= Time)) or
1922 ((gDelayedEvents[a].DEType > DE_GLOBEVENT) and (gDelayedEvents[a].Time <= gTime))
1923 ) then
1924 begin
1925 case gDelayedEvents[a].DEType of
1926 DE_GLOBEVENT:
1927 g_Game_ExecuteEvent(gDelayedEvents[a].DEStr);
1928 DE_BFGHIT:
1929 if gGameOn then
1930 g_Game_Announce_GoodShot(gDelayedEvents[a].DENum);
1931 DE_KILLCOMBO:
1932 if gGameOn then
1933 begin
1934 g_Game_Announce_KillCombo(gDelayedEvents[a].DENum);
1935 if g_Game_IsNet and g_Game_IsServer then
1936 MH_SEND_GameEvent(NET_EV_KILLCOMBO, gDelayedEvents[a].DENum);
1937 end;
1938 end;
1939 gDelayedEvents[a].Pending := False;
1940 end;
1941
1942 // Êàæäóþ ñåêóíäó îáíîâëÿåì ñ÷åò÷èê îáíîâëåíèé:
1943 UPSCounter := UPSCounter + 1;
1944 if Time - UPSTime >= 1000 then
1945 begin
1946 UPS := UPSCounter;
1947 UPSCounter := 0;
1948 UPSTime := Time;
1949 end;
1950
1951 if gGameOn then g_Weapon_AddDynLights();
1952 end;
1953
1954 procedure g_Game_LoadData();
1955 begin
1956 if DataLoaded then Exit;
1957
1958 e_WriteLog('Loading game data...', MSG_NOTIFY);
1959
1960 g_Texture_CreateWADEx('NOTEXTURE', GameWAD+':TEXTURES\NOTEXTURE');
1961 g_Texture_CreateWADEx('TEXTURE_PLAYER_HUD', GameWAD+':TEXTURES\HUD');
1962 g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDAIR', GameWAD+':TEXTURES\AIRBAR');
1963 g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDJET', GameWAD+':TEXTURES\JETBAR');
1964 g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDBG', GameWAD+':TEXTURES\HUDBG');
1965 g_Texture_CreateWADEx('TEXTURE_PLAYER_ARMORHUD', GameWAD+':TEXTURES\ARMORHUD');
1966 g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG', GameWAD+':TEXTURES\FLAGHUD_RB');
1967 g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG_S', GameWAD+':TEXTURES\FLAGHUD_RS');
1968 g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG_D', GameWAD+':TEXTURES\FLAGHUD_RD');
1969 g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG', GameWAD+':TEXTURES\FLAGHUD_BB');
1970 g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG_S', GameWAD+':TEXTURES\FLAGHUD_BS');
1971 g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG_D', GameWAD+':TEXTURES\FLAGHUD_BD');
1972 g_Texture_CreateWADEx('TEXTURE_PLAYER_TALKBUBBLE', GameWAD+':TEXTURES\TALKBUBBLE');
1973 g_Texture_CreateWADEx('TEXTURE_PLAYER_INVULPENTA', GameWAD+':TEXTURES\PENTA');
1974 g_Frames_CreateWAD(nil, 'FRAMES_TELEPORT', GameWAD+':TEXTURES\TELEPORT', 64, 64, 10, False);
1975 g_Sound_CreateWADEx('SOUND_GAME_TELEPORT', GameWAD+':SOUNDS\TELEPORT');
1976 g_Sound_CreateWADEx('SOUND_GAME_NOTELEPORT', GameWAD+':SOUNDS\NOTELEPORT');
1977 g_Sound_CreateWADEx('SOUND_GAME_DOOROPEN', GameWAD+':SOUNDS\DOOROPEN');
1978 g_Sound_CreateWADEx('SOUND_GAME_DOORCLOSE', GameWAD+':SOUNDS\DOORCLOSE');
1979 g_Sound_CreateWADEx('SOUND_GAME_BULK1', GameWAD+':SOUNDS\BULK1');
1980 g_Sound_CreateWADEx('SOUND_GAME_BULK2', GameWAD+':SOUNDS\BULK2');
1981 g_Sound_CreateWADEx('SOUND_GAME_BUBBLE1', GameWAD+':SOUNDS\BUBBLE1');
1982 g_Sound_CreateWADEx('SOUND_GAME_BUBBLE2', GameWAD+':SOUNDS\BUBBLE2');
1983 g_Sound_CreateWADEx('SOUND_GAME_SWITCH1', GameWAD+':SOUNDS\SWITCH1');
1984 g_Sound_CreateWADEx('SOUND_GAME_SWITCH0', GameWAD+':SOUNDS\SWITCH0');
1985 g_Sound_CreateWADEx('SOUND_GAME_RADIO', GameWAD+':SOUNDS\RADIO');
1986 g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD1', GameWAD+':SOUNDS\GOOD1');
1987 g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD2', GameWAD+':SOUNDS\GOOD2');
1988 g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD3', GameWAD+':SOUNDS\GOOD3');
1989 g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD4', GameWAD+':SOUNDS\GOOD4');
1990 g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL2X', GameWAD+':SOUNDS\KILL2X');
1991 g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL3X', GameWAD+':SOUNDS\KILL3X');
1992 g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL4X', GameWAD+':SOUNDS\KILL4X');
1993 g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILLMX', GameWAD+':SOUNDS\KILLMX');
1994
1995 goodsnd[0] := TPlayableSound.Create();
1996 goodsnd[1] := TPlayableSound.Create();
1997 goodsnd[2] := TPlayableSound.Create();
1998 goodsnd[3] := TPlayableSound.Create();
1999
2000 goodsnd[0].SetByName('SOUND_ANNOUNCER_GOOD1');
2001 goodsnd[1].SetByName('SOUND_ANNOUNCER_GOOD2');
2002 goodsnd[2].SetByName('SOUND_ANNOUNCER_GOOD3');
2003 goodsnd[3].SetByName('SOUND_ANNOUNCER_GOOD4');
2004
2005 killsnd[0] := TPlayableSound.Create();
2006 killsnd[1] := TPlayableSound.Create();
2007 killsnd[2] := TPlayableSound.Create();
2008 killsnd[3] := TPlayableSound.Create();
2009
2010 killsnd[0].SetByName('SOUND_ANNOUNCER_KILL2X');
2011 killsnd[1].SetByName('SOUND_ANNOUNCER_KILL3X');
2012 killsnd[2].SetByName('SOUND_ANNOUNCER_KILL4X');
2013 killsnd[3].SetByName('SOUND_ANNOUNCER_KILLMX');
2014
2015 g_Game_SetLoadingText(_lc[I_LOAD_ITEMS_DATA], 0, False);
2016 g_Items_LoadData();
2017
2018 g_Game_SetLoadingText(_lc[I_LOAD_WEAPONS_DATA], 0, False);
2019 g_Weapon_LoadData();
2020
2021 g_Monsters_LoadData();
2022
2023 DataLoaded := True;
2024 end;
2025
2026 procedure g_Game_FreeData();
2027 begin
2028 if not DataLoaded then Exit;
2029
2030 g_Items_FreeData();
2031 g_Weapon_FreeData();
2032 g_Monsters_FreeData();
2033
2034 e_WriteLog('Releasing game data...', MSG_NOTIFY);
2035
2036 g_Texture_Delete('NOTEXTURE');
2037 g_Texture_Delete('TEXTURE_PLAYER_HUD');
2038 g_Texture_Delete('TEXTURE_PLAYER_HUDBG');
2039 g_Texture_Delete('TEXTURE_PLAYER_ARMORHUD');
2040 g_Texture_Delete('TEXTURE_PLAYER_REDFLAG');
2041 g_Texture_Delete('TEXTURE_PLAYER_REDFLAG_S');
2042 g_Texture_Delete('TEXTURE_PLAYER_REDFLAG_D');
2043 g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG');
2044 g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG_S');
2045 g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG_D');
2046 g_Texture_Delete('TEXTURE_PLAYER_TALKBUBBLE');
2047 g_Texture_Delete('TEXTURE_PLAYER_INVULPENTA');
2048 g_Frames_DeleteByName('FRAMES_TELEPORT');
2049 g_Sound_Delete('SOUND_GAME_TELEPORT');
2050 g_Sound_Delete('SOUND_GAME_NOTELEPORT');
2051 g_Sound_Delete('SOUND_GAME_DOOROPEN');
2052 g_Sound_Delete('SOUND_GAME_DOORCLOSE');
2053 g_Sound_Delete('SOUND_GAME_BULK1');
2054 g_Sound_Delete('SOUND_GAME_BULK2');
2055 g_Sound_Delete('SOUND_GAME_BUBBLE1');
2056 g_Sound_Delete('SOUND_GAME_BUBBLE2');
2057 g_Sound_Delete('SOUND_GAME_SWITCH1');
2058 g_Sound_Delete('SOUND_GAME_SWITCH0');
2059
2060 goodsnd[0].Free();
2061 goodsnd[1].Free();
2062 goodsnd[2].Free();
2063 goodsnd[3].Free();
2064
2065 g_Sound_Delete('SOUND_ANNOUNCER_GOOD1');
2066 g_Sound_Delete('SOUND_ANNOUNCER_GOOD2');
2067 g_Sound_Delete('SOUND_ANNOUNCER_GOOD3');
2068 g_Sound_Delete('SOUND_ANNOUNCER_GOOD4');
2069
2070 killsnd[0].Free();
2071 killsnd[1].Free();
2072 killsnd[2].Free();
2073 killsnd[3].Free();
2074
2075 g_Sound_Delete('SOUND_ANNOUNCER_KILL2X');
2076 g_Sound_Delete('SOUND_ANNOUNCER_KILL3X');
2077 g_Sound_Delete('SOUND_ANNOUNCER_KILL4X');
2078 g_Sound_Delete('SOUND_ANNOUNCER_KILLMX');
2079
2080 DataLoaded := False;
2081 end;
2082
2083 procedure DrawCustomStat();
2084 var
2085 pc, x, y, w, _y,
2086 w1, w2, w3,
2087 t, p, m: Integer;
2088 ww1, hh1: Word;
2089 ww2, hh2, r, g, b, rr, gg, bb: Byte;
2090 s1, s2, topstr: String;
2091 begin
2092 e_TextureFontGetSize(gStdFont, ww2, hh2);
2093
2094 e_PollInput();
2095 if e_KeyPressed(IK_TAB) then
2096 begin
2097 if not gStatsPressed then
2098 begin
2099 gStatsOff := not gStatsOff;
2100 gStatsPressed := True;
2101 end;
2102 end
2103 else
2104 gStatsPressed := False;
2105
2106 if gStatsOff then
2107 begin
2108 s1 := _lc[I_MENU_INTER_NOTICE_TAB];
2109 w := (Length(s1) * ww2) div 2;
2110 x := gScreenWidth div 2 - w;
2111 y := 8;
2112 e_TextureFontPrint(x, y, s1, gStdFont);
2113 Exit;
2114 end;
2115
2116 if (gGameSettings.GameMode = GM_COOP) then
2117 begin
2118 if gMissionFailed then
2119 topstr := _lc[I_MENU_INTER_MISSION_FAIL]
2120 else
2121 topstr := _lc[I_MENU_INTER_LEVEL_COMPLETE];
2122 end
2123 else
2124 topstr := _lc[I_MENU_INTER_ROUND_OVER];
2125
2126 e_CharFont_GetSize(gMenuFont, topstr, ww1, hh1);
2127 e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(ww1 div 2), 16, topstr);
2128
2129 if g_Game_IsNet then
2130 begin
2131 topstr := Format(_lc[I_MENU_INTER_NOTICE_TIME], [gServInterTime]);
2132 if not gChatShow then
2133 e_TextureFontPrintEx((gScreenWidth div 2)-(Length(topstr)*ww2 div 2),
2134 gScreenHeight-(hh2+4)*2, topstr, gStdFont, 255, 255, 255, 1);
2135 end;
2136
2137 if g_Game_IsClient then
2138 topstr := _lc[I_MENU_INTER_NOTICE_MAP]
2139 else
2140 topstr := _lc[I_MENU_INTER_NOTICE_SPACE];
2141 if not gChatShow then
2142 e_TextureFontPrintEx((gScreenWidth div 2)-(Length(topstr)*ww2 div 2),
2143 gScreenHeight-(hh2+4), topstr, gStdFont, 255, 255, 255, 1);
2144
2145 x := 32;
2146 y := 16+hh1+16;
2147
2148 w := gScreenWidth-x*2;
2149
2150 w2 := (w-16) div 6;
2151 w3 := w2;
2152 w1 := w-16-w2-w3;
2153
2154 e_DrawFillQuad(x, y, gScreenWidth-x-1, gScreenHeight-y-1, 64, 64, 64, 32);
2155 e_DrawQuad(x, y, gScreenWidth-x-1, gScreenHeight-y-1, 255, 127, 0);
2156
2157 m := Max(Length(_lc[I_MENU_MAP])+1, Length(_lc[I_GAME_GAME_TIME])+1)*ww2;
2158
2159 case CustomStat.GameMode of
2160 GM_DM:
2161 begin
2162 if gGameSettings.MaxLives = 0 then
2163 s1 := _lc[I_GAME_DM]
2164 else
2165 s1 := _lc[I_GAME_LMS];
2166 end;
2167 GM_TDM:
2168 begin
2169 if gGameSettings.MaxLives = 0 then
2170 s1 := _lc[I_GAME_TDM]
2171 else
2172 s1 := _lc[I_GAME_TLMS];
2173 end;
2174 GM_CTF: s1 := _lc[I_GAME_CTF];
2175 GM_COOP:
2176 begin
2177 if gGameSettings.MaxLives = 0 then
2178 s1 := _lc[I_GAME_COOP]
2179 else
2180 s1 := _lc[I_GAME_SURV];
2181 end;
2182 else s1 := '';
2183 end;
2184
2185 _y := y+16;
2186 e_TextureFontPrintEx(x+(w div 2)-(Length(s1)*ww2 div 2), _y, s1, gStdFont, 255, 255, 255, 1);
2187 _y := _y+8;
2188
2189 _y := _y+16;
2190 e_TextureFontPrintEx(x+8, _y, _lc[I_MENU_MAP], gStdFont, 255, 127, 0, 1);
2191 e_TextureFontPrint(x+8+m, _y, Format('%s - %s', [CustomStat.Map, CustomStat.MapName]), gStdFont);
2192
2193 _y := _y+16;
2194 e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_GAME_TIME], gStdFont, 255, 127, 0, 1);
2195 e_TextureFontPrint(x+8+m, _y, Format('%d:%.2d:%.2d', [CustomStat.GameTime div 1000 div 3600,
2196 (CustomStat.GameTime div 1000 div 60) mod 60,
2197 CustomStat.GameTime div 1000 mod 60]), gStdFont);
2198
2199 pc := Length(CustomStat.PlayerStat);
2200 if pc = 0 then Exit;
2201
2202 if CustomStat.GameMode = GM_COOP then
2203 begin
2204 m := Max(Length(_lc[I_GAME_MONSTERS])+1, Length(_lc[I_GAME_SECRETS])+1)*ww2;
2205 _y := _y+32;
2206 s2 := _lc[I_GAME_MONSTERS];
2207 e_TextureFontPrintEx(x+8, _y, s2, gStdFont, 255, 127, 0, 1);
2208 e_TextureFontPrintEx(x+8+m, _y, IntToStr(gCoopMonstersKilled) + '/' + IntToStr(gTotalMonsters), gStdFont, 255, 255, 255, 1);
2209 _y := _y+16;
2210 s2 := _lc[I_GAME_SECRETS];
2211 e_TextureFontPrintEx(x+8, _y, s2, gStdFont, 255, 127, 0, 1);
2212 e_TextureFontPrintEx(x+8+m, _y, IntToStr(gCoopSecretsFound) + '/' + IntToStr(gSecretsCount), gStdFont, 255, 255, 255, 1);
2213 if gLastMap then
2214 begin
2215 m := Max(Length(_lc[I_GAME_MONSTERS_TOTAL])+1, Length(_lc[I_GAME_SECRETS_TOTAL])+1)*ww2;
2216 _y := _y-16;
2217 s2 := _lc[I_GAME_MONSTERS_TOTAL];
2218 e_TextureFontPrintEx(x+250, _y, s2, gStdFont, 255, 127, 0, 1);
2219 e_TextureFontPrintEx(x+250+m, _y, IntToStr(gCoopTotalMonstersKilled) + '/' + IntToStr(gCoopTotalMonsters), gStdFont, 255, 255, 255, 1);
2220 _y := _y+16;
2221 s2 := _lc[I_GAME_SECRETS_TOTAL];
2222 e_TextureFontPrintEx(x+250, _y, s2, gStdFont, 255, 127, 0, 1);
2223 e_TextureFontPrintEx(x+250+m, _y, IntToStr(gCoopTotalSecretsFound) + '/' + IntToStr(gCoopTotalSecrets), gStdFont, 255, 255, 255, 1);
2224 end;
2225 end;
2226
2227 if CustomStat.GameMode in [GM_TDM, GM_CTF] then
2228 begin
2229 _y := _y+16+16;
2230
2231 with CustomStat do
2232 if TeamStat[TEAM_RED].Goals > TeamStat[TEAM_BLUE].Goals then s1 := _lc[I_GAME_WIN_RED]
2233 else if TeamStat[TEAM_BLUE].Goals > TeamStat[TEAM_RED].Goals then s1 := _lc[I_GAME_WIN_BLUE]
2234 else s1 := _lc[I_GAME_WIN_DRAW];
2235
2236 e_TextureFontPrintEx(x+8+(w div 2)-(Length(s1)*ww2 div 2), _y, s1, gStdFont, 255, 255, 255, 1);
2237 _y := _y+40;
2238
2239 for t := TEAM_RED to TEAM_BLUE do
2240 begin
2241 if t = TEAM_RED then
2242 begin
2243 e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_TEAM_RED],
2244 gStdFont, 255, 0, 0, 1);
2245 e_TextureFontPrintEx(x+w1+8, _y, IntToStr(CustomStat.TeamStat[TEAM_RED].Goals),
2246 gStdFont, 255, 0, 0, 1);
2247 r := 255;
2248 g := 0;
2249 b := 0;
2250 end
2251 else
2252 begin
2253 e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_TEAM_BLUE],
2254 gStdFont, 0, 0, 255, 1);
2255 e_TextureFontPrintEx(x+w1+8, _y, IntToStr(CustomStat.TeamStat[TEAM_BLUE].Goals),
2256 gStdFont, 0, 0, 255, 1);
2257 r := 0;
2258 g := 0;
2259 b := 255;
2260 end;
2261
2262 e_DrawLine(1, x+8, _y+20, x-8+w, _y+20, r, g, b);
2263 _y := _y+24;
2264
2265 for p := 0 to High(CustomStat.PlayerStat) do
2266 if CustomStat.PlayerStat[p].Team = t then
2267 with CustomStat.PlayerStat[p] do
2268 begin
2269 if Spectator then
2270 begin
2271 rr := r div 2;
2272 gg := g div 2;
2273 bb := b div 2;
2274 end
2275 else
2276 begin
2277 rr := r;
2278 gg := g;
2279 bb := b;
2280 end;
2281 e_TextureFontPrintEx(x+8, _y, Name, gStdFont, rr, gg, bb, 1);
2282 e_TextureFontPrintEx(x+w1+8, _y, IntToStr(Frags), gStdFont, rr, gg, bb, 1);
2283 e_TextureFontPrintEx(x+w1+w2+8, _y, IntToStr(Deaths), gStdFont, rr, gg, bb, 1);
2284 _y := _y+24;
2285 end;
2286
2287 _y := _y+16+16;
2288 end;
2289 end
2290 else if CustomStat.GameMode in [GM_DM, GM_COOP] then
2291 begin
2292 _y := _y+40;
2293 e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_PLAYER_NAME], gStdFont, 255, 127, 0, 1);
2294 e_TextureFontPrintEx(x+8+w1, _y, _lc[I_GAME_FRAGS], gStdFont, 255, 127, 0, 1);
2295 e_TextureFontPrintEx(x+8+w1+w2, _y, _lc[I_GAME_DEATHS], gStdFont, 255, 127, 0, 1);
2296
2297 _y := _y+24;
2298 for p := 0 to High(CustomStat.PlayerStat) do
2299 with CustomStat.PlayerStat[p] do
2300 begin
2301 e_DrawFillQuad(x+8, _y+4, x+24-1, _y+16+4-1, Color.R, Color.G, Color.B, 0);
2302
2303 if Spectator then
2304 r := 127
2305 else
2306 r := 255;
2307
2308 e_TextureFontPrintEx(x+8+16+8, _y+4, Name, gStdFont, r, r, r, 1, True);
2309 e_TextureFontPrintEx(x+w1+8+16+8, _y+4, IntToStr(Frags), gStdFont, r, r, r, 1, True);
2310 e_TextureFontPrintEx(x+w1+w2+8+16+8, _y+4, IntToStr(Deaths), gStdFont, r, r, r, 1, True);
2311 _y := _y+24;
2312 end;
2313 end;
2314 end;
2315
2316 procedure DrawSingleStat();
2317 var
2318 tm, key_x, val_x, y: Integer;
2319 w1, w2, h: Word;
2320 s1, s2: String;
2321
2322 procedure player_stat(n: Integer);
2323 var
2324 kpm: Real;
2325
2326 begin
2327 // "Kills: # / #":
2328 s1 := Format(' %d ', [SingleStat.PlayerStat[n].Kills]);
2329 s2 := Format(' %d', [gTotalMonsters]);
2330
2331 e_CharFont_Print(gMenuFont, key_x, y, _lc[I_MENU_INTER_KILLS]);
2332 e_CharFont_PrintEx(gMenuFont, val_x, y, s1, _RGB(255, 0, 0));
2333 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2334 e_CharFont_Print(gMenuFont, val_x+w1, y, '/');
2335 s1 := s1 + '/';
2336 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2337 e_CharFont_PrintEx(gMenuFont, val_x+w1, y, s2, _RGB(255, 0, 0));
2338
2339 // "Kills-per-minute: ##.#":
2340 s1 := _lc[I_MENU_INTER_KPM];
2341 if tm > 0 then
2342 kpm := (SingleStat.PlayerStat[n].Kills / tm) * 60
2343 else
2344 kpm := SingleStat.PlayerStat[n].Kills;
2345 s2 := Format(' %.1f', [kpm]);
2346
2347 e_CharFont_Print(gMenuFont, key_x, y+32, s1);
2348 e_CharFont_PrintEx(gMenuFont, val_x, y+32, s2, _RGB(255, 0, 0));
2349
2350 // "Secrets found: # / #":
2351 s1 := Format(' %d ', [SingleStat.PlayerStat[n].Secrets]);
2352 s2 := Format(' %d', [SingleStat.TotalSecrets]);
2353
2354 e_CharFont_Print(gMenuFont, key_x, y+64, _lc[I_MENU_INTER_SECRETS]);
2355 e_CharFont_PrintEx(gMenuFont, val_x, y+64, s1, _RGB(255, 0, 0));
2356 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2357 e_CharFont_Print(gMenuFont, val_x+w1, y+64, '/');
2358 s1 := s1 + '/';
2359 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2360 e_CharFont_PrintEx(gMenuFont, val_x+w1, y+64, s2, _RGB(255, 0, 0));
2361 end;
2362
2363 begin
2364 // "Level Complete":
2365 e_CharFont_GetSize(gMenuFont, _lc[I_MENU_INTER_LEVEL_COMPLETE], w1, h);
2366 e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 32, _lc[I_MENU_INTER_LEVEL_COMPLETE]);
2367
2368 // Îïðåäåëÿåì êîîðäèíàòû âûðàâíèâàíèÿ ïî ñàìîé äëèííîé ñòðîêå:
2369 s1 := _lc[I_MENU_INTER_KPM];
2370 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2371 Inc(w1, 16);
2372 s1 := ' 9999.9';
2373 e_CharFont_GetSize(gMenuFont, s1, w2, h);
2374
2375 key_x := (gScreenWidth-w1-w2) div 2;
2376 val_x := key_x + w1;
2377
2378 // "Time: #:##:##":
2379 tm := SingleStat.GameTime div 1000;
2380 s1 := _lc[I_MENU_INTER_TIME];
2381 s2 := Format(' %d:%.2d:%.2d', [tm div (60*60), (tm mod (60*60)) div 60, tm mod 60]);
2382
2383 e_CharFont_Print(gMenuFont, key_x, 80, s1);
2384 e_CharFont_PrintEx(gMenuFont, val_x, 80, s2, _RGB(255, 0, 0));
2385
2386 if SingleStat.TwoPlayers then
2387 begin
2388 // "Player 1":
2389 s1 := _lc[I_MENU_PLAYER_1];
2390 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2391 e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 128, s1);
2392
2393 // Ñòàòèñòèêà ïåðâîãî èãðîêà:
2394 y := 176;
2395 player_stat(0);
2396
2397 // "Player 2":
2398 s1 := _lc[I_MENU_PLAYER_2];
2399 e_CharFont_GetSize(gMenuFont, s1, w1, h);
2400 e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 288, s1);
2401
2402 // Ñòàòèñòèêà âòîðîãî èãðîêà:
2403 y := 336;
2404 player_stat(1);
2405 end
2406 else
2407 begin
2408 // Ñòàòèñòèêà ïåðâîãî èãðîêà:
2409 y := 128;
2410 player_stat(0);
2411 end;
2412 end;
2413
2414 procedure DrawLoadingStat();
2415 var
2416 ww, hh: Word;
2417 xx, yy, i: Integer;
2418 s: String;
2419 begin
2420 if Length(LoadingStat.Msgs) = 0 then
2421 Exit;
2422
2423 e_CharFont_GetSize(gMenuFont, _lc[I_MENU_LOADING], ww, hh);
2424 yy := (gScreenHeight div 3);
2425 e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(ww div 2), yy-2*hh, _lc[I_MENU_LOADING]);
2426 xx := (gScreenWidth div 3);
2427
2428 with LoadingStat do
2429 for i := 0 to NextMsg-1 do
2430 begin
2431 if (i = (NextMsg-1)) and (MaxValue > 0) then
2432 s := Format('%s: %d/%d', [Msgs[i], CurValue, MaxValue])
2433 else
2434 s := Msgs[i];
2435
2436 e_CharFont_PrintEx(gMenuSmallFont, xx, yy, s, _RGB(255, 0, 0));
2437 yy := yy + LOADING_INTERLINE;
2438 end;
2439 end;
2440
2441 procedure DrawMinimap(p: TPlayer; RenderRect: e_graphics.TRect);
2442 var
2443 a, aX, aY, aX2, aY2, Scale, ScaleSz: Integer;
2444
2445 function monDraw (mon: TMonster): Boolean;
2446 begin
2447 result := false; // don't stop
2448 with mon do
2449 begin
2450 if Live then
2451 begin
2452 // Ëåâûé âåðõíèé óãîë
2453 aX := Obj.X div ScaleSz + 1;
2454 aY := Obj.Y div ScaleSz + 1;
2455 // Ðàçìåðû
2456 aX2 := max(Obj.Rect.Width div ScaleSz, 1);
2457 aY2 := max(Obj.Rect.Height div ScaleSz, 1);
2458 // Ïðàâûé íèæíèé óãîë
2459 aX2 := aX + aX2 - 1;
2460 aY2 := aY + aY2 - 1;
2461 e_DrawFillQuad(aX, aY, aX2, aY2, 255, 255, 0, 0);
2462 end;
2463 end;
2464 end;
2465
2466 begin
2467 if (gMapInfo.Width > RenderRect.Right - RenderRect.Left) or
2468 (gMapInfo.Height > RenderRect.Bottom - RenderRect.Top) then
2469 begin
2470 Scale := 1;
2471 // Ñêîëüêî ïèêñåëîâ êàðòû â 1 ïèêñåëå ìèíè-êàðòû:
2472 ScaleSz := 16 div Scale;
2473 // Ðàçìåðû ìèíè-êàðòû:
2474 aX := max(gMapInfo.Width div ScaleSz, 1);
2475 aY := max(gMapInfo.Height div ScaleSz, 1);
2476 // Ðàìêà êàðòû:
2477 e_DrawFillQuad(0, 0, aX-1, aY-1, 0, 0, 0, 0);
2478
2479 if gWalls <> nil then
2480 begin
2481 // Ðèñóåì ñòåíû:
2482 for a := 0 to High(gWalls) do
2483 with gWalls[a] do
2484 if PanelType <> 0 then
2485 begin
2486 // Ëåâûé âåðõíèé óãîë:
2487 aX := X div ScaleSz;
2488 aY := Y div ScaleSz;
2489 // Ðàçìåðû:
2490 aX2 := max(Width div ScaleSz, 1);
2491 aY2 := max(Height div ScaleSz, 1);
2492 // Ïðàâûé íèæíèé óãîë:
2493 aX2 := aX + aX2 - 1;
2494 aY2 := aY + aY2 - 1;
2495
2496 case PanelType of
2497 PANEL_WALL: e_DrawFillQuad(aX, aY, aX2, aY2, 208, 208, 208, 0);
2498 PANEL_OPENDOOR, PANEL_CLOSEDOOR:
2499 if Enabled then e_DrawFillQuad(aX, aY, aX2, aY2, 160, 160, 160, 0);
2500 end;
2501 end;
2502 end;
2503 if gSteps <> nil then
2504 begin
2505 // Ðèñóåì ñòóïåíè:
2506 for a := 0 to High(gSteps) do
2507 with gSteps[a] do
2508 if PanelType <> 0 then
2509 begin
2510 // Ëåâûé âåðõíèé óãîë:
2511 aX := X div ScaleSz;
2512 aY := Y div ScaleSz;
2513 // Ðàçìåðû:
2514 aX2 := max(Width div ScaleSz, 1);
2515 aY2 := max(Height div ScaleSz, 1);
2516 // Ïðàâûé íèæíèé óãîë:
2517 aX2 := aX + aX2 - 1;
2518 aY2 := aY + aY2 - 1;
2519
2520 e_DrawFillQuad(aX, aY, aX2, aY2, 128, 128, 128, 0);
2521 end;
2522 end;
2523 if gLifts <> nil then
2524 begin
2525 // Ðèñóåì ëèôòû:
2526 for a := 0 to High(gLifts) do
2527 with gLifts[a] do
2528 if PanelType <> 0 then
2529 begin
2530 // Ëåâûé âåðõíèé óãîë:
2531 aX := X div ScaleSz;
2532 aY := Y div ScaleSz;
2533 // Ðàçìåðû:
2534 aX2 := max(Width div ScaleSz, 1);
2535 aY2 := max(Height div ScaleSz, 1);
2536 // Ïðàâûé íèæíèé óãîë:
2537 aX2 := aX + aX2 - 1;
2538 aY2 := aY + aY2 - 1;
2539
2540 case LiftType of
2541 0: e_DrawFillQuad(aX, aY, aX2, aY2, 116, 72, 36, 0);
2542 1: e_DrawFillQuad(aX, aY, aX2, aY2, 116, 124, 96, 0);
2543 2: e_DrawFillQuad(aX, aY, aX2, aY2, 200, 80, 4, 0);
2544 3: e_DrawFillQuad(aX, aY, aX2, aY2, 252, 140, 56, 0);
2545 end;
2546 end;
2547 end;
2548 if gWater <> nil then
2549 begin
2550 // Ðèñóåì âîäó:
2551 for a := 0 to High(gWater) do
2552 with gWater[a] do
2553 if PanelType <> 0 then
2554 begin
2555 // Ëåâûé âåðõíèé óãîë:
2556 aX := X div ScaleSz;
2557 aY := Y div ScaleSz;
2558 // Ðàçìåðû:
2559 aX2 := max(Width div ScaleSz, 1);
2560 aY2 := max(Height div ScaleSz, 1);
2561 // Ïðàâûé íèæíèé óãîë:
2562 aX2 := aX + aX2 - 1;
2563 aY2 := aY + aY2 - 1;
2564
2565 e_DrawFillQuad(aX, aY, aX2, aY2, 0, 0, 192, 0);
2566 end;
2567 end;
2568 if gAcid1 <> nil then
2569 begin
2570 // Ðèñóåì êèñëîòó 1:
2571 for a := 0 to High(gAcid1) do
2572 with gAcid1[a] do
2573 if PanelType <> 0 then
2574 begin
2575 // Ëåâûé âåðõíèé óãîë:
2576 aX := X div ScaleSz;
2577 aY := Y div ScaleSz;
2578 // Ðàçìåðû:
2579 aX2 := max(Width div ScaleSz, 1);
2580 aY2 := max(Height div ScaleSz, 1);
2581 // Ïðàâûé íèæíèé óãîë:
2582 aX2 := aX + aX2 - 1;
2583 aY2 := aY + aY2 - 1;
2584
2585 e_DrawFillQuad(aX, aY, aX2, aY2, 0, 176, 0, 0);
2586 end;
2587 end;
2588 if gAcid2 <> nil then
2589 begin
2590 // Ðèñóåì êèñëîòó 2:
2591 for a := 0 to High(gAcid2) do
2592 with gAcid2[a] do
2593 if PanelType <> 0 then
2594 begin
2595 // Ëåâûé âåðõíèé óãîë:
2596 aX := X div ScaleSz;
2597 aY := Y div ScaleSz;
2598 // Ðàçìåðû:
2599 aX2 := max(Width div ScaleSz, 1);
2600 aY2 := max(Height div ScaleSz, 1);
2601 // Ïðàâûé íèæíèé óãîë:
2602 aX2 := aX + aX2 - 1;
2603 aY2 := aY + aY2 - 1;
2604
2605 e_DrawFillQuad(aX, aY, aX2, aY2, 176, 0, 0, 0);
2606 end;
2607 end;
2608 if gPlayers <> nil then
2609 begin
2610 // Ðèñóåì èãðîêîâ:
2611 for a := 0 to High(gPlayers) do
2612 if gPlayers[a] <> nil then with gPlayers[a] do
2613 if Live then begin
2614 // Ëåâûé âåðõíèé óãîë:
2615 aX := Obj.X div ScaleSz + 1;
2616 aY := Obj.Y div ScaleSz + 1;
2617 // Ðàçìåðû:
2618 aX2 := max(Obj.Rect.Width div ScaleSz, 1);
2619 aY2 := max(Obj.Rect.Height div ScaleSz, 1);
2620 // Ïðàâûé íèæíèé óãîë:
2621 aX2 := aX + aX2 - 1;
2622 aY2 := aY + aY2 - 1;
2623
2624 if gPlayers[a] = p then
2625 e_DrawFillQuad(aX, aY, aX2, aY2, 0, 255, 0, 0)
2626 else
2627 case Team of
2628 TEAM_RED: e_DrawFillQuad(aX, aY, aX2, aY2, 255, 0, 0, 0);
2629 TEAM_BLUE: e_DrawFillQuad(aX, aY, aX2, aY2, 0, 0, 255, 0);
2630 else e_DrawFillQuad(aX, aY, aX2, aY2, 255, 128, 0, 0);
2631 end;
2632 end;
2633 end;
2634 // Ðèñóåì ìîíñòðîâ
2635 g_Mons_ForEach(monDraw);
2636 end;
2637 end;
2638
2639
2640 // setup sX, sY, sWidth, sHeight, and transformation matrix before calling this!
2641 procedure renderDynLightsInternal ();
2642 var
2643 lln: Integer;
2644 lx, ly, lrad: Integer;
2645 begin
2646 //TODO: lights should be in separate grid, i think
2647 // but on the other side: grid may be slower for dynlights, as their lifetime is short
2648 if not gwin_has_stencil or (g_dynLightCount < 1) then exit;
2649
2650 // setup OpenGL parameters
2651 glStencilMask($FFFFFFFF);
2652 glStencilFunc(GL_ALWAYS, 0, $FFFFFFFF);
2653 glEnable(GL_STENCIL_TEST);
2654 glEnable(GL_SCISSOR_TEST);
2655 glClear(GL_STENCIL_BUFFER_BIT);
2656 glStencilFunc(GL_EQUAL, 0, $ff);
2657
2658 for lln := 0 to g_dynLightCount-1 do
2659 begin
2660 lx := g_dynLights[lln].x;
2661 ly := g_dynLights[lln].y;
2662 lrad := g_dynLights[lln].radius;
2663 if lrad < 3 then continue;
2664
2665 if lx-sX+lrad < 0 then continue;
2666 if ly-sY+lrad < 0 then continue;
2667 if lx-sX-lrad >= gPlayerScreenSize.X then continue;
2668 if ly-sY-lrad >= gPlayerScreenSize.Y then continue;
2669
2670 // set scissor to optimize drawing
2671 glScissor((lx-sX)-lrad+2, gPlayerScreenSize.Y-(ly-sY)-lrad-1+2, lrad*2-4, lrad*2-4);
2672 // no need to clear stencil buffer, light blitting will do it for us
2673 glStencilOp(GL_KEEP, GL_KEEP, GL_INCR);
2674 // draw extruded panels
2675 glDisable(GL_TEXTURE_2D);
2676 glDisable(GL_BLEND);
2677 glColorMask(GL_FALSE, GL_FALSE, GL_FALSE, GL_FALSE); // no need to modify color buffer
2678 if (lrad > 4) then g_Map_DrawPanelShadowVolumes(lx, ly, lrad);
2679 // render light texture
2680 glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); // modify color buffer
2681 glStencilOp(GL_ZERO, GL_ZERO, GL_ZERO); // draw light, and clear stencil buffer
2682 // blend it
2683 glEnable(GL_BLEND);
2684 glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2685 glEnable(GL_TEXTURE_2D);
2686 // color and opacity
2687 glColor4f(g_dynLights[lln].r, g_dynLights[lln].g, g_dynLights[lln].b, g_dynLights[lln].a);
2688 glBindTexture(GL_TEXTURE_2D, g_Texture_Light());
2689 glBegin(GL_QUADS);
2690 glTexCoord2f(0.0, 0.0); glVertex2i(lx-lrad, ly-lrad); // top-left
2691 glTexCoord2f(1.0, 0.0); glVertex2i(lx+lrad, ly-lrad); // top-right
2692 glTexCoord2f(1.0, 1.0); glVertex2i(lx+lrad, ly+lrad); // bottom-right
2693 glTexCoord2f(0.0, 1.0); glVertex2i(lx-lrad, ly+lrad); // bottom-left
2694 glEnd();
2695 end;
2696
2697 // done
2698 glDisable(GL_STENCIL_TEST);
2699 glDisable(GL_BLEND);
2700 glDisable(GL_SCISSOR_TEST);
2701 glScissor(0, 0, sWidth, sHeight);
2702 end;
2703
2704
2705 // setup sX, sY, sWidth, sHeight, and transformation matrix before calling this!
2706 // WARNING! this WILL CALL `glTranslatef()`, but won't restore matrices!
2707 procedure renderMapInternal (backXOfs, backYOfs: Integer; transX, transY: Integer; setTransMatrix: Boolean);
2708 type
2709 TDrawCB = procedure ();
2710
2711 procedure drawPanelType (profname: AnsiString; panType: DWord);
2712 var
2713 tagmask: Integer;
2714 pan: TPanel;
2715 begin
2716 profileFrameDraw.sectionBegin(profname);
2717 if gdbg_map_use_accel_render then
2718 begin
2719 tagmask := panelTypeToTag(panType);
2720 {$IF TRUE}
2721 while (gDrawPanelList.count > 0) do
2722 begin
2723 pan := TPanel(gDrawPanelList.front());
2724 if ((pan.tag and tagmask) = 0) then break;
2725 pan.Draw();
2726 gDrawPanelList.popFront();
2727 end;
2728 {$ELSE}
2729 e_WriteLog(Format('=== PANELS: %d ===', [gDrawPanelList.count]), MSG_NOTIFY);
2730 while (gDrawPanelList.count > 0) do
2731 begin
2732 pan := TPanel(gDrawPanelList.front());
2733 e_WriteLog(Format('tagmask: 0x%04x; pan.tag: 0x%04x; pan.ArrIdx: %d', [tagmask, pan.tag, pan.ArrIdx]), MSG_NOTIFY);
2734 pan.Draw();
2735 gDrawPanelList.popFront();
2736 end;
2737 {$ENDIF}
2738 end
2739 else
2740 begin
2741 g_Map_DrawPanels(panType);
2742 end;
2743 profileFrameDraw.sectionEnd();
2744 end;
2745
2746 procedure drawOther (profname: AnsiString; cb: TDrawCB);
2747 begin
2748 profileFrameDraw.sectionBegin(profname);
2749 if assigned(cb) then cb();
2750 profileFrameDraw.sectionEnd();
2751 end;
2752
2753 begin
2754 profileFrameDraw.sectionBegin('total');
2755
2756 // our accelerated renderer will collect all panels to gDrawPanelList
2757 // we can use panel tag to render level parts (see GridTagXXX in g_map.pas)
2758 profileFrameDraw.sectionBegin('collect');
2759 if gdbg_map_use_accel_render then
2760 begin
2761 g_Map_CollectDrawPanels(sX, sY, sWidth, sHeight);
2762 end;
2763 profileFrameDraw.sectionEnd();
2764
2765 profileFrameDraw.sectionBegin('skyback');
2766 g_Map_DrawBack(backXOfs, backYOfs);
2767 profileFrameDraw.sectionEnd();
2768
2769 if (setTransMatrix) then glTranslatef(transX, transY, 0);
2770
2771 drawPanelType('*back', PANEL_BACK);
2772 drawPanelType('*step', PANEL_STEP);
2773 drawOther('items', @g_Items_Draw);
2774 drawOther('weapons', @g_Weapon_Draw);
2775 drawOther('shells', @g_Player_DrawShells);
2776 drawOther('drawall', @g_Player_DrawAll);
2777 drawOther('corpses', @g_Player_DrawCorpses);
2778 drawPanelType('*wall', PANEL_WALL);
2779 drawOther('monsters', @g_Monsters_Draw);
2780 drawPanelType('*door', PANEL_CLOSEDOOR);
2781 drawOther('gfx', @g_GFX_Draw);
2782 drawOther('flags', @g_Map_DrawFlags);
2783 drawPanelType('*acid1', PANEL_ACID1);
2784 drawPanelType('*acid2', PANEL_ACID2);
2785 drawPanelType('*water', PANEL_WATER);
2786 drawOther('dynlights', @renderDynLightsInternal);
2787 drawPanelType('*fore', PANEL_FORE);
2788
2789 if g_debug_HealthBar then
2790 begin
2791 g_Monsters_DrawHealth();
2792 g_Player_DrawHealth();
2793 end;
2794
2795 profileFrameDraw.mainEnd(); // map rendering
2796 end;
2797
2798
2799 procedure DrawMapView(x, y, w, h: Integer);
2800
2801 var
2802 bx, by: Integer;
2803 begin
2804 glPushMatrix();
2805
2806 bx := Round(x/(gMapInfo.Width - w)*(gBackSize.X - w));
2807 by := Round(y/(gMapInfo.Height - h)*(gBackSize.Y - h));
2808
2809 sX := x;
2810 sY := y;
2811 sWidth := w;
2812 sHeight := h;
2813
2814 renderMapInternal(-bx, -by, -x, -y, true);
2815
2816 glPopMatrix();
2817 end;
2818
2819
2820 procedure DrawPlayer(p: TPlayer);
2821 var
2822 px, py, a, b, c, d: Integer;
2823 //R: TRect;
2824
2825 begin
2826 if (p = nil) or (p.FDummy) then
2827 begin
2828 glPushMatrix();
2829 g_Map_DrawBack(0, 0);
2830 glPopMatrix();
2831 Exit;
2832 end;
2833
2834 if (profileFrameDraw = nil) then profileFrameDraw := TProfiler.Create('RENDER', g_profile_history_size);
2835 profileFrameDraw.mainBegin(g_profile_frame_draw);
2836
2837 gPlayerDrawn := p;
2838
2839 glPushMatrix();
2840
2841 px := p.GameX + PLAYER_RECT_CX;
2842 py := p.GameY + PLAYER_RECT_CY;
2843
2844 if px > (gPlayerScreenSize.X div 2) then a := -px+(gPlayerScreenSize.X div 2) else a := 0;
2845 if py > (gPlayerScreenSize.Y div 2) then b := -py+(gPlayerScreenSize.Y div 2) else b := 0;
2846
2847 if px > gMapInfo.Width-(gPlayerScreenSize.X div 2) then a := -gMapInfo.Width+gPlayerScreenSize.X;
2848 if py > gMapInfo.Height-(gPlayerScreenSize.Y div 2) then b := -gMapInfo.Height+gPlayerScreenSize.Y;
2849
2850 if gMapInfo.Width <= gPlayerScreenSize.X then a := 0;
2851 if gMapInfo.Height <= gPlayerScreenSize.Y then b := 0;
2852
2853 if p.IncCam <> 0 then
2854 begin
2855 if py > gMapInfo.Height-(gPlayerScreenSize.Y div 2) then
2856 begin
2857 if p.IncCam > 120-(py-(gMapInfo.Height-(gPlayerScreenSize.Y div 2))) then
2858 begin
2859 p.IncCam := 120-(py-(gMapInfo.Height-(gPlayerScreenSize.Y div 2)));
2860 end;
2861 end;
2862
2863 if py < gPlayerScreenSize.Y div 2 then
2864 begin
2865 if p.IncCam < -120+((gPlayerScreenSize.Y div 2)-py) then
2866 begin
2867 p.IncCam := -120+((gPlayerScreenSize.Y div 2)-py);
2868 end;
2869 end;
2870
2871 if p.IncCam < 0 then
2872 begin
2873 while (py+(gPlayerScreenSize.Y div 2)-p.IncCam > gMapInfo.Height) and (p.IncCam < 0) do p.IncCam := p.IncCam+1; //Inc(p.IncCam);
2874 end;
2875
2876 if p.IncCam > 0 then
2877 begin
2878 while (py-(gPlayerScreenSize.Y div 2)-p.IncCam < 0) and (p.IncCam > 0) do p.IncCam := p.IncCam-1; //Dec(p.IncCam);
2879 end;
2880 end;
2881
2882 if (px < gPlayerScreenSize.X div 2) or (gMapInfo.Width-gPlayerScreenSize.X <= 256) then c := 0
2883 else if (px > gMapInfo.Width-(gPlayerScreenSize.X div 2)) then c := gBackSize.X-gPlayerScreenSize.X
2884 else c := round((px-(gPlayerScreenSize.X div 2))/(gMapInfo.Width-gPlayerScreenSize.X)*(gBackSize.X-gPlayerScreenSize.X));
2885
2886 if (py-p.IncCam <= gPlayerScreenSize.Y div 2) or (gMapInfo.Height-gPlayerScreenSize.Y <= 256) then d := 0
2887 else if (py-p.IncCam >= gMapInfo.Height-(gPlayerScreenSize.Y div 2)) then d := gBackSize.Y-gPlayerScreenSize.Y
2888 else d := round((py-p.IncCam-(gPlayerScreenSize.Y div 2))/(gMapInfo.Height-gPlayerScreenSize.Y)*(gBackSize.Y-gPlayerScreenSize.Y));
2889
2890 sX := -a;
2891 sY := -(b+p.IncCam);
2892 sWidth := gPlayerScreenSize.X;
2893 sHeight := gPlayerScreenSize.Y;
2894
2895 //glTranslatef(a, b+p.IncCam, 0);
2896
2897 renderMapInternal(-c, -d, a, b+p.IncCam, true);
2898
2899 if p.FSpectator then
2900 e_TextureFontPrintEx(p.GameX + PLAYER_RECT_CX - 4,
2901 p.GameY + PLAYER_RECT_CY - 4,
2902 'X', gStdFont, 255, 255, 255, 1, True);
2903 {
2904 for a := 0 to High(gCollideMap) do
2905 for b := 0 to High(gCollideMap[a]) do
2906 begin
2907 d := 0;
2908 if ByteBool(gCollideMap[a, b] and MARK_WALL) then
2909 d := d + 1;
2910 if ByteBool(gCollideMap[a, b] and MARK_DOOR) then
2911 d := d + 2;
2912
2913 case d of
2914 1: e_DrawPoint(1, b, a, 200, 200, 200);
2915 2: e_DrawPoint(1, b, a, 64, 64, 255);
2916 3: e_DrawPoint(1, b, a, 255, 0, 255);
2917 end;
2918 end;
2919 }
2920
2921 glPopMatrix();
2922
2923 p.DrawPain();
2924 p.DrawPickup();
2925 p.DrawRulez();
2926 if gShowMap then DrawMinimap(p, _TRect(0, 0, 128, 128));
2927 if g_Debug_Player then
2928 g_Player_DrawDebug(p);
2929 p.DrawGUI();
2930 end;
2931
2932 procedure drawProfilers ();
2933 var
2934 px: Integer = -1;
2935 begin
2936 if g_profile_frame_draw then px := px-drawProfiles(px, -1, profileFrameDraw);
2937 if g_profile_collision then px := px-drawProfiles(px, -1, profMapCollision);
2938 end;
2939
2940 procedure g_Game_Draw();
2941 var
2942 ID: DWORD;
2943 w, h: Word;
2944 ww, hh: Byte;
2945 Time: Int64;
2946 back: string;
2947 plView1, plView2: TPlayer;
2948 Split: Boolean;
2949 begin
2950 if gExit = EXIT_QUIT then Exit;
2951
2952 Time := GetTimer() {div 1000};
2953 FPSCounter := FPSCounter+1;
2954 if Time - FPSTime >= 1000 then
2955 begin
2956 FPS := FPSCounter;
2957 FPSCounter := 0;
2958 FPSTime := Time;
2959 end;
2960
2961 if gGameOn or (gState = STATE_FOLD) then
2962 begin
2963 if (gPlayer1 <> nil) and (gPlayer2 <> nil) then
2964 begin
2965 gSpectMode := SPECT_NONE;
2966 if not gRevertPlayers then
2967 begin
2968 plView1 := gPlayer1;
2969 plView2 := gPlayer2;
2970 end
2971 else
2972 begin
2973 plView1 := gPlayer2;
2974 plView2 := gPlayer1;
2975 end;
2976 end
2977 else
2978 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
2979 begin
2980 gSpectMode := SPECT_NONE;
2981 if gPlayer2 = nil then
2982 plView1 := gPlayer1
2983 else
2984 plView1 := gPlayer2;
2985 plView2 := nil;
2986 end
2987 else
2988 begin
2989 plView1 := nil;
2990 plView2 := nil;
2991 end;
2992
2993 if (plView1 = nil) and (plView2 = nil) and (gSpectMode = SPECT_NONE) then
2994 gSpectMode := SPECT_STATS;
2995
2996 if gSpectMode = SPECT_PLAYERS then
2997 if gPlayers <> nil then
2998 begin
2999 plView1 := GetActivePlayer_ByID(gSpectPID1);
3000 if plView1 = nil then
3001 begin
3002 gSpectPID1 := GetActivePlayerID_Next();
3003 plView1 := GetActivePlayer_ByID(gSpectPID1);
3004 end;
3005 if gSpectViewTwo then
3006 begin
3007 plView2 := GetActivePlayer_ByID(gSpectPID2);
3008 if plView2 = nil then
3009 begin
3010 gSpectPID2 := GetActivePlayerID_Next();
3011 plView2 := GetActivePlayer_ByID(gSpectPID2);
3012 end;
3013 end;
3014 end;
3015
3016 if gSpectMode = SPECT_MAPVIEW then
3017 begin
3018 // Ðåæèì ïðîñìîòðà êàðòû
3019 Split := False;
3020 e_SetViewPort(0, 0, gScreenWidth, gScreenHeight);
3021 DrawMapView(gSpectX, gSpectY, gScreenWidth, gScreenHeight);
3022 gHearPoint1.Active := True;
3023 gHearPoint1.Coords.X := gScreenWidth div 2 + gSpectX;
3024 gHearPoint1.Coords.Y := gScreenHeight div 2 + gSpectY;
3025 gHearPoint2.Active := False;
3026 end
3027 else
3028 begin
3029 Split := (plView1 <> nil) and (plView2 <> nil);
3030
3031 // Òî÷êè ñëóõà èãðîêîâ
3032 if plView1 <> nil then
3033 begin
3034 gHearPoint1.Active := True;
3035 gHearPoint1.Coords.X := plView1.GameX;
3036 gHearPoint1.Coords.Y := plView1.GameY;
3037 end else
3038 gHearPoint1.Active := False;
3039 if plView2 <> nil then
3040 begin
3041 gHearPoint2.Active := True;
3042 gHearPoint2.Coords.X := plView2.GameX;
3043 gHearPoint2.Coords.Y := plView2.GameY;
3044 end else
3045 gHearPoint2.Active := False;
3046
3047 // Ðàçìåð ýêðàíîâ èãðîêîâ:
3048 gPlayerScreenSize.X := gScreenWidth-196;
3049 if Split then
3050 begin
3051 gPlayerScreenSize.Y := gScreenHeight div 2;
3052 if gScreenHeight mod 2 = 0 then
3053 Dec(gPlayerScreenSize.Y);
3054 end
3055 else
3056 gPlayerScreenSize.Y := gScreenHeight;
3057
3058 if Split then
3059 if gScreenHeight mod 2 = 0 then
3060 e_SetViewPort(0, gPlayerScreenSize.Y+2, gPlayerScreenSize.X+196, gPlayerScreenSize.Y)
3061 else
3062 e_SetViewPort(0, gPlayerScreenSize.Y+1, gPlayerScreenSize.X+196, gPlayerScreenSize.Y);
3063
3064 DrawPlayer(plView1);
3065 gPlayer1ScreenCoord.X := sX;
3066 gPlayer1ScreenCoord.Y := sY;
3067
3068 if Split then
3069 begin
3070 e_SetViewPort(0, 0, gPlayerScreenSize.X+196, gPlayerScreenSize.Y);
3071
3072 DrawPlayer(plView2);
3073 gPlayer2ScreenCoord.X := sX;
3074 gPlayer2ScreenCoord.Y := sY;
3075 end;
3076
3077 e_SetViewPort(0, 0, gScreenWidth, gScreenHeight);
3078
3079 if Split then
3080 e_DrawLine(2, 0, gScreenHeight div 2, gScreenWidth, gScreenHeight div 2, 0, 0, 0);
3081 end;
3082
3083 if MessageText <> '' then
3084 begin
3085 w := 0;
3086 h := 0;
3087 e_CharFont_GetSizeFmt(gMenuFont, MessageText, w, h);
3088 if Split then
3089 e_CharFont_PrintFmt(gMenuFont, (gScreenWidth div 2)-(w div 2),
3090 (gScreenHeight div 2)-(h div 2), MessageText)
3091 else
3092 e_CharFont_PrintFmt(gMenuFont, (gScreenWidth div 2)-(w div 2),
3093 Round(gScreenHeight / 2.75)-(h div 2), MessageText);
3094 end;
3095
3096 if IsDrawStat or (gSpectMode = 1) then DrawStat();
3097
3098 if gSpectHUD and (not gChatShow) and (gSpectMode <> SPECT_NONE) then
3099 begin
3100 // Draw spectator GUI
3101 ww := 0;
3102 hh := 0;
3103 e_TextureFontGetSize(gStdFont, ww, hh);
3104 case gSpectMode of
3105 SPECT_STATS:
3106 e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Stats', gStdFont, 255, 255, 255, 1);
3107 SPECT_MAPVIEW:
3108 e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Observe Map', gStdFont, 255, 255, 255, 1);
3109 SPECT_PLAYERS:
3110 e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Watch Players', gStdFont, 255, 255, 255, 1);
3111 end;
3112 e_TextureFontPrintEx(2*ww, gScreenHeight - (hh+2), '< jump >', gStdFont, 255, 255, 255, 1);
3113 if gSpectMode = SPECT_MAPVIEW then
3114 begin
3115 e_TextureFontPrintEx(22*ww, gScreenHeight - (hh+2)*2, '[-]', gStdFont, 255, 255, 255, 1);
3116 e_TextureFontPrintEx(26*ww, gScreenHeight - (hh+2)*2, 'Step ' + IntToStr(gSpectStep), gStdFont, 255, 255, 255, 1);
3117 e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2)*2, '[+]', gStdFont, 255, 255, 255, 1);
3118 e_TextureFontPrintEx(18*ww, gScreenHeight - (hh+2), '<prev weap>', gStdFont, 255, 255, 255, 1);
3119 e_TextureFontPrintEx(30*ww, gScreenHeight - (hh+2), '<next weap>', gStdFont, 255, 255, 255, 1);
3120 end;
3121 if gSpectMode = SPECT_PLAYERS then
3122 begin
3123 e_TextureFontPrintEx(22*ww, gScreenHeight - (hh+2)*2, 'Player 1', gStdFont, 255, 255, 255, 1);
3124 e_TextureFontPrintEx(20*ww, gScreenHeight - (hh+2), '<left/right>', gStdFont, 255, 255, 255, 1);
3125 if gSpectViewTwo then
3126 begin
3127 e_TextureFontPrintEx(37*ww, gScreenHeight - (hh+2)*2, 'Player 2', gStdFont, 255, 255, 255, 1);
3128 e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2), '<prev w/next w>', gStdFont, 255, 255, 255, 1);
3129 e_TextureFontPrintEx(52*ww, gScreenHeight - (hh+2)*2, '2x View', gStdFont, 255, 255, 255, 1);
3130 e_TextureFontPrintEx(51*ww, gScreenHeight - (hh+2), '<up/down>', gStdFont, 255, 255, 255, 1);
3131 end
3132 else
3133 begin
3134 e_TextureFontPrintEx(35*ww, gScreenHeight - (hh+2)*2, '2x View', gStdFont, 255, 255, 255, 1);
3135 e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2), '<up/down>', gStdFont, 255, 255, 255, 1);
3136 end;
3137 end;
3138 end;
3139 end;
3140
3141 if gPause and gGameOn and (g_ActiveWindow = nil) then
3142 begin
3143 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3144
3145 e_CharFont_GetSize(gMenuFont, _lc[I_MENU_PAUSE], w, h);
3146 e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(w div 2),
3147 (gScreenHeight div 2)-(h div 2), _lc[I_MENU_PAUSE]);
3148 end;
3149
3150 if not gGameOn then
3151 begin
3152 if (gState = STATE_MENU) then
3153 begin
3154 if ((g_ActiveWindow = nil) or (g_ActiveWindow.BackTexture = '')) then
3155 begin
3156 if g_Texture_Get('MENU_BACKGROUND', ID) then
3157 e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3158 else e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3159 end;
3160 if g_ActiveWindow <> nil then
3161 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3162 end;
3163
3164 if gState = STATE_FOLD then
3165 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 0, 0, 0, EndingGameCounter);
3166
3167 if gState = STATE_INTERCUSTOM then
3168 begin
3169 if gLastMap and (gGameSettings.GameMode = GM_COOP) then
3170 begin
3171 back := 'TEXTURE_endpic';
3172 if not g_Texture_Get(back, ID) then
3173 back := _lc[I_TEXTURE_ENDPIC];
3174 end
3175 else
3176 back := 'INTER';
3177
3178 if g_Texture_Get(back, ID) then
3179 e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3180 else
3181 e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3182
3183 DrawCustomStat();
3184
3185 if g_ActiveWindow <> nil then
3186 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3187 end;
3188
3189 if gState = STATE_INTERSINGLE then
3190 begin
3191 if EndingGameCounter > 0 then
3192 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 0, 0, 0, EndingGameCounter)
3193 else
3194 begin
3195 back := 'INTER';
3196
3197 if g_Texture_Get(back, ID) then
3198 e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3199 else
3200 e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3201
3202 DrawSingleStat();
3203
3204 if g_ActiveWindow <> nil then
3205 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3206 end;
3207 end;
3208
3209 if gState = STATE_ENDPIC then
3210 begin
3211 ID := DWORD(-1);
3212 if not g_Texture_Get('TEXTURE_endpic', ID) then
3213 g_Texture_Get(_lc[I_TEXTURE_ENDPIC], ID);
3214
3215 if ID <> DWORD(-1) then
3216 e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3217 else
3218 e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3219
3220 if g_ActiveWindow <> nil then
3221 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3222 end;
3223
3224 if gState = STATE_SLIST then
3225 begin
3226 if g_Texture_Get('MENU_BACKGROUND', ID) then
3227 begin
3228 e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight);
3229 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3230 end;
3231 g_Serverlist_Draw(slCurrent);
3232 end;
3233 end;
3234
3235 if g_ActiveWindow <> nil then
3236 begin
3237 if gGameOn then
3238 e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3239 g_ActiveWindow.Draw();
3240 end;
3241
3242 g_Console_Draw();
3243
3244 if g_debug_Sounds and gGameOn then
3245 begin
3246 for w := 0 to High(e_SoundsArray) do
3247 for h := 0 to e_SoundsArray[w].nRefs do
3248 e_DrawPoint(1, w+100, h+100, 255, 0, 0);
3249 end;
3250
3251 if gShowFPS then
3252 begin
3253 e_TextureFontPrint(0, 0, Format('FPS: %d', [FPS]), gStdFont);
3254 e_TextureFontPrint(0, 16, Format('UPS: %d', [UPS]), gStdFont);
3255 end;
3256
3257 if gGameOn and gShowTime and (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
3258 e_TextureFontPrint(gScreenWidth-72, 0,
3259 Format('%d:%.2d:%.2d', [gTime div 1000 div 3600, (gTime div 1000 div 60) mod 60, gTime div 1000 mod 60]),
3260 gStdFont);
3261
3262 if gGameOn then drawProfilers();
3263 end;
3264
3265 procedure g_Game_Quit();
3266 begin
3267 g_Game_StopAllSounds(True);
3268 gMusic.Free();
3269 g_Game_SaveOptions();
3270 g_Game_FreeData();
3271 g_PlayerModel_FreeData();
3272 g_Texture_DeleteAll();
3273 g_Frames_DeleteAll();
3274 g_Menu_Free();
3275
3276 if NetInitDone then g_Net_Free;
3277
3278 // Íàäî óäàëèòü êàðòó ïîñëå òåñòà:
3279 if gMapToDelete <> '' then
3280 g_Game_DeleteTestMap();
3281
3282 gExit := EXIT_QUIT;
3283 PushExitEvent();
3284 end;
3285
3286 procedure g_FatalError(Text: String);
3287 begin
3288 g_Console_Add(Format(_lc[I_FATAL_ERROR], [Text]), True);
3289 e_WriteLog(Format(_lc[I_FATAL_ERROR], [Text]), MSG_WARNING);
3290
3291 gExit := EXIT_SIMPLE;
3292 end;
3293
3294 procedure g_SimpleError(Text: String);
3295 begin
3296 g_Console_Add(Format(_lc[I_SIMPLE_ERROR], [Text]), True);
3297 e_WriteLog(Format(_lc[I_SIMPLE_ERROR], [Text]), MSG_WARNING);
3298 end;
3299
3300 procedure g_Game_SetupScreenSize();
3301 var
3302 d: Single;
3303 begin
3304 // Ðàçìåð ýêðàíîâ èãðîêîâ:
3305 gPlayerScreenSize.X := gScreenWidth-196;
3306 if (gPlayer1 <> nil) and (gPlayer2 <> nil) then
3307 gPlayerScreenSize.Y := gScreenHeight div 2
3308 else
3309 gPlayerScreenSize.Y := gScreenHeight;
3310
3311 // Ðàçìåð çàäíåãî ïëàíà:
3312 if BackID <> DWORD(-1) then
3313 begin
3314 d := SKY_STRETCH;
3315
3316 if (gScreenWidth*d > gMapInfo.Width) or
3317 (gScreenHeight*d > gMapInfo.Height) then
3318 d := 1.0;
3319
3320 gBackSize.X := Round(gScreenWidth*d);
3321 gBackSize.Y := Round(gScreenHeight*d);
3322 end;
3323 end;
3324
3325 procedure g_Game_ChangeResolution(newWidth, newHeight: Word; nowFull, nowMax: Boolean);
3326 begin
3327 g_Window_SetSize(newWidth, newHeight, nowFull);
3328 end;
3329
3330 procedure g_Game_AddPlayer(Team: Byte = TEAM_NONE);
3331 begin
3332 if ((not gGameOn) and (gState <> STATE_INTERCUSTOM))
3333 or (not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT])) then
3334 Exit;
3335 if gPlayer1 = nil then
3336 begin
3337 if g_Game_IsClient then
3338 begin
3339 if NetPlrUID1 > -1 then
3340 begin
3341 MC_SEND_CheatRequest(NET_CHEAT_SPECTATE);
3342 gPlayer1 := g_Player_Get(NetPlrUID1);
3343 end;
3344 Exit;
3345 end;
3346
3347 if not (Team in [TEAM_RED, TEAM_BLUE]) then
3348 Team := gPlayer1Settings.Team;
3349
3350 // Ñîçäàíèå ïåðâîãî èãðîêà:
3351 gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3352 gPlayer1Settings.Color,
3353 Team, False));
3354 if gPlayer1 = nil then
3355 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]))
3356 else
3357 begin
3358 gPlayer1.Name := gPlayer1Settings.Name;
3359 g_Console_Add(Format(_lc[I_PLAYER_JOIN], [gPlayer1.Name]), True);
3360 if g_Game_IsServer and g_Game_IsNet then
3361 MH_SEND_PlayerCreate(gPlayer1.UID);
3362 gPlayer1.Respawn(False, True);
3363
3364 if g_Game_IsNet and NetUseMaster then
3365 g_Net_Slist_Update;
3366 end;
3367
3368 Exit;
3369 end;
3370 if gPlayer2 = nil then
3371 begin
3372 if g_Game_IsClient then
3373 begin
3374 if NetPlrUID2 > -1 then
3375 gPlayer2 := g_Player_Get(NetPlrUID2);
3376 Exit;
3377 end;
3378
3379 if not (Team in [TEAM_RED, TEAM_BLUE]) then
3380 Team := gPlayer2Settings.Team;
3381
3382 // Ñîçäàíèå âòîðîãî èãðîêà:
3383 gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3384 gPlayer2Settings.Color,
3385 Team, False));
3386 if gPlayer2 = nil then
3387 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]))
3388 else
3389 begin
3390 gPlayer2.Name := gPlayer2Settings.Name;
3391 g_Console_Add(Format(_lc[I_PLAYER_JOIN], [gPlayer2.Name]), True);
3392 if g_Game_IsServer and g_Game_IsNet then
3393 MH_SEND_PlayerCreate(gPlayer2.UID);
3394 gPlayer2.Respawn(False, True);
3395
3396 if g_Game_IsNet and NetUseMaster then
3397 g_Net_Slist_Update;
3398 end;
3399
3400 Exit;
3401 end;
3402 end;
3403
3404 procedure g_Game_RemovePlayer();
3405 var
3406 Pl: TPlayer;
3407 begin
3408 if ((not gGameOn) and (gState <> STATE_INTERCUSTOM))
3409 or (not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT])) then
3410 Exit;
3411 Pl := gPlayer2;
3412 if Pl <> nil then
3413 begin
3414 if g_Game_IsServer then
3415 begin
3416 Pl.Lives := 0;
3417 Pl.Kill(K_SIMPLEKILL, 0, HIT_DISCON);
3418 g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [Pl.Name]), True);
3419 g_Player_Remove(Pl.UID);
3420
3421 if g_Game_IsNet and NetUseMaster then
3422 g_Net_Slist_Update;
3423 end else
3424 gPlayer2 := nil;
3425 Exit;
3426 end;
3427 Pl := gPlayer1;
3428 if Pl <> nil then
3429 begin
3430 if g_Game_IsServer then
3431 begin
3432 Pl.Lives := 0;
3433 Pl.Kill(K_SIMPLEKILL, 0, HIT_DISCON);
3434 g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [Pl.Name]), True);
3435 g_Player_Remove(Pl.UID);
3436
3437 if g_Game_IsNet and NetUseMaster then
3438 g_Net_Slist_Update;
3439 end else
3440 begin
3441 gPlayer1 := nil;
3442 MC_SEND_CheatRequest(NET_CHEAT_SPECTATE);
3443 end;
3444 Exit;
3445 end;
3446 end;
3447
3448 procedure g_Game_Spectate();
3449 begin
3450 g_Game_RemovePlayer();
3451 if gPlayer1 <> nil then
3452 g_Game_RemovePlayer();
3453 end;
3454
3455 procedure g_Game_SpectateCenterView();
3456 begin
3457 gSpectX := Max(gMapInfo.Width div 2 - gScreenWidth div 2, 0);
3458 gSpectY := Max(gMapInfo.Height div 2 - gScreenHeight div 2, 0);
3459 end;
3460
3461 procedure g_Game_StartSingle(Map: String; TwoPlayers: Boolean; nPlayers: Byte);
3462 var
3463 i, nPl: Integer;
3464 begin
3465 g_Game_Free();
3466
3467 e_WriteLog('Starting singleplayer game...', MSG_NOTIFY);
3468
3469 g_Game_ClearLoading();
3470
3471 // Íàñòðîéêè èãðû:
3472 FillByte(gGameSettings, SizeOf(TGameSettings), 0);
3473 gAimLine := False;
3474 gShowMap := False;
3475 gGameSettings.GameType := GT_SINGLE;
3476 gGameSettings.MaxLives := 0;
3477 gGameSettings.Options := gGameSettings.Options + GAME_OPTION_ALLOWEXIT;
3478 gGameSettings.Options := gGameSettings.Options + GAME_OPTION_MONSTERS;
3479 gGameSettings.Options := gGameSettings.Options + GAME_OPTION_BOTVSMONSTER;
3480 gSwitchGameMode := GM_SINGLE;
3481
3482 g_Game_ExecuteEvent('ongamestart');
3483
3484 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3485 g_Game_SetupScreenSize();
3486
3487 // Ñîçäàíèå ïåðâîãî èãðîêà:
3488 gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3489 gPlayer1Settings.Color,
3490 gPlayer1Settings.Team, False));
3491 if gPlayer1 = nil then
3492 begin
3493 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3494 Exit;
3495 end;
3496
3497 gPlayer1.Name := gPlayer1Settings.Name;
3498 nPl := 1;
3499
3500 // Ñîçäàíèå âòîðîãî èãðîêà, åñëè åñòü:
3501 if TwoPlayers then
3502 begin
3503 gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3504 gPlayer2Settings.Color,
3505 gPlayer2Settings.Team, False));
3506 if gPlayer2 = nil then
3507 begin
3508 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3509 Exit;
3510 end;
3511
3512 gPlayer2.Name := gPlayer2Settings.Name;
3513 Inc(nPl);
3514 end;
3515
3516 // Çàãðóçêà è çàïóñê êàðòû:
3517 if not g_Game_StartMap(MAP, True) then
3518 begin
3519 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [gGameSettings.WAD + ':\' + MAP]));
3520 Exit;
3521 end;
3522
3523 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3524 g_Player_Init();
3525
3526 // Ñîçäàåì áîòîâ:
3527 for i := nPl+1 to nPlayers do
3528 g_Player_Create(STD_PLAYER_MODEL, _RGB(0, 0, 0), 0, True);
3529 end;
3530
3531 procedure g_Game_StartCustom(Map: String; GameMode: Byte;
3532 TimeLimit, GoalLimit: Word;
3533 MaxLives: Byte;
3534 Options: LongWord; nPlayers: Byte);
3535 var
3536 i, nPl: Integer;
3537 begin
3538 g_Game_Free();
3539
3540 e_WriteLog('Starting custom game...', MSG_NOTIFY);
3541
3542 g_Game_ClearLoading();
3543
3544 // Íàñòðîéêè èãðû:
3545 gGameSettings.GameType := GT_CUSTOM;
3546 gGameSettings.GameMode := GameMode;
3547 gSwitchGameMode := GameMode;
3548 gGameSettings.TimeLimit := TimeLimit;
3549 gGameSettings.GoalLimit := GoalLimit;
3550 gGameSettings.MaxLives := IfThen(GameMode = GM_CTF, 0, MaxLives);
3551 gGameSettings.Options := Options;
3552
3553 gCoopTotalMonstersKilled := 0;
3554 gCoopTotalSecretsFound := 0;
3555 gCoopTotalMonsters := 0;
3556 gCoopTotalSecrets := 0;
3557 gAimLine := False;
3558 gShowMap := False;
3559
3560 g_Game_ExecuteEvent('ongamestart');
3561
3562 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3563 g_Game_SetupScreenSize();
3564
3565 // Ðåæèì íàáëþäàòåëÿ:
3566 if nPlayers = 0 then
3567 begin
3568 gPlayer1 := nil;
3569 gPlayer2 := nil;
3570 end;
3571
3572 nPl := 0;
3573 if nPlayers >= 1 then
3574 begin
3575 // Ñîçäàíèå ïåðâîãî èãðîêà:
3576 gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3577 gPlayer1Settings.Color,
3578 gPlayer1Settings.Team, False));
3579 if gPlayer1 = nil then
3580 begin
3581 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3582 Exit;
3583 end;
3584
3585 gPlayer1.Name := gPlayer1Settings.Name;
3586 Inc(nPl);
3587 end;
3588
3589 if nPlayers >= 2 then
3590 begin
3591 // Ñîçäàíèå âòîðîãî èãðîêà:
3592 gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3593 gPlayer2Settings.Color,
3594 gPlayer2Settings.Team, False));
3595 if gPlayer2 = nil then
3596 begin
3597 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3598 Exit;
3599 end;
3600
3601 gPlayer2.Name := gPlayer2Settings.Name;
3602 Inc(nPl);
3603 end;
3604
3605 // Çàãðóçêà è çàïóñê êàðòû:
3606 if not g_Game_StartMap(Map, True) then
3607 begin
3608 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [Map]));
3609 Exit;
3610 end;
3611
3612 // Íåò òî÷åê ïîÿâëåíèÿ:
3613 if (g_Map_GetPointCount(RESPAWNPOINT_PLAYER1) +
3614 g_Map_GetPointCount(RESPAWNPOINT_PLAYER2) +
3615 g_Map_GetPointCount(RESPAWNPOINT_DM) +
3616 g_Map_GetPointCount(RESPAWNPOINT_RED)+
3617 g_Map_GetPointCount(RESPAWNPOINT_BLUE)) < 1 then
3618 begin
3619 g_FatalError(_lc[I_GAME_ERROR_GET_SPAWN]);
3620 Exit;
3621 end;
3622
3623 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3624 g_Player_Init();
3625
3626 // Ñîçäàåì áîòîâ:
3627 for i := nPl+1 to nPlayers do
3628 g_Player_Create(STD_PLAYER_MODEL, _RGB(0, 0, 0), 0, True);
3629 end;
3630
3631 procedure g_Game_StartServer(Map: String; GameMode: Byte;
3632 TimeLimit, GoalLimit: Word; MaxLives: Byte;
3633 Options: LongWord; nPlayers: Byte;
3634 IPAddr: LongWord; Port: Word);
3635 begin
3636 g_Game_Free();
3637
3638 e_WriteLog('Starting net game (server)...', MSG_NOTIFY);
3639
3640 g_Game_ClearLoading();
3641
3642 // Íàñòðîéêè èãðû:
3643 gGameSettings.GameType := GT_SERVER;
3644 gGameSettings.GameMode := GameMode;
3645 gSwitchGameMode := GameMode;
3646 gGameSettings.TimeLimit := TimeLimit;
3647 gGameSettings.GoalLimit := GoalLimit;
3648 gGameSettings.MaxLives := IfThen(GameMode = GM_CTF, 0, MaxLives);
3649 gGameSettings.Options := Options;
3650
3651 gCoopTotalMonstersKilled := 0;
3652 gCoopTotalSecretsFound := 0;
3653 gCoopTotalMonsters := 0;
3654 gCoopTotalSecrets := 0;
3655 gAimLine := False;
3656 gShowMap := False;
3657
3658 g_Game_ExecuteEvent('ongamestart');
3659
3660 // Óñòàíîâêà ðàçìåðîâ îêíà èãðîêà
3661 g_Game_SetupScreenSize();
3662
3663 // Ðåæèì íàáëþäàòåëÿ:
3664 if nPlayers = 0 then
3665 begin
3666 gPlayer1 := nil;
3667 gPlayer2 := nil;
3668 end;
3669
3670 if nPlayers >= 1 then
3671 begin
3672 // Ñîçäàíèå ïåðâîãî èãðîêà:
3673 gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3674 gPlayer1Settings.Color,
3675 gPlayer1Settings.Team, False));
3676 if gPlayer1 = nil then
3677 begin
3678 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3679 Exit;
3680 end;
3681
3682 gPlayer1.Name := gPlayer1Settings.Name;
3683 end;
3684
3685 if nPlayers >= 2 then
3686 begin
3687 // Ñîçäàíèå âòîðîãî èãðîêà:
3688 gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3689 gPlayer2Settings.Color,
3690 gPlayer2Settings.Team, False));
3691 if gPlayer2 = nil then
3692 begin
3693 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3694 Exit;
3695 end;
3696
3697 gPlayer2.Name := gPlayer2Settings.Name;
3698 end;
3699
3700 // Ñòàðòóåì ñåðâåð
3701 if not g_Net_Host(IPAddr, Port, NetMaxClients) then
3702 begin
3703 g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_HOST]);
3704 Exit;
3705 end;
3706
3707 g_Net_Slist_Set(NetSlistIP, NetSlistPort);
3708
3709 // Çàãðóçêà è çàïóñê êàðòû:
3710 if not g_Game_StartMap(Map, True) then
3711 begin
3712 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [Map]));
3713 Exit;
3714 end;
3715
3716 // Íåò òî÷åê ïîÿâëåíèÿ:
3717 if (g_Map_GetPointCount(RESPAWNPOINT_PLAYER1) +
3718 g_Map_GetPointCount(RESPAWNPOINT_PLAYER2) +
3719 g_Map_GetPointCount(RESPAWNPOINT_DM) +
3720 g_Map_GetPointCount(RESPAWNPOINT_RED)+
3721 g_Map_GetPointCount(RESPAWNPOINT_BLUE)) < 1 then
3722 begin
3723 g_FatalError(_lc[I_GAME_ERROR_GET_SPAWN]);
3724 Exit;
3725 end;
3726
3727 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3728 g_Player_Init();
3729
3730 NetState := NET_STATE_GAME;
3731 end;
3732
3733 procedure g_Game_StartClient(Addr: String; Port: Word; PW: String);
3734 var
3735 Map: String;
3736 WadName: string;
3737 Ptr: Pointer;
3738 T: Cardinal;
3739 MID: Byte;
3740 State: Byte;
3741 OuterLoop: Boolean;
3742 newResPath: string;
3743 InMsg: TMsg;
3744 begin
3745 g_Game_Free();
3746
3747 State := 0;
3748 e_WriteLog('Starting net game (client)...', MSG_NOTIFY);
3749 e_WriteLog('NET: Trying to connect to ' + Addr + ':' + IntToStr(Port) + '...', MSG_NOTIFY);
3750
3751 g_Game_ClearLoading();
3752
3753 // Íàñòðîéêè èãðû:
3754 gGameSettings.GameType := GT_CLIENT;
3755
3756 gCoopTotalMonstersKilled := 0;
3757 gCoopTotalSecretsFound := 0;
3758 gCoopTotalMonsters := 0;
3759 gCoopTotalSecrets := 0;
3760 gAimLine := False;
3761 gShowMap := False;
3762
3763 g_Game_ExecuteEvent('ongamestart');
3764
3765 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3766 g_Game_SetupScreenSize();
3767
3768 NetState := NET_STATE_AUTH;
3769
3770 g_Game_SetLoadingText(_lc[I_LOAD_CONNECT], 0, False);
3771 // Ñòàðòóåì êëèåíò
3772 if not g_Net_Connect(Addr, Port) then
3773 begin
3774 g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_CONN]);
3775 NetState := NET_STATE_NONE;
3776 Exit;
3777 end;
3778
3779 g_Game_SetLoadingText(_lc[I_LOAD_SEND_INFO], 0, False);
3780 MC_SEND_Info(PW);
3781 g_Game_SetLoadingText(_lc[I_LOAD_WAIT_INFO], 0, False);
3782
3783 OuterLoop := True;
3784 while OuterLoop do
3785 begin
3786 while (enet_host_service(NetHost, @NetEvent, 0) > 0) do
3787 begin
3788 if (NetEvent.kind = ENET_EVENT_TYPE_RECEIVE) then
3789 begin
3790 Ptr := NetEvent.packet^.data;
3791 if not InMsg.Init(Ptr, NetEvent.packet^.dataLength, True) then
3792 continue;
3793
3794 MID := InMsg.ReadByte();
3795
3796 if (MID = NET_MSG_INFO) and (State = 0) then
3797 begin
3798 NetMyID := InMsg.ReadByte();
3799 NetPlrUID1 := InMsg.ReadWord();
3800
3801 WadName := InMsg.ReadString();
3802 Map := InMsg.ReadString();
3803
3804 gWADHash := InMsg.ReadMD5();
3805
3806 gGameSettings.GameMode := InMsg.ReadByte();
3807 gSwitchGameMode := gGameSettings.GameMode;
3808 gGameSettings.GoalLimit := InMsg.ReadWord();
3809 gGameSettings.TimeLimit := InMsg.ReadWord();
3810 gGameSettings.MaxLives := InMsg.ReadByte();
3811 gGameSettings.Options := InMsg.ReadLongWord();
3812 T := InMsg.ReadLongWord();
3813
3814 newResPath := g_Res_SearchSameWAD(MapsDir, WadName, gWADHash);
3815 if newResPath = '' then
3816 begin
3817 g_Game_SetLoadingText(_lc[I_LOAD_DL_RES], 0, False);
3818 newResPath := g_Res_DownloadWAD(WadName);
3819 if newResPath = '' then
3820 begin
3821 g_FatalError(_lc[I_NET_ERR_HASH]);
3822 enet_packet_destroy(NetEvent.packet);
3823 NetState := NET_STATE_NONE;
3824 Exit;
3825 end;
3826 end;
3827 newResPath := ExtractRelativePath(MapsDir, newResPath);
3828
3829 gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3830 gPlayer1Settings.Color,
3831 gPlayer1Settings.Team, False));
3832
3833 if gPlayer1 = nil then
3834 begin
3835 g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3836
3837 enet_packet_destroy(NetEvent.packet);
3838 NetState := NET_STATE_NONE;
3839 Exit;
3840 end;
3841
3842 gPlayer1.Name := gPlayer1Settings.Name;
3843 gPlayer1.UID := NetPlrUID1;
3844 gPlayer1.Reset(True);
3845
3846 if not g_Game_StartMap(newResPath + ':\' + Map, True) then
3847 begin
3848 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [WadName + ':\' + Map]));
3849
3850 enet_packet_destroy(NetEvent.packet);
3851 NetState := NET_STATE_NONE;
3852 Exit;
3853 end;
3854
3855 gTime := T;
3856
3857 State := 1;
3858 OuterLoop := False;
3859 enet_packet_destroy(NetEvent.packet);
3860 break;
3861 end
3862 else
3863 enet_packet_destroy(NetEvent.packet);
3864 end
3865 else
3866 if (NetEvent.kind = ENET_EVENT_TYPE_DISCONNECT) then
3867 begin
3868 State := 0;
3869 if (NetEvent.data <= NET_DISC_MAX) then
3870 g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_ERR_CONN] + ' ' +
3871 _lc[TStrings_Locale(Cardinal(I_NET_DISC_NONE) + NetEvent.data)], True);
3872 OuterLoop := False;
3873 Break;
3874 end;
3875 end;
3876
3877 ProcessLoading();
3878
3879 e_PollInput();
3880
3881 if e_KeyPressed(IK_ESCAPE) or e_KeyPressed(IK_SPACE) then
3882 begin
3883 State := 0;
3884 break;
3885 end;
3886 end;
3887
3888 if State <> 1 then
3889 begin
3890 g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_CONN]);
3891 NetState := NET_STATE_NONE;
3892 Exit;
3893 end;
3894
3895 gLMSRespawn := LMS_RESPAWN_NONE;
3896 gLMSRespawnTime := 0;
3897
3898 g_Player_Init();
3899 NetState := NET_STATE_GAME;
3900 MC_SEND_FullStateRequest;
3901 e_WriteLog('NET: Connection successful.', MSG_NOTIFY);
3902 end;
3903
3904 procedure g_Game_SaveOptions();
3905 begin
3906 g_Options_Write_Video(GameDir+'/'+CONFIG_FILENAME);
3907 end;
3908
3909 procedure g_Game_ChangeMap(MapPath: String);
3910 var
3911 Force: Boolean;
3912 begin
3913 g_Game_ClearLoading();
3914
3915 Force := gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF];
3916 // Åñëè óðîâåíü çàâåðøèëñÿ ïî òðèããåðó Âûõîä, íå î÷èùàòü èíâåíòàðü
3917 if gExitByTrigger then
3918 begin
3919 Force := False;
3920 gExitByTrigger := False;
3921 end;
3922 if not g_Game_StartMap(MapPath, Force) then
3923 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [MapPath]));
3924 end;
3925
3926 procedure g_Game_Restart();
3927 var
3928 Map: string;
3929 begin
3930 if g_Game_IsClient then
3931 Exit;
3932 map := g_ExtractFileName(gMapInfo.Map);
3933
3934 MessageTime := 0;
3935 gGameOn := False;
3936 g_Game_ClearLoading();
3937 g_Game_StartMap(Map, True);
3938 end;
3939
3940 function g_Game_StartMap(Map: String; Force: Boolean = False): Boolean;
3941 var
3942 NewWAD, ResName: String;
3943 I: Integer;
3944 begin
3945 g_Map_Free();
3946 g_Player_RemoveAllCorpses();
3947
3948 if (not g_Game_IsClient) and
3949 (gSwitchGameMode <> gGameSettings.GameMode) and
3950 (gGameSettings.GameMode <> GM_SINGLE) then
3951 begin
3952 if gSwitchGameMode = GM_CTF then
3953 gGameSettings.MaxLives := 0;
3954 gGameSettings.GameMode := gSwitchGameMode;
3955 Force := True;
3956 end else
3957 gSwitchGameMode := gGameSettings.GameMode;
3958
3959 g_Player_ResetTeams();
3960
3961 if Pos(':\', Map) > 0 then
3962 begin
3963 NewWAD := g_ExtractWadName(Map);
3964 ResName := g_ExtractFileName(Map);
3965 if g_Game_IsServer then
3966 begin
3967 gWADHash := MD5File(MapsDir + NewWAD);
3968 g_Game_LoadWAD(NewWAD);
3969 end else
3970 // hash recieved in MC_RECV_GameEvent -> NET_EV_MAPSTART
3971 g_Game_ClientWAD(NewWAD, gWADHash);
3972 end else
3973 ResName := Map;
3974
3975 Result := g_Map_Load(MapsDir + gGameSettings.WAD + ':\' + ResName);
3976 if Result then
3977 begin
3978 g_Player_ResetAll(Force or gLastMap, gGameSettings.GameType = GT_SINGLE);
3979
3980 gState := STATE_NONE;
3981 g_ActiveWindow := nil;
3982 gGameOn := True;
3983
3984 DisableCheats();
3985 ResetTimer();
3986
3987 if gGameSettings.GameMode = GM_CTF then
3988 begin
3989 g_Map_ResetFlag(FLAG_RED);
3990 g_Map_ResetFlag(FLAG_BLUE);
3991 // CTF, à ôëàãîâ íåò:
3992 if not g_Map_HaveFlagPoints() then
3993 g_SimpleError(_lc[I_GAME_ERROR_CTF]);
3994 end;
3995 end
3996 else
3997 begin
3998 gState := STATE_MENU;
3999 gGameOn := False;
4000 end;
4001
4002 gExit := 0;
4003 gPause := False;
4004 gTime := 0;
4005 NetTimeToUpdate := 1;
4006 NetTimeToReliable := 0;
4007 NetTimeToMaster := NetMasterRate;
4008 gLMSRespawn := LMS_RESPAWN_NONE;
4009 gLMSRespawnTime := 0;
4010 gMissionFailed := False;
4011 gNextMap := '';
4012
4013 gCoopMonstersKilled := 0;
4014 gCoopSecretsFound := 0;
4015
4016 gVoteInProgress := False;
4017 gVotePassed := False;
4018 gVoteCount := 0;
4019 gVoted := False;
4020
4021 gStatsOff := False;
4022
4023 if not gGameOn then Exit;
4024
4025 g_Game_SpectateCenterView();
4026
4027 if (gGameSettings.MaxLives > 0) and (gGameSettings.WarmupTime > 0) then
4028 begin
4029 gLMSRespawn := LMS_RESPAWN_WARMUP;
4030 gLMSRespawnTime := gTime + gGameSettings.WarmupTime*1000;
4031 gLMSSoftSpawn := True;
4032 if NetMode = NET_SERVER then
4033 MH_SEND_GameEvent(NET_EV_LMS_WARMUP, (gLMSRespawnTime - gTime) div 1000)
4034 else
4035 g_Console_Add(Format(_lc[I_MSG_WARMUP_START], [(gLMSRespawnTime - gTime) div 1000]), True);
4036 end;
4037
4038 if NetMode = NET_SERVER then
4039 begin
4040 MH_SEND_GameEvent(NET_EV_MAPSTART, gGameSettings.GameMode, Map);
4041
4042 // Ìàñòåðñåðâåð
4043 if NetUseMaster then
4044 begin
4045 if (NetMHost = nil) or (NetMPeer = nil) then
4046 if not g_Net_Slist_Connect then
4047 g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
4048
4049 g_Net_Slist_Update;
4050 end;
4051
4052 if NetClients <> nil then
4053 for I := 0 to High(NetClients) do
4054 if NetClients[I].Used then
4055 begin
4056 NetClients[I].Voted := False;
4057 if NetClients[I].RequestedFullUpdate then
4058 begin
4059 MH_SEND_Everything((NetClients[I].State = NET_STATE_AUTH), I);
4060 NetClients[I].RequestedFullUpdate := False;
4061 end;
4062 end;
4063
4064 g_Net_UnbanNonPermHosts();
4065 end;
4066
4067 if gLastMap then
4068 begin
4069 gCoopTotalMonstersKilled := 0;
4070 gCoopTotalSecretsFound := 0;
4071 gCoopTotalMonsters := 0;
4072 gCoopTotalSecrets := 0;
4073 gLastMap := False;
4074 end;
4075
4076 g_Game_ExecuteEvent('onmapstart');
4077 end;
4078
4079 procedure SetFirstLevel();
4080 begin
4081 gNextMap := '';
4082
4083 MapList := g_Map_GetMapsList(MapsDir + gGameSettings.WAD);
4084 if MapList = nil then
4085 Exit;
4086
4087 SortSArray(MapList);
4088 gNextMap := MapList[Low(MapList)];
4089
4090 MapList := nil;
4091 end;
4092
4093 procedure g_Game_ExitLevel(Map: Char16);
4094 begin
4095 gNextMap := Map;
4096
4097 gCoopTotalMonstersKilled := gCoopTotalMonstersKilled + gCoopMonstersKilled;
4098 gCoopTotalSecretsFound := gCoopTotalSecretsFound + gCoopSecretsFound;
4099 gCoopTotalMonsters := gCoopTotalMonsters + gTotalMonsters;
4100 gCoopTotalSecrets := gCoopTotalSecrets + gSecretsCount;
4101
4102 // Âûøëè â âûõîä â Îäèíî÷íîé èãðå:
4103 if gGameSettings.GameType = GT_SINGLE then
4104 gExit := EXIT_ENDLEVELSINGLE
4105 else // Âûøëè â âûõîä â Ñâîåé èãðå
4106 begin
4107 gExit := EXIT_ENDLEVELCUSTOM;
4108 if gGameSettings.GameMode = GM_COOP then
4109 g_Player_RememberAll;
4110
4111 if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + gNextMap) then
4112 begin
4113 gLastMap := True;
4114 if gGameSettings.GameMode = GM_COOP then
4115 gStatsOff := True;
4116
4117 gStatsPressed := True;
4118 gNextMap := 'MAP01';
4119
4120 if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + gNextMap) then
4121 g_Game_NextLevel;
4122
4123 if g_Game_IsNet then
4124 begin
4125 MH_SEND_GameStats();
4126 MH_SEND_CoopStats();
4127 end;
4128 end;
4129 end;
4130 end;
4131
4132 procedure g_Game_RestartLevel();
4133 var
4134 Map: string;
4135 begin
4136 if gGameSettings.GameMode = GM_SINGLE then
4137 begin
4138 g_Game_Restart();
4139 Exit;
4140 end;
4141 gExit := EXIT_ENDLEVELCUSTOM;
4142 Map := g_ExtractFileName(gMapInfo.Map);
4143 gNextMap := Map;
4144 end;
4145
4146 procedure g_Game_ClientWAD(NewWAD: String; WHash: TMD5Digest);
4147 var
4148 gWAD: String;
4149 begin
4150 if LowerCase(NewWAD) = LowerCase(gGameSettings.WAD) then
4151 Exit;
4152 if not g_Game_IsClient then
4153 Exit;
4154 gWAD := g_Res_SearchSameWAD(MapsDir, ExtractFileName(NewWAD), WHash);
4155 if gWAD = '' then
4156 begin
4157 g_Game_SetLoadingText(_lc[I_LOAD_DL_RES], 0, False);
4158 gWAD := g_Res_DownloadWAD(ExtractFileName(NewWAD));
4159 if gWAD = '' then
4160 begin
4161 g_Game_Free();
4162 g_FatalError(Format(_lc[I_GAME_ERROR_MAP_WAD], [ExtractFileName(NewWAD)]));
4163 Exit;
4164 end;
4165 end;
4166 NewWAD := ExtractRelativePath(MapsDir, gWAD);
4167 g_Game_LoadWAD(NewWAD);
4168 end;
4169
4170 procedure g_Game_RestartRound(NoMapRestart: Boolean = False);
4171 var
4172 i, n, nb, nr: Integer;
4173
4174 function monRespawn (mon: TMonster): Boolean;
4175 begin
4176 result := false; // don't stop
4177 if not mon.FNoRespawn then mon.Respawn();
4178 end;
4179
4180 begin
4181 if not g_Game_IsServer then Exit;
4182 if gLMSRespawn = LMS_RESPAWN_NONE then Exit;
4183 gLMSRespawn := LMS_RESPAWN_NONE;
4184 gLMSRespawnTime := 0;
4185 MessageTime := 0;
4186
4187 if (gGameSettings.GameMode = GM_COOP) and not NoMapRestart then
4188 begin
4189 gMissionFailed := True;
4190 g_Game_RestartLevel;
4191 Exit;
4192 end;
4193
4194 n := 0; nb := 0; nr := 0;
4195 for i := Low(gPlayers) to High(gPlayers) do
4196 if (gPlayers[i] <> nil) and
4197 ((not gPlayers[i].FSpectator) or gPlayers[i].FWantsInGame or
4198 (gPlayers[i] is TBot)) then
4199 begin
4200 Inc(n);
4201 if gPlayers[i].Team = TEAM_RED then Inc(nr)
4202 else if gPlayers[i].Team = TEAM_BLUE then Inc(nb)
4203 end;
4204
4205 if (n < 2) or ((gGameSettings.GameMode = GM_TDM) and ((nr = 0) or (nb = 0))) then
4206 begin
4207 // wait a second until the fuckers finally decide to join
4208 gLMSRespawn := LMS_RESPAWN_WARMUP;
4209 gLMSRespawnTime := gTime + 1000;
4210 gLMSSoftSpawn := NoMapRestart;
4211 Exit;
4212 end;
4213
4214 g_Player_RemoveAllCorpses;
4215 g_Game_Message(_lc[I_MESSAGE_LMS_START], 144);
4216 if g_Game_IsNet then
4217 MH_SEND_GameEvent(NET_EV_LMS_START);
4218
4219 for i := Low(gPlayers) to High(gPlayers) do
4220 begin
4221 if gPlayers[i] = nil then continue;
4222 if gPlayers[i] is TBot then gPlayers[i].FWantsInGame := True;
4223 // don't touch normal spectators
4224 if gPlayers[i].FSpectator and not gPlayers[i].FWantsInGame then
4225 begin
4226 gPlayers[i].FNoRespawn := True;
4227 gPlayers[i].Lives := 0;
4228 if g_Game_IsNet then
4229 MH_SEND_PlayerStats(gPlayers[I].UID);
4230 continue;
4231 end;
4232 gPlayers[i].FNoRespawn := False;
4233 gPlayers[i].Lives := gGameSettings.MaxLives;
4234 gPlayers[i].Respawn(False, True);
4235 if gGameSettings.GameMode = GM_COOP then
4236 begin
4237 gPlayers[i].Frags := 0;
4238 gPlayers[i].RecallState;
4239 end;
4240 if (gPlayer1 = nil) and (gLMSPID1 > 0) then
4241 gPlayer1 := g_Player_Get(gLMSPID1);
4242 if (gPlayer2 = nil) and (gLMSPID2 > 0) then
4243 gPlayer2 := g_Player_Get(gLMSPID2);
4244 end;
4245
4246 g_Items_RestartRound();
4247
4248
4249 g_Mons_ForEach(monRespawn);
4250
4251 gLMSSoftSpawn := False;
4252 end;
4253
4254 function g_Game_GetFirstMap(WAD: String): String;
4255 begin
4256 Result := '';
4257
4258 MapList := g_Map_GetMapsList(WAD);
4259 if MapList = nil then
4260 Exit;
4261
4262 SortSArray(MapList);
4263 Result := MapList[Low(MapList)];
4264
4265 if not g_Map_Exist(WAD + ':\' + Result) then
4266 Result := '';
4267
4268 MapList := nil;
4269 end;
4270
4271 function g_Game_GetNextMap(): String;
4272 var
4273 I: Integer;
4274 Map: string;
4275 begin
4276 Result := '';
4277
4278 MapList := g_Map_GetMapsList(MapsDir + gGameSettings.WAD);
4279 if MapList = nil then
4280 Exit;
4281
4282 Map := g_ExtractFileName(gMapInfo.Map);
4283
4284 SortSArray(MapList);
4285 MapIndex := -255;
4286 for I := Low(MapList) to High(MapList) do
4287 if Map = MapList[I] then
4288 begin
4289 MapIndex := I;
4290 Break;
4291 end;
4292
4293 if MapIndex <> -255 then
4294 begin
4295 if MapIndex = High(MapList) then
4296 Result := MapList[Low(MapList)]
4297 else
4298 Result := MapList[MapIndex + 1];
4299
4300 if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + Result) then Result := Map;
4301 end;
4302
4303 MapList := nil;
4304 end;
4305
4306 procedure g_Game_NextLevel();
4307 begin
4308 if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF, GM_COOP] then
4309 gExit := EXIT_ENDLEVELCUSTOM
4310 else
4311 begin
4312 gExit := EXIT_ENDLEVELSINGLE;
4313 Exit;
4314 end;
4315
4316 if gNextMap <> '' then Exit;
4317 gNextMap := g_Game_GetNextMap();
4318 end;
4319
4320 function g_Game_IsTestMap(): Boolean;
4321 begin
4322 result := StrEquCI1251(TEST_MAP_NAME, g_ExtractFileName(gMapInfo.Map));
4323 end;
4324
4325 procedure g_Game_DeleteTestMap();
4326 var
4327 a: Integer;
4328 MapName: Char16;
4329 WadName: string;
4330 {
4331 WAD: TWADFile;
4332 MapList: SArray;
4333 time: Integer;
4334 }
4335 begin
4336 a := Pos('.wad:\', gMapToDelete);
4337 if a = 0 then
4338 Exit;
4339
4340 // Âûäåëÿåì èìÿ wad-ôàéëà è èìÿ êàðòû:
4341 WadName := Copy(gMapToDelete, 1, a + 3);
4342 Delete(gMapToDelete, 1, a + 5);
4343 gMapToDelete := UpperCase(gMapToDelete);
4344 MapName := '';
4345 CopyMemory(@MapName[0], @gMapToDelete[1], Min(16, Length(gMapToDelete)));
4346
4347 {
4348 // Èìÿ êàðòû íå ñòàíäàðòíîå òåñòîâîå:
4349 if MapName <> TEST_MAP_NAME then
4350 Exit;
4351
4352 if not gTempDelete then
4353 begin
4354 time := g_GetFileTime(WadName);
4355 WAD := TWADFile.Create();
4356
4357 // ×èòàåì Wad-ôàéë:
4358 if not WAD.ReadFile(WadName) then
4359 begin // Íåò òàêîãî WAD-ôàéëà
4360 WAD.Free();
4361 Exit;
4362 end;
4363
4364 // Ñîñòàâëÿåì ñïèñîê êàðò è èùåì íóæíóþ:
4365 WAD.CreateImage();
4366 MapList := WAD.GetResourcesList('');
4367
4368 if MapList <> nil then
4369 for a := 0 to High(MapList) do
4370 if MapList[a] = MapName then
4371 begin
4372 // Óäàëÿåì è ñîõðàíÿåì:
4373 WAD.RemoveResource('', MapName);
4374 WAD.SaveTo(WadName);
4375 Break;
4376 end;
4377
4378 WAD.Free();
4379 g_SetFileTime(WadName, time);
4380 end else
4381 }
4382 if gTempDelete then DeleteFile(WadName);
4383 end;
4384
4385 procedure GameCVars(P: SArray);
4386 var
4387 a, b: Integer;
4388 stat: TPlayerStatArray;
4389 cmd, s: string;
4390 config: TConfig;
4391 begin
4392 stat := nil;
4393 cmd := LowerCase(P[0]);
4394 if cmd = 'r_showfps' then
4395 begin
4396 if (Length(P) > 1) and
4397 ((P[1] = '1') or (P[1] = '0')) then
4398 gShowFPS := (P[1][1] = '1');
4399
4400 if gShowFPS then
4401 g_Console_Add(_lc[I_MSG_SHOW_FPS_ON])
4402 else
4403 g_Console_Add(_lc[I_MSG_SHOW_FPS_OFF]);
4404 end
4405 else if (cmd = 'g_friendlyfire') and not g_Game_IsClient then
4406 begin
4407 with gGameSettings do
4408 begin
4409 if (Length(P) > 1) and
4410 ((P[1] = '1') or (P[1] = '0')) then
4411 begin
4412 if (P[1][1] = '1') then
4413 Options := Options or GAME_OPTION_TEAMDAMAGE
4414 else
4415 Options := Options and (not GAME_OPTION_TEAMDAMAGE);
4416 end;
4417
4418 if (LongBool(Options and GAME_OPTION_TEAMDAMAGE)) then
4419 g_Console_Add(_lc[I_MSG_FRIENDLY_FIRE_ON])
4420 else
4421 g_Console_Add(_lc[I_MSG_FRIENDLY_FIRE_OFF]);
4422
4423 if g_Game_IsNet then MH_SEND_GameSettings;
4424 end;
4425 end
4426 else if (cmd = 'g_weaponstay') and not g_Game_IsClient then
4427 begin
4428 with gGameSettings do
4429 begin
4430 if (Length(P) > 1) and
4431 ((P[1] = '1') or (P[1] = '0')) then
4432 begin
4433 if (P[1][1] = '1') then
4434 Options := Options or GAME_OPTION_WEAPONSTAY
4435 else
4436 Options := Options and (not GAME_OPTION_WEAPONSTAY);
4437 end;
4438
4439 if (LongBool(Options and GAME_OPTION_WEAPONSTAY)) then
4440 g_Console_Add(_lc[I_MSG_WEAPONSTAY_ON])
4441 else
4442 g_Console_Add(_lc[I_MSG_WEAPONSTAY_OFF]);
4443
4444 if g_Game_IsNet then MH_SEND_GameSettings;
4445 end;
4446 end
4447 else if cmd = 'g_gamemode' then
4448 begin
4449 a := g_Game_TextToMode(P[1]);
4450 if a = GM_SINGLE then a := GM_COOP;
4451 if (Length(P) > 1) and (a <> GM_NONE) and (not g_Game_IsClient) then
4452 begin
4453 gSwitchGameMode := a;
4454 if (gGameOn and (gGameSettings.GameMode = GM_SINGLE)) or
4455 (gState = STATE_INTERSINGLE) then
4456 gSwitchGameMode := GM_SINGLE;
4457 if not gGameOn then
4458 gGameSettings.GameMode := gSwitchGameMode;
4459 end;
4460 if gSwitchGameMode = gGameSettings.GameMode then
4461 g_Console_Add(Format(_lc[I_MSG_GAMEMODE_CURRENT],
4462 [g_Game_ModeToText(gGameSettings.GameMode)]))
4463 else
4464 g_Console_Add(Format(_lc[I_MSG_GAMEMODE_CHANGE],
4465 [g_Game_ModeToText(gGameSettings.GameMode),
4466 g_Game_ModeToText(gSwitchGameMode)]));
4467 end
4468 else if (cmd = 'g_allow_exit') and not g_Game_IsClient then
4469 begin
4470 with gGameSettings do
4471 begin
4472 if (Length(P) > 1) and
4473 ((P[1] = '1') or (P[1] = '0')) then
4474 begin
4475 if (P[1][1] = '1') then
4476 Options := Options or GAME_OPTION_ALLOWEXIT
4477 else
4478 Options := Options and (not GAME_OPTION_ALLOWEXIT);
4479 end;
4480
4481 if (LongBool(Options and GAME_OPTION_ALLOWEXIT)) then
4482 g_Console_Add(_lc[I_MSG_ALLOWEXIT_ON])
4483 else
4484 g_Console_Add(_lc[I_MSG_ALLOWEXIT_OFF]);
4485 g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4486
4487 if g_Game_IsNet then MH_SEND_GameSettings;
4488 end;
4489 end
4490 else if (cmd = 'g_allow_monsters') and not g_Game_IsClient then
4491 begin
4492 with gGameSettings do
4493 begin
4494 if (Length(P) > 1) and
4495 ((P[1] = '1') or (P[1] = '0')) then
4496 begin
4497 if (P[1][1] = '1') then
4498 Options := Options or GAME_OPTION_MONSTERS
4499 else
4500 Options := Options and (not GAME_OPTION_MONSTERS);
4501 end;
4502
4503 if (LongBool(Options and GAME_OPTION_MONSTERS)) then
4504 g_Console_Add(_lc[I_MSG_ALLOWMON_ON])
4505 else
4506 g_Console_Add(_lc[I_MSG_ALLOWMON_OFF]);
4507 g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4508
4509 if g_Game_IsNet then MH_SEND_GameSettings;
4510 end;
4511 end
4512 else if (cmd = 'g_bot_vsplayers') and not g_Game_IsClient then
4513 begin
4514 with gGameSettings do
4515 begin
4516 if (Length(P) > 1) and
4517 ((P[1] = '1') or (P[1] = '0')) then
4518 begin
4519 if (P[1][1] = '1') then
4520 Options := Options or GAME_OPTION_BOTVSPLAYER
4521 else
4522 Options := Options and (not GAME_OPTION_BOTVSPLAYER);
4523 end;
4524
4525 if (LongBool(Options and GAME_OPTION_BOTVSPLAYER)) then
4526 g_Console_Add(_lc[I_MSG_BOTSVSPLAYERS_ON])
4527 else
4528 g_Console_Add(_lc[I_MSG_BOTSVSPLAYERS_OFF]);
4529
4530 if g_Game_IsNet then MH_SEND_GameSettings;
4531 end;
4532 end
4533 else if (cmd = 'g_bot_vsmonsters') and not g_Game_IsClient then
4534 begin
4535 with gGameSettings do
4536 begin
4537 if (Length(P) > 1) and
4538 ((P[1] = '1') or (P[1] = '0')) then
4539 begin
4540 if (P[1][1] = '1') then
4541 Options := Options or GAME_OPTION_BOTVSMONSTER
4542 else
4543 Options := Options and (not GAME_OPTION_BOTVSMONSTER);
4544 end;
4545
4546 if (LongBool(Options and GAME_OPTION_BOTVSMONSTER)) then
4547 g_Console_Add(_lc[I_MSG_BOTSVSMONSTERS_ON])
4548 else
4549 g_Console_Add(_lc[I_MSG_BOTSVSMONSTERS_OFF]);
4550
4551 if g_Game_IsNet then MH_SEND_GameSettings;
4552 end;
4553 end
4554 else if (cmd = 'g_warmuptime') and not g_Game_IsClient then
4555 begin
4556 if Length(P) > 1 then
4557 begin
4558 if StrToIntDef(P[1], gGameSettings.WarmupTime) = 0 then
4559 gGameSettings.WarmupTime := 30
4560 else
4561 gGameSettings.WarmupTime := StrToIntDef(P[1], gGameSettings.WarmupTime);
4562 end;
4563
4564 g_Console_Add(Format(_lc[I_MSG_WARMUP],
4565 [gGameSettings.WarmupTime]));
4566 g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4567 end
4568 else if cmd = 'net_interp' then
4569 begin
4570 if (Length(P) > 1) then
4571 NetInterpLevel := StrToIntDef(P[1], NetInterpLevel);
4572
4573 g_Console_Add('net_interp = ' + IntToStr(NetInterpLevel));
4574 config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4575 config.WriteInt('Client', 'InterpolationSteps', NetInterpLevel);
4576 config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4577 config.Free();
4578 end
4579 else if cmd = 'net_forceplayerupdate' then
4580 begin
4581 if (Length(P) > 1) and
4582 ((P[1] = '1') or (P[1] = '0')) then
4583 NetForcePlayerUpdate := (P[1][1] = '1');
4584
4585 if NetForcePlayerUpdate then
4586 g_Console_Add('net_forceplayerupdate = 1')
4587 else
4588 g_Console_Add('net_forceplayerupdate = 0');
4589 config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4590 config.WriteBool('Client', 'ForcePlayerUpdate', NetForcePlayerUpdate);
4591 config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4592 config.Free();
4593 end
4594 else if cmd = 'net_predictself' then
4595 begin
4596 if (Length(P) > 1) and
4597 ((P[1] = '1') or (P[1] = '0')) then
4598 NetPredictSelf := (P[1][1] = '1');
4599
4600 if NetPredictSelf then
4601 g_Console_Add('net_predictself = 1')
4602 else
4603 g_Console_Add('net_predictself = 0');
4604 config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4605 config.WriteBool('Client', 'PredictSelf', NetPredictSelf);
4606 config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4607 config.Free();
4608 end
4609 else if cmd = 'sv_name' then
4610 begin
4611 if (Length(P) > 1) and (Length(P[1]) > 0) then
4612 begin
4613 NetServerName := P[1];
4614 if Length(NetServerName) > 64 then
4615 SetLength(NetServerName, 64);
4616 if g_Game_IsServer and g_Game_IsNet and NetUseMaster then
4617 g_Net_Slist_Update;
4618 end;
4619
4620 g_Console_Add(cmd + ' = "' + NetServerName + '"');
4621 end
4622 else if cmd = 'sv_passwd' then
4623 begin
4624 if (Length(P) > 1) and (Length(P[1]) > 0) then
4625 begin
4626 NetPassword := P[1];
4627 if Length(NetPassword) > 24 then
4628 SetLength(NetPassword, 24);
4629 if g_Game_IsServer and g_Game_IsNet and NetUseMaster then
4630 g_Net_Slist_Update;
4631 end;
4632
4633 g_Console_Add(cmd + ' = "' + AnsiLowerCase(NetPassword) + '"');
4634 end
4635 else if cmd = 'sv_maxplrs' then
4636 begin
4637 if (Length(P) > 1) then
4638 begin
4639 NetMaxClients := Min(Max(StrToIntDef(P[1], NetMaxClients), 1), NET_MAXCLIENTS);
4640 if g_Game_IsServer and g_Game_IsNet then
4641 begin
4642 b := 0;
4643 for a := 0 to High(NetClients) do
4644 if NetClients[a].Used then
4645 begin
4646 Inc(b);
4647 if b > NetMaxClients then
4648 begin
4649 s := g_Player_Get(NetClients[a].Player).Name;
4650 enet_peer_disconnect(NetClients[a].Peer, NET_DISC_FULL);
4651 g_Console_Add(Format(_lc[I_PLAYER_KICK], [s]));
4652 MH_SEND_GameEvent(NET_EV_PLAYER_KICK, 0, s);
4653 end;
4654 end;
4655 if NetUseMaster then
4656 g_Net_Slist_Update;
4657 end;
4658 end;
4659
4660 g_Console_Add(cmd + ' = ' + IntToStr(NetMaxClients));
4661 end
4662 else if cmd = 'sv_public' then
4663 begin
4664 if (Length(P) > 1) then
4665 begin
4666 NetUseMaster := StrToIntDef(P[1], Byte(NetUseMaster)) > 0;
4667 if g_Game_IsServer and g_Game_IsNet then
4668 if NetUseMaster then
4669 begin
4670 if NetMPeer = nil then
4671 if not g_Net_Slist_Connect() then
4672 g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
4673 g_Net_Slist_Update();
4674 end
4675 else
4676 if NetMPeer <> nil then
4677 g_Net_Slist_Disconnect();
4678 end;
4679
4680 g_Console_Add(cmd + ' = ' + IntToStr(Byte(NetUseMaster)));
4681 end
4682 else if cmd = 'sv_intertime' then
4683 begin
4684 if (Length(P) > 1) then
4685 gDefInterTime := Min(Max(StrToIntDef(P[1], gDefInterTime), -1), 120);
4686
4687 g_Console_Add(cmd + ' = ' + IntToStr(gDefInterTime));
4688 end
4689 else if cmd = 'p1_name' then
4690 begin
4691 if (Length(P) > 1) and gGameOn then
4692 begin
4693 if g_Game_IsClient then
4694 begin
4695 gPlayer1Settings.Name := b_Text_Unformat(P[1]);
4696 MC_SEND_PlayerSettings;
4697 end
4698 else
4699 if gPlayer1 <> nil then
4700 begin
4701 gPlayer1.Name := b_Text_Unformat(P[1]);
4702 if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
4703 end
4704 else
4705 gPlayer1Settings.Name := b_Text_Unformat(P[1]);
4706 end;
4707 end
4708 else if cmd = 'p2_name' then
4709 begin
4710 if (Length(P) > 1) and gGameOn then
4711 begin
4712 if g_Game_IsClient then
4713 begin
4714 gPlayer2Settings.Name := b_Text_Unformat(P[1]);
4715 MC_SEND_PlayerSettings;
4716 end
4717 else
4718 if gPlayer2 <> nil then
4719 begin
4720 gPlayer2.Name := b_Text_Unformat(P[1]);
4721 if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer2.UID);
4722 end
4723 else
4724 gPlayer2Settings.Name := b_Text_Unformat(P[1]);
4725 end;
4726 end
4727 else if cmd = 'p1_color' then
4728 begin
4729 if Length(P) > 3 then
4730 if g_Game_IsClient then
4731 begin
4732 gPlayer1Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4733 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4734 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4735 MC_SEND_PlayerSettings;
4736 end
4737 else
4738 if gPlayer1 <> nil then
4739 begin
4740 gPlayer1.Model.SetColor(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4741 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4742 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4743 if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
4744 end
4745 else
4746 gPlayer1Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4747 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4748 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4749 end
4750 else if (cmd = 'p2_color') and not g_Game_IsNet then
4751 begin
4752 if Length(P) > 3 then
4753 if g_Game_IsClient then
4754 begin
4755 gPlayer2Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4756 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4757 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4758 MC_SEND_PlayerSettings;
4759 end
4760 else
4761 if gPlayer2 <> nil then
4762 begin
4763 gPlayer2.Model.SetColor(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4764 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4765 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4766 if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer2.UID);
4767 end
4768 else
4769 gPlayer2Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4770 EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4771 EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4772 end
4773 else if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT] then
4774 begin
4775 if cmd = 'r_showtime' then
4776 begin
4777 if (Length(P) > 1) and
4778 ((P[1] = '1') or (P[1] = '0')) then
4779 gShowTime := (P[1][1] = '1');
4780
4781 if gShowTime then
4782 g_Console_Add(_lc[I_MSG_TIME_ON])
4783 else
4784 g_Console_Add(_lc[I_MSG_TIME_OFF]);
4785 end
4786 else if cmd = 'r_showscore' then
4787 begin
4788 if (Length(P) > 1) and
4789 ((P[1] = '1') or (P[1] = '0')) then
4790 gShowGoals := (P[1][1] = '1');
4791
4792 if gShowGoals then
4793 g_Console_Add(_lc[I_MSG_SCORE_ON])
4794 else
4795 g_Console_Add(_lc[I_MSG_SCORE_OFF]);
4796 end
4797 else if cmd = 'r_showstat' then
4798 begin
4799 if (Length(P) > 1) and
4800 ((P[1] = '1') or (P[1] = '0')) then
4801 gShowStat := (P[1][1] = '1');
4802
4803 if gShowStat then
4804 g_Console_Add(_lc[I_MSG_STATS_ON])
4805 else
4806 g_Console_Add(_lc[I_MSG_STATS_OFF]);
4807 end
4808 else if cmd = 'r_showkillmsg' then
4809 begin
4810 if (Length(P) > 1) and
4811 ((P[1] = '1') or (P[1] = '0')) then
4812 gShowKillMsg := (P[1][1] = '1');
4813
4814 if gShowKillMsg then
4815 g_Console_Add(_lc[I_MSG_KILL_MSGS_ON])
4816 else
4817 g_Console_Add(_lc[I_MSG_KILL_MSGS_OFF]);
4818 end
4819 else if cmd = 'r_showlives' then
4820 begin
4821 if (Length(P) > 1) and
4822 ((P[1] = '1') or (P[1] = '0')) then
4823 gShowLives := (P[1][1] = '1');
4824
4825 if gShowLives then
4826 g_Console_Add(_lc[I_MSG_LIVES_ON])
4827 else
4828 g_Console_Add(_lc[I_MSG_LIVES_OFF]);
4829 end
4830 else if cmd = 'r_showspect' then
4831 begin
4832 if (Length(P) > 1) and
4833 ((P[1] = '1') or (P[1] = '0')) then
4834 gSpectHUD := (P[1][1] = '1');
4835
4836 if gSpectHUD then
4837 g_Console_Add(_lc[I_MSG_SPECT_HUD_ON])
4838 else
4839 g_Console_Add(_lc[I_MSG_SPECT_HUD_OFF]);
4840 end
4841 else if cmd = 'r_showping' then
4842 begin
4843 if (Length(P) > 1) and
4844 ((P[1] = '1') or (P[1] = '0')) then
4845 gShowPing := (P[1][1] = '1');
4846
4847 if gShowPing then
4848 g_Console_Add(_lc[I_MSG_PING_ON])
4849 else
4850 g_Console_Add(_lc[I_MSG_PING_OFF]);
4851 end
4852 else if (cmd = 'g_scorelimit') and not g_Game_IsClient then
4853 begin
4854 if Length(P) > 1 then
4855 begin
4856 if StrToIntDef(P[1], gGameSettings.GoalLimit) = 0 then
4857 gGameSettings.GoalLimit := 0
4858 else
4859 begin
4860 b := 0;
4861
4862 if gGameSettings.GameMode = GM_DM then
4863 begin // DM
4864 stat := g_Player_GetStats();
4865 if stat <> nil then
4866 for a := 0 to High(stat) do
4867 if stat[a].Frags > b then
4868 b := stat[a].Frags;
4869 end
4870 else // TDM/CTF
4871 b := Max(gTeamStat[TEAM_RED].Goals, gTeamStat[TEAM_BLUE].Goals);
4872
4873 gGameSettings.GoalLimit := Max(StrToIntDef(P[1], gGameSettings.GoalLimit), b);
4874 end;
4875
4876 if g_Game_IsNet then MH_SEND_GameSettings;
4877 end;
4878
4879 g_Console_Add(Format(_lc[I_MSG_SCORE_LIMIT], [gGameSettings.GoalLimit]));
4880 end
4881 else if (cmd = 'g_timelimit') and not g_Game_IsClient then
4882 begin
4883 if (Length(P) > 1) and (StrToIntDef(P[1], -1) >= 0) then
4884 gGameSettings.TimeLimit := StrToIntDef(P[1], -1);
4885
4886 g_Console_Add(Format(_lc[I_MSG_TIME_LIMIT],
4887 [gGameSettings.TimeLimit div 3600,
4888 (gGameSettings.TimeLimit div 60) mod 60,
4889 gGameSettings.TimeLimit mod 60]));
4890 if g_Game_IsNet then MH_SEND_GameSettings;
4891 end
4892 else if (cmd = 'g_maxlives') and not g_Game_IsClient then
4893 begin
4894 if Length(P) > 1 then
4895 begin
4896 if StrToIntDef(P[1], gGameSettings.MaxLives) = 0 then
4897 gGameSettings.MaxLives := 0
4898 else
4899 begin
4900 b := 0;
4901 stat := g_Player_GetStats();
4902 if stat <> nil then
4903 for a := 0 to High(stat) do
4904 if stat[a].Lives > b then
4905 b := stat[a].Lives;
4906 gGameSettings.MaxLives :=
4907 Max(StrToIntDef(P[1], gGameSettings.MaxLives), b);
4908 end;
4909 end;
4910
4911 g_Console_Add(Format(_lc[I_MSG_LIVES],
4912 [gGameSettings.MaxLives]));
4913 if g_Game_IsNet then MH_SEND_GameSettings;
4914 end;
4915 end;
4916 end;
4917
4918 // profiler console commands
4919 procedure ProfilerCommands (P: SArray);
4920 var
4921 cmd: string;
4922
4923 function getBool (idx: Integer): Integer;
4924 begin
4925 if (idx < 0) or (idx > High(P)) then begin result := -1; exit; end;
4926 result := 0;
4927 if (P[idx] = '1') or (P[idx] = 'on') or (P[idx] = 'true') or (P[idx] = 'tan') then result := 1;
4928 end;
4929
4930 begin
4931 //if not gDebugMode then exit;
4932 cmd := LowerCase(P[0]);
4933
4934 if cmd = 'pf_draw_frame' then
4935 begin
4936 g_profile_frame_draw := not g_profile_frame_draw;
4937 exit;
4938 end;
4939
4940 if cmd = 'pf_update_frame' then
4941 begin
4942 g_profile_frame_update := not g_profile_frame_update;
4943 exit;
4944 end;
4945
4946 if cmd = 'pf_coldet' then
4947 begin
4948 g_profile_collision := not g_profile_collision;
4949 exit;
4950 end;
4951
4952 if cmd = 'r_sq_draw' then
4953 begin
4954 case getBool(1) of
4955 -1: begin end;
4956 0: gdbg_map_use_accel_render := false;
4957 1: gdbg_map_use_accel_render := true;
4958 end;
4959 if gdbg_map_use_accel_render then g_Console_Add('accelerated rendering: tan') else g_Console_Add('accelerated rendering: ona');
4960 exit;
4961 end;
4962
4963 if cmd = 'dbg_sq_coldet' then
4964 begin
4965 case getBool(1) of
4966 -1: begin end;
4967 0: gdbg_map_use_accel_coldet := false;
4968 1: gdbg_map_use_accel_coldet := true;
4969 end;
4970 if gdbg_map_use_accel_coldet then g_Console_Add('accelerated coldet: tan') else g_Console_Add('accelerated coldet: ona');
4971 exit;
4972 end;
4973
4974 if (cmd = 'sq_use_grid') or (cmd = 'sq_use_tree') then
4975 begin
4976 gdbg_map_use_tree_coldet := (cmd = 'sq_use_tree');
4977 if gdbg_map_use_tree_coldet then g_Console_Add('coldet acceleration: tree') else g_Console_Add('coldet acceleration: grid');
4978 exit;
4979 end;
4980
4981 if (cmd = 'r_sq_use_grid') or (cmd = 'r_sq_use_tree') then
4982 begin
4983 gdbg_map_use_tree_draw := (cmd = 'r_sq_use_tree');
4984 if gdbg_map_use_tree_draw then g_Console_Add('render acceleration: tree') else g_Console_Add('render acceleration: grid');
4985 exit;
4986 end;
4987
4988 if (cmd = 't_dump_node_queries') then
4989 begin
4990 case getBool(1) of
4991 -1: begin end;
4992 0: gdbg_map_dump_coldet_tree_queries := false;
4993 1: gdbg_map_dump_coldet_tree_queries := true;
4994 end;
4995 if gdbg_map_dump_coldet_tree_queries then g_Console_Add('grid coldet tree queries: tan') else g_Console_Add('grid coldet tree queries: ona');
4996 exit;
4997 end;
4998
4999 if (cmd = 'mon_sq_enabled') then
5000 begin
5001 case getBool(1) of
5002 -1: begin end;
5003 0: gmon_debug_use_sqaccel := false;
5004 1: gmon_debug_use_sqaccel := true;
5005 end;
5006 if gmon_debug_use_sqaccel then g_Console_Add('accelerated monster coldet: tan') else g_Console_Add('accelerated monster coldet: ona');
5007 exit;
5008 end;
5009 end;
5010
5011 procedure DebugCommands(P: SArray);
5012 var
5013 a, b: Integer;
5014 cmd: string;
5015 //pt: TPoint;
5016 mon: TMonster;
5017 begin
5018 // Êîìàíäû îòëàäî÷íîãî ðåæèìà:
5019 if gDebugMode then
5020 begin
5021 cmd := LowerCase(P[0]);
5022 if cmd = 'd_window' then
5023 begin
5024 g_Console_Add(Format('gWinPosX = %d, gWinPosY %d', [gWinPosX, gWinPosY]));
5025 g_Console_Add(Format('gWinRealPosX = %d, gWinRealPosY %d', [gWinRealPosX, gWinRealPosY]));
5026 g_Console_Add(Format('gScreenWidth = %d, gScreenHeight = %d', [gScreenWidth, gScreenHeight]));
5027 g_Console_Add(Format('gWinSizeX = %d, gWinSizeY = %d', [gWinSizeX, gWinSizeY]));
5028 g_Console_Add(Format('Frame X = %d, Y = %d, Caption Y = %d', [gWinFrameX, gWinFrameY, gWinCaption]));
5029 end
5030 else if cmd = 'd_sounds' then
5031 begin
5032 if (Length(P) > 1) and
5033 ((P[1] = '1') or (P[1] = '0')) then
5034 g_Debug_Sounds := (P[1][1] = '1');
5035
5036 g_Console_Add(Format('d_sounds is %d', [Byte(g_Debug_Sounds)]));
5037 end
5038 else if cmd = 'd_frames' then
5039 begin
5040 if (Length(P) > 1) and
5041 ((P[1] = '1') or (P[1] = '0')) then
5042 g_Debug_Frames := (P[1][1] = '1');
5043
5044 g_Console_Add(Format('d_frames is %d', [Byte(g_Debug_Frames)]));
5045 end
5046 else if cmd = 'd_winmsg' then
5047 begin
5048 if (Length(P) > 1) and
5049 ((P[1] = '1') or (P[1] = '0')) then
5050 g_Debug_WinMsgs := (P[1][1] = '1');
5051
5052 g_Console_Add(Format('d_winmsg is %d', [Byte(g_Debug_WinMsgs)]));
5053 end
5054 else if (cmd = 'd_monoff') and not g_Game_IsNet then
5055 begin
5056 if (Length(P) > 1) and
5057 ((P[1] = '1') or (P[1] = '0')) then
5058 g_Debug_MonsterOff := (P[1][1] = '1');
5059
5060 g_Console_Add(Format('d_monoff is %d', [Byte(g_debug_MonsterOff)]));
5061 end
5062 else if (cmd = 'd_botoff') and not g_Game_IsNet then
5063 begin
5064 if Length(P) > 1 then
5065 case P[1][1] of
5066 '0': g_debug_BotAIOff := 0;
5067 '1': g_debug_BotAIOff := 1;
5068 '2': g_debug_BotAIOff := 2;
5069 '3': g_debug_BotAIOff := 3;
5070 end;
5071
5072 g_Console_Add(Format('d_botoff is %d', [g_debug_BotAIOff]));
5073 end
5074 else if cmd = 'd_monster' then
5075 begin
5076 if gGameOn and (gPlayer1 <> nil) and (gPlayer1.Live) and (not g_Game_IsNet) then
5077 if Length(P) < 2 then
5078 begin
5079 g_Console_Add(cmd + ' [ID | Name] [behaviour]');
5080 g_Console_Add('ID | Name');
5081 for b := MONSTER_DEMON to MONSTER_MAN do
5082 g_Console_Add(Format('%2d | %s', [b, g_Monsters_GetNameByID(b)]));
5083 end else
5084 begin
5085 a := StrToIntDef(P[1], 0);
5086 if (a < MONSTER_DEMON) or (a > MONSTER_MAN) then
5087 a := g_Monsters_GetIDByName(P[1]);
5088
5089 if (a < MONSTER_DEMON) or (a > MONSTER_MAN) then
5090 g_Console_Add(Format(_lc[I_MSG_NO_MONSTER], [P[1]]))
5091 else
5092 begin
5093 with gPlayer1.Obj do
5094 begin
5095 mon := g_Monsters_Create(a,
5096 X + Rect.X + (Rect.Width div 2),
5097 Y + Rect.Y + Rect.Height,
5098 gPlayer1.Direction, True);
5099 end;
5100 if (Length(P) > 2) and (mon <> nil) then
5101 mon.MonsterBehaviour := Min(Max(StrToIntDef(P[2], BH_NORMAL), BH_NORMAL), BH_GOOD);
5102 end;
5103 end;
5104 end
5105 else if (cmd = 'd_health') then
5106 begin
5107 if (Length(P) > 1) and
5108 ((P[1] = '1') or (P[1] = '0')) then
5109 g_debug_HealthBar := (P[1][1] = '1');
5110
5111 g_Console_Add(Format('d_health is %d', [Byte(g_debug_HealthBar)]));
5112 end
5113 else if (cmd = 'd_player') then
5114 begin
5115 if (Length(P) > 1) and
5116 ((P[1] = '1') or (P[1] = '0')) then
5117 g_debug_Player := (P[1][1] = '1');
5118
5119 g_Console_Add(Format(cmd + ' is %d', [Byte(g_Debug_Player)]));
5120 end
5121 else if (cmd = 'd_joy') then
5122 begin
5123 for a := 1 to 8 do
5124 g_Console_Add(e_JoystickStateToString(a));
5125 end;
5126 end
5127 else
5128 g_Console_Add(_lc[I_MSG_NOT_DEBUG]);
5129 end;
5130
5131
5132 procedure GameCheats(P: SArray);
5133 var
5134 cmd: string;
5135 f, a: Integer;
5136 plr: TPlayer;
5137 begin
5138 if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
5139 (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode)) or g_Game_IsNet then
5140 begin
5141 g_Console_Add('not available');
5142 exit;
5143 end;
5144 plr := gPlayer1;
5145 if plr = nil then
5146 begin
5147 g_Console_Add('where is the player?!');
5148 exit;
5149 end;
5150 cmd := LowerCase(P[0]);
5151 // god
5152 if cmd = 'god' then
5153 begin
5154 plr.GodMode := not plr.GodMode;
5155 if plr.GodMode then g_Console_Add('player is godlike now') else g_Console_Add('player is mortal now');
5156 exit;
5157 end;
5158 // give <health|exit|weapons|air|suit|jetpack|berserk|all>
5159 if cmd = 'give' then
5160 begin
5161 if length(P) < 2 then begin g_Console_Add('give what?!'); exit; end;
5162 for f := 1 to High(P) do
5163 begin
5164 cmd := LowerCase(P[f]);
5165 if cmd = 'health' then begin plr.RestoreHealthArmor(); g_Console_Add('player feels himself better'); continue; end;
5166 if (cmd = 'all') {or (cmd = 'weapons')} then begin plr.AllRulez(False); g_Console_Add('player got the gifts'); continue; end;
5167 if cmd = 'exit' then
5168 begin
5169 if gTriggers <> nil then
5170 begin
5171 for a := 0 to High(gTriggers) do
5172 begin
5173 if gTriggers[a].TriggerType = TRIGGER_EXIT then
5174 begin
5175 g_Console_Add('player left the map');
5176 gExitByTrigger := True;
5177 g_Game_ExitLevel(gTriggers[a].Data.MapName);
5178 break;
5179 end;
5180 end;
5181 end;
5182 continue;
5183 end;
5184
5185 if cmd = 'air' then begin plr.GiveItem(ITEM_OXYGEN); g_Console_Add('player got some air'); continue; end;
5186 if cmd = 'jetpack' then begin plr.GiveItem(ITEM_JETPACK); g_Console_Add('player got a jetpack'); continue; end;
5187 if cmd = 'suit' then begin plr.GiveItem(ITEM_SUIT); g_Console_Add('player got an envirosuit'); continue; end;
5188 if cmd = 'berserk' then begin plr.GiveItem(ITEM_MEDKIT_BLACK); g_Console_Add('player got a berserk pack'); continue; end;
5189 if cmd = 'backpack' then begin plr.GiveItem(ITEM_AMMO_BACKPACK); g_Console_Add('player got a backpack'); continue; end;
5190
5191 if cmd = 'helmet' then begin plr.GiveItem(ITEM_HELMET); g_Console_Add('player got a helmet'); continue; end;
5192 if cmd = 'bottle' then begin plr.GiveItem(ITEM_BOTTLE); g_Console_Add('player got a bottle of health'); continue; end;
5193
5194 if cmd = 'stimpack' then begin plr.GiveItem(ITEM_MEDKIT_SMALL); g_Console_Add('player got a stimpack'); continue; end;
5195 if (cmd = 'medkit') or (cmd = 'medikit') or (cmd = 'medpack') or (cmd = 'medipack') then begin plr.GiveItem(ITEM_MEDKIT_LARGE); g_Console_Add('player got a '+cmd); continue; end;
5196
5197 if cmd = 'greenarmor' then begin plr.GiveItem(ITEM_ARMOR_GREEN); g_Console_Add('player got a security armor'); continue; end;
5198 if cmd = 'bluearmor' then begin plr.GiveItem(ITEM_ARMOR_BLUE); g_Console_Add('player got a combat armor'); continue; end;
5199
5200 if (cmd = 'megasphere') or (cmd = 'mega') then begin plr.GiveItem(ITEM_SPHERE_BLUE); g_Console_Add('player got a megasphere'); continue; end;
5201 if (cmd = 'soulsphere') or (cmd = 'soul')then begin plr.GiveItem(ITEM_SPHERE_WHITE); g_Console_Add('player got a soul sphere'); continue; end;
5202
5203 if (cmd = 'invul') or (cmd = 'invulnerability') then begin plr.GiveItem(ITEM_INVUL); g_Console_Add('player got invulnerability'); continue; end;
5204 if (cmd = 'invis') or (cmd = 'invisibility') then begin plr.GiveItem(ITEM_INVIS); g_Console_Add('player got invisibility'); continue; end;
5205
5206 if cmd = 'redkey' then begin plr.GiveItem(ITEM_KEY_RED); g_Console_Add('player got the red key'); continue; end;
5207 if cmd = 'greenkey' then begin plr.GiveItem(ITEM_KEY_GREEN); g_Console_Add('player got the green key'); continue; end;
5208 if cmd = 'bluekey' then begin plr.GiveItem(ITEM_KEY_BLUE); g_Console_Add('player got the blue key'); continue; end;
5209
5210 if (cmd = 'shotgun') or (cmd = 'sg') then begin plr.GiveItem(ITEM_WEAPON_SHOTGUN1); g_Console_Add('player got a shotgun'); continue; end;
5211 if (cmd = 'supershotgun') or (cmd = 'ssg') then begin plr.GiveItem(ITEM_WEAPON_SHOTGUN2); g_Console_Add('player got a supershotgun'); continue; end;
5212 if cmd = 'chaingun' then begin plr.GiveItem(ITEM_WEAPON_CHAINGUN); g_Console_Add('player got a chaingun'); continue; end;
5213 if (cmd = 'launcher') or (cmd = 'rocketlauncher') or (cmd = 'rl') then begin plr.GiveItem(ITEM_WEAPON_ROCKETLAUNCHER); g_Console_Add('player got a rocket launcher'); continue; end;
5214 if cmd = 'plasmagun' then begin plr.GiveItem(ITEM_WEAPON_PLASMA); g_Console_Add('player got a plasma gun'); continue; end;
5215 if cmd = 'bfg' then begin plr.GiveItem(ITEM_WEAPON_BFG); g_Console_Add('player got a BFG-9000'); continue; end;
5216
5217 if (cmd = 'shotgunzz') or (cmd = 'sgzz') then begin plr.GiveItem(ITEM_WEAPON_SHOTGUN1); plr.GiveItem(ITEM_AMMO_SHELLS_BOX); g_Console_Add('player got a shotgun'); continue; end;
5218 if (cmd = 'supershotgunzz') or (cmd = 'ssgzz') then begin plr.GiveItem(ITEM_WEAPON_SHOTGUN2); plr.GiveItem(ITEM_AMMO_SHELLS_BOX); g_Console_Add('player got a supershotgun'); continue; end;
5219 if cmd = 'chaingunzz' then begin plr.GiveItem(ITEM_WEAPON_CHAINGUN); plr.GiveItem(ITEM_AMMO_BULLETS_BOX); g_Console_Add('player got a chaingun'); continue; end;
5220 if (cmd = 'launcherzz') or (cmd = 'rocketlauncherzz') or (cmd = 'rlzz') then begin plr.GiveItem(ITEM_WEAPON_ROCKETLAUNCHER); plr.GiveItem(ITEM_AMMO_ROCKET_BOX); g_Console_Add('player got a rocket launcher'); continue; end;
5221 if cmd = 'plasmagunzz' then begin plr.GiveItem(ITEM_WEAPON_PLASMA); plr.GiveItem(ITEM_AMMO_CELL_BIG); g_Console_Add('player got a plasma gun'); continue; end;
5222 if cmd = 'bfgzz' then begin plr.GiveItem(ITEM_WEAPON_BFG); plr.GiveItem(ITEM_AMMO_CELL_BIG); g_Console_Add('player got a BFG-9000'); continue; end;
5223
5224 if cmd = 'superchaingun' then begin plr.GiveItem(ITEM_WEAPON_SUPERPULEMET); g_Console_Add('player got a superchaingun'); continue; end;
5225 if cmd = 'superchaingunzz' then begin plr.GiveItem(ITEM_WEAPON_SUPERPULEMET); plr.GiveItem(ITEM_AMMO_BULLETS_BOX); g_Console_Add('player got a superchaingun'); continue; end;
5226
5227 if (cmd = 'flamer') or (cmd = 'flamethrower') or (cmd = 'ft') then begin plr.GiveItem(ITEM_WEAPON_FLAMETHROWER); g_Console_Add('player got a flame thrower'); continue; end;
5228 if (cmd = 'flamerzz') or (cmd = 'flamethrowerzz') or (cmd = 'ftzz') then begin plr.GiveItem(ITEM_WEAPON_FLAMETHROWER); plr.GiveItem(ITEM_AMMO_FUELCAN); g_Console_Add('player got a flame thrower'); continue; end;
5229
5230 if cmd = 'chainsaw' then begin plr.GiveItem(ITEM_WEAPON_SAW); g_Console_Add('player got a chainsaw'); continue; end;
5231
5232 if cmd = 'ammo' then
5233 begin
5234 plr.GiveItem(ITEM_AMMO_SHELLS_BOX);
5235 plr.GiveItem(ITEM_AMMO_BULLETS_BOX);
5236 plr.GiveItem(ITEM_AMMO_CELL_BIG);
5237 plr.GiveItem(ITEM_AMMO_ROCKET_BOX);
5238 plr.GiveItem(ITEM_AMMO_FUELCAN);
5239 g_Console_Add('player got some ammo');
5240 continue;
5241 end;
5242
5243 if cmd = 'clip' then begin plr.GiveItem(ITEM_AMMO_BULLETS); g_Console_Add('player got some bullets'); continue; end;
5244 if cmd = 'bullets' then begin plr.GiveItem(ITEM_AMMO_BULLETS_BOX); g_Console_Add('player got a box of bullets'); continue; end;
5245
5246 if cmd = 'shells' then begin plr.GiveItem(ITEM_AMMO_SHELLS); g_Console_Add('player got some shells'); continue; end;
5247 if cmd = 'shellbox' then begin plr.GiveItem(ITEM_AMMO_SHELLS_BOX); g_Console_Add('player got a box of shells'); continue; end;
5248
5249 if cmd = 'cells' then begin plr.GiveItem(ITEM_AMMO_CELL); g_Console_Add('player got some cells'); continue; end;
5250 if cmd = 'battery' then begin plr.GiveItem(ITEM_AMMO_CELL_BIG); g_Console_Add('player got cell battery'); continue; end;
5251
5252 if cmd = 'rocket' then begin plr.GiveItem(ITEM_AMMO_ROCKET); g_Console_Add('player got a rocket'); continue; end;
5253 if cmd = 'rocketbox' then begin plr.GiveItem(ITEM_AMMO_ROCKET_BOX); g_Console_Add('player got some rockets'); continue; end;
5254
5255 if (cmd = 'fuel') or (cmd = 'fuelcan') then begin plr.GiveItem(ITEM_AMMO_FUELCAN); g_Console_Add('player got fuel canister'); continue; end;
5256
5257 if cmd = 'weapons' then
5258 begin
5259 plr.GiveItem(ITEM_WEAPON_SHOTGUN1);
5260 plr.GiveItem(ITEM_WEAPON_SHOTGUN2);
5261 plr.GiveItem(ITEM_WEAPON_CHAINGUN);
5262 plr.GiveItem(ITEM_WEAPON_ROCKETLAUNCHER);
5263 plr.GiveItem(ITEM_WEAPON_PLASMA);
5264 plr.GiveItem(ITEM_WEAPON_BFG);
5265 g_Console_Add('player got weapons');
5266 continue;
5267 end;
5268
5269 if cmd = 'keys' then
5270 begin
5271 plr.GiveItem(ITEM_KEY_RED);
5272 plr.GiveItem(ITEM_KEY_GREEN);
5273 plr.GiveItem(ITEM_KEY_BLUE);
5274 g_Console_Add('player got all keys');
5275 continue;
5276 end;
5277
5278 g_Console_Add('i don''t know how to give '''+cmd+'''!');
5279 end;
5280 exit;
5281 end;
5282 // open
5283 if cmd = 'open' then
5284 begin
5285 g_Console_Add('player activated sesame');
5286 g_Triggers_OpenAll();
5287 exit;
5288 end;
5289 // fly
5290 if cmd = 'fly' then
5291 begin
5292 gFly := not gFly;
5293 if gFly then g_Console_Add('player feels himself lighter') else g_Console_Add('player lost his wings');
5294 exit;
5295 end;
5296 // noclip
5297 if cmd = 'noclip' then
5298 begin
5299 plr.SwitchNoClip;
5300 g_Console_Add('wall hardeness adjusted');
5301 exit;
5302 end;
5303 // notarget
5304 if cmd = 'notarget' then
5305 begin
5306 plr.NoTarget := not plr.NoTarget;
5307 if plr.NoTarget then g_Console_Add('player hides in shadows') else g_Console_Add('player is brave again');
5308 exit;
5309 end;
5310 // noreload
5311 if cmd = 'noreload' then
5312 begin
5313 plr.NoReload := not plr.NoReload;
5314 if plr.NoReload then g_Console_Add('player is action hero now') else g_Console_Add('player is ordinary man now');
5315 exit;
5316 end;
5317 // speedy
5318 if cmd = 'speedy' then
5319 begin
5320 MAX_RUNVEL := 32-MAX_RUNVEL;
5321 g_Console_Add('speed adjusted');
5322 exit;
5323 end;
5324 // jumpy
5325 if cmd = 'jumpy' then
5326 begin
5327 VEL_JUMP := 30-VEL_JUMP;
5328 g_Console_Add('jump height adjusted');
5329 exit;
5330 end;
5331 // automap
5332 if cmd = 'automap' then
5333 begin
5334 gShowMap := not gShowMap;
5335 if gShowMap then g_Console_Add('player gains second sight') else g_Console_Add('player lost second sight');
5336 exit;
5337 end;
5338 // aimline
5339 if cmd = 'aimline' then
5340 begin
5341 gAimLine := not gAimLine;
5342 if gAimLine then g_Console_Add('player gains laser sight') else g_Console_Add('player lost laser sight');
5343 exit;
5344 end;
5345 end;
5346
5347 procedure GameCommands(P: SArray);
5348 var
5349 a, b: Integer;
5350 s, pw: String;
5351 chstr: string;
5352 cmd: string;
5353 pl: pTNetClient = nil;
5354 plr: TPlayer;
5355 prt: Word;
5356 nm: Boolean;
5357 listen: LongWord;
5358 begin
5359 // Îáùèå êîìàíäû:
5360 cmd := LowerCase(P[0]);
5361 chstr := '';
5362 if (cmd = 'quit') or
5363 (cmd = 'exit') then
5364 begin
5365 g_Game_Free();
5366 g_Game_Quit();
5367 Exit;
5368 end
5369 else if cmd = 'pause' then
5370 begin
5371 if (g_ActiveWindow = nil) then
5372 g_Game_Pause(not gPause);
5373 end
5374 else if cmd = 'endgame' then
5375 gExit := EXIT_SIMPLE
5376 else if cmd = 'restart' then
5377 begin
5378 if gGameOn or (gState in [STATE_INTERSINGLE, STATE_INTERCUSTOM]) then
5379 begin
5380 if g_Game_IsClient then
5381 begin
5382 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5383 Exit;
5384 end;
5385 g_Game_Restart();
5386 end else
5387 g_Console_Add(_lc[I_MSG_NOT_GAME]);
5388 end
5389 else if cmd = 'kick' then
5390 begin
5391 if g_Game_IsServer then
5392 begin
5393 if Length(P) < 2 then
5394 begin
5395 g_Console_Add('kick <name>');
5396 Exit;
5397 end;
5398 if P[1] = '' then
5399 begin
5400 g_Console_Add('kick <name>');
5401 Exit;
5402 end;
5403
5404 if g_Game_IsNet then
5405 pl := g_Net_Client_ByName(P[1]);
5406 if (pl <> nil) then
5407 begin
5408 s := g_Net_ClientName_ByID(pl^.ID);
5409 enet_peer_disconnect(pl^.Peer, NET_DISC_KICK);
5410 g_Console_Add(Format(_lc[I_PLAYER_KICK], [s]));
5411 MH_SEND_GameEvent(NET_EV_PLAYER_KICK, 0, s);
5412 if NetUseMaster then
5413 g_Net_Slist_Update;
5414 end else if gPlayers <> nil then
5415 for a := Low(gPlayers) to High(gPlayers) do
5416 if gPlayers[a] <> nil then
5417 if Copy(LowerCase(gPlayers[a].Name), 1, Length(P[1])) = LowerCase(P[1]) then
5418 begin
5419 // Íå îòêëþ÷àòü îñíîâíûõ èãðîêîâ â ñèíãëå
5420 if not(gPlayers[a] is TBot) and (gGameSettings.GameType = GT_SINGLE) then
5421 continue;
5422 gPlayers[a].Lives := 0;
5423 gPlayers[a].Kill(K_SIMPLEKILL, 0, HIT_DISCON);
5424 g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [gPlayers[a].Name]), True);
5425 g_Player_Remove(gPlayers[a].UID);
5426 if NetUseMaster then
5427 g_Net_Slist_Update;
5428 // Åñëè íå ïåðåìåøàòü, ïðè äîáàâëåíèè íîâûõ áîòîâ ïîÿâÿòñÿ ñòàðûå
5429 g_Bot_MixNames();
5430 end;
5431 end else
5432 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5433 end
5434 else if cmd = 'kick_id' then
5435 begin
5436 if g_Game_IsServer and g_Game_IsNet then
5437 begin
5438 if Length(P) < 2 then
5439 begin
5440 g_Console_Add('kick_id <client ID>');
5441 Exit;
5442 end;
5443 if P[1] = '' then
5444 begin
5445 g_Console_Add('kick_id <client ID>');
5446 Exit;
5447 end;
5448
5449 a := StrToIntDef(P[1], 0);
5450 if (NetClients <> nil) and (a <= High(NetClients)) then
5451 begin
5452 if NetClients[a].Used and (NetClients[a].Peer <> nil) then
5453 begin
5454 s := g_Net_ClientName_ByID(NetClients[a].ID);
5455 enet_peer_disconnect(NetClients[a].Peer, NET_DISC_KICK);
5456 g_Console_Add(Format(_lc[I_PLAYER_KICK], [s]));
5457 MH_SEND_GameEvent(NET_EV_PLAYER_KICK, 0, s);
5458 if NetUseMaster then
5459 g_Net_Slist_Update;
5460 end;
5461 end;
5462 end else
5463 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5464 end
5465 else if cmd = 'ban' then
5466 begin
5467 if g_Game_IsServer and g_Game_IsNet then
5468 begin
5469 if Length(P) < 2 then
5470 begin
5471 g_Console_Add('ban <name>');
5472 Exit;
5473 end;
5474 if P[1] = '' then
5475 begin
5476 g_Console_Add('ban <name>');
5477 Exit;
5478 end;
5479
5480 pl := g_Net_Client_ByName(P[1]);
5481 if (pl <> nil) then
5482 begin
5483 s := g_Net_ClientName_ByID(pl^.ID);
5484 g_Net_BanHost(pl^.Peer^.address.host, False);
5485 enet_peer_disconnect(pl^.Peer, NET_DISC_TEMPBAN);
5486 g_Console_Add(Format(_lc[I_PLAYER_BAN], [s]));
5487 MH_SEND_GameEvent(NET_EV_PLAYER_BAN, 0, s);
5488 if NetUseMaster then
5489 g_Net_Slist_Update;
5490 end else
5491 g_Console_Add(Format(_lc[I_NET_ERR_NAME404], [P[1]]));
5492 end else
5493 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5494 end
5495 else if cmd = 'ban_id' then
5496 begin
5497 if g_Game_IsServer and g_Game_IsNet then
5498 begin
5499 if Length(P) < 2 then
5500 begin
5501 g_Console_Add('ban_id <client ID>');
5502 Exit;
5503 end;
5504 if P[1] = '' then
5505 begin
5506 g_Console_Add('ban_id <client ID>');
5507 Exit;
5508 end;
5509
5510 a := StrToIntDef(P[1], 0);
5511 if (NetClients <> nil) and (a <= High(NetClients)) then
5512 if NetClients[a].Used and (NetClients[a].Peer <> nil) then
5513 begin
5514 s := g_Net_ClientName_ByID(NetClients[a].ID);
5515 g_Net_BanHost(NetClients[a].Peer^.address.host, False);
5516 enet_peer_disconnect(NetClients[a].Peer, NET_DISC_TEMPBAN);
5517 g_Console_Add(Format(_lc[I_PLAYER_BAN], [s]));
5518 MH_SEND_GameEvent(NET_EV_PLAYER_BAN, 0, s);
5519 if NetUseMaster then
5520 g_Net_Slist_Update;
5521 end;
5522 end else
5523 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5524 end
5525 else if cmd = 'permban' then
5526 begin
5527 if g_Game_IsServer and g_Game_IsNet then
5528 begin
5529 if Length(P) < 2 then
5530 begin
5531 g_Console_Add('permban <name>');
5532 Exit;
5533 end;
5534 if P[1] = '' then
5535 begin
5536 g_Console_Add('permban <name>');
5537 Exit;
5538 end;
5539
5540 pl := g_Net_Client_ByName(P[1]);
5541 if (pl <> nil) then
5542 begin
5543 s := g_Net_ClientName_ByID(pl^.ID);
5544 g_Net_BanHost(pl^.Peer^.address.host);
5545 enet_peer_disconnect(pl^.Peer, NET_DISC_BAN);
5546 g_Net_SaveBanList();
5547 g_Console_Add(Format(_lc[I_PLAYER_BAN], [s]));
5548 MH_SEND_GameEvent(NET_EV_PLAYER_BAN, 0, s);
5549 if NetUseMaster then
5550 g_Net_Slist_Update;
5551 end else
5552 g_Console_Add(Format(_lc[I_NET_ERR_NAME404], [P[1]]));
5553 end else
5554 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5555 end
5556 else if cmd = 'permban_id' then
5557 begin
5558 if g_Game_IsServer and g_Game_IsNet then
5559 begin
5560 if Length(P) < 2 then
5561 begin
5562 g_Console_Add('permban_id <client ID>');
5563 Exit;
5564 end;
5565 if P[1] = '' then
5566 begin
5567 g_Console_Add('permban_id <client ID>');
5568 Exit;
5569 end;
5570
5571 a := StrToIntDef(P[1], 0);
5572 if (NetClients <> nil) and (a <= High(NetClients)) then
5573 if NetClients[a].Used and (NetClients[a].Peer <> nil) then
5574 begin
5575 s := g_Net_ClientName_ByID(NetClients[a].ID);
5576 g_Net_BanHost(NetClients[a].Peer^.address.host);
5577 enet_peer_disconnect(NetClients[a].Peer, NET_DISC_BAN);
5578 g_Net_SaveBanList();
5579 g_Console_Add(Format(_lc[I_PLAYER_BAN], [s]));
5580 MH_SEND_GameEvent(NET_EV_PLAYER_BAN, 0, s);
5581 if NetUseMaster then
5582 g_Net_Slist_Update;
5583 end;
5584 end else
5585 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5586 end
5587 else if cmd = 'unban' then
5588 begin
5589 if g_Game_IsServer and g_Game_IsNet then
5590 begin
5591 if Length(P) < 2 then
5592 begin
5593 g_Console_Add('unban <IP Address>');
5594 Exit;
5595 end;
5596 if P[1] = '' then
5597 begin
5598 g_Console_Add('unban <IP Address>');
5599 Exit;
5600 end;
5601
5602 if g_Net_UnbanHost(P[1]) then
5603 begin
5604 g_Console_Add(Format(_lc[I_MSG_UNBAN_OK], [P[1]]));
5605 g_Net_SaveBanList();
5606 end else
5607 g_Console_Add(Format(_lc[I_MSG_UNBAN_FAIL], [P[1]]));
5608 end else
5609 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5610 end
5611 else if cmd = 'clientlist' then
5612 begin
5613 if g_Game_IsServer and g_Game_IsNet then
5614 begin
5615 b := 0;
5616 if NetClients <> nil then
5617 for a := Low(NetClients) to High(NetClients) do
5618 if NetClients[a].Used and (NetClients[a].Peer <> nil) then
5619 begin
5620 plr := g_Player_Get(NetClients[a].Player);
5621 if plr = nil then continue;
5622 Inc(b);
5623 g_Console_Add(Format('#%2d: %-15s | %s', [a,
5624 IpToStr(NetClients[a].Peer^.address.host), plr.Name]));
5625 end;
5626 if b = 0 then
5627 g_Console_Add(_lc[I_MSG_NOCLIENTS]);
5628 end else
5629 g_Console_Add(_lc[I_MSG_SERVERONLY]);
5630 end
5631 else if cmd = 'connect' then
5632 begin
5633 if (NetMode = NET_NONE) then
5634 begin
5635 if Length(P) < 2 then
5636 begin
5637 g_Console_Add('connect <IP> [port] [password]');
5638 Exit;
5639 end;
5640 if P[1] = '' then
5641 begin
5642 g_Console_Add('connect <IP> [port] [password]');
5643 Exit;
5644 end;
5645
5646 if Length(P) > 2 then
5647 prt := StrToIntDef(P[2], 25666)
5648 else
5649 prt := 25666;
5650
5651 if Length(P) > 3 then
5652 pw := P[3]
5653 else
5654 pw := '';
5655
5656 g_Game_StartClient(P[1], prt, pw);
5657 end;
5658 end
5659 else if cmd = 'disconnect' then
5660 begin
5661 if (NetMode = NET_CLIENT) then
5662 g_Net_Disconnect();
5663 end
5664 else if cmd = 'reconnect' then
5665 begin
5666 if (NetMode = NET_SERVER) then
5667 Exit;
5668
5669 if (NetMode = NET_CLIENT) then
5670 begin
5671 g_Net_Disconnect();
5672 gExit := EXIT_SIMPLE;
5673 EndGame;
5674 end;
5675
5676 //TODO: Use last successful password to reconnect, instead of ''
5677 g_Game_StartClient(NetClientIP, NetClientPort, '');
5678 end
5679 else if (cmd = 'addbot') or
5680 (cmd = 'bot_add') then
5681 begin
5682 if Length(P) > 1 then
5683 g_Bot_Add(TEAM_NONE, StrToIntDef(P[1], 2))
5684 else
5685 g_Bot_Add(TEAM_NONE, 2);
5686 end
5687 else if cmd = 'bot_addlist' then
5688 begin
5689 if Length(P) > 1 then
5690 if Length(P) = 2 then
5691 g_Bot_AddList(TEAM_NONE, P[1], StrToIntDef(P[1], -1))
5692 else
5693 g_Bot_AddList(IfThen(P[2] = 'red', TEAM_RED, TEAM_BLUE), P[1], StrToIntDef(P[1], -1));
5694 end
5695 else if cmd = 'bot_removeall' then
5696 g_Bot_RemoveAll()
5697 else if cmd = 'chat' then
5698 begin
5699 if g_Game_IsNet then
5700 begin
5701 if Length(P) > 1 then
5702 begin
5703 for a := 1 to High(P) do
5704 chstr := chstr + P[a] + ' ';
5705
5706 if Length(chstr) > 200 then SetLength(chstr, 200);
5707
5708 if Length(chstr) < 1 then
5709 begin
5710 g_Console_Add('chat <text>');
5711 Exit;
5712 end;
5713
5714 chstr := b_Text_Format(chstr);
5715 if g_Game_IsClient then
5716 MC_SEND_Chat(chstr, NET_CHAT_PLAYER)
5717 else
5718 MH_SEND_Chat(gPlayer1Settings.Name + ': ' + chstr, NET_CHAT_PLAYER);
5719 end
5720 else
5721 g_Console_Add('chat <text>');
5722 end else
5723 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5724 end
5725 else if cmd = 'teamchat' then
5726 begin
5727 if g_Game_IsNet and (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
5728 begin
5729 if Length(P) > 1 then
5730 begin
5731 for a := 1 to High(P) do
5732 chstr := chstr + P[a] + ' ';
5733
5734 if Length(chstr) > 200 then SetLength(chstr, 200);
5735
5736 if Length(chstr) < 1 then
5737 begin
5738 g_Console_Add('teamchat <text>');
5739 Exit;
5740 end;
5741
5742 chstr := b_Text_Format(chstr);
5743 if g_Game_IsClient then
5744 MC_SEND_Chat(chstr, NET_CHAT_TEAM)
5745 else
5746 MH_SEND_Chat(gPlayer1Settings.Name + ': ' + chstr, NET_CHAT_TEAM,
5747 gPlayer1Settings.Team);
5748 end
5749 else
5750 g_Console_Add('teamchat <text>');
5751 end else
5752 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5753 end
5754 else if cmd = 'game' then
5755 begin
5756 if gGameSettings.GameType <> GT_NONE then
5757 begin
5758 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5759 Exit;
5760 end;
5761 if Length(P) = 1 then
5762 begin
5763 g_Console_Add(cmd + ' <WAD> [MAP] [# players]');
5764 Exit;
5765 end;
5766 // Èãðà åù¸ íå çàïóùåíà, ñíà÷àëà íàì íàäî çàãðóçèòü êàêîé-òî WAD
5767 P[1] := addWadExtension(P[1]);
5768 if FileExists(MapsDir + P[1]) then
5769 begin
5770 // Åñëè êàðòà íå óêàçàíà, áåð¸ì ïåðâóþ êàðòó â ôàéëå
5771 if Length(P) < 3 then
5772 begin
5773 SetLength(P, 3);
5774 P[2] := g_Game_GetFirstMap(MapsDir + P[1]);
5775 end;
5776
5777 s := P[1] + ':\' + UpperCase(P[2]);
5778
5779 if g_Map_Exist(MapsDir + s) then
5780 begin
5781 // Çàïóñêàåì ñâîþ èãðó
5782 g_Game_Free();
5783 with gGameSettings do
5784 begin
5785 GameMode := g_Game_TextToMode(gcGameMode);
5786 if gSwitchGameMode <> GM_NONE then
5787 GameMode := gSwitchGameMode;
5788 if GameMode = GM_NONE then GameMode := GM_DM;
5789 if GameMode = GM_SINGLE then GameMode := GM_COOP;
5790 b := 1;
5791 if Length(P) >= 4 then
5792 b := StrToIntDef(P[3], 1);
5793 g_Game_StartCustom(s, GameMode, TimeLimit,
5794 GoalLimit, MaxLives, Options, b);
5795 end;
5796 end
5797 else
5798 if P[2] = '' then
5799 g_Console_Add(Format(_lc[I_MSG_NO_MAPS], [P[1]]))
5800 else
5801 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [UpperCase(P[2])]));
5802 end else
5803 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[1]]));
5804 end
5805 else if cmd = 'host' then
5806 begin
5807 if gGameSettings.GameType <> GT_NONE then
5808 begin
5809 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5810 Exit;
5811 end;
5812 if Length(P) < 4 then
5813 begin
5814 g_Console_Add(cmd + ' <listen IP> <port> <WAD> [MAP] [# players]');
5815 Exit;
5816 end;
5817 if not StrToIp(P[1], listen) then
5818 Exit;
5819 prt := StrToIntDef(P[2], 25666);
5820
5821 P[3] := addWadExtension(P[3]);
5822 if FileExists(MapsDir + P[3]) then
5823 begin
5824 // Åñëè êàðòà íå óêàçàíà, áåð¸ì ïåðâóþ êàðòó â ôàéëå
5825 if Length(P) < 5 then
5826 begin
5827 SetLength(P, 5);
5828 P[4] := g_Game_GetFirstMap(MapsDir + P[1]);
5829 end;
5830
5831 s := P[3] + ':\' + UpperCase(P[4]);
5832
5833 if g_Map_Exist(MapsDir + s) then
5834 begin
5835 // Çàïóñêàåì ñâîþ èãðó
5836 g_Game_Free();
5837 with gGameSettings do
5838 begin
5839 GameMode := g_Game_TextToMode(gcGameMode);
5840 if gSwitchGameMode <> GM_NONE then
5841 GameMode := gSwitchGameMode;
5842 if GameMode = GM_NONE then GameMode := GM_DM;
5843 if GameMode = GM_SINGLE then GameMode := GM_COOP;
5844 b := 0;
5845 if Length(P) >= 6 then
5846 b := StrToIntDef(P[5], 0);
5847 g_Game_StartServer(s, GameMode, TimeLimit,
5848 GoalLimit, MaxLives, Options, b, listen, prt);
5849 end;
5850 end
5851 else
5852 if P[4] = '' then
5853 g_Console_Add(Format(_lc[I_MSG_NO_MAPS], [P[3]]))
5854 else
5855 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [UpperCase(P[4])]));
5856 end else
5857 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[3]]));
5858 end
5859 else if cmd = 'map' then
5860 begin
5861 if Length(P) = 1 then
5862 begin
5863 if g_Game_IsServer and (gGameSettings.GameType <> GT_SINGLE) then
5864 begin
5865 g_Console_Add(cmd + ' <MAP>');
5866 g_Console_Add(cmd + ' <WAD> [MAP]');
5867 end else
5868 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5869 end else
5870 if g_Game_IsServer and (gGameSettings.GameType <> GT_SINGLE) then
5871 begin
5872 // Èä¸ò ñâîÿ èãðà èëè ñåðâåð
5873 if Length(P) < 3 then
5874 begin
5875 // Ïåðâûé ïàðàìåòð - ëèáî êàðòà, ëèáî èìÿ WAD ôàéëà
5876 s := UpperCase(P[1]);
5877 if g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + s) then
5878 begin // Êàðòà íàøëàñü
5879 gExitByTrigger := False;
5880 if gGameOn then
5881 begin // Èä¸ò èãðà - çàâåðøàåì óðîâåíü
5882 gNextMap := s;
5883 gExit := EXIT_ENDLEVELCUSTOM;
5884 end
5885 else // Èíòåðìèññèÿ - ñðàçó çàãðóæàåì êàðòó
5886 g_Game_ChangeMap(s);
5887 end else
5888 begin
5889 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [s]));
5890 // Òàêîé êàðòû íåò, èùåì WAD ôàéë
5891 P[1] := addWadExtension(P[1]);
5892 if FileExists(MapsDir + P[1]) then
5893 begin
5894 // Ïàðàìåòðà êàðòû íåò, ïîýòîìó ñòàâèì ïåðâóþ èç ôàéëà
5895 SetLength(P, 3);
5896 P[2] := g_Game_GetFirstMap(MapsDir + P[1]);
5897
5898 s := P[1] + ':\' + P[2];
5899
5900 if g_Map_Exist(MapsDir + s) then
5901 begin
5902 gExitByTrigger := False;
5903 if gGameOn then
5904 begin // Èä¸ò èãðà - çàâåðøàåì óðîâåíü
5905 gNextMap := s;
5906 gExit := EXIT_ENDLEVELCUSTOM;
5907 end
5908 else // Èíòåðìèññèÿ - ñðàçó çàãðóæàåì êàðòó
5909 g_Game_ChangeMap(s);
5910 end else
5911 if P[2] = '' then
5912 g_Console_Add(Format(_lc[I_MSG_NO_MAPS], [P[1]]))
5913 else
5914 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [P[2]]));
5915 end else
5916 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[1]]));
5917 end;
5918 end else
5919 begin
5920 // Óêàçàíî äâà ïàðàìåòðà, çíà÷èò ïåðâûé - WAD ôàéë, à âòîðîé - êàðòà
5921 P[1] := addWadExtension(P[1]);
5922 if FileExists(MapsDir + P[1]) then
5923 begin
5924 // Íàøëè WAD ôàéë
5925 P[2] := UpperCase(P[2]);
5926 s := P[1] + ':\' + P[2];
5927
5928 if g_Map_Exist(MapsDir + s) then
5929 begin // Íàøëè êàðòó
5930 gExitByTrigger := False;
5931 if gGameOn then
5932 begin // Èä¸ò èãðà - çàâåðøàåì óðîâåíü
5933 gNextMap := s;
5934 gExit := EXIT_ENDLEVELCUSTOM;
5935 end
5936 else // Èíòåðìèññèÿ - ñðàçó çàãðóæàåì êàðòó
5937 g_Game_ChangeMap(s);
5938 end else
5939 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [P[2]]));
5940 end else
5941 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[1]]));
5942 end;
5943 end else
5944 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5945 end
5946 else if cmd = 'nextmap' then
5947 begin
5948 if not(gGameOn or (gState = STATE_INTERCUSTOM)) then
5949 g_Console_Add(_lc[I_MSG_NOT_GAME])
5950 else begin
5951 nm := True;
5952 if Length(P) = 1 then
5953 begin
5954 if g_Game_IsServer and (gGameSettings.GameType <> GT_SINGLE) then
5955 begin
5956 g_Console_Add(cmd + ' <MAP>');
5957 g_Console_Add(cmd + ' <WAD> [MAP]');
5958 end else begin
5959 nm := False;
5960 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
5961 end;
5962 end else
5963 begin
5964 nm := False;
5965 if g_Game_IsServer and (gGameSettings.GameType <> GT_SINGLE) then
5966 begin
5967 if Length(P) < 3 then
5968 begin
5969 // Ïåðâûé ïàðàìåòð - ëèáî êàðòà, ëèáî èìÿ WAD ôàéëà
5970 s := UpperCase(P[1]);
5971 if g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + s) then
5972 begin // Êàðòà íàøëàñü
5973 gExitByTrigger := False;
5974 gNextMap := s;
5975 nm := True;
5976 end else
5977 begin
5978 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [s]));
5979 // Òàêîé êàðòû íåò, èùåì WAD ôàéë
5980 P[1] := addWadExtension(P[1]);
5981 if FileExists(MapsDir + P[1]) then
5982 begin
5983 // Ïàðàìåòðà êàðòû íåò, ïîýòîìó ñòàâèì ïåðâóþ èç ôàéëà
5984 SetLength(P, 3);
5985 P[2] := g_Game_GetFirstMap(MapsDir + P[1]);
5986
5987 s := P[1] + ':\' + P[2];
5988
5989 if g_Map_Exist(MapsDir + s) then
5990 begin // Óñòàíàâëèâàåì êàðòó
5991 gExitByTrigger := False;
5992 gNextMap := s;
5993 nm := True;
5994 end else
5995 if P[2] = '' then
5996 g_Console_Add(Format(_lc[I_MSG_NO_MAPS], [P[1]]))
5997 else
5998 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [P[2]]));
5999 end else
6000 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[1]]));
6001 end;
6002 end else
6003 begin
6004 // Óêàçàíî äâà ïàðàìåòðà, çíà÷èò ïåðâûé - WAD ôàéë, à âòîðîé - êàðòà
6005 P[1] := addWadExtension(P[1]);
6006 if FileExists(MapsDir + P[1]) then
6007 begin
6008 // Íàøëè WAD ôàéë
6009 P[2] := UpperCase(P[2]);
6010 s := P[1] + ':\' + P[2];
6011
6012 if g_Map_Exist(MapsDir + s) then
6013 begin // Íàøëè êàðòó
6014 gExitByTrigger := False;
6015 gNextMap := s;
6016 nm := True;
6017 end else
6018 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [P[2]]));
6019 end else
6020 g_Console_Add(Format(_lc[I_MSG_NO_WAD], [P[1]]));
6021 end;
6022 end else
6023 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
6024 end;
6025 if nm then
6026 if gNextMap = '' then
6027 g_Console_Add(_lc[I_MSG_NEXTMAP_UNSET])
6028 else
6029 g_Console_Add(Format(_lc[I_MSG_NEXTMAP_SET], [gNextMap]));
6030 end;
6031 end
6032 else if (cmd = 'endmap') or (cmd = 'goodbye') then
6033 begin
6034 if not gGameOn then
6035 g_Console_Add(_lc[I_MSG_NOT_GAME])
6036 else
6037 if g_Game_IsServer and (gGameSettings.GameType <> GT_SINGLE) then
6038 begin
6039 gExitByTrigger := False;
6040 // Ñëåäóþùàÿ êàðòà íå çàäàíà, ïðîáóåì íàéòè òðèããåð Âûõîä
6041 if (gNextMap = '') and (gTriggers <> nil) then
6042 for a := 0 to High(gTriggers) do
6043 if gTriggers[a].TriggerType = TRIGGER_EXIT then
6044 begin
6045 gExitByTrigger := True;
6046 gNextMap := gTriggers[a].Data.MapName;
6047 Break;
6048 end;
6049 // Èùåì ñëåäóþùóþ êàðòó â WAD ôàéëå
6050 if gNextMap = '' then
6051 gNextMap := g_Game_GetNextMap();
6052 // Ïðîâåðÿåì, íå çàäàí ëè WAD ôàéë ðåñóðñíîé ñòðîêîé
6053 if Pos(':\', gNextMap) = 0 then
6054 s := gGameSettings.WAD + ':\' + gNextMap
6055 else
6056 s := gNextMap;
6057 // Åñëè êàðòà íàéäåíà, âûõîäèì ñ óðîâíÿ
6058 if g_Map_Exist(MapsDir + s) then
6059 gExit := EXIT_ENDLEVELCUSTOM
6060 else
6061 g_Console_Add(Format(_lc[I_MSG_NO_MAP], [gNextMap]));
6062 end else
6063 g_Console_Add(_lc[I_MSG_GM_UNAVAIL]);
6064 end
6065 else if (cmd = 'event') then
6066 begin
6067 if (Length(P) <= 1) then
6068 begin
6069 for a := 0 to High(gEvents) do
6070 if gEvents[a].Command = '' then
6071 g_Console_Add(gEvents[a].Name + ' <none>')
6072 else
6073 g_Console_Add(gEvents[a].Name + ' "' + gEvents[a].Command + '"');
6074 Exit;
6075 end;
6076 if (Length(P) = 2) then
6077 begin
6078 for a := 0 to High(gEvents) do
6079 if gEvents[a].Name = P[1] then
6080 if gEvents[a].Command = '' then
6081 g_Console_Add(gEvents[a].Name + ' <none>')
6082 else
6083 g_Console_Add(gEvents[a].Name + ' "' + gEvents[a].Command + '"');
6084 Exit;
6085 end;
6086 for a := 0 to High(gEvents) do
6087 if gEvents[a].Name = P[1] then
6088 begin
6089 gEvents[a].Command := '';
6090 for b := 2 to High(P) do
6091 if Pos(' ', P[b]) = 0 then
6092 gEvents[a].Command := gEvents[a].Command + ' ' + P[b]
6093 else
6094 gEvents[a].Command := gEvents[a].Command + ' "' + P[b] + '"';
6095 gEvents[a].Command := Trim(gEvents[a].Command);
6096 Exit;
6097 end;
6098 end
6099 // Êîìàíäû Ñâîåé èãðû:
6100 else if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT] then
6101 begin
6102 if cmd = 'bot_addred' then
6103 begin
6104 if Length(P) > 1 then
6105 g_Bot_Add(TEAM_RED, StrToIntDef(P[1], 2))
6106 else
6107 g_Bot_Add(TEAM_RED, 2);
6108 end
6109 else if cmd = 'bot_addblue' then
6110 begin
6111 if Length(P) > 1 then
6112 g_Bot_Add(TEAM_BLUE, StrToIntDef(P[1], 2))
6113 else
6114 g_Bot_Add(TEAM_BLUE, 2);
6115 end
6116 else if cmd = 'suicide' then
6117 begin
6118 if gGameOn then
6119 begin
6120 if g_Game_IsClient then
6121 MC_SEND_CheatRequest(NET_CHEAT_SUICIDE)
6122 else
6123 begin
6124 if gPlayer1 <> nil then
6125 gPlayer1.Damage(SUICIDE_DAMAGE, gPlayer1.UID, 0, 0, HIT_SELF);
6126 if gPlayer2 <> nil then
6127 gPlayer2.Damage(SUICIDE_DAMAGE, gPlayer2.UID, 0, 0, HIT_SELF);
6128 end;
6129 end;
6130 end
6131 else if cmd = 'spectate' then
6132 begin
6133 if not gGameOn then
6134 Exit;
6135 g_Game_Spectate();
6136 end
6137 else if cmd = 'say' then
6138 begin
6139 if g_Game_IsServer and g_Game_IsNet then
6140 begin
6141 if Length(P) > 1 then
6142 begin
6143 chstr := '';
6144 for a := 1 to High(P) do
6145 chstr := chstr + P[a] + ' ';
6146
6147 if Length(chstr) > 200 then SetLength(chstr, 200);
6148
6149 if Length(chstr) < 1 then
6150 begin
6151 g_Console_Add('say <text>');
6152 Exit;
6153 end;
6154
6155 chstr := b_Text_Format(chstr);
6156 MH_SEND_Chat(chstr, NET_CHAT_PLAYER);
6157 end
6158 else g_Console_Add('say <text>');
6159 end else
6160 g_Console_Add(_lc[I_MSG_SERVERONLY]);
6161 end
6162 else if cmd = 'tell' then
6163 begin
6164 if g_Game_IsServer and g_Game_IsNet then
6165 begin
6166 if (Length(P) > 2) and (P[1] <> '') then
6167 begin
6168 chstr := '';
6169 for a := 2 to High(P) do
6170 chstr := chstr + P[a] + ' ';
6171
6172 if Length(chstr) > 200 then SetLength(chstr, 200);
6173
6174 if Length(chstr) < 1 then
6175 begin
6176 g_Console_Add('tell <playername> <text>');
6177 Exit;
6178 end;
6179
6180 pl := g_Net_Client_ByName(P[1]);
6181 if pl <> nil then
6182 MH_SEND_Chat(b_Text_Format(chstr), NET_CHAT_PLAYER, pl^.ID)
6183 else
6184 g_Console_Add(Format(_lc[I_NET_ERR_NAME404], [P[1]]));
6185 end
6186 else g_Console_Add('tell <playername> <text>');
6187 end else
6188 g_Console_Add(_lc[I_MSG_SERVERONLY]);
6189 end
6190 else if (cmd = 'overtime') and not g_Game_IsClient then
6191 begin
6192 if (Length(P) = 1) or (StrToIntDef(P[1], -1) <= 0) then
6193 Exit;
6194 // Äîïîëíèòåëüíîå âðåìÿ:
6195 gGameSettings.TimeLimit := (gTime - gGameStartTime) div 1000 + Word(StrToIntDef(P[1], 0));
6196
6197 g_Console_Add(Format(_lc[I_MSG_TIME_LIMIT],
6198 [gGameSettings.TimeLimit div 3600,
6199 (gGameSettings.TimeLimit div 60) mod 60,
6200 gGameSettings.TimeLimit mod 60]));
6201 if g_Game_IsNet then MH_SEND_GameSettings;
6202 end
6203 else if (cmd = 'rcon_password') and g_Game_IsClient then
6204 begin
6205 if (Length(P) <= 1) then
6206 g_Console_Add('rcon_password <password>')
6207 else
6208 MC_SEND_RCONPassword(P[1]);
6209 end
6210 else if cmd = 'rcon' then
6211 begin
6212 if g_Game_IsClient then
6213 begin
6214 if Length(P) > 1 then
6215 begin
6216 chstr := '';
6217 for a := 1 to High(P) do
6218 chstr := chstr + P[a] + ' ';
6219
6220 if Length(chstr) > 200 then SetLength(chstr, 200);
6221
6222 if Length(chstr) < 1 then
6223 begin
6224 g_Console_Add('rcon <command>');
6225 Exit;
6226 end;
6227
6228 MC_SEND_RCONCommand(chstr);
6229 end
6230 else g_Console_Add('rcon <command>');
6231 end;
6232 end
6233 else if cmd = 'ready' then
6234 begin
6235 if g_Game_IsServer and (gLMSRespawn = LMS_RESPAWN_WARMUP) then
6236 gLMSRespawnTime := gTime + 100;
6237 end
6238 else if (cmd = 'callvote') and g_Game_IsNet then
6239 begin
6240 if Length(P) > 1 then
6241 begin
6242 chstr := '';
6243 for a := 1 to High(P) do begin
6244 if a > 1 then chstr := chstr + ' ';
6245 chstr := chstr + P[a];
6246 end;
6247
6248 if Length(chstr) > 200 then SetLength(chstr, 200);
6249
6250 if Length(chstr) < 1 then
6251 begin
6252 g_Console_Add('callvote <command>');
6253 Exit;
6254 end;
6255
6256 if g_Game_IsClient then
6257 MC_SEND_Vote(True, chstr)
6258 else
6259 g_Game_StartVote(chstr, gPlayer1Settings.Name);
6260 g_Console_Process('vote', True);
6261 end
6262 else
6263 g_Console_Add('callvote <command>');
6264 end
6265 else if (cmd = 'vote') and g_Game_IsNet then
6266 begin
6267 if g_Game_IsClient then
6268 MC_SEND_Vote(False)
6269 else if gVoteInProgress then
6270 begin
6271 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
6272 a := Floor((NetClientCount+1)/2.0) + 1
6273 else
6274 a := Floor(NetClientCount/2.0) + 1;
6275 if gVoted then
6276 begin
6277 Dec(gVoteCount);
6278 gVoted := False;
6279 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_REVOKED], [gPlayer1Settings.Name, gVoteCount, a]), True);
6280 MH_SEND_VoteEvent(NET_VE_REVOKE, gPlayer1Settings.Name, 'a', gVoteCount, a);
6281 end
6282 else
6283 begin
6284 Inc(gVoteCount);
6285 gVoted := True;
6286 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_VOTE], [gPlayer1Settings.Name, gVoteCount, a]), True);
6287 MH_SEND_VoteEvent(NET_VE_VOTE, gPlayer1Settings.Name, 'a', gVoteCount, a);
6288 g_Game_CheckVote;
6289 end;
6290 end;
6291 end
6292 end;
6293 end;
6294
6295 procedure g_TakeScreenShot();
6296 var
6297 a: Word;
6298 FileName: string;
6299 ssdir, t: string;
6300 st: TStream;
6301 ok: Boolean;
6302 begin
6303 if e_NoGraphics then Exit;
6304 ssdir := GameDir+'/screenshots';
6305 if not findFileCI(ssdir, true) then
6306 begin
6307 // try to create dir
6308 try
6309 CreateDir(ssdir);
6310 except
6311 end;
6312 if not findFileCI(ssdir, true) then exit; // alas
6313 end;
6314 try
6315 for a := 1 to High(Word) do
6316 begin
6317 FileName := Format(ssdir+'screenshot%.3d.png', [a]);
6318 t := FileName;
6319 if findFileCI(t, true) then continue;
6320 if not findFileCI(FileName) then
6321 begin
6322 ok := false;
6323 st := createDiskFile(FileName);
6324 try
6325 e_MakeScreenshot(st, gScreenWidth, gScreenHeight);
6326 ok := true;
6327 finally
6328 st.Free();
6329 end;
6330 if not ok then try DeleteFile(FileName); except end else g_Console_Add(Format(_lc[I_CONSOLE_SCREENSHOT], [ExtractFileName(FileName)]));
6331 break;
6332 end;
6333 end;
6334 except
6335 end;
6336 end;
6337
6338 procedure g_Game_InGameMenu(Show: Boolean);
6339 begin
6340 if (g_ActiveWindow = nil) and Show then
6341 begin
6342 if gGameSettings.GameType = GT_SINGLE then
6343 g_GUI_ShowWindow('GameSingleMenu')
6344 else
6345 begin
6346 if g_Game_IsClient then
6347 g_GUI_ShowWindow('GameClientMenu')
6348 else
6349 if g_Game_IsNet then
6350 g_GUI_ShowWindow('GameServerMenu')
6351 else
6352 g_GUI_ShowWindow('GameCustomMenu');
6353 end;
6354 g_Sound_PlayEx('MENU_OPEN');
6355
6356 // Ïàóçà ïðè ìåíþ òîëüêî â îäèíî÷íîé èãðå:
6357 if (not g_Game_IsNet) then
6358 g_Game_Pause(True);
6359 end
6360 else
6361 if (g_ActiveWindow <> nil) and (not Show) then
6362 begin
6363 // Ïàóçà ïðè ìåíþ òîëüêî â îäèíî÷íîé èãðå:
6364 if (not g_Game_IsNet) then
6365 g_Game_Pause(False);
6366 end;
6367 end;
6368
6369 procedure g_Game_Pause(Enable: Boolean);
6370 begin
6371 if not gGameOn then
6372 Exit;
6373
6374 if gPause = Enable then
6375 Exit;
6376
6377 if not (gGameSettings.GameType in [GT_SINGLE, GT_CUSTOM]) then
6378 Exit;
6379
6380 gPause := Enable;
6381 g_Game_PauseAllSounds(Enable);
6382 end;
6383
6384 procedure g_Game_PauseAllSounds(Enable: Boolean);
6385 var
6386 i: Integer;
6387 begin
6388 // Òðèããåðû:
6389 if gTriggers <> nil then
6390 for i := 0 to High(gTriggers) do
6391 with gTriggers[i] do
6392 if (TriggerType = TRIGGER_SOUND) and
6393 (Sound <> nil) and
6394 Sound.IsPlaying() then
6395 begin
6396 Sound.Pause(Enable);
6397 end;
6398
6399 // Çâóêè èãðîêîâ:
6400 if gPlayers <> nil then
6401 for i := 0 to High(gPlayers) do
6402 if gPlayers[i] <> nil then
6403 gPlayers[i].PauseSounds(Enable);
6404
6405 // Ìóçûêà:
6406 if gMusic <> nil then
6407 gMusic.Pause(Enable);
6408 end;
6409
6410 procedure g_Game_StopAllSounds(all: Boolean);
6411 var
6412 i: Integer;
6413 begin
6414 if gTriggers <> nil then
6415 for i := 0 to High(gTriggers) do
6416 with gTriggers[i] do
6417 if (TriggerType = TRIGGER_SOUND) and
6418 (Sound <> nil) then
6419 Sound.Stop();
6420
6421 if gMusic <> nil then
6422 gMusic.Stop();
6423
6424 if all then
6425 e_StopChannels();
6426 end;
6427
6428 procedure g_Game_UpdateTriggerSounds();
6429 var
6430 i: Integer;
6431 begin
6432 if gTriggers <> nil then
6433 for i := 0 to High(gTriggers) do
6434 with gTriggers[i] do
6435 if (TriggerType = TRIGGER_SOUND) and
6436 (Sound <> nil) and
6437 (Data.Local) and
6438 Sound.IsPlaying() then
6439 begin
6440 if ((gPlayer1 <> nil) and g_CollidePoint(gPlayer1.GameX, gPlayer1.GameY, X, Y, Width, Height)) or
6441 ((gPlayer2 <> nil) and g_CollidePoint(gPlayer2.GameX, gPlayer2.GameY, X, Y, Width, Height)) then
6442 begin
6443 Sound.SetPan(0.5 - Data.Pan/255.0);
6444 Sound.SetVolume(Data.Volume/255.0);
6445 end
6446 else
6447 Sound.SetCoords(X+(Width div 2), Y+(Height div 2), Data.Volume/255.0);
6448 end;
6449 end;
6450
6451 function g_Game_IsWatchedPlayer(UID: Word): Boolean;
6452 begin
6453 Result := False;
6454 if (gPlayer1 <> nil) and (gPlayer1.UID = UID) then
6455 begin
6456 Result := True;
6457 Exit;
6458 end;
6459 if (gPlayer2 <> nil) and (gPlayer2.UID = UID) then
6460 begin
6461 Result := True;
6462 Exit;
6463 end;
6464 if gSpectMode <> SPECT_PLAYERS then
6465 Exit;
6466 if gSpectPID1 = UID then
6467 begin
6468 Result := True;
6469 Exit;
6470 end;
6471 if gSpectViewTwo and (gSpectPID2 = UID) then
6472 begin
6473 Result := True;
6474 Exit;
6475 end;
6476 end;
6477
6478 function g_Game_IsWatchedTeam(Team: Byte): Boolean;
6479 var
6480 Pl: TPlayer;
6481 begin
6482 Result := False;
6483 if (gPlayer1 <> nil) and (gPlayer1.Team = Team) then
6484 begin
6485 Result := True;
6486 Exit;
6487 end;
6488 if (gPlayer2 <> nil) and (gPlayer2.Team = Team) then
6489 begin
6490 Result := True;
6491 Exit;
6492 end;
6493 if gSpectMode <> SPECT_PLAYERS then
6494 Exit;
6495 Pl := g_Player_Get(gSpectPID1);
6496 if (Pl <> nil) and (Pl.Team = Team) then
6497 begin
6498 Result := True;
6499 Exit;
6500 end;
6501 if gSpectViewTwo then
6502 begin
6503 Pl := g_Player_Get(gSpectPID2);
6504 if (Pl <> nil) and (Pl.Team = Team) then
6505 begin
6506 Result := True;
6507 Exit;
6508 end;
6509 end;
6510 end;
6511
6512 procedure g_Game_Message(Msg: string; Time: Word);
6513 begin
6514 MessageText := b_Text_Format(Msg);
6515 MessageTime := Time;
6516 end;
6517
6518 procedure g_Game_Announce_GoodShot(SpawnerUID: Word);
6519 var
6520 a: Integer;
6521 begin
6522 case gAnnouncer of
6523 ANNOUNCE_NONE:
6524 Exit;
6525 ANNOUNCE_ME,
6526 ANNOUNCE_MEPLUS:
6527 if not g_Game_IsWatchedPlayer(SpawnerUID) then
6528 Exit;
6529 end;
6530 for a := 0 to 3 do
6531 if goodsnd[a].IsPlaying() then
6532 Exit;
6533
6534 goodsnd[Random(4)].Play();
6535 end;
6536
6537 procedure g_Game_Announce_KillCombo(Param: Integer);
6538 var
6539 UID: Word;
6540 c, n: Byte;
6541 Pl: TPlayer;
6542 Name: String;
6543 begin
6544 UID := Param and $FFFF;
6545 c := Param shr 16;
6546 if c < 2 then
6547 Exit;
6548
6549 Pl := g_Player_Get(UID);
6550 if Pl = nil then
6551 Name := '?'
6552 else
6553 Name := Pl.Name;
6554
6555 case c of
6556 2: begin
6557 n := 0;
6558 g_Console_Add(Format(_lc[I_PLAYER_KILL_2X], [Name]), True);
6559 end;
6560 3: begin
6561 n := 1;
6562 g_Console_Add(Format(_lc[I_PLAYER_KILL_3X], [Name]), True);
6563 end;
6564 4: begin
6565 n := 2;
6566 g_Console_Add(Format(_lc[I_PLAYER_KILL_4X], [Name]), True);
6567 end;
6568 else begin
6569 n := 3;
6570 g_Console_Add(Format(_lc[I_PLAYER_KILL_MX], [Name]), True);
6571 end;
6572 end;
6573
6574 case gAnnouncer of
6575 ANNOUNCE_NONE:
6576 Exit;
6577 ANNOUNCE_ME:
6578 if not g_Game_IsWatchedPlayer(UID) then
6579 Exit;
6580 ANNOUNCE_MEPLUS:
6581 if (not g_Game_IsWatchedPlayer(UID)) and (c < 4) then
6582 Exit;
6583 end;
6584
6585 if killsnd[n].IsPlaying() then
6586 killsnd[n].Stop();
6587 killsnd[n].Play();
6588 end;
6589
6590 procedure g_Game_StartVote(Command, Initiator: string);
6591 var
6592 Need: Integer;
6593 begin
6594 if not gVotesEnabled then Exit;
6595 if gGameSettings.GameType <> GT_SERVER then Exit;
6596 if gVoteInProgress or gVotePassed then
6597 begin
6598 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_INPROGRESS], [gVoteCommand]), True);
6599 MH_SEND_VoteEvent(NET_VE_INPROGRESS, gVoteCommand);
6600 Exit;
6601 end;
6602 gVoteInProgress := True;
6603 gVotePassed := False;
6604 gVoteTimer := gTime + gVoteTimeout * 1000;
6605 gVoteCount := 0;
6606 gVoted := False;
6607 gVoteCommand := Command;
6608
6609 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
6610 Need := Floor((NetClientCount+1)/2.0)+1
6611 else
6612 Need := Floor(NetClientCount/2.0)+1;
6613 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_STARTED], [Initiator, Command, Need]), True);
6614 MH_SEND_VoteEvent(NET_VE_STARTED, Initiator, Command, Need);
6615 end;
6616
6617 procedure g_Game_CheckVote;
6618 var
6619 I, Need: Integer;
6620 begin
6621 if gGameSettings.GameType <> GT_SERVER then Exit;
6622 if not gVoteInProgress then Exit;
6623
6624 if (gTime >= gVoteTimer) then
6625 begin
6626 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
6627 Need := Floor((NetClientCount+1)/2.0) + 1
6628 else
6629 Need := Floor(NetClientCount/2.0) + 1;
6630 if gVoteCount >= Need then
6631 begin
6632 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_PASSED], [gVoteCommand]), True);
6633 MH_SEND_VoteEvent(NET_VE_PASSED, gVoteCommand);
6634 gVotePassed := True;
6635 gVoteCmdTimer := gTime + 5000;
6636 end
6637 else
6638 begin
6639 g_Console_Add(_lc[I_MESSAGE_VOTE_FAILED], True);
6640 MH_SEND_VoteEvent(NET_VE_FAILED);
6641 end;
6642 if NetClients <> nil then
6643 for I := Low(NetClients) to High(NetClients) do
6644 if NetClients[i].Used then
6645 NetClients[i].Voted := False;
6646 gVoteInProgress := False;
6647 gVoted := False;
6648 gVoteCount := 0;
6649 end
6650 else
6651 begin
6652 if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
6653 Need := Floor((NetClientCount+1)/2.0) + 1
6654 else
6655 Need := Floor(NetClientCount/2.0) + 1;
6656 if gVoteCount >= Need then
6657 begin
6658 g_Console_Add(Format(_lc[I_MESSAGE_VOTE_PASSED], [gVoteCommand]), True);
6659 MH_SEND_VoteEvent(NET_VE_PASSED, gVoteCommand);
6660 gVoteInProgress := False;
6661 gVotePassed := True;
6662 gVoteCmdTimer := gTime + 5000;
6663 gVoted := False;
6664 gVoteCount := 0;
6665 if NetClients <> nil then
6666 for I := Low(NetClients) to High(NetClients) do
6667 if NetClients[i].Used then
6668 NetClients[i].Voted := False;
6669 end;
6670 end;
6671 end;
6672
6673 procedure g_Game_LoadMapList(FileName: string);
6674 var
6675 ListFile: TextFile;
6676 s: string;
6677 begin
6678 MapList := nil;
6679 MapIndex := -1;
6680
6681 if not FileExists(FileName) then Exit;
6682
6683 AssignFile(ListFile, FileName);
6684 Reset(ListFile);
6685 while not EOF(ListFile) do
6686 begin
6687 ReadLn(ListFile, s);
6688
6689 s := Trim(s);
6690 if s = '' then Continue;
6691
6692 SetLength(MapList, Length(MapList)+1);
6693 MapList[High(MapList)] := s;
6694 end;
6695 CloseFile(ListFile);
6696 end;
6697
6698 procedure g_Game_SetDebugMode();
6699 begin
6700 gDebugMode := True;
6701 // ×èòû (äàæå â ñâîåé èãðå):
6702 gCheats := True;
6703 end;
6704
6705 procedure g_Game_SetLoadingText(Text: String; Max: Integer; reWrite: Boolean);
6706 var
6707 i: Word;
6708 begin
6709 if Length(LoadingStat.Msgs) = 0 then
6710 Exit;
6711
6712 with LoadingStat do
6713 begin
6714 if not reWrite then
6715 begin // Ïåðåõîäèì íà ñëåäóþùóþ ñòðîêó èëè ñêðîëëèðóåì:
6716 if NextMsg = Length(Msgs) then
6717 begin // scroll
6718 for i := 0 to High(Msgs)-1 do
6719 Msgs[i] := Msgs[i+1];
6720 end
6721 else
6722 Inc(NextMsg);
6723 end else
6724 if NextMsg = 0 then
6725 Inc(NextMsg);
6726
6727 Msgs[NextMsg-1] := Text;
6728 CurValue := 0;
6729 MaxValue := Max;
6730 ShowCount := 0;
6731 end;
6732
6733 g_ActiveWindow := nil;
6734
6735 ProcessLoading;
6736 end;
6737
6738 procedure g_Game_StepLoading();
6739 begin
6740 with LoadingStat do
6741 begin
6742 Inc(CurValue);
6743 Inc(ShowCount);
6744 if (ShowCount > LOADING_SHOW_STEP) then
6745 begin
6746 ShowCount := 0;
6747 ProcessLoading;
6748 end;
6749 end;
6750 end;
6751
6752 procedure g_Game_ClearLoading();
6753 var
6754 len: Word;
6755 begin
6756 with LoadingStat do
6757 begin
6758 CurValue := 0;
6759 MaxValue := 0;
6760 ShowCount := 0;
6761 len := ((gScreenHeight div 3)*2 - 50) div LOADING_INTERLINE;
6762 if len < 1 then len := 1;
6763 SetLength(Msgs, len);
6764 for len := Low(Msgs) to High(Msgs) do
6765 Msgs[len] := '';
6766 NextMsg := 0;
6767 end;
6768 end;
6769
6770 procedure Parse_Params(var pars: TParamStrValues);
6771 var
6772 i: Integer;
6773 s: String;
6774 begin
6775 SetLength(pars, 0);
6776 i := 1;
6777 while i <= ParamCount do
6778 begin
6779 s := ParamStr(i);
6780 if (s[1] = '-') and (Length(s) > 1) then
6781 begin
6782 if (s[2] = '-') and (Length(s) > 2) then
6783 begin // Îäèíî÷íûé ïàðàìåòð
6784 SetLength(pars, Length(pars) + 1);
6785 with pars[High(pars)] do
6786 begin
6787 Name := LowerCase(s);
6788 Value := '+';
6789 end;
6790 end
6791 else
6792 if (i < ParamCount) then
6793 begin // Ïàðàìåòð ñî çíà÷åíèåì
6794 Inc(i);
6795 SetLength(pars, Length(pars) + 1);
6796 with pars[High(pars)] do
6797 begin
6798 Name := LowerCase(s);
6799 Value := LowerCase(ParamStr(i));
6800 end;
6801 end;
6802 end;
6803
6804 Inc(i);
6805 end;
6806 end;
6807
6808 function Find_Param_Value(var pars: TParamStrValues; aName: String): String;
6809 var
6810 i: Integer;
6811 begin
6812 Result := '';
6813 for i := 0 to High(pars) do
6814 if pars[i].Name = aName then
6815 begin
6816 Result := pars[i].Value;
6817 Break;
6818 end;
6819 end;
6820
6821 procedure g_Game_Process_Params();
6822 var
6823 pars: TParamStrValues;
6824 map: String;
6825 GMode, n: Byte;
6826 LimT, LimS: Integer;
6827 Opt: LongWord;
6828 Lives: Integer;
6829 s: String;
6830 Port: Integer;
6831 ip: String;
6832 F: TextFile;
6833 begin
6834 Parse_Params(pars);
6835
6836 s := Find_Param_Value(pars, '--profile-render');
6837 if (s <> '') then g_profile_frame_draw := true;
6838
6839 s := Find_Param_Value(pars, '--profile-coldet');
6840 if (s <> '') then g_profile_collision := true;
6841
6842 // Debug mode:
6843 s := Find_Param_Value(pars, '--debug');
6844 if (s <> '') then
6845 begin
6846 g_Game_SetDebugMode();
6847 s := Find_Param_Value(pars, '--netdump');
6848 if (s <> '') then
6849 NetDump := True;
6850 end;
6851
6852 // Connect when game loads
6853 ip := Find_Param_Value(pars, '-connect');
6854
6855 if ip <> '' then
6856 begin
6857 s := Find_Param_Value(pars, '-port');
6858 if (s = '') or not TryStrToInt(s, Port) then
6859 Port := 25666;
6860
6861 s := Find_Param_Value(pars, '-pw');
6862
6863 g_Game_StartClient(ip, Port, s);
6864 Exit;
6865 end;
6866
6867 s := LowerCase(Find_Param_Value(pars, '-dbg-mainwad'));
6868 if (s <> '') then
6869 begin
6870 gDefaultMegawadStart := s;
6871 end;
6872
6873 if (Find_Param_Value(pars, '--dbg-mainwad-restore') <> '') or
6874 (Find_Param_Value(pars, '--dbg-mainwad-default') <> '') then
6875 begin
6876 gDefaultMegawadStart := DF_Default_Megawad_Start;
6877 end;
6878
6879 // Start map when game loads:
6880 map := LowerCase(Find_Param_Value(pars, '-map'));
6881 if isWadPath(map) then
6882 begin
6883 // Game mode:
6884 s := Find_Param_Value(pars, '-gm');
6885 GMode := g_Game_TextToMode(s);
6886 if GMode = GM_NONE then GMode := GM_DM;
6887 if GMode = GM_SINGLE then GMode := GM_COOP;
6888
6889 // Time limit:
6890 s := Find_Param_Value(pars, '-limt');
6891 if (s = '') or (not TryStrToInt(s, LimT)) then
6892 LimT := 0;
6893 if LimT < 0 then
6894 LimT := 0;
6895
6896 // Goal limit:
6897 s := Find_Param_Value(pars, '-lims');
6898 if (s = '') or (not TryStrToInt(s, LimS)) then
6899 LimS := 0;
6900 if LimS < 0 then
6901 LimS := 0;
6902
6903 // Lives limit:
6904 s := Find_Param_Value(pars, '-lives');
6905 if (s = '') or (not TryStrToInt(s, Lives)) then
6906 Lives := 0;
6907 if Lives < 0 then
6908 Lives := 0;
6909
6910 // Options:
6911 s := Find_Param_Value(pars, '-opt');
6912 if (s = '') then
6913 Opt := GAME_OPTION_ALLOWEXIT or GAME_OPTION_BOTVSPLAYER or GAME_OPTION_BOTVSMONSTER
6914 else
6915 Opt := StrToIntDef(s, 0);
6916 if Opt = 0 then
6917 Opt := GAME_OPTION_ALLOWEXIT or GAME_OPTION_BOTVSPLAYER or GAME_OPTION_BOTVSMONSTER;
6918
6919 // Close after map:
6920 s := Find_Param_Value(pars, '--close');
6921 if (s <> '') then
6922 gMapOnce := True;
6923
6924 // Delete test map after play:
6925 s := Find_Param_Value(pars, '--testdelete');
6926 if (s <> '') then
6927 begin
6928 gMapToDelete := MapsDir + map;
6929 e_WriteLog('"--testdelete" is deprecated, use --tempdelete.', MSG_FATALERROR);
6930 Halt(1);
6931 end;
6932
6933 // Delete temporary WAD after play:
6934 s := Find_Param_Value(pars, '--tempdelete');
6935 if (s <> '') then
6936 begin
6937 gMapToDelete := MapsDir + map;
6938 gTempDelete := True;
6939 end;
6940
6941 // Number of players:
6942 s := Find_Param_Value(pars, '-pl');
6943 if (s = '') then
6944 n := 1
6945 else
6946 n := StrToIntDef(s, 1);
6947
6948 // Start:
6949 s := Find_Param_Value(pars, '-port');
6950 if (s = '') or not TryStrToInt(s, Port) then
6951 g_Game_StartCustom(map, GMode, LimT, LimS, Lives, Opt, n)
6952 else
6953 g_Game_StartServer(map, GMode, LimT, LimS, Lives, Opt, n, 0, Port);
6954 end;
6955
6956 // Execute script when game loads:
6957 s := Find_Param_Value(pars, '-exec');
6958 if s <> '' then
6959 begin
6960 if Pos(':\', s) = 0 then
6961 s := GameDir + '/' + s;
6962
6963 {$I-}
6964 AssignFile(F, s);
6965 Reset(F);
6966 if IOResult <> 0 then
6967 begin
6968 e_WriteLog(Format(_lc[I_SIMPLE_ERROR], ['Failed to read file: ' + s]), MSG_WARNING);
6969 g_Console_Add(Format(_lc[I_CONSOLE_ERROR_READ], [s]));
6970 CloseFile(F);
6971 Exit;
6972 end;
6973 e_WriteLog('Executing script: ' + s, MSG_NOTIFY);
6974 g_Console_Add(Format(_lc[I_CONSOLE_EXEC], [s]));
6975
6976 while not EOF(F) do
6977 begin
6978 ReadLn(F, s);
6979 if IOResult <> 0 then
6980 begin
6981 e_WriteLog(Format(_lc[I_SIMPLE_ERROR], ['Failed to read file: ' + s]), MSG_WARNING);
6982 g_Console_Add(Format(_lc[I_CONSOLE_ERROR_READ], [s]));
6983 CloseFile(F);
6984 Exit;
6985 end;
6986 if Pos('#', s) <> 1 then // script comment
6987 g_Console_Process(s, True);
6988 end;
6989
6990 CloseFile(F);
6991 {$I+}
6992 end;
6993
6994 SetLength(pars, 0);
6995 end;
6996
6997 end.
[MIRROR] a port of Doom 2D Forever to FPC/SDL
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024