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