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