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
1443   function sendMonsPos (monidx: Integer; mon: TMonster): Boolean;
1444   begin
1445     result := false; // don't stop
1446     if (mon.MonsterType = MONSTER_BARREL) then
1447     begin
1448       if (mon.GameVelX <> 0) or (mon.GameVelY <> 0) then MH_SEND_MonsterPos(mon.UID);
1449     end
1450     else
1451       if (mon.MonsterState <> MONSTATE_SLEEP) then
1452       begin
1453         if (mon.MonsterState <> MONSTATE_DEAD) or (mon.GameVelX <> 0) or (mon.GameVelY <> 0) then
1454         begin
1455           MH_SEND_MonsterPos(mon.UID);
1456         end;
1457       end;
1458   end;
1459
1460 begin
1461   g_ResetDynlights();
1462 // Ïîðà âûêëþ÷àòü èãðó:
1463   if gExit = EXIT_QUIT then
1464     Exit;
1465 // Èãðà çàêîí÷èëàñü - îáðàáàòûâàåì:
1466   if gExit <> 0 then
1467   begin
1468     EndGame();
1469     if gExit = EXIT_QUIT then
1470       Exit;
1471   end;
1472
1473 // ×èòàåì êëàâèàòóðó è äæîéñòèê, åñëè îêíî àêòèâíî:
1474   e_PollInput();
1475
1476 // Îáíîâëÿåì êîíñîëü (äâèæåíèå è ñîîáùåíèÿ):
1477   g_Console_Update();
1478
1479   if (NetMode = NET_NONE) and (g_Game_IsNet) and (gGameOn or (gState in [STATE_FOLD, STATE_INTERCUSTOM])) then
1480   begin
1481     gExit := EXIT_SIMPLE;
1482     EndGame();
1483     Exit;
1484   end;
1485
1486   case gState of
1487     STATE_INTERSINGLE, // Ñòàòèñòêà ïîñëå ïðîõîæäåíèÿ óðîâíÿ â Îäèíî÷íîé èãðå
1488     STATE_INTERCUSTOM, // Ñòàòèñòêà ïîñëå ïðîõîæäåíèÿ óðîâíÿ â Ñâîåé èãðå
1489     STATE_INTERTEXT, // Òåêñò ìåæäó óðîâíÿìè
1490     STATE_INTERPIC: // Êàðòèíêà ìåæäó óðîâíÿìè
1491       begin
1492         if g_Game_IsNet and g_Game_IsServer then
1493         begin
1494           gInterTime := gInterTime + GAME_TICK;
1495           a := Min((gInterEndTime - gInterTime) div 1000 + 1, 255);
1496           if a <> gServInterTime then
1497           begin
1498             gServInterTime := a;
1499             MH_SEND_TimeSync(gServInterTime);
1500           end;
1501         end;
1502
1503         if (not g_Game_IsClient) and
1504         (
1505           (
1506             (e_KeyPressed(IK_RETURN) or e_KeyPressed(IK_KPRETURN) or e_KeyPressed(IK_SPACE))
1507             and (not gJustChatted) and (not gConsoleShow) and (not gChatShow)
1508             and (g_ActiveWindow = nil)
1509           )
1510           or (g_Game_IsNet and (gInterTime > gInterEndTime))
1511         )
1512         then
1513         begin // Íàæàëè <Enter>/<Ïðîáåë> èëè ïðîøëî äîñòàòî÷íî âðåìåíè:
1514           g_Game_StopAllSounds(True);
1515
1516           if gMapOnce then // Ýòî áûë òåñò
1517             gExit := EXIT_SIMPLE
1518           else
1519             if gNextMap <> '' then // Ïåðåõîäèì íà ñëåäóþùóþ êàðòó
1520               g_Game_ChangeMap(gNextMap)
1521             else // Ñëåäóþùåé êàðòû íåò
1522             begin
1523               if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER] then
1524               begin
1525               // Âûõîä â ãëàâíîå ìåíþ:
1526                 g_Game_Free;
1527                 g_GUI_ShowWindow('MainMenu');
1528                 gMusic.SetByName('MUSIC_MENU');
1529                 gMusic.Play();
1530                 gState := STATE_MENU;
1531               end else
1532               begin
1533               // Ôèíàëüíàÿ êàðòèíêà:
1534                 g_Game_ExecuteEvent('onwadend');
1535                 g_Game_Free();
1536                 if not gMusic.SetByName('MUSIC_endmus') then
1537                   gMusic.SetByName('MUSIC_STDENDMUS');
1538                 gMusic.Play();
1539                 gState := STATE_ENDPIC;
1540               end;
1541               g_Game_ExecuteEvent('ongameend');
1542             end;
1543
1544           Exit;
1545         end;
1546
1547         if gState = STATE_INTERTEXT then
1548           if InterText.counter > 0 then
1549             InterText.counter := InterText.counter - 1;
1550       end;
1551
1552     STATE_FOLD: // Çàòóõàíèå ýêðàíà
1553       begin
1554         if EndingGameCounter = 0 then
1555           begin
1556           // Çàêîí÷èëñÿ óðîâåíü â Ñâîåé èãðå:
1557             if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT] then
1558               begin
1559                 if gLastMap and (gGameSettings.GameMode = GM_COOP) then
1560                 begin
1561                   g_Game_ExecuteEvent('onwadend');
1562                   if not gMusic.SetByName('MUSIC_endmus') then
1563                     gMusic.SetByName('MUSIC_STDENDMUS');
1564                 end
1565                 else
1566                   gMusic.SetByName('MUSIC_ROUNDMUS');
1567
1568                 gMusic.Play();
1569                 gState := STATE_INTERCUSTOM;
1570               end
1571             else // Çàêîí÷èëàñü ïîñëåäíÿÿ êàðòà â Îäèíî÷íîé èãðå
1572               begin
1573                 gMusic.SetByName('MUSIC_INTERMUS');
1574                 gMusic.Play();
1575                 gState := STATE_INTERSINGLE;
1576               end;
1577             g_Game_ExecuteEvent('oninter');
1578           end
1579         else
1580           DecMin(EndingGameCounter, 6, 0);
1581       end;
1582
1583     STATE_ENDPIC: // Êàðòèíêà îêîí÷àíèÿ ìåãàÂàäà
1584       begin
1585         if gMapOnce then // Ýòî áûë òåñò
1586         begin
1587           gExit := EXIT_SIMPLE;
1588           Exit;
1589         end;
1590       end;
1591
1592     STATE_SLIST:
1593         g_Serverlist_Control(slCurrent);
1594   end;
1595
1596   if g_Game_IsNet then
1597     if not gConsoleShow then
1598       if not gChatShow then
1599       begin
1600         if g_ActiveWindow = nil then
1601         begin
1602           if e_KeyPressed(gGameControls.GameControls.Chat) then
1603             g_Console_Chat_Switch(False)
1604           else if (e_KeyPressed(gGameControls.GameControls.TeamChat)) and
1605                   (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
1606             g_Console_Chat_Switch(True);
1607         end;
1608       end else
1609         if not gChatEnter then
1610           if (not e_KeyPressed(gGameControls.GameControls.Chat))
1611              and (not e_KeyPressed(gGameControls.GameControls.TeamChat)) then
1612             gChatEnter := True;
1613
1614 // Ñòàòèñòèêà ïî Tab:
1615   if gGameOn then
1616     IsDrawStat := (not gConsoleShow) and (not gChatShow) and
1617                   (gGameSettings.GameType <> GT_SINGLE) and
1618                   e_KeyPressed(gGameControls.GameControls.Stat);
1619
1620 // Èãðà èäåò:
1621   if gGameOn and not gPause and (gState <> STATE_FOLD) then
1622   begin
1623   // Âðåìÿ += 28 ìèëëèñåêóíä:
1624     gTime := gTime + GAME_TICK;
1625
1626   // Ñîîáùåíèå ïîñåðåäèíå ýêðàíà:
1627     if MessageTime = 0 then
1628       MessageText := '';
1629     if MessageTime > 0 then
1630       MessageTime := MessageTime - 1;
1631
1632     if (g_Game_IsServer) then
1633     begin
1634     // Áûë çàäàí ëèìèò âðåìåíè:
1635       if (gGameSettings.TimeLimit > 0) then
1636         if (gTime - gGameStartTime) div 1000 >= gGameSettings.TimeLimit then
1637         begin // Îí ïðîøåë => êîíåö óðîâíÿ
1638           g_Game_NextLevel();
1639           Exit;
1640         end;
1641
1642     // Íàäî ðåñïàâíèòü èãðîêîâ â LMS:
1643       if (gLMSRespawn > LMS_RESPAWN_NONE) and (gLMSRespawnTime < gTime) then
1644         g_Game_RestartRound(gLMSSoftSpawn);
1645
1646     // Ïðîâåðèì ðåçóëüòàò ãîëîñîâàíèÿ, åñëè âðåìÿ ïðîøëî
1647       if gVoteInProgress and (gVoteTimer < gTime) then
1648         g_Game_CheckVote
1649       else if gVotePassed and (gVoteCmdTimer < gTime) then
1650       begin
1651         g_Console_Process(gVoteCommand);
1652         gVoteCommand := '';
1653         gVotePassed := False;
1654       end;
1655
1656     // Çàìåðÿåì âðåìÿ çàõâàòà ôëàãîâ
1657       if gFlags[FLAG_RED].State = FLAG_STATE_CAPTURED then
1658         gFlags[FLAG_RED].CaptureTime := gFlags[FLAG_RED].CaptureTime + GAME_TICK;
1659       if gFlags[FLAG_BLUE].State = FLAG_STATE_CAPTURED then
1660         gFlags[FLAG_BLUE].CaptureTime := gFlags[FLAG_BLUE].CaptureTime + GAME_TICK;
1661
1662     // Áûë çàäàí ëèìèò ïîáåä:
1663       if (gGameSettings.GoalLimit > 0) then
1664       begin
1665         b := 0;
1666
1667         if gGameSettings.GameMode = GM_DM then
1668           begin // Â DM èùåì èãðîêà ñ max ôðàãàìè
1669             for i := 0 to High(gPlayers) do
1670               if gPlayers[i] <> nil then
1671                 if gPlayers[i].Frags > b then
1672                   b := gPlayers[i].Frags;
1673           end
1674         else
1675           if gGameSettings.GameMode in [GM_TDM, GM_CTF] then
1676           begin // Â CTF/TDM âûáèðàåì êîìàíäó ñ íàèáîëüøèì ñ÷åòîì
1677             b := Max(gTeamStat[TEAM_RED].Goals, gTeamStat[TEAM_BLUE].Goals);
1678           end;
1679
1680       // Ëèìèò ïîáåä íàáðàí => êîíåö óðîâíÿ:
1681         if b >= gGameSettings.GoalLimit then
1682         begin
1683           g_Game_NextLevel();
1684           Exit;
1685         end;
1686       end;
1687
1688     // Îáðàáàòûâàåì êëàâèøè èãðîêîâ:
1689       if gPlayer1 <> nil then gPlayer1.ReleaseKeys();
1690       if gPlayer2 <> nil then gPlayer2.ReleaseKeys();
1691       if (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
1692       begin
1693         processPlayerControls(gPlayer1, gGameControls.P1Control, P1MoveButton);
1694         processPlayerControls(gPlayer2, gGameControls.P2Control, P2MoveButton, true);
1695       end  // if not console
1696       else
1697       begin
1698         if g_Game_IsNet and (gPlayer1 <> nil) then gPlayer1.PressKey(KEY_CHAT, 10000);
1699       end;
1700       // process weapon switch queue
1701     end; // if server
1702
1703   // Íàáëþäàòåëü
1704     if (gPlayer1 = nil) and (gPlayer2 = nil) and
1705        (not gConsoleShow) and (not gChatShow) and (g_ActiveWindow = nil) then
1706     begin
1707       if not gSpectKeyPress then
1708       begin
1709         if isKeyPressed(gGameControls.P1Control.KeyJump, gGameControls.P1Control.KeyJump2) then
1710         begin
1711           // switch spect mode
1712           case gSpectMode of
1713             SPECT_NONE: ; // not spectator
1714             SPECT_STATS,
1715             SPECT_MAPVIEW: Inc(gSpectMode);
1716             SPECT_PLAYERS: gSpectMode := SPECT_STATS; // reset to 1
1717           end;
1718           gSpectKeyPress := True;
1719         end;
1720         if gSpectMode = SPECT_MAPVIEW then
1721         begin
1722           if isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2) then
1723             gSpectX := Max(gSpectX - gSpectStep, 0);
1724           if isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2) then
1725             gSpectX := Min(gSpectX + gSpectStep, gMapInfo.Width - gScreenWidth);
1726           if isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2) then
1727             gSpectY := Max(gSpectY - gSpectStep, 0);
1728           if isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2) then
1729             gSpectY := Min(gSpectY + gSpectStep, gMapInfo.Height - gScreenHeight);
1730           if isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2) then
1731           begin
1732             // decrease step
1733             if gSpectStep > 4 then gSpectStep := gSpectStep shr 1;
1734             gSpectKeyPress := True;
1735           end;
1736           if isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2) then
1737           begin
1738             // increase step
1739             if gSpectStep < 64 then gSpectStep := gSpectStep shl 1;
1740             gSpectKeyPress := True;
1741           end;
1742         end;
1743         if gSpectMode = SPECT_PLAYERS then
1744         begin
1745           if isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2) then
1746           begin
1747             // add second view
1748             gSpectViewTwo := True;
1749             gSpectKeyPress := True;
1750           end;
1751           if isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2) then
1752           begin
1753             // remove second view
1754             gSpectViewTwo := False;
1755             gSpectKeyPress := True;
1756           end;
1757           if isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2) then
1758           begin
1759             // prev player (view 1)
1760             gSpectPID1 := GetActivePlayerID_Prev(gSpectPID1);
1761             gSpectKeyPress := True;
1762           end;
1763           if isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2) then
1764           begin
1765             // next player (view 1)
1766             gSpectPID1 := GetActivePlayerID_Next(gSpectPID1);
1767             gSpectKeyPress := True;
1768           end;
1769           if isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2) then
1770           begin
1771             // prev player (view 2)
1772             gSpectPID2 := GetActivePlayerID_Prev(gSpectPID2);
1773             gSpectKeyPress := True;
1774           end;
1775           if isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2) then
1776           begin
1777             // next player (view 2)
1778             gSpectPID2 := GetActivePlayerID_Next(gSpectPID2);
1779             gSpectKeyPress := True;
1780           end;
1781         end;
1782       end
1783       else
1784         if (not isKeyPressed(gGameControls.P1Control.KeyJump, gGameControls.P1Control.KeyJump2)) and
1785            (not isKeyPressed(gGameControls.P1Control.KeyLeft, gGameControls.P1Control.KeyLeft2)) and
1786            (not isKeyPressed(gGameControls.P1Control.KeyRight, gGameControls.P1Control.KeyRight2)) and
1787            (not isKeyPressed(gGameControls.P1Control.KeyUp, gGameControls.P1Control.KeyUp2)) and
1788            (not isKeyPressed(gGameControls.P1Control.KeyDown, gGameControls.P1Control.KeyDown2)) and
1789            (not isKeyPressed(gGameControls.P1Control.KeyPrevWeapon, gGameControls.P1Control.KeyPrevWeapon2)) and
1790            (not isKeyPressed(gGameControls.P1Control.KeyNextWeapon, gGameControls.P1Control.KeyNextWeapon2)) then
1791           gSpectKeyPress := False;
1792     end;
1793
1794   // Îáíîâëÿåì âñå îñòàëüíîå:
1795     g_Map_Update();
1796     g_Items_Update();
1797     g_Triggers_Update();
1798     g_Weapon_Update();
1799     g_Monsters_Update();
1800     g_GFX_Update();
1801     g_Player_UpdateAll();
1802     g_Player_UpdatePhysicalObjects();
1803     if gGameSettings.GameType = GT_SERVER then
1804       if Length(gMonstersSpawned) > 0 then
1805       begin
1806         for I := 0 to High(gMonstersSpawned) do
1807           MH_SEND_MonsterSpawn(gMonstersSpawned[I]);
1808         SetLength(gMonstersSpawned, 0);
1809       end;
1810
1811     if (gSoundTriggerTime > 8) then
1812     begin
1813       g_Game_UpdateTriggerSounds();
1814       gSoundTriggerTime := 0;
1815     end
1816     else
1817       Inc(gSoundTriggerTime);
1818
1819     if (NetMode = NET_SERVER) then
1820     begin
1821       Inc(NetTimeToUpdate);
1822       Inc(NetTimeToReliable);
1823       if NetTimeToReliable >= NetRelupdRate then
1824       begin
1825         for I := 0 to High(gPlayers) do
1826           if gPlayers[I] <> nil then
1827             MH_SEND_PlayerPos(True, gPlayers[I].UID);
1828
1829         g_Mons_ForEach(sendMonsPos);
1830
1831         NetTimeToReliable := 0;
1832         NetTimeToUpdate := NetUpdateRate;
1833       end
1834       else if NetTimeToUpdate >= NetUpdateRate then
1835       begin
1836         if gPlayers <> nil then
1837           for I := 0 to High(gPlayers) do
1838             if gPlayers[I] <> nil then
1839               MH_SEND_PlayerPos(False, gPlayers[I].UID);
1840
1841         g_Mons_ForEach(sendMonsPos);
1842
1843         NetTimeToUpdate := 0;
1844       end;
1845
1846       if NetUseMaster then
1847         if gTime >= NetTimeToMaster then
1848         begin
1849           if (NetMHost = nil) or (NetMPeer = nil) then
1850             if not g_Net_Slist_Connect then
1851               g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
1852
1853           g_Net_Slist_Update;
1854           NetTimeToMaster := gTime + NetMasterRate;
1855         end;
1856     end
1857     else
1858       if NetMode = NET_CLIENT then
1859         MC_SEND_PlayerPos();
1860   end; // if gameOn ...
1861
1862 // Àêòèâíî îêíî èíòåðôåéñà - ïåðåäàåì êëàâèøè åìó:
1863   if g_ActiveWindow <> nil then
1864   begin
1865     w := e_GetFirstKeyPressed();
1866
1867     if (w <> IK_INVALID) then
1868       begin
1869         Msg.Msg := MESSAGE_DIKEY;
1870         Msg.wParam := w;
1871         g_ActiveWindow.OnMessage(Msg);
1872       end;
1873
1874   // Åñëè îíî îò ýòîãî íå çàêðûëîñü, òî îáíîâëÿåì:
1875     if g_ActiveWindow <> nil then
1876       g_ActiveWindow.Update();
1877
1878   // Íóæíî ñìåíèòü ðàçðåøåíèå:
1879     if gResolutionChange then
1880     begin
1881       e_WriteLog('Changing resolution', MSG_NOTIFY);
1882       g_Game_ChangeResolution(gRC_Width, gRC_Height, gRC_FullScreen, gRC_Maximized);
1883       gResolutionChange := False;
1884     end;
1885
1886   // Íóæíî ñìåíèòü ÿçûê:
1887     if gLanguageChange then
1888     begin
1889       //e_WriteLog('Read language file', MSG_NOTIFY);
1890       //g_Language_Load(DataDir + gLanguage + '.txt');
1891       g_Language_Set(gLanguage);
1892       g_Menu_Reset();
1893       gLanguageChange := False;
1894     end;
1895   end;
1896
1897 // Äåëàåì ñêðèíøîò (íå ÷àùå 200 ìèëëèñåêóíä):
1898   if e_KeyPressed(gGameControls.GameControls.TakeScreenshot) then
1899     if (GetTimer()-LastScreenShot) > 200000 div 1000 then
1900     begin
1901       g_TakeScreenShot();
1902       LastScreenShot := GetTimer();
1903     end;
1904
1905 // Ãîðÿ÷àÿ êëàâèøà äëÿ âûçîâà ìåíþ âûõîäà èç èãðû (F10):
1906   if e_KeyPressed(IK_F10) and
1907      gGameOn and
1908      (not gConsoleShow) and
1909      (g_ActiveWindow = nil) then
1910   begin
1911     KeyPress(IK_F10);
1912   end;
1913
1914   Time := GetTimer() {div 1000};
1915
1916 // Îáðàáîòêà îòëîæåííûõ ñîáûòèé:
1917   if gDelayedEvents <> nil then
1918     for a := 0 to High(gDelayedEvents) do
1919       if gDelayedEvents[a].Pending and
1920       (
1921         ((gDelayedEvents[a].DEType = DE_GLOBEVENT) and (gDelayedEvents[a].Time <= Time)) or
1922         ((gDelayedEvents[a].DEType > DE_GLOBEVENT) and (gDelayedEvents[a].Time <= gTime))
1923       ) then
1924       begin
1925         case gDelayedEvents[a].DEType of
1926           DE_GLOBEVENT:
1927             g_Game_ExecuteEvent(gDelayedEvents[a].DEStr);
1928           DE_BFGHIT:
1929             if gGameOn then
1930               g_Game_Announce_GoodShot(gDelayedEvents[a].DENum);
1931           DE_KILLCOMBO:
1932             if gGameOn then
1933             begin
1934               g_Game_Announce_KillCombo(gDelayedEvents[a].DENum);
1935               if g_Game_IsNet and g_Game_IsServer then
1936                 MH_SEND_GameEvent(NET_EV_KILLCOMBO, gDelayedEvents[a].DENum);
1937             end;
1938         end;
1939         gDelayedEvents[a].Pending := False;
1940       end;
1941
1942 // Êàæäóþ ñåêóíäó îáíîâëÿåì ñ÷åò÷èê îáíîâëåíèé:
1943   UPSCounter := UPSCounter + 1;
1944   if Time - UPSTime >= 1000 then
1945   begin
1946     UPS := UPSCounter;
1947     UPSCounter := 0;
1948     UPSTime := Time;
1949   end;
1950
1951   if gGameOn then g_Weapon_AddDynLights();
1952 end;
1953
1954 procedure g_Game_LoadData();
1955 begin
1956   if DataLoaded then Exit;
1957
1958   e_WriteLog('Loading game data...', MSG_NOTIFY);
1959
1960   g_Texture_CreateWADEx('NOTEXTURE', GameWAD+':TEXTURES\NOTEXTURE');
1961   g_Texture_CreateWADEx('TEXTURE_PLAYER_HUD', GameWAD+':TEXTURES\HUD');
1962   g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDAIR', GameWAD+':TEXTURES\AIRBAR');
1963   g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDJET', GameWAD+':TEXTURES\JETBAR');
1964   g_Texture_CreateWADEx('TEXTURE_PLAYER_HUDBG', GameWAD+':TEXTURES\HUDBG');
1965   g_Texture_CreateWADEx('TEXTURE_PLAYER_ARMORHUD', GameWAD+':TEXTURES\ARMORHUD');
1966   g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG', GameWAD+':TEXTURES\FLAGHUD_RB');
1967   g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG_S', GameWAD+':TEXTURES\FLAGHUD_RS');
1968   g_Texture_CreateWADEx('TEXTURE_PLAYER_REDFLAG_D', GameWAD+':TEXTURES\FLAGHUD_RD');
1969   g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG', GameWAD+':TEXTURES\FLAGHUD_BB');
1970   g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG_S', GameWAD+':TEXTURES\FLAGHUD_BS');
1971   g_Texture_CreateWADEx('TEXTURE_PLAYER_BLUEFLAG_D', GameWAD+':TEXTURES\FLAGHUD_BD');
1972   g_Texture_CreateWADEx('TEXTURE_PLAYER_TALKBUBBLE', GameWAD+':TEXTURES\TALKBUBBLE');
1973   g_Texture_CreateWADEx('TEXTURE_PLAYER_INVULPENTA', GameWAD+':TEXTURES\PENTA');
1974   g_Frames_CreateWAD(nil, 'FRAMES_TELEPORT', GameWAD+':TEXTURES\TELEPORT', 64, 64, 10, False);
1975   g_Sound_CreateWADEx('SOUND_GAME_TELEPORT', GameWAD+':SOUNDS\TELEPORT');
1976   g_Sound_CreateWADEx('SOUND_GAME_NOTELEPORT', GameWAD+':SOUNDS\NOTELEPORT');
1977   g_Sound_CreateWADEx('SOUND_GAME_DOOROPEN', GameWAD+':SOUNDS\DOOROPEN');
1978   g_Sound_CreateWADEx('SOUND_GAME_DOORCLOSE', GameWAD+':SOUNDS\DOORCLOSE');
1979   g_Sound_CreateWADEx('SOUND_GAME_BULK1', GameWAD+':SOUNDS\BULK1');
1980   g_Sound_CreateWADEx('SOUND_GAME_BULK2', GameWAD+':SOUNDS\BULK2');
1981   g_Sound_CreateWADEx('SOUND_GAME_BUBBLE1', GameWAD+':SOUNDS\BUBBLE1');
1982   g_Sound_CreateWADEx('SOUND_GAME_BUBBLE2', GameWAD+':SOUNDS\BUBBLE2');
1983   g_Sound_CreateWADEx('SOUND_GAME_SWITCH1', GameWAD+':SOUNDS\SWITCH1');
1984   g_Sound_CreateWADEx('SOUND_GAME_SWITCH0', GameWAD+':SOUNDS\SWITCH0');
1985   g_Sound_CreateWADEx('SOUND_GAME_RADIO', GameWAD+':SOUNDS\RADIO');
1986   g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD1', GameWAD+':SOUNDS\GOOD1');
1987   g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD2', GameWAD+':SOUNDS\GOOD2');
1988   g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD3', GameWAD+':SOUNDS\GOOD3');
1989   g_Sound_CreateWADEx('SOUND_ANNOUNCER_GOOD4', GameWAD+':SOUNDS\GOOD4');
1990   g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL2X', GameWAD+':SOUNDS\KILL2X');
1991   g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL3X', GameWAD+':SOUNDS\KILL3X');
1992   g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILL4X', GameWAD+':SOUNDS\KILL4X');
1993   g_Sound_CreateWADEx('SOUND_ANNOUNCER_KILLMX', GameWAD+':SOUNDS\KILLMX');
1994
1995   goodsnd[0] := TPlayableSound.Create();
1996   goodsnd[1] := TPlayableSound.Create();
1997   goodsnd[2] := TPlayableSound.Create();
1998   goodsnd[3] := TPlayableSound.Create();
1999
2000   goodsnd[0].SetByName('SOUND_ANNOUNCER_GOOD1');
2001   goodsnd[1].SetByName('SOUND_ANNOUNCER_GOOD2');
2002   goodsnd[2].SetByName('SOUND_ANNOUNCER_GOOD3');
2003   goodsnd[3].SetByName('SOUND_ANNOUNCER_GOOD4');
2004
2005   killsnd[0] := TPlayableSound.Create();
2006   killsnd[1] := TPlayableSound.Create();
2007   killsnd[2] := TPlayableSound.Create();
2008   killsnd[3] := TPlayableSound.Create();
2009
2010   killsnd[0].SetByName('SOUND_ANNOUNCER_KILL2X');
2011   killsnd[1].SetByName('SOUND_ANNOUNCER_KILL3X');
2012   killsnd[2].SetByName('SOUND_ANNOUNCER_KILL4X');
2013   killsnd[3].SetByName('SOUND_ANNOUNCER_KILLMX');
2014
2015   g_Game_SetLoadingText(_lc[I_LOAD_ITEMS_DATA], 0, False);
2016   g_Items_LoadData();
2017
2018   g_Game_SetLoadingText(_lc[I_LOAD_WEAPONS_DATA], 0, False);
2019   g_Weapon_LoadData();
2020
2021   g_Monsters_LoadData();
2022
2023   DataLoaded := True;
2024 end;
2025
2026 procedure g_Game_FreeData();
2027 begin
2028   if not DataLoaded then Exit;
2029
2030   g_Items_FreeData();
2031   g_Weapon_FreeData();
2032   g_Monsters_FreeData();
2033
2034   e_WriteLog('Releasing game data...', MSG_NOTIFY);
2035
2036   g_Texture_Delete('NOTEXTURE');
2037   g_Texture_Delete('TEXTURE_PLAYER_HUD');
2038   g_Texture_Delete('TEXTURE_PLAYER_HUDBG');
2039   g_Texture_Delete('TEXTURE_PLAYER_ARMORHUD');
2040   g_Texture_Delete('TEXTURE_PLAYER_REDFLAG');
2041   g_Texture_Delete('TEXTURE_PLAYER_REDFLAG_S');
2042   g_Texture_Delete('TEXTURE_PLAYER_REDFLAG_D');
2043   g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG');
2044   g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG_S');
2045   g_Texture_Delete('TEXTURE_PLAYER_BLUEFLAG_D');
2046   g_Texture_Delete('TEXTURE_PLAYER_TALKBUBBLE');
2047   g_Texture_Delete('TEXTURE_PLAYER_INVULPENTA');
2048   g_Frames_DeleteByName('FRAMES_TELEPORT');
2049   g_Sound_Delete('SOUND_GAME_TELEPORT');
2050   g_Sound_Delete('SOUND_GAME_NOTELEPORT');
2051   g_Sound_Delete('SOUND_GAME_DOOROPEN');
2052   g_Sound_Delete('SOUND_GAME_DOORCLOSE');
2053   g_Sound_Delete('SOUND_GAME_BULK1');
2054   g_Sound_Delete('SOUND_GAME_BULK2');
2055   g_Sound_Delete('SOUND_GAME_BUBBLE1');
2056   g_Sound_Delete('SOUND_GAME_BUBBLE2');
2057   g_Sound_Delete('SOUND_GAME_SWITCH1');
2058   g_Sound_Delete('SOUND_GAME_SWITCH0');
2059
2060   goodsnd[0].Free();
2061   goodsnd[1].Free();
2062   goodsnd[2].Free();
2063   goodsnd[3].Free();
2064
2065   g_Sound_Delete('SOUND_ANNOUNCER_GOOD1');
2066   g_Sound_Delete('SOUND_ANNOUNCER_GOOD2');
2067   g_Sound_Delete('SOUND_ANNOUNCER_GOOD3');
2068   g_Sound_Delete('SOUND_ANNOUNCER_GOOD4');
2069
2070   killsnd[0].Free();
2071   killsnd[1].Free();
2072   killsnd[2].Free();
2073   killsnd[3].Free();
2074
2075   g_Sound_Delete('SOUND_ANNOUNCER_KILL2X');
2076   g_Sound_Delete('SOUND_ANNOUNCER_KILL3X');
2077   g_Sound_Delete('SOUND_ANNOUNCER_KILL4X');
2078   g_Sound_Delete('SOUND_ANNOUNCER_KILLMX');
2079
2080   DataLoaded := False;
2081 end;
2082
2083 procedure DrawCustomStat();
2084 var
2085   pc, x, y, w, _y,
2086   w1, w2, w3,
2087   t, p, m: Integer;
2088   ww1, hh1: Word;
2089   ww2, hh2, r, g, b, rr, gg, bb: Byte;
2090   s1, s2, topstr: String;
2091 begin
2092   e_TextureFontGetSize(gStdFont, ww2, hh2);
2093
2094   e_PollInput();
2095   if e_KeyPressed(IK_TAB) then
2096   begin
2097     if not gStatsPressed then
2098     begin
2099       gStatsOff := not gStatsOff;
2100       gStatsPressed := True;
2101     end;
2102   end
2103   else
2104     gStatsPressed := False;
2105
2106   if gStatsOff then
2107   begin
2108     s1 := _lc[I_MENU_INTER_NOTICE_TAB];
2109     w := (Length(s1) * ww2) div 2;
2110     x := gScreenWidth div 2 - w;
2111     y := 8;
2112     e_TextureFontPrint(x, y, s1, gStdFont);
2113     Exit;
2114   end;
2115
2116   if (gGameSettings.GameMode = GM_COOP) then
2117   begin
2118     if gMissionFailed then
2119       topstr := _lc[I_MENU_INTER_MISSION_FAIL]
2120     else
2121       topstr := _lc[I_MENU_INTER_LEVEL_COMPLETE];
2122   end
2123   else
2124     topstr := _lc[I_MENU_INTER_ROUND_OVER];
2125
2126   e_CharFont_GetSize(gMenuFont, topstr, ww1, hh1);
2127   e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(ww1 div 2), 16, topstr);
2128
2129   if g_Game_IsNet then
2130   begin
2131     topstr := Format(_lc[I_MENU_INTER_NOTICE_TIME], [gServInterTime]);
2132     if not gChatShow then
2133       e_TextureFontPrintEx((gScreenWidth div 2)-(Length(topstr)*ww2 div 2),
2134                            gScreenHeight-(hh2+4)*2, topstr, gStdFont, 255, 255, 255, 1);
2135   end;
2136
2137   if g_Game_IsClient then
2138     topstr := _lc[I_MENU_INTER_NOTICE_MAP]
2139   else
2140     topstr := _lc[I_MENU_INTER_NOTICE_SPACE];
2141   if not gChatShow then
2142     e_TextureFontPrintEx((gScreenWidth div 2)-(Length(topstr)*ww2 div 2),
2143                          gScreenHeight-(hh2+4), topstr, gStdFont, 255, 255, 255, 1);
2144
2145   x := 32;
2146   y := 16+hh1+16;
2147
2148   w := gScreenWidth-x*2;
2149
2150   w2 := (w-16) div 6;
2151   w3 := w2;
2152   w1 := w-16-w2-w3;
2153
2154   e_DrawFillQuad(x, y, gScreenWidth-x-1, gScreenHeight-y-1, 64, 64, 64, 32);
2155   e_DrawQuad(x, y, gScreenWidth-x-1, gScreenHeight-y-1, 255, 127, 0);
2156
2157   m := Max(Length(_lc[I_MENU_MAP])+1, Length(_lc[I_GAME_GAME_TIME])+1)*ww2;
2158
2159   case CustomStat.GameMode of
2160     GM_DM:
2161     begin
2162       if gGameSettings.MaxLives = 0 then
2163         s1 := _lc[I_GAME_DM]
2164       else
2165         s1 := _lc[I_GAME_LMS];
2166     end;
2167     GM_TDM:
2168     begin
2169       if gGameSettings.MaxLives = 0 then
2170         s1 := _lc[I_GAME_TDM]
2171       else
2172         s1 := _lc[I_GAME_TLMS];
2173     end;
2174     GM_CTF: s1 := _lc[I_GAME_CTF];
2175     GM_COOP:
2176     begin
2177       if gGameSettings.MaxLives = 0 then
2178         s1 := _lc[I_GAME_COOP]
2179       else
2180         s1 := _lc[I_GAME_SURV];
2181     end;
2182     else s1 := '';
2183   end;
2184
2185   _y := y+16;
2186   e_TextureFontPrintEx(x+(w div 2)-(Length(s1)*ww2 div 2), _y, s1, gStdFont, 255, 255, 255, 1);
2187   _y := _y+8;
2188
2189   _y := _y+16;
2190   e_TextureFontPrintEx(x+8, _y, _lc[I_MENU_MAP], gStdFont, 255, 127, 0, 1);
2191   e_TextureFontPrint(x+8+m, _y, Format('%s - %s', [CustomStat.Map, CustomStat.MapName]), gStdFont);
2192
2193   _y := _y+16;
2194   e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_GAME_TIME], gStdFont, 255, 127, 0, 1);
2195   e_TextureFontPrint(x+8+m, _y, Format('%d:%.2d:%.2d', [CustomStat.GameTime div 1000 div 3600,
2196                                                        (CustomStat.GameTime div 1000 div 60) mod 60,
2197                                                         CustomStat.GameTime div 1000 mod 60]), gStdFont);
2198
2199   pc := Length(CustomStat.PlayerStat);
2200   if pc = 0 then Exit;
2201
2202   if CustomStat.GameMode = GM_COOP then
2203   begin
2204     m := Max(Length(_lc[I_GAME_MONSTERS])+1, Length(_lc[I_GAME_SECRETS])+1)*ww2;
2205     _y := _y+32;
2206     s2 := _lc[I_GAME_MONSTERS];
2207     e_TextureFontPrintEx(x+8, _y, s2, gStdFont, 255, 127, 0, 1);
2208     e_TextureFontPrintEx(x+8+m, _y, IntToStr(gCoopMonstersKilled) + '/' + IntToStr(gTotalMonsters), gStdFont, 255, 255, 255, 1);
2209     _y := _y+16;
2210     s2 := _lc[I_GAME_SECRETS];
2211     e_TextureFontPrintEx(x+8, _y, s2, gStdFont, 255, 127, 0, 1);
2212     e_TextureFontPrintEx(x+8+m, _y, IntToStr(gCoopSecretsFound) + '/' + IntToStr(gSecretsCount), gStdFont, 255, 255, 255, 1);
2213     if gLastMap then
2214     begin
2215       m := Max(Length(_lc[I_GAME_MONSTERS_TOTAL])+1, Length(_lc[I_GAME_SECRETS_TOTAL])+1)*ww2;
2216       _y := _y-16;
2217       s2 := _lc[I_GAME_MONSTERS_TOTAL];
2218       e_TextureFontPrintEx(x+250, _y, s2, gStdFont, 255, 127, 0, 1);
2219       e_TextureFontPrintEx(x+250+m, _y, IntToStr(gCoopTotalMonstersKilled) + '/' + IntToStr(gCoopTotalMonsters), gStdFont, 255, 255, 255, 1);
2220       _y := _y+16;
2221       s2 := _lc[I_GAME_SECRETS_TOTAL];
2222       e_TextureFontPrintEx(x+250, _y, s2, gStdFont, 255, 127, 0, 1);
2223       e_TextureFontPrintEx(x+250+m, _y, IntToStr(gCoopTotalSecretsFound) + '/' + IntToStr(gCoopTotalSecrets), gStdFont, 255, 255,  255, 1);
2224     end;
2225   end;
2226
2227   if CustomStat.GameMode in [GM_TDM, GM_CTF] then
2228   begin
2229     _y := _y+16+16;
2230
2231     with CustomStat do
2232       if TeamStat[TEAM_RED].Goals > TeamStat[TEAM_BLUE].Goals then s1 := _lc[I_GAME_WIN_RED]
2233         else if TeamStat[TEAM_BLUE].Goals > TeamStat[TEAM_RED].Goals then s1 := _lc[I_GAME_WIN_BLUE]
2234           else s1 := _lc[I_GAME_WIN_DRAW];
2235
2236     e_TextureFontPrintEx(x+8+(w div 2)-(Length(s1)*ww2 div 2), _y, s1, gStdFont, 255, 255, 255, 1);
2237     _y := _y+40;
2238
2239     for t := TEAM_RED to TEAM_BLUE do
2240     begin
2241       if t = TEAM_RED then
2242       begin
2243         e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_TEAM_RED],
2244                              gStdFont, 255, 0, 0, 1);
2245         e_TextureFontPrintEx(x+w1+8, _y, IntToStr(CustomStat.TeamStat[TEAM_RED].Goals),
2246                              gStdFont, 255, 0, 0, 1);
2247         r := 255;
2248         g := 0;
2249         b := 0;
2250       end
2251       else
2252       begin
2253         e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_TEAM_BLUE],
2254                              gStdFont, 0, 0, 255, 1);
2255         e_TextureFontPrintEx(x+w1+8, _y, IntToStr(CustomStat.TeamStat[TEAM_BLUE].Goals),
2256                              gStdFont, 0, 0, 255, 1);
2257         r := 0;
2258         g := 0;
2259         b := 255;
2260       end;
2261
2262       e_DrawLine(1, x+8, _y+20, x-8+w, _y+20, r, g, b);
2263       _y := _y+24;
2264
2265       for p := 0 to High(CustomStat.PlayerStat) do
2266         if CustomStat.PlayerStat[p].Team = t then
2267           with CustomStat.PlayerStat[p] do
2268           begin
2269             if Spectator then
2270             begin
2271               rr := r div 2;
2272               gg := g div 2;
2273               bb := b div 2;
2274             end
2275             else
2276             begin
2277               rr := r;
2278               gg := g;
2279               bb := b;
2280             end;
2281             e_TextureFontPrintEx(x+8, _y, Name, gStdFont, rr, gg, bb, 1);
2282             e_TextureFontPrintEx(x+w1+8, _y, IntToStr(Frags), gStdFont, rr, gg, bb, 1);
2283             e_TextureFontPrintEx(x+w1+w2+8, _y, IntToStr(Deaths), gStdFont, rr, gg, bb, 1);
2284             _y := _y+24;
2285           end;
2286
2287       _y := _y+16+16;
2288     end;
2289   end
2290   else if CustomStat.GameMode in [GM_DM, GM_COOP] then
2291   begin
2292     _y := _y+40;
2293     e_TextureFontPrintEx(x+8, _y, _lc[I_GAME_PLAYER_NAME], gStdFont, 255, 127, 0, 1);
2294     e_TextureFontPrintEx(x+8+w1, _y, _lc[I_GAME_FRAGS], gStdFont, 255, 127, 0, 1);
2295     e_TextureFontPrintEx(x+8+w1+w2, _y, _lc[I_GAME_DEATHS], gStdFont, 255, 127, 0, 1);
2296
2297     _y := _y+24;
2298     for p := 0 to High(CustomStat.PlayerStat) do
2299       with CustomStat.PlayerStat[p] do
2300       begin
2301         e_DrawFillQuad(x+8, _y+4, x+24-1, _y+16+4-1, Color.R, Color.G, Color.B, 0);
2302
2303         if Spectator then
2304           r := 127
2305         else
2306           r := 255;
2307
2308         e_TextureFontPrintEx(x+8+16+8, _y+4, Name, gStdFont, r, r, r, 1, True);
2309         e_TextureFontPrintEx(x+w1+8+16+8, _y+4, IntToStr(Frags), gStdFont, r, r, r, 1, True);
2310         e_TextureFontPrintEx(x+w1+w2+8+16+8, _y+4, IntToStr(Deaths), gStdFont, r, r, r, 1, True);
2311         _y := _y+24;
2312       end;
2313   end;
2314 end;
2315
2316 procedure DrawSingleStat();
2317 var
2318   tm, key_x, val_x, y: Integer;
2319   w1, w2, h: Word;
2320   s1, s2: String;
2321
2322   procedure player_stat(n: Integer);
2323   var
2324     kpm: Real;
2325
2326   begin
2327   // "Kills: # / #":
2328     s1 := Format(' %d ', [SingleStat.PlayerStat[n].Kills]);
2329     s2 := Format(' %d', [gTotalMonsters]);
2330
2331     e_CharFont_Print(gMenuFont, key_x, y, _lc[I_MENU_INTER_KILLS]);
2332     e_CharFont_PrintEx(gMenuFont, val_x, y, s1, _RGB(255, 0, 0));
2333     e_CharFont_GetSize(gMenuFont, s1, w1, h);
2334     e_CharFont_Print(gMenuFont, val_x+w1, y, '/');
2335     s1 := s1 + '/';
2336     e_CharFont_GetSize(gMenuFont, s1, w1, h);
2337     e_CharFont_PrintEx(gMenuFont, val_x+w1, y, s2, _RGB(255, 0, 0));
2338
2339   // "Kills-per-minute: ##.#":
2340     s1 := _lc[I_MENU_INTER_KPM];
2341     if tm > 0 then
2342       kpm := (SingleStat.PlayerStat[n].Kills / tm) * 60
2343     else
2344       kpm := SingleStat.PlayerStat[n].Kills;
2345     s2 := Format(' %.1f', [kpm]);
2346
2347     e_CharFont_Print(gMenuFont, key_x, y+32, s1);
2348     e_CharFont_PrintEx(gMenuFont, val_x, y+32, s2, _RGB(255, 0, 0));
2349
2350   // "Secrets found: # / #":
2351     s1 := Format(' %d ', [SingleStat.PlayerStat[n].Secrets]);
2352     s2 := Format(' %d', [SingleStat.TotalSecrets]);
2353
2354     e_CharFont_Print(gMenuFont, key_x, y+64, _lc[I_MENU_INTER_SECRETS]);
2355     e_CharFont_PrintEx(gMenuFont, val_x, y+64, s1, _RGB(255, 0, 0));
2356     e_CharFont_GetSize(gMenuFont, s1, w1, h);
2357     e_CharFont_Print(gMenuFont, val_x+w1, y+64, '/');
2358     s1 := s1 + '/';
2359     e_CharFont_GetSize(gMenuFont, s1, w1, h);
2360     e_CharFont_PrintEx(gMenuFont, val_x+w1, y+64, s2, _RGB(255, 0, 0));
2361   end;
2362
2363 begin
2364 // "Level Complete":
2365   e_CharFont_GetSize(gMenuFont, _lc[I_MENU_INTER_LEVEL_COMPLETE], w1, h);
2366   e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 32, _lc[I_MENU_INTER_LEVEL_COMPLETE]);
2367
2368 // Îïðåäåëÿåì êîîðäèíàòû âûðàâíèâàíèÿ ïî ñàìîé äëèííîé ñòðîêå:
2369   s1 := _lc[I_MENU_INTER_KPM];
2370   e_CharFont_GetSize(gMenuFont, s1, w1, h);
2371   Inc(w1, 16);
2372   s1 := ' 9999.9';
2373   e_CharFont_GetSize(gMenuFont, s1, w2, h);
2374
2375   key_x := (gScreenWidth-w1-w2) div 2;
2376   val_x := key_x + w1;
2377
2378 // "Time: #:##:##":
2379   tm := SingleStat.GameTime div 1000;
2380   s1 := _lc[I_MENU_INTER_TIME];
2381   s2 := Format(' %d:%.2d:%.2d', [tm div (60*60), (tm mod (60*60)) div 60, tm mod 60]);
2382
2383   e_CharFont_Print(gMenuFont, key_x, 80, s1);
2384   e_CharFont_PrintEx(gMenuFont, val_x, 80, s2, _RGB(255, 0, 0));
2385
2386   if SingleStat.TwoPlayers then
2387     begin
2388     // "Player 1":
2389       s1 := _lc[I_MENU_PLAYER_1];
2390       e_CharFont_GetSize(gMenuFont, s1, w1, h);
2391       e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 128, s1);
2392
2393     // Ñòàòèñòèêà ïåðâîãî èãðîêà:
2394       y := 176;
2395       player_stat(0);
2396
2397     // "Player 2":
2398       s1 := _lc[I_MENU_PLAYER_2];
2399       e_CharFont_GetSize(gMenuFont, s1, w1, h);
2400       e_CharFont_Print(gMenuFont, (gScreenWidth-w1) div 2, 288, s1);
2401
2402     // Ñòàòèñòèêà âòîðîãî èãðîêà:
2403       y := 336;
2404       player_stat(1);
2405     end
2406   else
2407     begin
2408     // Ñòàòèñòèêà ïåðâîãî èãðîêà:
2409       y := 128;
2410       player_stat(0);
2411     end;
2412 end;
2413
2414 procedure DrawLoadingStat();
2415 var
2416   ww, hh: Word;
2417   xx, yy, i: Integer;
2418   s: String;
2419 begin
2420   if Length(LoadingStat.Msgs) = 0 then
2421     Exit;
2422
2423   e_CharFont_GetSize(gMenuFont, _lc[I_MENU_LOADING], ww, hh);
2424   yy := (gScreenHeight div 3);
2425   e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(ww div 2), yy-2*hh, _lc[I_MENU_LOADING]);
2426   xx := (gScreenWidth div 3);
2427
2428   with LoadingStat do
2429     for i := 0 to NextMsg-1 do
2430       begin
2431         if (i = (NextMsg-1)) and (MaxValue > 0) then
2432           s := Format('%s:  %d/%d', [Msgs[i], CurValue, MaxValue])
2433         else
2434           s := Msgs[i];
2435
2436         e_CharFont_PrintEx(gMenuSmallFont, xx, yy, s, _RGB(255, 0, 0));
2437         yy := yy + LOADING_INTERLINE;
2438       end;
2439 end;
2440
2441 procedure DrawMinimap(p: TPlayer; RenderRect: e_graphics.TRect);
2442 var
2443   a, aX, aY, aX2, aY2, Scale, ScaleSz: Integer;
2444
2445   function monDraw (monidx: Integer; mon: TMonster): Boolean;
2446   begin
2447     result := false; // don't stop
2448     with mon do
2449     begin
2450       if Live then
2451       begin
2452         // Ëåâûé âåðõíèé óãîë
2453         aX := Obj.X div ScaleSz + 1;
2454         aY := Obj.Y div ScaleSz + 1;
2455         // Ðàçìåðû
2456         aX2 := max(Obj.Rect.Width div ScaleSz, 1);
2457         aY2 := max(Obj.Rect.Height div ScaleSz, 1);
2458         // Ïðàâûé íèæíèé óãîë
2459         aX2 := aX + aX2 - 1;
2460         aY2 := aY + aY2 - 1;
2461         e_DrawFillQuad(aX, aY, aX2, aY2, 255, 255, 0, 0);
2462       end;
2463     end;
2464   end;
2465
2466 begin
2467   if (gMapInfo.Width > RenderRect.Right - RenderRect.Left) or
2468      (gMapInfo.Height > RenderRect.Bottom - RenderRect.Top) then
2469   begin
2470     Scale := 1;
2471   // Ñêîëüêî ïèêñåëîâ êàðòû â 1 ïèêñåëå ìèíè-êàðòû:
2472     ScaleSz := 16 div Scale;
2473   // Ðàçìåðû ìèíè-êàðòû:
2474     aX := max(gMapInfo.Width div ScaleSz, 1);
2475     aY := max(gMapInfo.Height div ScaleSz, 1);
2476   // Ðàìêà êàðòû:
2477     e_DrawFillQuad(0, 0, aX-1, aY-1, 0, 0, 0, 0);
2478
2479     if gWalls <> nil then
2480     begin
2481     // Ðèñóåì ñòåíû:
2482       for a := 0 to High(gWalls) do
2483         with gWalls[a] do
2484           if PanelType <> 0 then
2485           begin
2486           // Ëåâûé âåðõíèé óãîë:
2487             aX := X div ScaleSz;
2488             aY := Y div ScaleSz;
2489           // Ðàçìåðû:
2490             aX2 := max(Width div ScaleSz, 1);
2491             aY2 := max(Height div ScaleSz, 1);
2492           // Ïðàâûé íèæíèé óãîë:
2493             aX2 := aX + aX2 - 1;
2494             aY2 := aY + aY2 - 1;
2495
2496             case PanelType of
2497               PANEL_WALL:      e_DrawFillQuad(aX, aY, aX2, aY2, 208, 208, 208, 0);
2498               PANEL_OPENDOOR, PANEL_CLOSEDOOR:
2499                 if Enabled then e_DrawFillQuad(aX, aY, aX2, aY2, 160, 160, 160, 0);
2500             end;
2501           end;
2502     end;
2503     if gSteps <> nil then
2504     begin
2505     // Ðèñóåì ñòóïåíè:
2506       for a := 0 to High(gSteps) do
2507         with gSteps[a] do
2508           if PanelType <> 0 then
2509           begin
2510           // Ëåâûé âåðõíèé óãîë:
2511             aX := X div ScaleSz;
2512             aY := Y div ScaleSz;
2513           // Ðàçìåðû:
2514             aX2 := max(Width div ScaleSz, 1);
2515             aY2 := max(Height div ScaleSz, 1);
2516           // Ïðàâûé íèæíèé óãîë:
2517             aX2 := aX + aX2 - 1;
2518             aY2 := aY + aY2 - 1;
2519
2520             e_DrawFillQuad(aX, aY, aX2, aY2, 128, 128, 128, 0);
2521           end;
2522     end;
2523     if gLifts <> nil then
2524     begin
2525     // Ðèñóåì ëèôòû:
2526       for a := 0 to High(gLifts) do
2527         with gLifts[a] do
2528           if PanelType <> 0 then
2529           begin
2530           // Ëåâûé âåðõíèé óãîë:
2531             aX := X div ScaleSz;
2532             aY := Y div ScaleSz;
2533           // Ðàçìåðû:
2534             aX2 := max(Width div ScaleSz, 1);
2535             aY2 := max(Height div ScaleSz, 1);
2536           // Ïðàâûé íèæíèé óãîë:
2537             aX2 := aX + aX2 - 1;
2538             aY2 := aY + aY2 - 1;
2539
2540             case LiftType of
2541               0: e_DrawFillQuad(aX, aY, aX2, aY2, 116,  72,  36, 0);
2542               1: e_DrawFillQuad(aX, aY, aX2, aY2, 116, 124,  96, 0);
2543               2: e_DrawFillQuad(aX, aY, aX2, aY2, 200,  80,   4, 0);
2544               3: e_DrawFillQuad(aX, aY, aX2, aY2, 252, 140,  56, 0);
2545             end;
2546           end;
2547     end;
2548     if gWater <> nil then
2549     begin
2550     // Ðèñóåì âîäó:
2551       for a := 0 to High(gWater) do
2552         with gWater[a] do
2553           if PanelType <> 0 then
2554           begin
2555           // Ëåâûé âåðõíèé óãîë:
2556             aX := X div ScaleSz;
2557             aY := Y div ScaleSz;
2558           // Ðàçìåðû:
2559             aX2 := max(Width div ScaleSz, 1);
2560             aY2 := max(Height div ScaleSz, 1);
2561           // Ïðàâûé íèæíèé óãîë:
2562             aX2 := aX + aX2 - 1;
2563             aY2 := aY + aY2 - 1;
2564
2565             e_DrawFillQuad(aX, aY, aX2, aY2, 0, 0, 192, 0);
2566           end;
2567     end;
2568     if gAcid1 <> nil then
2569     begin
2570     // Ðèñóåì êèñëîòó 1:
2571       for a := 0 to High(gAcid1) do
2572         with gAcid1[a] do
2573           if PanelType <> 0 then
2574           begin
2575           // Ëåâûé âåðõíèé óãîë:
2576             aX := X div ScaleSz;
2577             aY := Y div ScaleSz;
2578           // Ðàçìåðû:
2579             aX2 := max(Width div ScaleSz, 1);
2580             aY2 := max(Height div ScaleSz, 1);
2581           // Ïðàâûé íèæíèé óãîë:
2582             aX2 := aX + aX2 - 1;
2583             aY2 := aY + aY2 - 1;
2584
2585             e_DrawFillQuad(aX, aY, aX2, aY2, 0, 176, 0, 0);
2586           end;
2587     end;
2588     if gAcid2 <> nil then
2589     begin
2590     // Ðèñóåì êèñëîòó 2:
2591       for a := 0 to High(gAcid2) do
2592         with gAcid2[a] do
2593           if PanelType <> 0 then
2594           begin
2595           // Ëåâûé âåðõíèé óãîë:
2596             aX := X div ScaleSz;
2597             aY := Y div ScaleSz;
2598           // Ðàçìåðû:
2599             aX2 := max(Width div ScaleSz, 1);
2600             aY2 := max(Height div ScaleSz, 1);
2601           // Ïðàâûé íèæíèé óãîë:
2602             aX2 := aX + aX2 - 1;
2603             aY2 := aY + aY2 - 1;
2604
2605             e_DrawFillQuad(aX, aY, aX2, aY2, 176, 0, 0, 0);
2606           end;
2607     end;
2608     if gPlayers <> nil then
2609     begin
2610     // Ðèñóåì èãðîêîâ:
2611       for a := 0 to High(gPlayers) do
2612         if gPlayers[a] <> nil then with gPlayers[a] do
2613           if Live then begin
2614           // Ëåâûé âåðõíèé óãîë:
2615             aX := Obj.X div ScaleSz + 1;
2616             aY := Obj.Y div ScaleSz + 1;
2617           // Ðàçìåðû:
2618             aX2 := max(Obj.Rect.Width div ScaleSz, 1);
2619             aY2 := max(Obj.Rect.Height div ScaleSz, 1);
2620           // Ïðàâûé íèæíèé óãîë:
2621             aX2 := aX + aX2 - 1;
2622             aY2 := aY + aY2 - 1;
2623
2624             if gPlayers[a] = p then
2625               e_DrawFillQuad(aX, aY, aX2, aY2, 0, 255, 0, 0)
2626             else
2627               case Team of
2628                 TEAM_RED:  e_DrawFillQuad(aX, aY, aX2, aY2, 255,   0,   0, 0);
2629                 TEAM_BLUE: e_DrawFillQuad(aX, aY, aX2, aY2, 0,     0, 255, 0);
2630                 else       e_DrawFillQuad(aX, aY, aX2, aY2, 255, 128,   0, 0);
2631               end;
2632           end;
2633     end;
2634     // Ðèñóåì ìîíñòðîâ
2635     g_Mons_ForEach(monDraw);
2636   end;
2637 end;
2638
2639
2640 // setup sX, sY, sWidth, sHeight, and transformation matrix before calling this!
2641 procedure renderDynLightsInternal ();
2642 var
2643   lln: Integer;
2644   lx, ly, lrad: Integer;
2645 begin
2646   //TODO: lights should be in separate grid, i think
2647   //      but on the other side: grid may be slower for dynlights, as their lifetime is short
2648   if not gwin_has_stencil or (g_dynLightCount < 1) then exit;
2649
2650   // setup OpenGL parameters
2651   glStencilMask($FFFFFFFF);
2652   glStencilFunc(GL_ALWAYS, 0, $FFFFFFFF);
2653   glEnable(GL_STENCIL_TEST);
2654   glEnable(GL_SCISSOR_TEST);
2655   glClear(GL_STENCIL_BUFFER_BIT);
2656   glStencilFunc(GL_EQUAL, 0, $ff);
2657
2658   for lln := 0 to g_dynLightCount-1 do
2659   begin
2660     lx := g_dynLights[lln].x;
2661     ly := g_dynLights[lln].y;
2662     lrad := g_dynLights[lln].radius;
2663     if lrad < 3 then continue;
2664
2665     if lx-sX+lrad < 0 then continue;
2666     if ly-sY+lrad < 0 then continue;
2667     if lx-sX-lrad >= gPlayerScreenSize.X then continue;
2668     if ly-sY-lrad >= gPlayerScreenSize.Y then continue;
2669
2670     // set scissor to optimize drawing
2671     glScissor((lx-sX)-lrad+2, gPlayerScreenSize.Y-(ly-sY)-lrad-1+2, lrad*2-4, lrad*2-4);
2672     // no need to clear stencil buffer, light blitting will do it for us
2673     glStencilOp(GL_KEEP, GL_KEEP, GL_INCR);
2674     // draw extruded panels
2675     glDisable(GL_TEXTURE_2D);
2676     glDisable(GL_BLEND);
2677     glColorMask(GL_FALSE, GL_FALSE, GL_FALSE, GL_FALSE); // no need to modify color buffer
2678     if (lrad > 4) then g_Map_DrawPanelShadowVolumes(lx, ly, lrad);
2679     // render light texture
2680     glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); // modify color buffer
2681     glStencilOp(GL_ZERO, GL_ZERO, GL_ZERO); // draw light, and clear stencil buffer
2682     // blend it
2683     glEnable(GL_BLEND);
2684     glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
2685     glEnable(GL_TEXTURE_2D);
2686     // color and opacity
2687     glColor4f(g_dynLights[lln].r, g_dynLights[lln].g, g_dynLights[lln].b, g_dynLights[lln].a);
2688     glBindTexture(GL_TEXTURE_2D, g_Texture_Light());
2689     glBegin(GL_QUADS);
2690       glTexCoord2f(0.0, 0.0); glVertex2i(lx-lrad, ly-lrad); // top-left
2691       glTexCoord2f(1.0, 0.0); glVertex2i(lx+lrad, ly-lrad); // top-right
2692       glTexCoord2f(1.0, 1.0); glVertex2i(lx+lrad, ly+lrad); // bottom-right
2693       glTexCoord2f(0.0, 1.0); glVertex2i(lx-lrad, ly+lrad); // bottom-left
2694     glEnd();
2695   end;
2696
2697   // done
2698   glDisable(GL_STENCIL_TEST);
2699   glDisable(GL_BLEND);
2700   glDisable(GL_SCISSOR_TEST);
2701   glScissor(0, 0, sWidth, sHeight);
2702 end;
2703
2704
2705 // setup sX, sY, sWidth, sHeight, and transformation matrix before calling this!
2706 // WARNING! this WILL CALL `glTranslatef()`, but won't restore matrices!
2707 procedure renderMapInternal (backXOfs, backYOfs: Integer; transX, transY: Integer; setTransMatrix: Boolean);
2708 type
2709   TDrawCB = procedure ();
2710
2711   procedure drawPanelType (profname: AnsiString; panType: DWord);
2712   var
2713     tagmask: Integer;
2714     pan: TPanel;
2715   begin
2716     profileFrameDraw.sectionBegin(profname);
2717     if gdbg_map_use_accel_render then
2718     begin
2719       tagmask := panelTypeToTag(panType);
2720       {$IF TRUE}
2721       while (gDrawPanelList.count > 0) do
2722       begin
2723         pan := TPanel(gDrawPanelList.front());
2724         if ((pan.tag and tagmask) = 0) then break;
2725         pan.Draw();
2726         gDrawPanelList.popFront();
2727       end;
2728       {$ELSE}
2729       e_WriteLog(Format('=== PANELS: %d ===', [gDrawPanelList.count]), MSG_NOTIFY);
2730       while (gDrawPanelList.count > 0) do
2731       begin
2732         pan := TPanel(gDrawPanelList.front());
2733         e_WriteLog(Format('tagmask: 0x%04x; pan.tag: 0x%04x; pan.ArrIdx: %d', [tagmask, pan.tag, pan.ArrIdx]), MSG_NOTIFY);
2734         pan.Draw();
2735         gDrawPanelList.popFront();
2736       end;
2737       {$ENDIF}
2738     end
2739     else
2740     begin
2741       g_Map_DrawPanels(panType);
2742     end;
2743     profileFrameDraw.sectionEnd();
2744   end;
2745
2746   procedure drawOther (profname: AnsiString; cb: TDrawCB);
2747   begin
2748     profileFrameDraw.sectionBegin(profname);
2749     if assigned(cb) then cb();
2750     profileFrameDraw.sectionEnd();
2751   end;
2752
2753 begin
2754   profileFrameDraw.sectionBegin('total');
2755
2756   // our accelerated renderer will collect all panels to gDrawPanelList
2757   // we can use panel tag to render level parts (see GridTagXXX in g_map.pas)
2758   profileFrameDraw.sectionBegin('collect');
2759   if gdbg_map_use_accel_render then
2760   begin
2761     g_Map_CollectDrawPanels(sX, sY, sWidth, sHeight);
2762   end;
2763   profileFrameDraw.sectionEnd();
2764
2765   profileFrameDraw.sectionBegin('skyback');
2766   g_Map_DrawBack(backXOfs, backYOfs);
2767   profileFrameDraw.sectionEnd();
2768
2769   if (setTransMatrix) then glTranslatef(transX, transY, 0);
2770
2771   drawPanelType('*back', PANEL_BACK);
2772   drawPanelType('*step', PANEL_STEP);
2773   drawOther('items', @g_Items_Draw);
2774   drawOther('weapons', @g_Weapon_Draw);
2775   drawOther('shells', @g_Player_DrawShells);
2776   drawOther('drawall', @g_Player_DrawAll);
2777   drawOther('corpses', @g_Player_DrawCorpses);
2778   drawPanelType('*wall', PANEL_WALL);
2779   drawOther('monsters', @g_Monsters_Draw);
2780   drawPanelType('*door', PANEL_CLOSEDOOR);
2781   drawOther('gfx', @g_GFX_Draw);
2782   drawOther('flags', @g_Map_DrawFlags);
2783   drawPanelType('*acid1', PANEL_ACID1);
2784   drawPanelType('*acid2', PANEL_ACID2);
2785   drawPanelType('*water', PANEL_WATER);
2786   drawOther('dynlights', @renderDynLightsInternal);
2787   drawPanelType('*fore', PANEL_FORE);
2788
2789   if g_debug_HealthBar then
2790   begin
2791     g_Monsters_DrawHealth();
2792     g_Player_DrawHealth();
2793   end;
2794
2795   profileFrameDraw.mainEnd(); // map rendering
2796 end;
2797
2798
2799 procedure DrawMapView(x, y, w, h: Integer);
2800
2801 var
2802   bx, by: Integer;
2803 begin
2804   glPushMatrix();
2805
2806   bx := Round(x/(gMapInfo.Width - w)*(gBackSize.X - w));
2807   by := Round(y/(gMapInfo.Height - h)*(gBackSize.Y - h));
2808
2809   sX := x;
2810   sY := y;
2811   sWidth := w;
2812   sHeight := h;
2813
2814   renderMapInternal(-bx, -by, -x, -y, true);
2815
2816   glPopMatrix();
2817 end;
2818
2819
2820 procedure DrawPlayer(p: TPlayer);
2821 var
2822   px, py, a, b, c, d: Integer;
2823   //R: TRect;
2824
2825 begin
2826   if (p = nil) or (p.FDummy) then
2827   begin
2828     glPushMatrix();
2829     g_Map_DrawBack(0, 0);
2830     glPopMatrix();
2831     Exit;
2832   end;
2833
2834   if (profileFrameDraw = nil) then profileFrameDraw := TProfiler.Create('RENDER', g_profile_history_size);
2835   profileFrameDraw.mainBegin(g_profile_frame_draw);
2836
2837   gPlayerDrawn := p;
2838
2839   glPushMatrix();
2840
2841   px := p.GameX + PLAYER_RECT_CX;
2842   py := p.GameY + PLAYER_RECT_CY;
2843
2844   if px > (gPlayerScreenSize.X div 2) then a := -px+(gPlayerScreenSize.X div 2) else a := 0;
2845   if py > (gPlayerScreenSize.Y div 2) then b := -py+(gPlayerScreenSize.Y div 2) else b := 0;
2846
2847   if px > gMapInfo.Width-(gPlayerScreenSize.X div 2) then a := -gMapInfo.Width+gPlayerScreenSize.X;
2848   if py > gMapInfo.Height-(gPlayerScreenSize.Y div 2) then b := -gMapInfo.Height+gPlayerScreenSize.Y;
2849
2850   if gMapInfo.Width <= gPlayerScreenSize.X then a := 0;
2851   if gMapInfo.Height <= gPlayerScreenSize.Y then b := 0;
2852
2853   if p.IncCam <> 0 then
2854   begin
2855     if py > gMapInfo.Height-(gPlayerScreenSize.Y div 2) then
2856     begin
2857       if p.IncCam > 120-(py-(gMapInfo.Height-(gPlayerScreenSize.Y div 2))) then
2858       begin
2859         p.IncCam := 120-(py-(gMapInfo.Height-(gPlayerScreenSize.Y div 2)));
2860       end;
2861     end;
2862
2863     if py < gPlayerScreenSize.Y div 2 then
2864     begin
2865       if p.IncCam < -120+((gPlayerScreenSize.Y div 2)-py) then
2866       begin
2867         p.IncCam := -120+((gPlayerScreenSize.Y div 2)-py);
2868       end;
2869     end;
2870
2871     if p.IncCam < 0 then
2872     begin
2873       while (py+(gPlayerScreenSize.Y div 2)-p.IncCam > gMapInfo.Height) and (p.IncCam < 0) do p.IncCam := p.IncCam+1; //Inc(p.IncCam);
2874     end;
2875
2876     if p.IncCam > 0 then
2877     begin
2878       while (py-(gPlayerScreenSize.Y div 2)-p.IncCam < 0) and (p.IncCam > 0) do p.IncCam := p.IncCam-1; //Dec(p.IncCam);
2879     end;
2880   end;
2881
2882        if (px < gPlayerScreenSize.X div 2) or (gMapInfo.Width-gPlayerScreenSize.X <= 256) then c := 0
2883   else if (px > gMapInfo.Width-(gPlayerScreenSize.X div 2)) then c := gBackSize.X-gPlayerScreenSize.X
2884   else c := round((px-(gPlayerScreenSize.X div 2))/(gMapInfo.Width-gPlayerScreenSize.X)*(gBackSize.X-gPlayerScreenSize.X));
2885
2886        if (py-p.IncCam <= gPlayerScreenSize.Y div 2) or (gMapInfo.Height-gPlayerScreenSize.Y <= 256) then d := 0
2887   else if (py-p.IncCam >= gMapInfo.Height-(gPlayerScreenSize.Y div 2)) then d := gBackSize.Y-gPlayerScreenSize.Y
2888   else d := round((py-p.IncCam-(gPlayerScreenSize.Y div 2))/(gMapInfo.Height-gPlayerScreenSize.Y)*(gBackSize.Y-gPlayerScreenSize.Y));
2889
2890   sX := -a;
2891   sY := -(b+p.IncCam);
2892   sWidth := gPlayerScreenSize.X;
2893   sHeight := gPlayerScreenSize.Y;
2894
2895   //glTranslatef(a, b+p.IncCam, 0);
2896
2897   renderMapInternal(-c, -d, a, b+p.IncCam, true);
2898
2899   if p.FSpectator then
2900     e_TextureFontPrintEx(p.GameX + PLAYER_RECT_CX - 4,
2901                          p.GameY + PLAYER_RECT_CY - 4,
2902                          'X', gStdFont, 255, 255, 255, 1, True);
2903   {
2904   for a := 0 to High(gCollideMap) do
2905     for b := 0 to High(gCollideMap[a]) do
2906     begin
2907       d := 0;
2908       if ByteBool(gCollideMap[a, b] and MARK_WALL) then
2909         d := d + 1;
2910       if ByteBool(gCollideMap[a, b] and MARK_DOOR) then
2911         d := d + 2;
2912
2913       case d of
2914         1: e_DrawPoint(1, b, a, 200, 200, 200);
2915         2: e_DrawPoint(1, b, a, 64, 64, 255);
2916         3: e_DrawPoint(1, b, a, 255, 0, 255);
2917       end;
2918     end;
2919   }
2920
2921   glPopMatrix();
2922
2923   p.DrawPain();
2924   p.DrawPickup();
2925   p.DrawRulez();
2926   if gShowMap then DrawMinimap(p, _TRect(0, 0, 128, 128));
2927   if g_Debug_Player then
2928     g_Player_DrawDebug(p);
2929   p.DrawGUI();
2930 end;
2931
2932 procedure drawProfilers ();
2933 var
2934   px: Integer = -1;
2935 begin
2936   if g_profile_frame_draw then px := px-drawProfiles(px, -1, profileFrameDraw);
2937   if g_profile_collision then px := px-drawProfiles(px, -1, profMapCollision);
2938 end;
2939
2940 procedure g_Game_Draw();
2941 var
2942   ID: DWORD;
2943   w, h: Word;
2944   ww, hh: Byte;
2945   Time: Int64;
2946   back: string;
2947   plView1, plView2: TPlayer;
2948   Split: Boolean;
2949 begin
2950   if gExit = EXIT_QUIT then Exit;
2951
2952   Time := GetTimer() {div 1000};
2953   FPSCounter := FPSCounter+1;
2954   if Time - FPSTime >= 1000 then
2955   begin
2956     FPS := FPSCounter;
2957     FPSCounter := 0;
2958     FPSTime := Time;
2959   end;
2960
2961   if gGameOn or (gState = STATE_FOLD) then
2962   begin
2963     if (gPlayer1 <> nil) and (gPlayer2 <> nil) then
2964     begin
2965       gSpectMode := SPECT_NONE;
2966       if not gRevertPlayers then
2967       begin
2968         plView1 := gPlayer1;
2969         plView2 := gPlayer2;
2970       end
2971       else
2972       begin
2973         plView1 := gPlayer2;
2974         plView2 := gPlayer1;
2975       end;
2976     end
2977     else
2978       if (gPlayer1 <> nil) or (gPlayer2 <> nil) then
2979       begin
2980         gSpectMode := SPECT_NONE;
2981         if gPlayer2 = nil then
2982           plView1 := gPlayer1
2983         else
2984           plView1 := gPlayer2;
2985         plView2 := nil;
2986       end
2987       else
2988       begin
2989         plView1 := nil;
2990         plView2 := nil;
2991       end;
2992
2993     if (plView1 = nil) and (plView2 = nil) and (gSpectMode = SPECT_NONE) then
2994       gSpectMode := SPECT_STATS;
2995
2996     if gSpectMode = SPECT_PLAYERS then
2997       if gPlayers <> nil then
2998       begin
2999         plView1 := GetActivePlayer_ByID(gSpectPID1);
3000         if plView1 = nil then
3001         begin
3002           gSpectPID1 := GetActivePlayerID_Next();
3003           plView1 := GetActivePlayer_ByID(gSpectPID1);
3004         end;
3005         if gSpectViewTwo then
3006         begin
3007           plView2 := GetActivePlayer_ByID(gSpectPID2);
3008           if plView2 = nil then
3009           begin
3010             gSpectPID2 := GetActivePlayerID_Next();
3011             plView2 := GetActivePlayer_ByID(gSpectPID2);
3012           end;
3013         end;
3014       end;
3015
3016     if gSpectMode = SPECT_MAPVIEW then
3017     begin
3018     // Ðåæèì ïðîñìîòðà êàðòû
3019       Split := False;
3020       e_SetViewPort(0, 0, gScreenWidth, gScreenHeight);
3021       DrawMapView(gSpectX, gSpectY, gScreenWidth, gScreenHeight);
3022       gHearPoint1.Active := True;
3023       gHearPoint1.Coords.X := gScreenWidth div 2 + gSpectX;
3024       gHearPoint1.Coords.Y := gScreenHeight div 2 + gSpectY;
3025       gHearPoint2.Active := False;
3026     end
3027     else
3028     begin
3029       Split := (plView1 <> nil) and (plView2 <> nil);
3030
3031     // Òî÷êè ñëóõà èãðîêîâ
3032       if plView1 <> nil then
3033       begin
3034         gHearPoint1.Active := True;
3035         gHearPoint1.Coords.X := plView1.GameX;
3036         gHearPoint1.Coords.Y := plView1.GameY;
3037       end else
3038         gHearPoint1.Active := False;
3039       if plView2 <> nil then
3040       begin
3041         gHearPoint2.Active := True;
3042         gHearPoint2.Coords.X := plView2.GameX;
3043         gHearPoint2.Coords.Y := plView2.GameY;
3044       end else
3045         gHearPoint2.Active := False;
3046
3047     // Ðàçìåð ýêðàíîâ èãðîêîâ:
3048       gPlayerScreenSize.X := gScreenWidth-196;
3049       if Split then
3050       begin
3051         gPlayerScreenSize.Y := gScreenHeight div 2;
3052         if gScreenHeight mod 2 = 0 then
3053           Dec(gPlayerScreenSize.Y);
3054       end
3055       else
3056         gPlayerScreenSize.Y := gScreenHeight;
3057
3058       if Split then
3059         if gScreenHeight mod 2 = 0 then
3060           e_SetViewPort(0, gPlayerScreenSize.Y+2, gPlayerScreenSize.X+196, gPlayerScreenSize.Y)
3061         else
3062           e_SetViewPort(0, gPlayerScreenSize.Y+1, gPlayerScreenSize.X+196, gPlayerScreenSize.Y);
3063
3064       DrawPlayer(plView1);
3065       gPlayer1ScreenCoord.X := sX;
3066       gPlayer1ScreenCoord.Y := sY;
3067
3068       if Split then
3069       begin
3070         e_SetViewPort(0, 0, gPlayerScreenSize.X+196, gPlayerScreenSize.Y);
3071
3072         DrawPlayer(plView2);
3073         gPlayer2ScreenCoord.X := sX;
3074         gPlayer2ScreenCoord.Y := sY;
3075       end;
3076
3077       e_SetViewPort(0, 0, gScreenWidth, gScreenHeight);
3078
3079       if Split then
3080         e_DrawLine(2, 0, gScreenHeight div 2, gScreenWidth, gScreenHeight div 2, 0, 0, 0);
3081     end;
3082
3083     if MessageText <> '' then
3084     begin
3085       w := 0;
3086       h := 0;
3087       e_CharFont_GetSizeFmt(gMenuFont, MessageText, w, h);
3088       if Split then
3089         e_CharFont_PrintFmt(gMenuFont, (gScreenWidth div 2)-(w div 2),
3090                         (gScreenHeight div 2)-(h div 2), MessageText)
3091       else
3092         e_CharFont_PrintFmt(gMenuFont, (gScreenWidth div 2)-(w div 2),
3093                   Round(gScreenHeight / 2.75)-(h div 2), MessageText);
3094     end;
3095
3096     if IsDrawStat or (gSpectMode = 1) then DrawStat();
3097
3098     if gSpectHUD and (not gChatShow) and (gSpectMode <> SPECT_NONE) then
3099     begin
3100     // Draw spectator GUI
3101       ww := 0;
3102       hh := 0;
3103       e_TextureFontGetSize(gStdFont, ww, hh);
3104       case gSpectMode of
3105         SPECT_STATS:
3106           e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Stats', gStdFont, 255, 255, 255, 1);
3107         SPECT_MAPVIEW:
3108           e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Observe Map', gStdFont, 255, 255, 255, 1);
3109         SPECT_PLAYERS:
3110           e_TextureFontPrintEx(0, gScreenHeight - (hh+2)*2, 'MODE: Watch Players', gStdFont, 255, 255, 255, 1);
3111       end;
3112       e_TextureFontPrintEx(2*ww, gScreenHeight - (hh+2), '< jump >', gStdFont, 255, 255, 255, 1);
3113       if gSpectMode = SPECT_MAPVIEW then
3114       begin
3115         e_TextureFontPrintEx(22*ww, gScreenHeight - (hh+2)*2, '[-]', gStdFont, 255, 255, 255, 1);
3116         e_TextureFontPrintEx(26*ww, gScreenHeight - (hh+2)*2, 'Step ' + IntToStr(gSpectStep), gStdFont, 255, 255, 255, 1);
3117         e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2)*2, '[+]', gStdFont, 255, 255, 255, 1);
3118         e_TextureFontPrintEx(18*ww, gScreenHeight - (hh+2), '<prev weap>', gStdFont, 255, 255, 255, 1);
3119         e_TextureFontPrintEx(30*ww, gScreenHeight - (hh+2), '<next weap>', gStdFont, 255, 255, 255, 1);
3120       end;
3121       if gSpectMode = SPECT_PLAYERS then
3122       begin
3123         e_TextureFontPrintEx(22*ww, gScreenHeight - (hh+2)*2, 'Player 1', gStdFont, 255, 255, 255, 1);
3124         e_TextureFontPrintEx(20*ww, gScreenHeight - (hh+2), '<left/right>', gStdFont, 255, 255, 255, 1);
3125         if gSpectViewTwo then
3126         begin
3127           e_TextureFontPrintEx(37*ww, gScreenHeight - (hh+2)*2, 'Player 2', gStdFont, 255, 255, 255, 1);
3128           e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2), '<prev w/next w>', gStdFont, 255, 255, 255, 1);
3129           e_TextureFontPrintEx(52*ww, gScreenHeight - (hh+2)*2, '2x View', gStdFont, 255, 255, 255, 1);
3130           e_TextureFontPrintEx(51*ww, gScreenHeight - (hh+2), '<up/down>', gStdFont, 255, 255, 255, 1);
3131         end
3132         else
3133         begin
3134           e_TextureFontPrintEx(35*ww, gScreenHeight - (hh+2)*2, '2x View', gStdFont, 255, 255, 255, 1);
3135           e_TextureFontPrintEx(34*ww, gScreenHeight - (hh+2), '<up/down>', gStdFont, 255, 255, 255, 1);
3136         end;
3137       end;
3138     end;
3139   end;
3140
3141   if gPause and gGameOn and (g_ActiveWindow = nil) then
3142   begin
3143     e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3144
3145     e_CharFont_GetSize(gMenuFont, _lc[I_MENU_PAUSE], w, h);
3146     e_CharFont_Print(gMenuFont, (gScreenWidth div 2)-(w div 2),
3147                     (gScreenHeight div 2)-(h div 2), _lc[I_MENU_PAUSE]);
3148   end;
3149
3150   if not gGameOn then
3151   begin
3152     if (gState = STATE_MENU) then
3153     begin
3154       if  ((g_ActiveWindow = nil) or (g_ActiveWindow.BackTexture = '')) then
3155       begin
3156         if g_Texture_Get('MENU_BACKGROUND', ID) then
3157           e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3158         else e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3159       end;
3160       if g_ActiveWindow <> nil then
3161         e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3162     end;
3163
3164     if gState = STATE_FOLD then
3165       e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 0, 0, 0, EndingGameCounter);
3166
3167     if gState = STATE_INTERCUSTOM then
3168     begin
3169       if gLastMap and (gGameSettings.GameMode = GM_COOP) then
3170       begin
3171         back := 'TEXTURE_endpic';
3172         if not g_Texture_Get(back, ID) then
3173           back := _lc[I_TEXTURE_ENDPIC];
3174       end
3175       else
3176         back := 'INTER';
3177
3178       if g_Texture_Get(back, ID) then
3179         e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3180       else
3181         e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3182
3183       DrawCustomStat();
3184
3185       if g_ActiveWindow <> nil then
3186         e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3187     end;
3188
3189     if gState = STATE_INTERSINGLE then
3190     begin
3191       if EndingGameCounter > 0 then
3192         e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 0, 0, 0, EndingGameCounter)
3193       else
3194       begin
3195         back := 'INTER';
3196
3197         if g_Texture_Get(back, ID) then
3198           e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3199         else
3200           e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3201
3202         DrawSingleStat();
3203
3204         if g_ActiveWindow <> nil then
3205           e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3206       end;
3207     end;
3208
3209     if gState = STATE_ENDPIC then
3210     begin
3211       ID := DWORD(-1);
3212       if not g_Texture_Get('TEXTURE_endpic', ID) then
3213         g_Texture_Get(_lc[I_TEXTURE_ENDPIC], ID);
3214
3215       if ID <> DWORD(-1) then
3216         e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight)
3217       else
3218         e_Clear(GL_COLOR_BUFFER_BIT, 0, 0, 0);
3219
3220       if g_ActiveWindow <> nil then
3221         e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3222     end;
3223
3224     if gState = STATE_SLIST then
3225     begin
3226       if g_Texture_Get('MENU_BACKGROUND', ID) then
3227       begin
3228         e_DrawSize(ID, 0, 0, 0, False, False, gScreenWidth, gScreenHeight);
3229         e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3230       end;
3231       g_Serverlist_Draw(slCurrent);
3232     end;
3233   end;
3234
3235   if g_ActiveWindow <> nil then
3236   begin
3237     if gGameOn then
3238       e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
3239     g_ActiveWindow.Draw();
3240   end;
3241
3242   g_Console_Draw();
3243
3244   if g_debug_Sounds and gGameOn then
3245   begin
3246     for w := 0 to High(e_SoundsArray) do
3247       for h := 0 to e_SoundsArray[w].nRefs do
3248         e_DrawPoint(1, w+100, h+100, 255, 0, 0);
3249   end;
3250
3251   if gShowFPS then
3252   begin
3253     e_TextureFontPrint(0, 0, Format('FPS: %d', [FPS]), gStdFont);
3254     e_TextureFontPrint(0, 16, Format('UPS: %d', [UPS]), gStdFont);
3255   end;
3256
3257   if gGameOn and gShowTime and (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
3258   e_TextureFontPrint(gScreenWidth-72, 0,
3259                      Format('%d:%.2d:%.2d', [gTime div 1000 div 3600, (gTime div 1000 div 60) mod 60, gTime div 1000 mod 60]),
3260                      gStdFont);
3261
3262   if gGameOn then drawProfilers();
3263 end;
3264
3265 procedure g_Game_Quit();
3266 begin
3267   g_Game_StopAllSounds(True);
3268   gMusic.Free();
3269   g_Game_SaveOptions();
3270   g_Game_FreeData();
3271   g_PlayerModel_FreeData();
3272   g_Texture_DeleteAll();
3273   g_Frames_DeleteAll();
3274   g_Menu_Free();
3275
3276   if NetInitDone then g_Net_Free;
3277
3278 // Íàäî óäàëèòü êàðòó ïîñëå òåñòà:
3279   if gMapToDelete <> '' then
3280     g_Game_DeleteTestMap();
3281
3282   gExit := EXIT_QUIT;
3283   PushExitEvent();
3284 end;
3285
3286 procedure g_FatalError(Text: String);
3287 begin
3288   g_Console_Add(Format(_lc[I_FATAL_ERROR], [Text]), True);
3289   e_WriteLog(Format(_lc[I_FATAL_ERROR], [Text]), MSG_WARNING);
3290
3291   gExit := EXIT_SIMPLE;
3292 end;
3293
3294 procedure g_SimpleError(Text: String);
3295 begin
3296   g_Console_Add(Format(_lc[I_SIMPLE_ERROR], [Text]), True);
3297   e_WriteLog(Format(_lc[I_SIMPLE_ERROR], [Text]), MSG_WARNING);
3298 end;
3299
3300 procedure g_Game_SetupScreenSize();
3301 var
3302   d: Single;
3303 begin
3304 // Ðàçìåð ýêðàíîâ èãðîêîâ:
3305   gPlayerScreenSize.X := gScreenWidth-196;
3306   if (gPlayer1 <> nil) and (gPlayer2 <> nil) then
3307     gPlayerScreenSize.Y := gScreenHeight div 2
3308   else
3309     gPlayerScreenSize.Y := gScreenHeight;
3310
3311 // Ðàçìåð çàäíåãî ïëàíà:
3312   if BackID <> DWORD(-1) then
3313   begin
3314     d := SKY_STRETCH;
3315
3316     if (gScreenWidth*d > gMapInfo.Width) or
3317        (gScreenHeight*d > gMapInfo.Height) then
3318       d := 1.0;
3319
3320     gBackSize.X := Round(gScreenWidth*d);
3321     gBackSize.Y := Round(gScreenHeight*d);
3322   end;
3323 end;
3324
3325 procedure g_Game_ChangeResolution(newWidth, newHeight: Word; nowFull, nowMax: Boolean);
3326 begin
3327   g_Window_SetSize(newWidth, newHeight, nowFull);
3328 end;
3329
3330 procedure g_Game_AddPlayer(Team: Byte = TEAM_NONE);
3331 begin
3332   if ((not gGameOn) and (gState <> STATE_INTERCUSTOM))
3333   or (not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT])) then
3334     Exit;
3335   if gPlayer1 = nil then
3336   begin
3337     if g_Game_IsClient then
3338     begin
3339       if NetPlrUID1 > -1 then
3340       begin
3341         MC_SEND_CheatRequest(NET_CHEAT_SPECTATE);
3342         gPlayer1 := g_Player_Get(NetPlrUID1);
3343       end;
3344       Exit;
3345     end;
3346
3347     if not (Team in [TEAM_RED, TEAM_BLUE]) then
3348       Team := gPlayer1Settings.Team;
3349
3350     // Ñîçäàíèå ïåðâîãî èãðîêà:
3351     gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3352                                              gPlayer1Settings.Color,
3353                                              Team, False));
3354     if gPlayer1 = nil then
3355       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]))
3356     else
3357     begin
3358       gPlayer1.Name := gPlayer1Settings.Name;
3359       g_Console_Add(Format(_lc[I_PLAYER_JOIN], [gPlayer1.Name]), True);
3360       if g_Game_IsServer and g_Game_IsNet then
3361         MH_SEND_PlayerCreate(gPlayer1.UID);
3362       gPlayer1.Respawn(False, True);
3363
3364       if g_Game_IsNet and NetUseMaster then
3365         g_Net_Slist_Update;
3366     end;
3367
3368     Exit;
3369   end;
3370   if gPlayer2 = nil then
3371   begin
3372     if g_Game_IsClient then
3373     begin
3374       if NetPlrUID2 > -1 then
3375         gPlayer2 := g_Player_Get(NetPlrUID2);
3376       Exit;
3377     end;
3378
3379     if not (Team in [TEAM_RED, TEAM_BLUE]) then
3380       Team := gPlayer2Settings.Team;
3381
3382     // Ñîçäàíèå âòîðîãî èãðîêà:
3383     gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3384                                              gPlayer2Settings.Color,
3385                                              Team, False));
3386     if gPlayer2 = nil then
3387       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]))
3388     else
3389     begin
3390       gPlayer2.Name := gPlayer2Settings.Name;
3391       g_Console_Add(Format(_lc[I_PLAYER_JOIN], [gPlayer2.Name]), True);
3392       if g_Game_IsServer and g_Game_IsNet then
3393         MH_SEND_PlayerCreate(gPlayer2.UID);
3394       gPlayer2.Respawn(False, True);
3395
3396       if g_Game_IsNet and NetUseMaster then
3397         g_Net_Slist_Update;
3398     end;
3399
3400     Exit;
3401   end;
3402 end;
3403
3404 procedure g_Game_RemovePlayer();
3405 var
3406   Pl: TPlayer;
3407 begin
3408   if ((not gGameOn) and (gState <> STATE_INTERCUSTOM))
3409   or (not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT])) then
3410     Exit;
3411   Pl := gPlayer2;
3412   if Pl <> nil then
3413   begin
3414     if g_Game_IsServer then
3415     begin
3416       Pl.Lives := 0;
3417       Pl.Kill(K_SIMPLEKILL, 0, HIT_DISCON);
3418       g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [Pl.Name]), True);
3419       g_Player_Remove(Pl.UID);
3420
3421       if g_Game_IsNet and NetUseMaster then
3422         g_Net_Slist_Update;
3423     end else
3424       gPlayer2 := nil;
3425     Exit;
3426   end;
3427   Pl := gPlayer1;
3428   if Pl <> nil then
3429   begin
3430     if g_Game_IsServer then
3431     begin
3432       Pl.Lives := 0;
3433       Pl.Kill(K_SIMPLEKILL, 0, HIT_DISCON);
3434       g_Console_Add(Format(_lc[I_PLAYER_LEAVE], [Pl.Name]), True);
3435       g_Player_Remove(Pl.UID);
3436
3437       if g_Game_IsNet and NetUseMaster then
3438         g_Net_Slist_Update;
3439     end else
3440     begin
3441       gPlayer1 := nil;
3442       MC_SEND_CheatRequest(NET_CHEAT_SPECTATE);
3443     end;
3444     Exit;
3445   end;
3446 end;
3447
3448 procedure g_Game_Spectate();
3449 begin
3450   g_Game_RemovePlayer();
3451   if gPlayer1 <> nil then
3452     g_Game_RemovePlayer();
3453 end;
3454
3455 procedure g_Game_SpectateCenterView();
3456 begin
3457   gSpectX := Max(gMapInfo.Width div 2 - gScreenWidth div 2, 0);
3458   gSpectY := Max(gMapInfo.Height div 2 - gScreenHeight div 2, 0);
3459 end;
3460
3461 procedure g_Game_StartSingle(Map: String; TwoPlayers: Boolean; nPlayers: Byte);
3462 var
3463   i, nPl: Integer;
3464 begin
3465   g_Game_Free();
3466
3467   e_WriteLog('Starting singleplayer game...', MSG_NOTIFY);
3468
3469   g_Game_ClearLoading();
3470
3471 // Íàñòðîéêè èãðû:
3472   FillByte(gGameSettings, SizeOf(TGameSettings), 0);
3473   gAimLine := False;
3474   gShowMap := False;
3475   gGameSettings.GameType := GT_SINGLE;
3476   gGameSettings.MaxLives := 0;
3477   gGameSettings.Options := gGameSettings.Options + GAME_OPTION_ALLOWEXIT;
3478   gGameSettings.Options := gGameSettings.Options + GAME_OPTION_MONSTERS;
3479   gGameSettings.Options := gGameSettings.Options + GAME_OPTION_BOTVSMONSTER;
3480   gSwitchGameMode := GM_SINGLE;
3481
3482   g_Game_ExecuteEvent('ongamestart');
3483
3484 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3485   g_Game_SetupScreenSize();
3486
3487 // Ñîçäàíèå ïåðâîãî èãðîêà:
3488   gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3489                                            gPlayer1Settings.Color,
3490                                            gPlayer1Settings.Team, False));
3491   if gPlayer1 = nil then
3492   begin
3493     g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3494     Exit;
3495   end;
3496
3497   gPlayer1.Name := gPlayer1Settings.Name;
3498   nPl := 1;
3499
3500 // Ñîçäàíèå âòîðîãî èãðîêà, åñëè åñòü:
3501   if TwoPlayers then
3502   begin
3503     gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3504                                              gPlayer2Settings.Color,
3505                                              gPlayer2Settings.Team, False));
3506     if gPlayer2 = nil then
3507     begin
3508       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3509       Exit;
3510     end;
3511
3512     gPlayer2.Name := gPlayer2Settings.Name;
3513     Inc(nPl);
3514   end;
3515
3516 // Çàãðóçêà è çàïóñê êàðòû:
3517   if not g_Game_StartMap(MAP, True) then
3518   begin
3519     g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [gGameSettings.WAD + ':\' + MAP]));
3520     Exit;
3521   end;
3522
3523 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3524   g_Player_Init();
3525
3526 // Ñîçäàåì áîòîâ:
3527   for i := nPl+1 to nPlayers do
3528     g_Player_Create(STD_PLAYER_MODEL, _RGB(0, 0, 0), 0, True);
3529 end;
3530
3531 procedure g_Game_StartCustom(Map: String; GameMode: Byte;
3532                              TimeLimit, GoalLimit: Word;
3533                              MaxLives: Byte;
3534                              Options: LongWord; nPlayers: Byte);
3535 var
3536   i, nPl: Integer;
3537 begin
3538   g_Game_Free();
3539
3540   e_WriteLog('Starting custom game...', MSG_NOTIFY);
3541
3542   g_Game_ClearLoading();
3543
3544 // Íàñòðîéêè èãðû:
3545   gGameSettings.GameType := GT_CUSTOM;
3546   gGameSettings.GameMode := GameMode;
3547   gSwitchGameMode := GameMode;
3548   gGameSettings.TimeLimit := TimeLimit;
3549   gGameSettings.GoalLimit := GoalLimit;
3550   gGameSettings.MaxLives := IfThen(GameMode = GM_CTF, 0, MaxLives);
3551   gGameSettings.Options := Options;
3552
3553   gCoopTotalMonstersKilled := 0;
3554   gCoopTotalSecretsFound := 0;
3555   gCoopTotalMonsters := 0;
3556   gCoopTotalSecrets := 0;
3557   gAimLine := False;
3558   gShowMap := False;
3559
3560   g_Game_ExecuteEvent('ongamestart');
3561
3562 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3563   g_Game_SetupScreenSize();
3564
3565 // Ðåæèì íàáëþäàòåëÿ:
3566   if nPlayers = 0 then
3567   begin
3568     gPlayer1 := nil;
3569     gPlayer2 := nil;
3570   end;
3571
3572   nPl := 0;
3573   if nPlayers >= 1 then
3574   begin
3575   // Ñîçäàíèå ïåðâîãî èãðîêà:
3576     gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3577                                              gPlayer1Settings.Color,
3578                                              gPlayer1Settings.Team, False));
3579     if gPlayer1 = nil then
3580     begin
3581       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3582       Exit;
3583     end;
3584
3585     gPlayer1.Name := gPlayer1Settings.Name;
3586     Inc(nPl);
3587   end;
3588
3589   if nPlayers >= 2 then
3590   begin
3591   // Ñîçäàíèå âòîðîãî èãðîêà:
3592     gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3593                                              gPlayer2Settings.Color,
3594                                              gPlayer2Settings.Team, False));
3595     if gPlayer2 = nil then
3596     begin
3597       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3598       Exit;
3599     end;
3600
3601     gPlayer2.Name := gPlayer2Settings.Name;
3602     Inc(nPl);
3603   end;
3604
3605 // Çàãðóçêà è çàïóñê êàðòû:
3606   if not g_Game_StartMap(Map, True) then
3607   begin
3608     g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [Map]));
3609     Exit;
3610   end;
3611
3612 // Íåò òî÷åê ïîÿâëåíèÿ:
3613   if (g_Map_GetPointCount(RESPAWNPOINT_PLAYER1) +
3614       g_Map_GetPointCount(RESPAWNPOINT_PLAYER2) +
3615       g_Map_GetPointCount(RESPAWNPOINT_DM) +
3616       g_Map_GetPointCount(RESPAWNPOINT_RED)+
3617       g_Map_GetPointCount(RESPAWNPOINT_BLUE)) < 1 then
3618   begin
3619     g_FatalError(_lc[I_GAME_ERROR_GET_SPAWN]);
3620     Exit;
3621   end;
3622
3623 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3624   g_Player_Init();
3625
3626 // Ñîçäàåì áîòîâ:
3627   for i := nPl+1 to nPlayers do
3628     g_Player_Create(STD_PLAYER_MODEL, _RGB(0, 0, 0), 0, True);
3629 end;
3630
3631 procedure g_Game_StartServer(Map: String; GameMode: Byte;
3632                              TimeLimit, GoalLimit: Word; MaxLives: Byte;
3633                              Options: LongWord; nPlayers: Byte;
3634                              IPAddr: LongWord; Port: Word);
3635 begin
3636   g_Game_Free();
3637
3638   e_WriteLog('Starting net game (server)...', MSG_NOTIFY);
3639
3640   g_Game_ClearLoading();
3641
3642 // Íàñòðîéêè èãðû:
3643   gGameSettings.GameType := GT_SERVER;
3644   gGameSettings.GameMode := GameMode;
3645   gSwitchGameMode := GameMode;
3646   gGameSettings.TimeLimit := TimeLimit;
3647   gGameSettings.GoalLimit := GoalLimit;
3648   gGameSettings.MaxLives := IfThen(GameMode = GM_CTF, 0, MaxLives);
3649   gGameSettings.Options := Options;
3650
3651   gCoopTotalMonstersKilled := 0;
3652   gCoopTotalSecretsFound := 0;
3653   gCoopTotalMonsters := 0;
3654   gCoopTotalSecrets := 0;
3655   gAimLine := False;
3656   gShowMap := False;
3657
3658   g_Game_ExecuteEvent('ongamestart');
3659
3660 // Óñòàíîâêà ðàçìåðîâ îêíà èãðîêà
3661   g_Game_SetupScreenSize();
3662
3663 // Ðåæèì íàáëþäàòåëÿ:
3664   if nPlayers = 0 then
3665   begin
3666     gPlayer1 := nil;
3667     gPlayer2 := nil;
3668   end;
3669
3670   if nPlayers >= 1 then
3671   begin
3672   // Ñîçäàíèå ïåðâîãî èãðîêà:
3673     gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3674                                              gPlayer1Settings.Color,
3675                                              gPlayer1Settings.Team, False));
3676     if gPlayer1 = nil then
3677     begin
3678       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3679       Exit;
3680     end;
3681
3682     gPlayer1.Name := gPlayer1Settings.Name;
3683   end;
3684
3685   if nPlayers >= 2 then
3686   begin
3687   // Ñîçäàíèå âòîðîãî èãðîêà:
3688     gPlayer2 := g_Player_Get(g_Player_Create(gPlayer2Settings.Model,
3689                                              gPlayer2Settings.Color,
3690                                              gPlayer2Settings.Team, False));
3691     if gPlayer2 = nil then
3692     begin
3693       g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [2]));
3694       Exit;
3695     end;
3696
3697     gPlayer2.Name := gPlayer2Settings.Name;
3698   end;
3699
3700 // Ñòàðòóåì ñåðâåð
3701   if not g_Net_Host(IPAddr, Port, NetMaxClients) then
3702   begin
3703     g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_HOST]);
3704     Exit;
3705   end;
3706
3707   g_Net_Slist_Set(NetSlistIP, NetSlistPort);
3708
3709 // Çàãðóçêà è çàïóñê êàðòû:
3710   if not g_Game_StartMap(Map, True) then
3711   begin
3712     g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [Map]));
3713     Exit;
3714   end;
3715
3716 // Íåò òî÷åê ïîÿâëåíèÿ:
3717   if (g_Map_GetPointCount(RESPAWNPOINT_PLAYER1) +
3718       g_Map_GetPointCount(RESPAWNPOINT_PLAYER2) +
3719       g_Map_GetPointCount(RESPAWNPOINT_DM) +
3720       g_Map_GetPointCount(RESPAWNPOINT_RED)+
3721       g_Map_GetPointCount(RESPAWNPOINT_BLUE)) < 1 then
3722   begin
3723     g_FatalError(_lc[I_GAME_ERROR_GET_SPAWN]);
3724     Exit;
3725   end;
3726
3727 // Íàñòðîéêè èãðîêîâ è áîòîâ:
3728   g_Player_Init();
3729
3730   NetState := NET_STATE_GAME;
3731 end;
3732
3733 procedure g_Game_StartClient(Addr: String; Port: Word; PW: String);
3734 var
3735   Map: String;
3736   WadName: string;
3737   Ptr: Pointer;
3738   T: Cardinal;
3739   MID: Byte;
3740   State: Byte;
3741   OuterLoop: Boolean;
3742   newResPath: string;
3743 begin
3744   g_Game_Free();
3745
3746   State := 0;
3747   e_WriteLog('Starting net game (client)...', MSG_NOTIFY);
3748   e_WriteLog('NET: Trying to connect to ' + Addr + ':' + IntToStr(Port) + '...', MSG_NOTIFY);
3749
3750   g_Game_ClearLoading();
3751
3752 // Íàñòðîéêè èãðû:
3753   gGameSettings.GameType := GT_CLIENT;
3754
3755   gCoopTotalMonstersKilled := 0;
3756   gCoopTotalSecretsFound := 0;
3757   gCoopTotalMonsters := 0;
3758   gCoopTotalSecrets := 0;
3759   gAimLine := False;
3760   gShowMap := False;
3761
3762   g_Game_ExecuteEvent('ongamestart');
3763
3764 // Óñòàíîâêà ðàçìåðîâ îêîí èãðîêîâ:
3765   g_Game_SetupScreenSize();
3766
3767   NetState := NET_STATE_AUTH;
3768
3769   g_Game_SetLoadingText(_lc[I_LOAD_CONNECT], 0, False);
3770 // Ñòàðòóåì êëèåíò
3771   if not g_Net_Connect(Addr, Port) then
3772   begin
3773     g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_CONN]);
3774     NetState := NET_STATE_NONE;
3775     Exit;
3776   end;
3777
3778   g_Game_SetLoadingText(_lc[I_LOAD_SEND_INFO], 0, False);
3779   MC_SEND_Info(PW);
3780   g_Game_SetLoadingText(_lc[I_LOAD_WAIT_INFO], 0, False);
3781
3782   OuterLoop := True;
3783   while OuterLoop do
3784   begin
3785     while (enet_host_service(NetHost, @NetEvent, 0) > 0) do
3786     begin
3787       if (NetEvent.kind = ENET_EVENT_TYPE_RECEIVE) then
3788       begin
3789         Ptr := NetEvent.packet^.data;
3790         e_Raw_Seek(0);
3791
3792         MID := e_Raw_Read_Byte(Ptr);
3793
3794         if (MID = NET_MSG_INFO) and (State = 0) then
3795         begin
3796           NetMyID := e_Raw_Read_Byte(Ptr);
3797           NetPlrUID1 := e_Raw_Read_Word(Ptr);
3798
3799           WadName := e_Raw_Read_String(Ptr);
3800           Map := e_Raw_Read_String(Ptr);
3801
3802           gWADHash := e_Raw_Read_MD5(Ptr);
3803
3804           gGameSettings.GameMode := e_Raw_Read_Byte(Ptr);
3805           gSwitchGameMode := gGameSettings.GameMode;
3806           gGameSettings.GoalLimit := e_Raw_Read_Word(Ptr);
3807           gGameSettings.TimeLimit := e_Raw_Read_Word(Ptr);
3808           gGameSettings.MaxLives := e_Raw_Read_Byte(Ptr);
3809           gGameSettings.Options := e_Raw_Read_LongWord(Ptr);
3810           T := e_Raw_Read_LongWord(Ptr);
3811
3812           newResPath := g_Res_SearchSameWAD(MapsDir, WadName, gWADHash);
3813           if newResPath = '' then
3814           begin
3815             g_Game_SetLoadingText(_lc[I_LOAD_DL_RES], 0, False);
3816             newResPath := g_Res_DownloadWAD(WadName);
3817             if newResPath = '' then
3818             begin
3819               g_FatalError(_lc[I_NET_ERR_HASH]);
3820               enet_packet_destroy(NetEvent.packet);
3821               NetState := NET_STATE_NONE;
3822               Exit;
3823             end;
3824           end;
3825           newResPath := ExtractRelativePath(MapsDir, newResPath);
3826
3827           gPlayer1 := g_Player_Get(g_Player_Create(gPlayer1Settings.Model,
3828                                                    gPlayer1Settings.Color,
3829                                                    gPlayer1Settings.Team, False));
3830
3831           if gPlayer1 = nil then
3832           begin
3833             g_FatalError(Format(_lc[I_GAME_ERROR_PLAYER_CREATE], [1]));
3834
3835             enet_packet_destroy(NetEvent.packet);
3836             NetState := NET_STATE_NONE;
3837             Exit;
3838           end;
3839
3840           gPlayer1.Name := gPlayer1Settings.Name;
3841           gPlayer1.UID := NetPlrUID1;
3842           gPlayer1.Reset(True);
3843
3844           if not g_Game_StartMap(newResPath + ':\' + Map, True) then
3845           begin
3846             g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [WadName + ':\' + Map]));
3847
3848             enet_packet_destroy(NetEvent.packet);
3849             NetState := NET_STATE_NONE;
3850             Exit;
3851           end;
3852
3853           gTime := T;
3854
3855           State := 1;
3856           OuterLoop := False;
3857           enet_packet_destroy(NetEvent.packet);
3858           break;
3859         end
3860         else
3861           enet_packet_destroy(NetEvent.packet);
3862       end
3863       else
3864         if (NetEvent.kind = ENET_EVENT_TYPE_DISCONNECT) then
3865         begin
3866           State := 0;
3867           if (NetEvent.data <= NET_DISC_MAX) then
3868             g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_ERR_CONN] + ' ' +
3869             _lc[TStrings_Locale(Cardinal(I_NET_DISC_NONE) + NetEvent.data)], True);
3870           OuterLoop := False;
3871           Break;
3872         end;
3873     end;
3874
3875     ProcessLoading();
3876
3877     e_PollInput();
3878
3879     if e_KeyPressed(IK_ESCAPE) or e_KeyPressed(IK_SPACE) then
3880     begin
3881       State := 0;
3882       break;
3883     end;
3884   end;
3885
3886   if State <> 1 then
3887   begin
3888     g_FatalError(_lc[I_NET_MSG] + _lc[I_NET_ERR_CONN]);
3889     NetState := NET_STATE_NONE;
3890     Exit;
3891   end;
3892
3893   gLMSRespawn := LMS_RESPAWN_NONE;
3894   gLMSRespawnTime := 0;
3895
3896   g_Player_Init();
3897   NetState := NET_STATE_GAME;
3898   MC_SEND_FullStateRequest;
3899   e_WriteLog('NET: Connection successful.', MSG_NOTIFY);
3900 end;
3901
3902 procedure g_Game_SaveOptions();
3903 begin
3904   g_Options_Write_Video(GameDir+'/'+CONFIG_FILENAME);
3905 end;
3906
3907 procedure g_Game_ChangeMap(MapPath: String);
3908 var
3909   Force: Boolean;
3910 begin
3911   g_Game_ClearLoading();
3912
3913   Force := gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF];
3914   // Åñëè óðîâåíü çàâåðøèëñÿ ïî òðèããåðó Âûõîä, íå î÷èùàòü èíâåíòàðü
3915   if gExitByTrigger then
3916   begin
3917     Force := False;
3918     gExitByTrigger := False;
3919   end;
3920   if not g_Game_StartMap(MapPath, Force) then
3921     g_FatalError(Format(_lc[I_GAME_ERROR_MAP_LOAD], [MapPath]));
3922 end;
3923
3924 procedure g_Game_Restart();
3925 var
3926   Map: string;
3927 begin
3928   if g_Game_IsClient then
3929     Exit;
3930   map := g_ExtractFileName(gMapInfo.Map);
3931
3932   MessageTime := 0;
3933   gGameOn := False;
3934   g_Game_ClearLoading();
3935   g_Game_StartMap(Map, True);
3936 end;
3937
3938 function g_Game_StartMap(Map: String; Force: Boolean = False): Boolean;
3939 var
3940   NewWAD, ResName: String;
3941   I: Integer;
3942 begin
3943   g_Map_Free();
3944   g_Player_RemoveAllCorpses();
3945
3946   if (not g_Game_IsClient) and
3947      (gSwitchGameMode <> gGameSettings.GameMode) and
3948      (gGameSettings.GameMode <> GM_SINGLE) then
3949   begin
3950     if gSwitchGameMode = GM_CTF then
3951       gGameSettings.MaxLives := 0;
3952     gGameSettings.GameMode := gSwitchGameMode;
3953     Force := True;
3954   end else
3955     gSwitchGameMode := gGameSettings.GameMode;
3956
3957   g_Player_ResetTeams();
3958
3959   if Pos(':\', Map) > 0 then
3960   begin
3961     NewWAD := g_ExtractWadName(Map);
3962     ResName := g_ExtractFileName(Map);
3963     if g_Game_IsServer then
3964     begin
3965       gWADHash := MD5File(MapsDir + NewWAD);
3966       g_Game_LoadWAD(NewWAD);
3967     end else
3968       // hash recieved in MC_RECV_GameEvent -> NET_EV_MAPSTART
3969       g_Game_ClientWAD(NewWAD, gWADHash);
3970   end else
3971     ResName := Map;
3972
3973   Result := g_Map_Load(MapsDir + gGameSettings.WAD + ':\' + ResName);
3974   if Result then
3975     begin
3976       g_Player_ResetAll(Force or gLastMap, gGameSettings.GameType = GT_SINGLE);
3977
3978       gState := STATE_NONE;
3979       g_ActiveWindow := nil;
3980       gGameOn := True;
3981
3982       DisableCheats();
3983       ResetTimer();
3984
3985       if gGameSettings.GameMode = GM_CTF then
3986       begin
3987         g_Map_ResetFlag(FLAG_RED);
3988         g_Map_ResetFlag(FLAG_BLUE);
3989         // CTF, à ôëàãîâ íåò:
3990         if not g_Map_HaveFlagPoints() then
3991           g_SimpleError(_lc[I_GAME_ERROR_CTF]);
3992       end;
3993     end
3994   else
3995     begin
3996       gState := STATE_MENU;
3997       gGameOn := False;
3998     end;
3999
4000   gExit := 0;
4001   gPause := False;
4002   gTime := 0;
4003   NetTimeToUpdate := 1;
4004   NetTimeToReliable := 0;
4005   NetTimeToMaster := NetMasterRate;
4006   gLMSRespawn := LMS_RESPAWN_NONE;
4007   gLMSRespawnTime := 0;
4008   gMissionFailed := False;
4009   gNextMap := '';
4010
4011   gCoopMonstersKilled := 0;
4012   gCoopSecretsFound := 0;
4013
4014   gVoteInProgress := False;
4015   gVotePassed := False;
4016   gVoteCount := 0;
4017   gVoted := False;
4018
4019   gStatsOff := False;
4020
4021   if not gGameOn then Exit;
4022
4023   g_Game_SpectateCenterView();
4024
4025   if (gGameSettings.MaxLives > 0) and (gGameSettings.WarmupTime > 0) then
4026   begin
4027     gLMSRespawn := LMS_RESPAWN_WARMUP;
4028     gLMSRespawnTime := gTime + gGameSettings.WarmupTime*1000;
4029     gLMSSoftSpawn := True;
4030     if NetMode = NET_SERVER then
4031       MH_SEND_GameEvent(NET_EV_LMS_WARMUP, (gLMSRespawnTime - gTime) div 1000)
4032     else
4033       g_Console_Add(Format(_lc[I_MSG_WARMUP_START], [(gLMSRespawnTime - gTime) div 1000]), True);
4034   end;
4035
4036   if NetMode = NET_SERVER then
4037   begin
4038     MH_SEND_GameEvent(NET_EV_MAPSTART, gGameSettings.GameMode, Map);
4039
4040   // Ìàñòåðñåðâåð
4041     if NetUseMaster then
4042     begin
4043       if (NetMHost = nil) or (NetMPeer = nil) then
4044         if not g_Net_Slist_Connect then
4045           g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
4046
4047       g_Net_Slist_Update;
4048     end;
4049
4050     if NetClients <> nil then
4051       for I := 0 to High(NetClients) do
4052         if NetClients[I].Used then
4053         begin
4054           NetClients[I].Voted := False;
4055           if NetClients[I].RequestedFullUpdate then
4056           begin
4057             MH_SEND_Everything((NetClients[I].State = NET_STATE_AUTH), I);
4058             NetClients[I].RequestedFullUpdate := False;
4059           end;
4060         end;
4061
4062     g_Net_UnbanNonPermHosts();
4063   end;
4064
4065   if gLastMap then
4066   begin
4067     gCoopTotalMonstersKilled := 0;
4068     gCoopTotalSecretsFound := 0;
4069     gCoopTotalMonsters := 0;
4070     gCoopTotalSecrets := 0;
4071     gLastMap := False;
4072   end;
4073
4074   g_Game_ExecuteEvent('onmapstart');
4075 end;
4076
4077 procedure SetFirstLevel();
4078 begin
4079   gNextMap := '';
4080
4081   MapList := g_Map_GetMapsList(MapsDir + gGameSettings.WAD);
4082   if MapList = nil then
4083     Exit;
4084
4085   SortSArray(MapList);
4086   gNextMap := MapList[Low(MapList)];
4087
4088   MapList := nil;
4089 end;
4090
4091 procedure g_Game_ExitLevel(Map: Char16);
4092 begin
4093   gNextMap := Map;
4094
4095   gCoopTotalMonstersKilled := gCoopTotalMonstersKilled + gCoopMonstersKilled;
4096   gCoopTotalSecretsFound := gCoopTotalSecretsFound + gCoopSecretsFound;
4097   gCoopTotalMonsters := gCoopTotalMonsters + gTotalMonsters;
4098   gCoopTotalSecrets := gCoopTotalSecrets + gSecretsCount;
4099
4100 // Âûøëè â âûõîä â Îäèíî÷íîé èãðå:
4101   if gGameSettings.GameType = GT_SINGLE then
4102     gExit := EXIT_ENDLEVELSINGLE
4103   else // Âûøëè â âûõîä â Ñâîåé èãðå
4104   begin
4105     gExit := EXIT_ENDLEVELCUSTOM;
4106     if gGameSettings.GameMode = GM_COOP then
4107       g_Player_RememberAll;
4108
4109     if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + gNextMap) then
4110     begin
4111       gLastMap := True;
4112       if gGameSettings.GameMode = GM_COOP then
4113         gStatsOff := True;
4114
4115       gStatsPressed := True;
4116       gNextMap := 'MAP01';
4117
4118       if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + gNextMap) then
4119         g_Game_NextLevel;
4120
4121       if g_Game_IsNet then
4122       begin
4123         MH_SEND_GameStats();
4124         MH_SEND_CoopStats();
4125       end;
4126     end;
4127   end;
4128 end;
4129
4130 procedure g_Game_RestartLevel();
4131 var
4132   Map: string;
4133 begin
4134   if gGameSettings.GameMode = GM_SINGLE then
4135   begin
4136     g_Game_Restart();
4137     Exit;
4138   end;
4139   gExit := EXIT_ENDLEVELCUSTOM;
4140   Map := g_ExtractFileName(gMapInfo.Map);
4141   gNextMap := Map;
4142 end;
4143
4144 procedure g_Game_ClientWAD(NewWAD: String; WHash: TMD5Digest);
4145 var
4146   gWAD: String;
4147 begin
4148   if LowerCase(NewWAD) = LowerCase(gGameSettings.WAD) then
4149     Exit;
4150   if not g_Game_IsClient then
4151     Exit;
4152   gWAD := g_Res_SearchSameWAD(MapsDir, ExtractFileName(NewWAD), WHash);
4153   if gWAD = '' then
4154   begin
4155     g_Game_SetLoadingText(_lc[I_LOAD_DL_RES], 0, False);
4156     gWAD := g_Res_DownloadWAD(ExtractFileName(NewWAD));
4157     if gWAD = '' then
4158     begin
4159       g_Game_Free();
4160       g_FatalError(Format(_lc[I_GAME_ERROR_MAP_WAD], [ExtractFileName(NewWAD)]));
4161       Exit;
4162     end;
4163   end;
4164   NewWAD := ExtractRelativePath(MapsDir, gWAD);
4165   g_Game_LoadWAD(NewWAD);
4166 end;
4167
4168 procedure g_Game_RestartRound(NoMapRestart: Boolean = False);
4169 var
4170   i, n, nb, nr: Integer;
4171
4172   function monRespawn (monidx: Integer; mon: TMonster): Boolean;
4173   begin
4174     result := false; // don't stop
4175     if not mon.FNoRespawn then mon.Respawn();
4176   end;
4177
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
4247   g_Mons_ForEach(monRespawn);
4248
4249   gLMSSoftSpawn := False;
4250 end;
4251
4252 function g_Game_GetFirstMap(WAD: String): String;
4253 begin
4254   Result := '';
4255
4256   MapList := g_Map_GetMapsList(WAD);
4257   if MapList = nil then
4258     Exit;
4259
4260   SortSArray(MapList);
4261   Result := MapList[Low(MapList)];
4262
4263   if not g_Map_Exist(WAD + ':\' + Result) then
4264     Result := '';
4265
4266   MapList := nil;
4267 end;
4268
4269 function g_Game_GetNextMap(): String;
4270 var
4271   I: Integer;
4272   Map: string;
4273 begin
4274   Result := '';
4275
4276   MapList := g_Map_GetMapsList(MapsDir + gGameSettings.WAD);
4277   if MapList = nil then
4278     Exit;
4279
4280   Map := g_ExtractFileName(gMapInfo.Map);
4281
4282   SortSArray(MapList);
4283   MapIndex := -255;
4284   for I := Low(MapList) to High(MapList) do
4285     if Map = MapList[I] then
4286     begin
4287       MapIndex := I;
4288       Break;
4289     end;
4290
4291   if MapIndex <> -255 then
4292   begin
4293     if MapIndex = High(MapList) then
4294      Result := MapList[Low(MapList)]
4295     else
4296       Result := MapList[MapIndex + 1];
4297
4298     if not g_Map_Exist(MapsDir + gGameSettings.WAD + ':\' + Result) then Result := Map;
4299   end;
4300
4301   MapList := nil;
4302 end;
4303
4304 procedure g_Game_NextLevel();
4305 begin
4306   if gGameSettings.GameMode in [GM_DM, GM_TDM, GM_CTF, GM_COOP] then
4307     gExit := EXIT_ENDLEVELCUSTOM
4308   else
4309   begin
4310     gExit := EXIT_ENDLEVELSINGLE;
4311     Exit;
4312   end;
4313
4314   if gNextMap <> '' then Exit;
4315   gNextMap := g_Game_GetNextMap();
4316 end;
4317
4318 function g_Game_IsTestMap(): Boolean;
4319 begin
4320   result := StrEquCI1251(TEST_MAP_NAME, g_ExtractFileName(gMapInfo.Map));
4321 end;
4322
4323 procedure g_Game_DeleteTestMap();
4324 var
4325   a: Integer;
4326   MapName: Char16;
4327   WadName: string;
4328 {
4329   WAD: TWADFile;
4330   MapList: SArray;
4331   time: Integer;
4332 }
4333 begin
4334   a := Pos('.wad:\', gMapToDelete);
4335   if a = 0 then
4336     Exit;
4337
4338 // Âûäåëÿåì èìÿ wad-ôàéëà è èìÿ êàðòû:
4339   WadName := Copy(gMapToDelete, 1, a + 3);
4340   Delete(gMapToDelete, 1, a + 5);
4341   gMapToDelete := UpperCase(gMapToDelete);
4342   MapName := '';
4343   CopyMemory(@MapName[0], @gMapToDelete[1], Min(16, Length(gMapToDelete)));
4344
4345 {
4346 // Èìÿ êàðòû íå ñòàíäàðòíîå òåñòîâîå:
4347   if MapName <> TEST_MAP_NAME then
4348     Exit;
4349
4350   if not gTempDelete then
4351   begin
4352     time := g_GetFileTime(WadName);
4353     WAD := TWADFile.Create();
4354
4355   // ×èòàåì Wad-ôàéë:
4356     if not WAD.ReadFile(WadName) then
4357     begin // Íåò òàêîãî WAD-ôàéëà
4358       WAD.Free();
4359       Exit;
4360     end;
4361
4362   // Ñîñòàâëÿåì ñïèñîê êàðò è èùåì íóæíóþ:
4363     WAD.CreateImage();
4364     MapList := WAD.GetResourcesList('');
4365
4366     if MapList <> nil then
4367       for a := 0 to High(MapList) do
4368         if MapList[a] = MapName then
4369         begin
4370         // Óäàëÿåì è ñîõðàíÿåì:
4371           WAD.RemoveResource('', MapName);
4372           WAD.SaveTo(WadName);
4373           Break;
4374         end;
4375
4376     WAD.Free();
4377     g_SetFileTime(WadName, time);
4378   end else
4379 }
4380   if gTempDelete then DeleteFile(WadName);
4381 end;
4382
4383 procedure GameCVars(P: SArray);
4384 var
4385   a, b: Integer;
4386   stat: TPlayerStatArray;
4387   cmd, s: string;
4388   config: TConfig;
4389 begin
4390   stat := nil;
4391   cmd := LowerCase(P[0]);
4392   if cmd = 'r_showfps' then
4393   begin
4394     if (Length(P) > 1) and
4395        ((P[1] = '1') or (P[1] = '0')) then
4396       gShowFPS := (P[1][1] = '1');
4397
4398     if gShowFPS then
4399       g_Console_Add(_lc[I_MSG_SHOW_FPS_ON])
4400     else
4401       g_Console_Add(_lc[I_MSG_SHOW_FPS_OFF]);
4402   end
4403   else if (cmd = 'g_friendlyfire') and not g_Game_IsClient then
4404   begin
4405     with gGameSettings do
4406     begin
4407       if (Length(P) > 1) and
4408          ((P[1] = '1') or (P[1] = '0')) then
4409       begin
4410         if (P[1][1] = '1') then
4411           Options := Options or GAME_OPTION_TEAMDAMAGE
4412         else
4413           Options := Options and (not GAME_OPTION_TEAMDAMAGE);
4414       end;
4415
4416       if (LongBool(Options and GAME_OPTION_TEAMDAMAGE)) then
4417         g_Console_Add(_lc[I_MSG_FRIENDLY_FIRE_ON])
4418       else
4419         g_Console_Add(_lc[I_MSG_FRIENDLY_FIRE_OFF]);
4420
4421       if g_Game_IsNet then MH_SEND_GameSettings;
4422     end;
4423   end
4424   else if (cmd = 'g_weaponstay') and not g_Game_IsClient then
4425   begin
4426     with gGameSettings do
4427     begin
4428       if (Length(P) > 1) and
4429          ((P[1] = '1') or (P[1] = '0')) then
4430       begin
4431         if (P[1][1] = '1') then
4432           Options := Options or GAME_OPTION_WEAPONSTAY
4433         else
4434           Options := Options and (not GAME_OPTION_WEAPONSTAY);
4435       end;
4436
4437       if (LongBool(Options and GAME_OPTION_WEAPONSTAY)) then
4438         g_Console_Add(_lc[I_MSG_WEAPONSTAY_ON])
4439       else
4440         g_Console_Add(_lc[I_MSG_WEAPONSTAY_OFF]);
4441
4442       if g_Game_IsNet then MH_SEND_GameSettings;
4443     end;
4444   end
4445   else if cmd = 'g_gamemode' then
4446   begin
4447     a := g_Game_TextToMode(P[1]);
4448     if a = GM_SINGLE then a := GM_COOP;
4449     if (Length(P) > 1) and (a <> GM_NONE) and (not g_Game_IsClient) then
4450     begin
4451       gSwitchGameMode := a;
4452       if (gGameOn and (gGameSettings.GameMode = GM_SINGLE)) or
4453          (gState = STATE_INTERSINGLE) then
4454         gSwitchGameMode := GM_SINGLE;
4455       if not gGameOn then
4456         gGameSettings.GameMode := gSwitchGameMode;
4457     end;
4458     if gSwitchGameMode = gGameSettings.GameMode then
4459       g_Console_Add(Format(_lc[I_MSG_GAMEMODE_CURRENT],
4460                           [g_Game_ModeToText(gGameSettings.GameMode)]))
4461     else
4462       g_Console_Add(Format(_lc[I_MSG_GAMEMODE_CHANGE],
4463                           [g_Game_ModeToText(gGameSettings.GameMode),
4464                            g_Game_ModeToText(gSwitchGameMode)]));
4465   end
4466   else if (cmd = 'g_allow_exit') and not g_Game_IsClient then
4467   begin
4468     with gGameSettings do
4469     begin
4470       if (Length(P) > 1) and
4471          ((P[1] = '1') or (P[1] = '0')) then
4472       begin
4473         if (P[1][1] = '1') then
4474           Options := Options or GAME_OPTION_ALLOWEXIT
4475         else
4476           Options := Options and (not GAME_OPTION_ALLOWEXIT);
4477       end;
4478
4479       if (LongBool(Options and GAME_OPTION_ALLOWEXIT)) then
4480         g_Console_Add(_lc[I_MSG_ALLOWEXIT_ON])
4481       else
4482         g_Console_Add(_lc[I_MSG_ALLOWEXIT_OFF]);
4483       g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4484
4485       if g_Game_IsNet then MH_SEND_GameSettings;
4486     end;
4487   end
4488   else if (cmd = 'g_allow_monsters') and not g_Game_IsClient then
4489   begin
4490     with gGameSettings do
4491     begin
4492       if (Length(P) > 1) and
4493          ((P[1] = '1') or (P[1] = '0')) then
4494       begin
4495         if (P[1][1] = '1') then
4496           Options := Options or GAME_OPTION_MONSTERS
4497         else
4498           Options := Options and (not GAME_OPTION_MONSTERS);
4499       end;
4500
4501       if (LongBool(Options and GAME_OPTION_MONSTERS)) then
4502         g_Console_Add(_lc[I_MSG_ALLOWMON_ON])
4503       else
4504         g_Console_Add(_lc[I_MSG_ALLOWMON_OFF]);
4505       g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4506
4507       if g_Game_IsNet then MH_SEND_GameSettings;
4508     end;
4509   end
4510   else if (cmd = 'g_bot_vsplayers') and not g_Game_IsClient then
4511   begin
4512     with gGameSettings do
4513     begin
4514       if (Length(P) > 1) and
4515          ((P[1] = '1') or (P[1] = '0')) then
4516       begin
4517         if (P[1][1] = '1') then
4518           Options := Options or GAME_OPTION_BOTVSPLAYER
4519         else
4520           Options := Options and (not GAME_OPTION_BOTVSPLAYER);
4521       end;
4522
4523       if (LongBool(Options and GAME_OPTION_BOTVSPLAYER)) then
4524         g_Console_Add(_lc[I_MSG_BOTSVSPLAYERS_ON])
4525       else
4526         g_Console_Add(_lc[I_MSG_BOTSVSPLAYERS_OFF]);
4527
4528       if g_Game_IsNet then MH_SEND_GameSettings;
4529     end;
4530   end
4531   else if (cmd = 'g_bot_vsmonsters') and not g_Game_IsClient then
4532   begin
4533     with gGameSettings do
4534     begin
4535       if (Length(P) > 1) and
4536          ((P[1] = '1') or (P[1] = '0')) then
4537       begin
4538         if (P[1][1] = '1') then
4539           Options := Options or GAME_OPTION_BOTVSMONSTER
4540         else
4541           Options := Options and (not GAME_OPTION_BOTVSMONSTER);
4542       end;
4543
4544       if (LongBool(Options and GAME_OPTION_BOTVSMONSTER)) then
4545         g_Console_Add(_lc[I_MSG_BOTSVSMONSTERS_ON])
4546       else
4547         g_Console_Add(_lc[I_MSG_BOTSVSMONSTERS_OFF]);
4548
4549       if g_Game_IsNet then MH_SEND_GameSettings;
4550     end;
4551   end
4552   else if (cmd = 'g_warmuptime') and not g_Game_IsClient then
4553   begin
4554     if Length(P) > 1 then
4555     begin
4556       if StrToIntDef(P[1], gGameSettings.WarmupTime) = 0 then
4557         gGameSettings.WarmupTime := 30
4558       else
4559         gGameSettings.WarmupTime := StrToIntDef(P[1], gGameSettings.WarmupTime);
4560     end;
4561
4562     g_Console_Add(Format(_lc[I_MSG_WARMUP],
4563                  [gGameSettings.WarmupTime]));
4564     g_Console_Add(_lc[I_MSG_ONMAPCHANGE]);
4565   end
4566   else if cmd = 'net_interp' then
4567   begin
4568     if (Length(P) > 1) then
4569       NetInterpLevel := StrToIntDef(P[1], NetInterpLevel);
4570
4571     g_Console_Add('net_interp = ' + IntToStr(NetInterpLevel));
4572     config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4573     config.WriteInt('Client', 'InterpolationSteps', NetInterpLevel);
4574     config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4575     config.Free();
4576   end
4577   else if cmd = 'net_forceplayerupdate' then
4578   begin
4579     if (Length(P) > 1) and
4580        ((P[1] = '1') or (P[1] = '0')) then
4581       NetForcePlayerUpdate := (P[1][1] = '1');
4582
4583     if NetForcePlayerUpdate then
4584       g_Console_Add('net_forceplayerupdate = 1')
4585     else
4586       g_Console_Add('net_forceplayerupdate = 0');
4587     config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4588     config.WriteBool('Client', 'ForcePlayerUpdate', NetForcePlayerUpdate);
4589     config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4590     config.Free();
4591   end
4592   else if cmd = 'net_predictself' then
4593   begin
4594     if (Length(P) > 1) and
4595        ((P[1] = '1') or (P[1] = '0')) then
4596       NetPredictSelf := (P[1][1] = '1');
4597
4598     if NetPredictSelf then
4599       g_Console_Add('net_predictself = 1')
4600     else
4601       g_Console_Add('net_predictself = 0');
4602     config := TConfig.CreateFile(GameDir+'/'+CONFIG_FILENAME);
4603     config.WriteBool('Client', 'PredictSelf', NetPredictSelf);
4604     config.SaveFile(GameDir+'/'+CONFIG_FILENAME);
4605     config.Free();
4606   end
4607   else if cmd = 'sv_name' then
4608   begin
4609     if (Length(P) > 1) and (Length(P[1]) > 0) then
4610     begin
4611       NetServerName := P[1];
4612       if Length(NetServerName) > 64 then
4613         SetLength(NetServerName, 64);
4614       if g_Game_IsServer and g_Game_IsNet and NetUseMaster then
4615         g_Net_Slist_Update;
4616     end;
4617
4618     g_Console_Add(cmd + ' = "' + NetServerName + '"');
4619   end
4620   else if cmd = 'sv_passwd' then
4621   begin
4622     if (Length(P) > 1) and (Length(P[1]) > 0) then
4623     begin
4624       NetPassword := P[1];
4625       if Length(NetPassword) > 24 then
4626         SetLength(NetPassword, 24);
4627       if g_Game_IsServer and g_Game_IsNet and NetUseMaster then
4628         g_Net_Slist_Update;
4629     end;
4630
4631     g_Console_Add(cmd + ' = "' + AnsiLowerCase(NetPassword) + '"');
4632   end
4633   else if cmd = 'sv_maxplrs' then
4634   begin
4635     if (Length(P) > 1) then
4636     begin
4637       NetMaxClients := Min(Max(StrToIntDef(P[1], NetMaxClients), 1), NET_MAXCLIENTS);
4638       if g_Game_IsServer and g_Game_IsNet then
4639       begin
4640         b := 0;
4641         for a := 0 to High(NetClients) do
4642           if NetClients[a].Used then
4643           begin
4644             Inc(b);
4645             if b > NetMaxClients then
4646             begin
4647               s := g_Player_Get(NetClients[a].Player).Name;
4648               enet_peer_disconnect(NetClients[a].Peer, NET_DISC_FULL);
4649               g_Console_Add(Format(_lc[I_PLAYER_KICK], [s]));
4650               MH_SEND_GameEvent(NET_EV_PLAYER_KICK, 0, s);
4651             end;
4652           end;
4653         if NetUseMaster then
4654           g_Net_Slist_Update;
4655       end;
4656     end;
4657
4658     g_Console_Add(cmd + ' = ' + IntToStr(NetMaxClients));
4659   end
4660   else if cmd = 'sv_public' then
4661   begin
4662     if (Length(P) > 1) then
4663     begin
4664       NetUseMaster := StrToIntDef(P[1], Byte(NetUseMaster)) > 0;
4665       if g_Game_IsServer and g_Game_IsNet then
4666         if NetUseMaster then
4667         begin
4668           if NetMPeer = nil then
4669             if not g_Net_Slist_Connect() then
4670               g_Console_Add(_lc[I_NET_MSG_ERROR] + _lc[I_NET_SLIST_ERROR]);
4671           g_Net_Slist_Update();
4672         end
4673         else
4674           if NetMPeer <> nil then
4675             g_Net_Slist_Disconnect();
4676     end;
4677
4678     g_Console_Add(cmd + ' = ' + IntToStr(Byte(NetUseMaster)));
4679   end
4680   else if cmd = 'sv_intertime' then
4681   begin
4682     if (Length(P) > 1) then
4683       gDefInterTime := Min(Max(StrToIntDef(P[1], gDefInterTime), -1), 120);
4684
4685     g_Console_Add(cmd + ' = ' + IntToStr(gDefInterTime));
4686   end
4687   else if cmd = 'p1_name' then
4688   begin
4689     if (Length(P) > 1) and gGameOn then
4690     begin
4691       if g_Game_IsClient then
4692       begin
4693         gPlayer1Settings.Name := b_Text_Unformat(P[1]);
4694         MC_SEND_PlayerSettings;
4695       end
4696       else
4697         if gPlayer1 <> nil then
4698         begin
4699           gPlayer1.Name := b_Text_Unformat(P[1]);
4700           if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
4701         end
4702         else
4703           gPlayer1Settings.Name := b_Text_Unformat(P[1]);
4704     end;
4705   end
4706   else if cmd = 'p2_name' then
4707   begin
4708     if (Length(P) > 1) and gGameOn then
4709     begin
4710       if g_Game_IsClient then
4711       begin
4712         gPlayer2Settings.Name := b_Text_Unformat(P[1]);
4713         MC_SEND_PlayerSettings;
4714       end
4715       else
4716         if gPlayer2 <> nil then
4717         begin
4718           gPlayer2.Name := b_Text_Unformat(P[1]);
4719           if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer2.UID);
4720         end
4721         else
4722           gPlayer2Settings.Name := b_Text_Unformat(P[1]);
4723     end;
4724   end
4725   else if cmd = 'p1_color' then
4726   begin
4727     if Length(P) > 3 then
4728       if g_Game_IsClient then
4729       begin
4730         gPlayer1Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4731                                        EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4732                                        EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4733         MC_SEND_PlayerSettings;
4734       end
4735       else
4736         if gPlayer1 <> nil then
4737         begin
4738           gPlayer1.Model.SetColor(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4739                                   EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4740                                   EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4741           if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
4742         end
4743         else
4744           gPlayer1Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4745                                          EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4746                                          EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4747   end
4748   else if (cmd = 'p2_color') and not g_Game_IsNet then
4749   begin
4750     if Length(P) > 3 then
4751       if g_Game_IsClient then
4752       begin
4753         gPlayer2Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4754                                        EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4755                                        EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4756         MC_SEND_PlayerSettings;
4757       end
4758       else
4759         if gPlayer2 <> nil then
4760         begin
4761           gPlayer2.Model.SetColor(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4762                                   EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4763                                   EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4764           if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer2.UID);
4765         end
4766         else
4767           gPlayer2Settings.Color := _RGB(EnsureRange(StrToIntDef(P[1], 0), 0, 255),
4768                                          EnsureRange(StrToIntDef(P[2], 0), 0, 255),
4769                                          EnsureRange(StrToIntDef(P[3], 0), 0, 255));
4770   end
4771   else if gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT] then
4772   begin
4773     if cmd = 'r_showtime' then
4774     begin
4775       if (Length(P) > 1) and
4776          ((P[1] = '1') or (P[1] = '0')) then
4777         gShowTime := (P[1][1] = '1');
4778
4779       if gShowTime then
4780         g_Console_Add(_lc[I_MSG_TIME_ON])
4781       else
4782         g_Console_Add(_lc[I_MSG_TIME_OFF]);
4783     end
4784     else if cmd = 'r_showscore' then
4785     begin
4786       if (Length(P) > 1) and
4787          ((P[1] = '1') or (P[1] = '0')) then
4788         gShowGoals := (P[1][1] = '1');
4789
4790       if gShowGoals then
4791         g_Console_Add(_lc[I_MSG_SCORE_ON])
4792       else
4793         g_Console_Add(_lc[I_MSG_SCORE_OFF]);
4794     end
4795     else if cmd = 'r_showstat' then
4796     begin
4797       if (Length(P) > 1) and
4798          ((P[1] = '1') or (P[1] = '0')) then
4799         gShowStat := (P[1][1] = '1');
4800
4801       if gShowStat then
4802         g_Console_Add(_lc[I_MSG_STATS_ON])
4803       else
4804         g_Console_Add(_lc[I_MSG_STATS_OFF]);
4805     end
4806     else if cmd = 'r_showkillmsg' then
4807     begin
4808       if (Length(P) > 1) and
4809          ((P[1] = '1') or (P[1] = '0')) then
4810         gShowKillMsg := (P[1][1] = '1');
4811
4812       if gShowKillMsg then
4813         g_Console_Add(_lc[I_MSG_KILL_MSGS_ON])
4814       else
4815         g_Console_Add(_lc[I_MSG_KILL_MSGS_OFF]);
4816     end
4817     else if cmd = 'r_showlives' then
4818     begin
4819       if (Length(P) > 1) and
4820          ((P[1] = '1') or (P[1] = '0')) then
4821         gShowLives := (P[1][1] = '1');
4822
4823       if gShowLives then
4824         g_Console_Add(_lc[I_MSG_LIVES_ON])
4825       else
4826         g_Console_Add(_lc[I_MSG_LIVES_OFF]);
4827     end
4828     else if cmd = 'r_showspect' then
4829     begin
4830       if (Length(P) > 1) and
4831          ((P[1] = '1') or (P[1] = '0')) then
4832         gSpectHUD := (P[1][1] = '1');
4833
4834       if gSpectHUD then
4835         g_Console_Add(_lc[I_MSG_SPECT_HUD_ON])
4836       else
4837         g_Console_Add(_lc[I_MSG_SPECT_HUD_OFF]);
4838     end
4839     else if cmd = 'r_showping' then
4840     begin
4841       if (Length(P) > 1) and
4842          ((P[1] = '1') or (P[1] = '0')) then
4843         gShowPing := (P[1][1] = '1');
4844
4845       if gShowPing then
4846         g_Console_Add(_lc[I_MSG_PING_ON])
4847       else
4848         g_Console_Add(_lc[I_MSG_PING_OFF]);
4849     end
4850     else if (cmd = 'g_scorelimit') and not g_Game_IsClient then
4851     begin
4852       if Length(P) > 1 then
4853       begin
4854         if StrToIntDef(P[1], gGameSettings.GoalLimit) = 0 then
4855           gGameSettings.GoalLimit := 0
4856         else
4857           begin
4858             b := 0;
4859
4860             if gGameSettings.GameMode = GM_DM then
4861               begin // DM
4862                 stat := g_Player_GetStats();
4863                 if stat <> nil then
4864                   for a := 0 to High(stat) do
4865                     if stat[a].Frags > b then
4866                       b := stat[a].Frags;
4867               end
4868             else // TDM/CTF
4869               b := Max(gTeamStat[TEAM_RED].Goals, gTeamStat[TEAM_BLUE].Goals);
4870
4871             gGameSettings.GoalLimit := Max(StrToIntDef(P[1], gGameSettings.GoalLimit), b);
4872           end;
4873
4874         if g_Game_IsNet then MH_SEND_GameSettings;
4875       end;
4876
4877       g_Console_Add(Format(_lc[I_MSG_SCORE_LIMIT], [gGameSettings.GoalLimit]));
4878     end
4879     else if (cmd = 'g_timelimit') and not g_Game_IsClient then
4880     begin
4881       if (Length(P) > 1) and (StrToIntDef(P[1], -1) >= 0) then
4882         gGameSettings.TimeLimit := StrToIntDef(P[1], -1);
4883
4884       g_Console_Add(Format(_lc[I_MSG_TIME_LIMIT],
4885                            [gGameSettings.TimeLimit div 3600,
4886                            (gGameSettings.TimeLimit div 60) mod 60,
4887                             gGameSettings.TimeLimit mod 60]));
4888       if g_Game_IsNet then MH_SEND_GameSettings;
4889     end
4890     else if (cmd = 'g_maxlives') and not g_Game_IsClient then
4891     begin
4892       if Length(P) > 1 then
4893       begin
4894         if StrToIntDef(P[1], gGameSettings.MaxLives) = 0 then
4895           gGameSettings.MaxLives := 0
4896         else
4897         begin
4898           b := 0;
4899           stat := g_Player_GetStats();
4900           if stat <> nil then
4901             for a := 0 to High(stat) do
4902               if stat[a].Lives > b then
4903                 b := stat[a].Lives;
4904           gGameSettings.MaxLives :=
4905             Max(StrToIntDef(P[1], gGameSettings.MaxLives), b);
4906         end;
4907       end;
4908
4909       g_Console_Add(Format(_lc[I_MSG_LIVES],
4910                            [gGameSettings.MaxLives]));
4911       if g_Game_IsNet then MH_SEND_GameSettings;
4912     end;
4913   end;
4914 end;
4915
4916 // profiler console commands
4917 procedure ProfilerCommands (P: SArray);
4918 var
4919   cmd: string;
4920
4921   function getBool (idx: Integer): Integer;
4922   begin
4923     if (idx < 0) or (idx > High(P)) then begin result := -1; exit; end;
4924     result := 0;
4925     if (P[idx] = '1') or (P[idx] = 'on') or (P[idx] = 'true') or (P[idx] = 'tan') then result := 1;
4926   end;
4927
4928 begin
4929   //if not gDebugMode then exit;
4930   cmd := LowerCase(P[0]);
4931
4932   if cmd = 'pf_draw_frame' then
4933   begin
4934     g_profile_frame_draw := not g_profile_frame_draw;
4935     exit;
4936   end;
4937
4938   if cmd = 'pf_update_frame' then
4939   begin
4940     g_profile_frame_update := not g_profile_frame_update;
4941     exit;
4942   end;
4943
4944   if cmd = 'pf_coldet' then
4945   begin
4946     g_profile_collision := not g_profile_collision;
4947     exit;
4948   end;
4949
4950   if cmd = 'r_sq_draw' then
4951   begin
4952     case getBool(1) of
4953       -1: begin end;
4954        0: gdbg_map_use_accel_render := false;
4955        1: gdbg_map_use_accel_render := true;
4956     end;
4957     if gdbg_map_use_accel_render then g_Console_Add('accelerated rendering: tan') else g_Console_Add('accelerated rendering: ona');
4958     exit;
4959   end;
4960
4961   if cmd = 'dbg_sq_coldet' then
4962   begin
4963     case getBool(1) of
4964       -1: begin end;
4965        0: gdbg_map_use_accel_coldet := false;
4966        1: gdbg_map_use_accel_coldet := true;
4967     end;
4968     if gdbg_map_use_accel_coldet then g_Console_Add('accelerated coldet: tan') else g_Console_Add('accelerated coldet: ona');
4969     exit;
4970   end;
4971
4972   if (cmd = 'sq_use_grid') or (cmd = 'sq_use_tree') then
4973   begin
4974     gdbg_map_use_tree_coldet := (cmd = 'sq_use_tree');
4975     if gdbg_map_use_tree_coldet then g_Console_Add('coldet acceleration: tree') else g_Console_Add('coldet acceleration: grid');
4976     exit;
4977   end;
4978
4979   if (cmd = 'r_sq_use_grid') or (cmd = 'r_sq_use_tree') then
4980   begin
4981     gdbg_map_use_tree_draw := (cmd = 'r_sq_use_tree');
4982     if gdbg_map_use_tree_draw then g_Console_Add('render acceleration: tree') else g_Console_Add('render acceleration: grid');
4983     exit;
4984   end;
4985
4986   if (cmd = 't_dump_node_queries') then
4987   begin
4988     case getBool(1) of
4989       -1: begin end;
4990        0: gdbg_map_dump_coldet_tree_queries := false;
4991        1: gdbg_map_dump_coldet_tree_queries := true;
4992     end;
4993     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');
4994     exit;
4995   end;
4996 end;
4997
4998 procedure DebugCommands(P: SArray);
4999 var
5000   a, b: Integer;
5001   cmd: string;
5002   //pt: TPoint;
5003   mon: TMonster;
5004 begin
5005 // Êîìàíäû îòëàäî÷íîãî ðåæèìà:
5006   if gDebugMode then
5007   begin
5008     cmd := LowerCase(P[0]);
5009     if cmd = 'd_window' then
5010     begin
5011       g_Console_Add(Format('gWinPosX = %d, gWinPosY %d', [gWinPosX, gWinPosY]));
5012       g_Console_Add(Format('gWinRealPosX = %d, gWinRealPosY %d', [gWinRealPosX, gWinRealPosY]));
5013       g_Console_Add(Format('gScreenWidth = %d, gScreenHeight = %d', [gScreenWidth, gScreenHeight]));
5014       g_Console_Add(Format('gWinSizeX = %d, gWinSizeY = %d', [gWinSizeX, gWinSizeY]));
5015       g_Console_Add(Format('Frame X = %d, Y = %d, Caption Y = %d', [gWinFrameX, gWinFrameY, gWinCaption]));
5016     end
5017     else if cmd = 'd_sounds' then
5018     begin
5019       if (Length(P) > 1) and
5020          ((P[1] = '1') or (P[1] = '0')) then
5021         g_Debug_Sounds := (P[1][1] = '1');
5022
5023       g_Console_Add(Format('d_sounds is %d', [Byte(g_Debug_Sounds)]));
5024     end
5025     else if cmd = 'd_frames' then
5026     begin
5027       if (Length(P) > 1) and
5028          ((P[1] = '1') or (P[1] = '0')) then
5029         g_Debug_Frames := (P[1][1] = '1');
5030
5031       g_Console_Add(Format('d_frames is %d', [Byte(g_Debug_Frames)]));
5032     end
5033     else if cmd = 'd_winmsg' then
5034     begin
5035       if (Length(P) > 1) and
5036          ((P[1] = '1') or (P[1] = '0')) then
5037         g_Debug_WinMsgs := (P[1][1] = '1');
5038
5039       g_Console_Add(Format('d_winmsg is %d', [Byte(g_Debug_WinMsgs)]));
5040     end
5041     else if (cmd = 'd_monoff') and not g_Game_IsNet then
5042     begin
5043       if (Length(P) > 1) and
5044          ((P[1] = '1') or (P[1] = '0')) then
5045         g_Debug_MonsterOff := (P[1][1] = '1');
5046
5047       g_Console_Add(Format('d_monoff is %d', [Byte(g_debug_MonsterOff)]));
5048     end
5049     else if (cmd = 'd_botoff') and not g_Game_IsNet then
5050     begin
5051       if Length(P) > 1 then
5052         case P[1][1] of
5053           '0': g_debug_BotAIOff := 0;
5054           '1': g_debug_BotAIOff := 1;
5055           '2': g_debug_BotAIOff := 2;
5056           '3': g_debug_BotAIOff := 3;
5057         end;
5058
5059       g_Console_Add(Format('d_botoff is %d', [g_debug_BotAIOff]));
5060     end
5061     else if cmd = 'd_monster' then
5062     begin
5063       if gGameOn and (gPlayer1 <> nil) and (gPlayer1.Live) and (not g_Game_IsNet) then
5064         if Length(P) < 2 then
5065         begin
5066           g_Console_Add(cmd + ' [ID | Name] [behaviour]');
5067           g_Console_Add('ID | Name');
5068           for b := MONSTER_DEMON to MONSTER_MAN do
5069             g_Console_Add(Format('%2d | %s', [b, g_Monsters_GetNameByID(b)]));
5070         end else
5071         begin
5072           a := StrToIntDef(P[1], 0);
5073           if (a < MONSTER_DEMON) or (a > MONSTER_MAN) then
5074             a := g_Monsters_GetIDByName(P[1]);
5075
5076           if (a < MONSTER_DEMON) or (a > MONSTER_MAN) then
5077             g_Console_Add(Format(_lc[I_MSG_NO_MONSTER], [P[1]]))
5078           else
5079             begin
5080               with gPlayer1.Obj do
5081               begin
5082                 mon := g_Monsters_Create(a,
5083                      X + Rect.X + (Rect.Width div 2),
5084                      Y + Rect.Y + Rect.Height,
5085                      gPlayer1.Direction, True);
5086               end;
5087               if (Length(P) > 2) and (mon <> nil) then
5088                 mon.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.