src/game/g_menu.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_menu;
  17
  18 interface
  19
  20 procedure g_Menu_Init();
  21 procedure g_Menu_Free();
  22 procedure g_Menu_Reset();
  23 procedure LoadStdFont(cfgres, texture: string; var FontID: DWORD);
  24 procedure LoadFont(txtres, fntres: string; var FontID: DWORD);
  25 procedure g_Menu_AskLanguage();
  26
  27 procedure g_Menu_Show_SaveMenu();
  28 procedure g_Menu_Show_LoadMenu(standalone: Boolean=false);
  29 procedure g_Menu_Show_GameSetGame();
  30 procedure g_Menu_Show_OptionsVideo();
  31 procedure g_Menu_Show_OptionsSound();
  32 procedure g_Menu_Show_EndGameMenu();
  33 procedure g_Menu_Show_QuitGameMenu();
  34
  35 var
  36   gMenuFont: DWORD;
  37   gMenuSmallFont: DWORD;
  38   PromptIP: string;
  39   PromptPort: Word;
  40   TempScale: Integer = -1;
  41   TempResScale: Integer = -1;
  42
  43 implementation
  44
  45 uses
  46   g_gui, r_textures, r_graphics, g_game, g_map,
  47   g_base, g_basic, g_console, g_sound, g_gfx, g_player, g_options, g_weapons,
  48   e_log, SysUtils, CONFIG, g_playermodel, DateUtils,
  49   MAPDEF, Math, g_saveload,
  50   g_language, e_res,
  51   g_net, g_netmsg, g_netmaster, g_items, e_input, g_touch,
  52   utils, wadreader, g_system, r_game;
  53
  54
  55 type TYNCallback = procedure (yes:Boolean);
  56
  57 procedure YNKeyDownProc (win: TGUIWindow; Key: Byte);
  58 begin
  59   if win.UserData = nil then exit;
  60   case Key of
  61     IK_Y, IK_SPACE: TYNCallback(win.UserData)(true);
  62     IK_N: TYNCallback(win.UserData)(false);
  63   end;
  64 end;
  65
  66 procedure YesButtonCB (ctl: TGUITextButton);
  67 begin
  68   if ctl.UserData = nil then exit;
  69   TYNCallback(ctl.UserData)(true);
  70 end;
  71
  72 procedure NoButtonCB (ctl: TGUITextButton);
  73 begin
  74   if ctl.UserData = nil then exit;
  75   TYNCallback(ctl.UserData)(false);
  76 end;
  77
  78 function CreateYNMenu (WinName, Text: String; MaxLen: Word; FontID: DWORD; ActionProc: TYNCallback): TGUIWindow;
  79 var
  80   menu: TGUIMenu;
  81 begin
  82   //if length(Text) = 0 then exit;
  83   Result := TGUIWindow.Create(WinName);
  84   with Result do
  85   begin
  86     //OnKeyDownEx := @YNKeyDownProc;
  87     //UserData := @ActionProc;
  88     menu := TGUIMenu(Result.AddChild(TGUIMenu.Create(gMenuSmallFont, gMenuSmallFont, '')));
  89     with menu do
  90     begin
  91       Name := '__temp_yes_no_menu:'+WinName;
  92       YesNo := true;
  93       AddText(Text, MaxLen);
  94       with AddButton(nil, _lc[I_MENU_YES]) do begin ProcEx := @YesButtonCB; UserData := @ActionProc; end;
  95       with AddButton(nil, _lc[I_MENU_NO]) do begin ProcEx := @NoButtonCB; UserData := @ActionProc; end;
  96     end;
  97     DefControl := '__temp_yes_no_menu:'+WinName;
  98     SetActive(nil);
  99   end;
 100 end;
 101
 102
 103 procedure ProcChangeColor(Sender: TGUIControl); forward;
 104 procedure ProcSelectModel(Sender: TGUIControl); forward;
 105
 106 procedure ProcApplyOptions();
 107 var
 108   menu: TGUIMenu;
 109   i: Integer;
 110 begin
 111   menu := TGUIMenu(g_GUI_GetWindow('OptionsVideoMenu').GetControl('mOptionsVideoMenu'));
 112
 113   if TGUISwitch(menu.GetControl('swBPP')).ItemIndex = 0 then
 114     gBPP := 16
 115   else
 116     gBPP := 32;
 117
 118   gVSync := TGUISwitch(menu.GetControl('swVSync')).ItemIndex = 0;
 119
 120   gTextureFilter := TGUISwitch(menu.GetControl('swTextureFilter')).ItemIndex = 0;
 121   glNPOTOverride := not (TGUISwitch(menu.GetControl('swLegacyNPOT')).ItemIndex = 0);
 122   gLerpActors := TGUISwitch(menu.GetControl('swInterp')).ItemIndex = 0;
 123
 124   menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu'));
 125
 126   g_Sound_SetupAllVolumes(
 127     Min(TGUIScroll(menu.GetControl('scSoundLevel')).Value*16, 255),
 128     Min(TGUIScroll(menu.GetControl('scMusicLevel')).Value*16, 255)
 129   );
 130
 131   gMaxSimSounds := Max(Min(TGUIScroll(menu.GetControl('scMaxSimSounds')).Value*4+2, 66), 2);
 132   gMuteWhenInactive := TGUISwitch(menu.GetControl('swInactiveSounds')).ItemIndex = 1;
 133   gAnnouncer := TGUISwitch(menu.GetControl('swAnnouncer')).ItemIndex;
 134   gSoundEffectsDF := TGUISwitch(menu.GetControl('swSoundEffects')).ItemIndex = 1;
 135   gUseChatSounds := TGUISwitch(menu.GetControl('swChatSpeech')).ItemIndex = 0;
 136
 137   menu := TGUIMenu(g_GUI_GetWindow('OptionsGameMenu').GetControl('mOptionsGameMenu'));
 138
 139   g_GFX_SetMax(TGUIScroll(menu.GetControl('scParticlesCount')).Value*1000);
 140   g_Shells_SetMax(TGUIScroll(menu.GetControl('scShellsMax')).Value*30);
 141   g_Gibs_SetMax(TGUIScroll(menu.GetControl('scGibsMax')).Value*25);
 142   g_Corpses_SetMax(TGUIScroll(menu.GetControl('scCorpsesMax')).Value*5);
 143
 144   case TGUISwitch(menu.GetControl('swGibsCount')).ItemIndex of
 145     0: gGibsCount := 0;
 146     1: gGibsCount := 8;
 147     2: gGibsCount := 16;
 148     3: gGibsCount := 32;
 149     else gGibsCount := 48;
 150   end;
 151
 152   gBloodCount := TGUISwitch(menu.GetControl('swBloodCount')).ItemIndex;
 153   gFlash := TGUISwitch(menu.GetControl('swScreenFlash')).ItemIndex;
 154   gAdvBlood := TGUISwitch(menu.GetControl('swBloodType')).ItemIndex = 1;
 155   gAdvCorpses := TGUISwitch(menu.GetControl('swCorpseType')).ItemIndex = 1;
 156   gAdvGibs := TGUISwitch(menu.GetControl('swGibsType')).ItemIndex = 1;
 157   gDrawBackGround := TGUISwitch(menu.GetControl('swBackGround')).ItemIndex = 0;
 158   gShowMessages := TGUISwitch(menu.GetControl('swMessages')).ItemIndex = 0;
 159   gRevertPlayers := TGUISwitch(menu.GetControl('swRevertPlayers')).ItemIndex = 0;
 160   gChatBubble := TGUISwitch(menu.GetControl('swChatBubble')).ItemIndex;
 161   gPlayerIndicator := TGUISwitch(menu.GetControl('swPlayerIndicator')).ItemIndex;
 162   gPlayerIndicatorStyle := TGUISwitch(menu.GetControl('swPlayerIndicatorStyle')).ItemIndex;
 163   if TGUIScroll(menu.GetControl('scScaleFactor')).Value <> TempScale then
 164   begin
 165     TempScale := TGUIScroll(menu.GetControl('scScaleFactor')).Value;
 166     g_dbg_scale := TempScale + 1;
 167   end;
 168
 169
 170   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsMenu').GetControl('mOptionsControlsMenu'));
 171
 172   with menu do
 173   begin
 174     g_Console_BindKey(g_Console_FindBind(1, 'screenshot'), '');
 175     g_Console_BindKey(g_Console_FindBind(1, '+scores', '-scores'), '');
 176     g_Console_BindKey(g_Console_FindBind(1, 'togglechat'), '');
 177     g_Console_BindKey(g_Console_FindBind(1, 'toggleteamchat'), '');
 178     g_Console_BindKey(TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_SCREENSHOT])).Key, 'screenshot');
 179     g_Console_BindKey(TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_STAT])).Key, '+scores', '-scores');
 180     g_Console_BindKey(TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_CHAT])).Key, 'togglechat');
 181     g_Console_BindKey(TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_TEAMCHAT])).Key, 'toggleteamchat');
 182   end;
 183
 184   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP1Menu').GetControl('mOptionsControlsP1Menu'));
 185   with menu do
 186   begin
 187     g_Console_BindKey(g_Console_FindBind(1, '+p1_moveright', '-p1_moveright'), '');
 188     g_Console_BindKey(g_Console_FindBind(1, '+p1_moveleft', '-p1_moveleft'), '');
 189     g_Console_BindKey(g_Console_FindBind(1, '+p1_lookup', '-p1_lookup'), '');
 190     g_Console_BindKey(g_Console_FindBind(1, '+p1_lookdown', '-p1_lookdown'), '');
 191     g_Console_BindKey(g_Console_FindBind(1, '+p1_attack', '-p1_attack'), '');
 192     g_Console_BindKey(g_Console_FindBind(1, '+p1_jump', '-p1_jump'), '');
 193     g_Console_BindKey(g_Console_FindBind(1, '+p1_activate', '-p1_activate'), '');
 194     g_Console_BindKey(g_Console_FindBind(1, '+p1_strafe', '-p1_strafe'), '');
 195     g_Console_BindKey(g_Console_FindBind(1, 'p1_dropflag', ''), '');
 196     g_Console_BindKey(g_Console_FindBind(1, 'p1_weapnext', ''), '');
 197     g_Console_BindKey(g_Console_FindBind(1, 'p1_weapprev', ''), '');
 198     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key0, '+p1_moveright', '-p1_moveright');
 199     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key0, '+p1_moveleft', '-p1_moveleft');
 200     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key0, '+p1_lookup', '-p1_lookup');
 201     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key0, '+p1_lookdown', '-p1_lookdown');
 202     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key0, '+p1_attack', '-p1_attack');
 203     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key0, '+p1_jump', '-p1_jump');
 204     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key0, '+p1_activate', '-p1_activate');
 205     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key0, '+p1_strafe', '-p1_strafe');
 206     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key0, 'p1_dropflag', '');
 207     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key0, 'p1_weapnext', '', True);
 208     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key0, 'p1_weapprev', '', True);
 209     // second set
 210     g_Console_BindKey(g_Console_FindBind(2, '+p1_moveright', '-p1_moveright'), '');
 211     g_Console_BindKey(g_Console_FindBind(2, '+p1_moveleft', '-p1_moveleft'), '');
 212     g_Console_BindKey(g_Console_FindBind(2, '+p1_lookup', '-p1_lookup'), '');
 213     g_Console_BindKey(g_Console_FindBind(2, '+p1_lookdown', '-p1_lookdown'), '');
 214     g_Console_BindKey(g_Console_FindBind(2, '+p1_attack', '-p1_attack'), '');
 215     g_Console_BindKey(g_Console_FindBind(2, '+p1_jump', '-p1_jump'), '');
 216     g_Console_BindKey(g_Console_FindBind(2, '+p1_activate', '-p1_activate'), '');
 217     g_Console_BindKey(g_Console_FindBind(2, '+p1_strafe', '-p1_strafe'), '');
 218     g_Console_BindKey(g_Console_FindBind(2, 'p1_dropflag', ''), '');
 219     g_Console_BindKey(g_Console_FindBind(2, 'p1_weapnext', ''), '');
 220     g_Console_BindKey(g_Console_FindBind(2, 'p1_weapprev', ''), '');
 221     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key1, '+p1_moveright', '-p1_moveright');
 222     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key1, '+p1_moveleft', '-p1_moveleft');
 223     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key1, '+p1_lookup', '-p1_lookup');
 224     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key1, '+p1_lookdown', '-p1_lookdown');
 225     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key1, '+p1_attack', '-p1_attack');
 226     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key1, '+p1_jump', '-p1_jump');
 227     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key1, '+p1_activate', '-p1_activate');
 228     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key1, '+p1_strafe', '-p1_strafe');
 229     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key1, 'p1_dropflag', '');
 230     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key1, 'p1_weapnext', '', True);
 231     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key1, 'p1_weapprev', '', True);
 232   end;
 233
 234   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP1MenuWeapons').GetControl('mOptionsControlsP1MenuWeapons'));
 235   with menu do
 236   begin
 237     for i := WP_FIRST to WP_LAST do
 238     begin
 239       g_Console_BindKey(g_Console_FindBind(1, 'p1_weapon ' + IntToStr(i + 1)), '');
 240       g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key0, 'p1_weapon ' + IntToStr(i + 1));
 241       g_Console_BindKey(g_Console_FindBind(2, 'p1_weapon ' + IntToStr(i + 1)), '');
 242       g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key1, 'p1_weapon ' + IntToStr(i + 1));
 243     end;
 244   end;
 245
 246   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP2Menu').GetControl('mOptionsControlsP2Menu'));
 247   with menu do
 248   begin
 249     g_Console_BindKey(g_Console_FindBind(1, '+p2_moveright', '-p2_moveright'), '');
 250     g_Console_BindKey(g_Console_FindBind(1, '+p2_moveleft', '-p2_moveleft'), '');
 251     g_Console_BindKey(g_Console_FindBind(1, '+p2_lookup', '-p2_lookup'), '');
 252     g_Console_BindKey(g_Console_FindBind(1, '+p2_lookdown', '-p2_lookdown'), '');
 253     g_Console_BindKey(g_Console_FindBind(1, '+p2_attack', '-p2_attack'), '');
 254     g_Console_BindKey(g_Console_FindBind(1, '+p2_jump', '-p2_jump'), '');
 255     g_Console_BindKey(g_Console_FindBind(1, '+p2_activate', '-p2_activate'), '');
 256     g_Console_BindKey(g_Console_FindBind(1, '+p2_strafe', '-p2_strafe'), '');
 257     g_Console_BindKey(g_Console_FindBind(1, 'p2_dropflag', ''), '');
 258     g_Console_BindKey(g_Console_FindBind(1, 'p2_weapnext', ''), '');
 259     g_Console_BindKey(g_Console_FindBind(1, 'p2_weapprev', ''), '');
 260     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key0, '+p2_moveright', '-p2_moveright');
 261     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key0, '+p2_moveleft', '-p2_moveleft');
 262     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key0, '+p2_lookup', '-p2_lookup');
 263     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key0, '+p2_lookdown', '-p2_lookdown');
 264     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key0, '+p2_attack', '-p2_attack');
 265     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key0, '+p2_jump', '-p2_jump');
 266     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key0, '+p2_activate', '-p2_activate');
 267     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key0, '+p2_strafe', '-p2_strafe');
 268     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key0, 'p2_dropflag', '');
 269     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key0, 'p2_weapnext', '', True);
 270     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key0, 'p2_weapprev', '', True);
 271     // second set
 272     g_Console_BindKey(g_Console_FindBind(2, '+p2_moveright', '-p2_moveright'), '');
 273     g_Console_BindKey(g_Console_FindBind(2, '+p2_moveleft', '-p2_moveleft'), '');
 274     g_Console_BindKey(g_Console_FindBind(2, '+p2_lookup', '-p2_lookup'), '');
 275     g_Console_BindKey(g_Console_FindBind(2, '+p2_lookdown', '-p2_lookdown'), '');
 276     g_Console_BindKey(g_Console_FindBind(2, '+p2_attack', '-p2_attack'), '');
 277     g_Console_BindKey(g_Console_FindBind(2, '+p2_jump', '-p2_jump'), '');
 278     g_Console_BindKey(g_Console_FindBind(2, '+p2_activate', '-p2_activate'), '');
 279     g_Console_BindKey(g_Console_FindBind(2, '+p2_strafe', '-p2_strafe'), '');
 280     g_Console_BindKey(g_Console_FindBind(2, 'p2_dropflag', ''), '');
 281     g_Console_BindKey(g_Console_FindBind(2, 'p2_weapnext', ''), '');
 282     g_Console_BindKey(g_Console_FindBind(2, 'p2_weapprev', ''), '');
 283     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key1, '+p2_moveright', '-p2_moveright');
 284     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key1, '+p2_moveleft', '-p2_moveleft');
 285     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key1, '+p2_lookup', '-p2_lookup');
 286     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key1, '+p2_lookdown', '-p2_lookdown');
 287     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key1, '+p2_attack', '-p2_attack');
 288     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key1, '+p2_jump', '-p2_jump');
 289     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key1, '+p2_activate', '-p2_activate');
 290     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key1, '+p2_strafe', '-p2_strafe');
 291     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key1, 'p2_dropflag', '');
 292     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key1, 'p2_weapnext', '', True);
 293     g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key1, 'p2_weapprev', '', True);
 294   end;
 295
 296   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP2MenuWeapons').GetControl('mOptionsControlsP2MenuWeapons'));
 297   with menu do
 298   begin
 299     for i := WP_FIRST to WP_LAST do
 300     begin
 301       g_Console_BindKey(g_Console_FindBind(1, 'p2_weapon ' + IntToStr(i + 1)), '');
 302       g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key0, 'p2_weapon ' + IntToStr(i + 1));
 303       g_Console_BindKey(g_Console_FindBind(2, 'p2_weapon ' + IntToStr(i + 1)), '');
 304       g_Console_BindKey(TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key1, 'p2_weapon ' + IntToStr(i + 1));
 305     end;
 306   end;
 307
 308   if e_HasJoysticks then
 309   begin
 310     menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsJoystickMenu').GetControl('mOptionsControlsJoystickMenu'));
 311     with menu do
 312     begin
 313       for i := 0 to e_MaxJoys - 1 do
 314         if e_JoystickAvailable[i] then
 315           e_JoystickDeadzones[i] := TGUIScroll(menu.GetControl('scDeadzone' + IntToStr(i))).Value*(32767 div 20)
 316     end
 317   end;
 318
 319   if g_touch_enabled then
 320   begin
 321     menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsTouchMenu').GetControl('mOptionsControlsTouchMenu'));
 322     g_touch_alt := TGUISwitch(menu.GetControl('swTouchAlt')).ItemIndex = 1;
 323     g_touch_size := TGUIScroll(menu.GetControl('scTouchSize')).Value / 10 + 0.5;
 324     g_touch_fire := TGUISwitch(menu.GetControl('swTouchFire')).ItemIndex = 1;
 325     g_touch_offset := TGUIScroll(menu.GetControl('scTouchOffset')).Value * 5;
 326   end;
 327
 328   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP1Menu').GetControl('mOptionsPlayersP1Menu'));
 329   gPlayer1Settings.Name := b_Text_Unformat(TGUIEdit(menu.GetControl('edP1Name')).Text);
 330   gPlayer1Settings.Team := IfThen(TGUISwitch(menu.GetControl('swP1Team')).ItemIndex = 0,
 331                                   TEAM_RED, TEAM_BLUE);
 332   with TGUIModelView(g_GUI_GetWindow('OptionsPlayersP1Menu').GetControl('mvP1Model')) do
 333   begin
 334     gPlayer1Settings.Model := Model.Name;
 335     gPlayer1Settings.Color := Model.Color;
 336   end;
 337
 338   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP2Menu').GetControl('mOptionsPlayersP2Menu'));
 339   gPlayer2Settings.Name := b_Text_Unformat(TGUIEdit(menu.GetControl('edP2Name')).Text);
 340   gPlayer2Settings.Team := IfThen(TGUISwitch(menu.GetControl('swP2Team')).ItemIndex = 0,
 341                                   TEAM_RED, TEAM_BLUE);
 342   with TGUIModelView(g_GUI_GetWindow('OptionsPlayersP2Menu').GetControl('mvP2Model')) do
 343   begin
 344     gPlayer2Settings.Model := Model.Name;
 345     gPlayer2Settings.Color := Model.Color;
 346   end;
 347
 348   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP1WeaponMenu').GetControl('mOptionsPlayersP1WeaponMenu'));
 349   gPlayer1Settings.WeaponSwitch := TGUISwitch(menu.GetControl('swWeaponAutoswitch')).ItemIndex;
 350   gPlayer1Settings.SwitchToEmpty := TGUISwitch(menu.GetControl('swWeaponAllowEmpty')).ItemIndex;
 351   gPlayer1Settings.SkipFist := TGUISwitch(menu.GetControl('swWeaponAllowFist')).ItemIndex;
 352   menu := TGUIMenu(g_GUI_GetWindow('OptionsPreferencesP1WeaponMenu').GetControl('mOptionsPreferencesP1WeaponMenu'));
 353   with menu do
 354   begin
 355     for i := WP_FIRST to WP_LAST+1 do
 356     begin
 357       gPlayer1Settings.WeaponPreferences[i] := TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex;
 358     end;
 359   end;
 360
 361   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP2WeaponMenu').GetControl('mOptionsPlayersP2WeaponMenu'));
 362   gPlayer2Settings.WeaponSwitch := TGUISwitch(menu.GetControl('swWeaponAutoswitch')).ItemIndex;
 363   gPlayer2Settings.SwitchToEmpty := TGUISwitch(menu.GetControl('swWeaponAllowEmpty')).ItemIndex;
 364   gPlayer2Settings.SkipFist := TGUISwitch(menu.GetControl('swWeaponAllowFist')).ItemIndex;
 365   menu := TGUIMenu(g_GUI_GetWindow('OptionsPreferencesP2WeaponMenu').GetControl('mOptionsPreferencesP2WeaponMenu'));
 366   with menu do
 367   begin
 368     for i := WP_FIRST to WP_LAST+1 do
 369     begin
 370       gPlayer2Settings.WeaponPreferences[i] := TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex;
 371     end;
 372   end;
 373
 374   if gPlayer1Settings.Name = '' then gPlayer1Settings.Name := GenPlayerName(1);
 375   if gPlayer2Settings.Name = '' then gPlayer2Settings.Name := GenPlayerName(2);
 376
 377   if g_Game_IsServer then
 378   begin
 379     if gPlayer1 <> nil then
 380     begin
 381       gPlayer1.SetModel(gPlayer1Settings.Model);
 382       gPlayer1.Name := gPlayer1Settings.Name;
 383       if not (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
 384         gPlayer1.SetColor(gPlayer1Settings.Color)
 385       else
 386         if gPlayer1.Team <> gPlayer1Settings.Team then
 387           gPlayer1.SwitchTeam;
 388       gPlayer1.WeapSwitchMode := gPlayer1Settings.WeaponSwitch;
 389       gPlayer1.setWeaponPrefs(gPlayer1Settings.WeaponPreferences);
 390       gPlayer1.SwitchToEmpty := gPlayer1Settings.SwitchToEmpty;
 391       gPlayer1.SkipFist := gPlayer1Settings.SkipFist;
 392       if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
 393     end;
 394
 395     if gPlayer2 <> nil then
 396     begin
 397       gPlayer2.SetModel(gPlayer2Settings.Model);
 398       gPlayer2.Name := gPlayer2Settings.Name;
 399       if not (gGameSettings.GameMode in [GM_TDM, GM_CTF]) then
 400         gPlayer2.SetColor(gPlayer2Settings.Color)
 401       else
 402         if gPlayer2.Team <> gPlayer2Settings.Team then
 403           gPlayer2.SwitchTeam;
 404       gPlayer2.WeapSwitchMode := gPlayer2Settings.WeaponSwitch;
 405       gPlayer2.setWeaponPrefs(gPlayer2Settings.WeaponPreferences);
 406       gPlayer2.SwitchToEmpty := gPlayer2Settings.SwitchToEmpty;
 407       gPlayer2.SkipFist := gPlayer2Settings.SkipFist;
 408       //if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer2.UID);
 409     end;
 410   end;
 411
 412   if g_Game_IsClient then
 413   begin
 414     MC_SEND_PlayerSettings;
 415     gPlayer1.setWeaponPrefs(gPlayer1Settings.WeaponPreferences);
 416   end;
 417
 418   g_Console_WriteGameConfig;
 419 end;
 420
 421 procedure ReadOptions();
 422 var
 423   menu: TGUIMenu;
 424   i: Integer;
 425 begin
 426   menu := TGUIMenu(g_GUI_GetWindow('OptionsVideoMenu').GetControl('mOptionsVideoMenu'));
 427
 428   with TGUISwitch(menu.GetControl('swBPP')) do
 429     if gBPP = 16 then
 430       ItemIndex := 0
 431     else
 432       ItemIndex := 1;
 433
 434   with TGUISwitch(menu.GetControl('swTextureFilter')) do
 435     if gTextureFilter then ItemIndex := 0 else ItemIndex := 1;
 436
 437   with TGUISwitch(menu.GetControl('swVSync')) do
 438     if gVSync then ItemIndex := 0 else ItemIndex := 1;
 439
 440   with TGUISwitch(menu.GetControl('swLegacyNPOT')) do
 441     if not glNPOTOverride then ItemIndex := 0 else ItemIndex := 1;
 442
 443   with TGUISwitch(menu.GetControl('swInterp')) do
 444     if gLerpActors then ItemIndex := 0 else ItemIndex := 1;
 445
 446   menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu'));
 447
 448   TGUIScroll(menu.GetControl('scSoundLevel')).Value := Round(gSoundLevel/16);
 449   TGUIScroll(menu.GetControl('scMusicLevel')).Value := Round(gMusicLevel/16);
 450   TGUIScroll(menu.GetControl('scMaxSimSounds')).Value := Round((gMaxSimSounds-2)/4);
 451
 452   with TGUISwitch(menu.GetControl('swInactiveSounds')) do
 453     if gMuteWhenInactive then
 454       ItemIndex := 1
 455     else
 456       ItemIndex := 0;
 457
 458   TGUISwitch(menu.GetControl('swAnnouncer')).ItemIndex := gAnnouncer;
 459
 460   with TGUISwitch(menu.GetControl('swSoundEffects')) do
 461     if gSoundEffectsDF then
 462       ItemIndex := 1
 463     else
 464       ItemIndex := 0;
 465
 466   with TGUISwitch(menu.GetControl('swChatSpeech')) do
 467     if gUseChatSounds then
 468       ItemIndex := 0
 469     else
 470       ItemIndex := 1;
 471
 472   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP1Menu').GetControl('mOptionsControlsP1Menu'));
 473   with menu do
 474   begin
 475     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key0 := g_Console_FindBind(1, '+p1_moveright', '-p1_moveright');
 476     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key0 := g_Console_FindBind(1, '+p1_moveleft', '-p1_moveleft');
 477     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key0 := g_Console_FindBind(1, '+p1_lookup', '-p1_lookup');
 478     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key0 := g_Console_FindBind(1, '+p1_lookdown', '-p1_lookdown');
 479     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key0 := g_Console_FindBind(1, '+p1_attack', '-p1_attack');
 480     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key0 := g_Console_FindBind(1, '+p1_jump', '-p1_jump');
 481     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key0 := g_Console_FindBind(1, '+p1_activate', '-p1_activate');
 482     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key0 := g_Console_FindBind(1, '+p1_strafe', '-p1_strafe');
 483     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key0 := g_Console_FindBind(1, 'p1_dropflag', '');
 484     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key0 := g_Console_FindBind(1, 'p1_weapnext', '');
 485     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key0 := g_Console_FindBind(1, 'p1_weapprev', '');
 486     // second set
 487     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key1 := g_Console_FindBind(2, '+p1_moveright', '-p1_moveright');
 488     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key1 := g_Console_FindBind(2, '+p1_moveleft', '-p1_moveleft');
 489     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key1 := g_Console_FindBind(2, '+p1_lookup', '-p1_lookup');
 490     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key1 := g_Console_FindBind(2, '+p1_lookdown', '-p1_lookdown');
 491     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key1 := g_Console_FindBind(2, '+p1_attack', '-p1_attack');
 492     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key1 := g_Console_FindBind(2, '+p1_jump', '-p1_jump');
 493     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key1 := g_Console_FindBind(2, '+p1_activate', '-p1_activate');
 494     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key1 := g_Console_FindBind(2, '+p1_strafe', '-p1_strafe');
 495     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key1 := g_Console_FindBind(2, 'p1_dropflag', '');
 496     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key1 := g_Console_FindBind(2, 'p1_weapnext', '');
 497     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key1 := g_Console_FindBind(2, 'p1_weapprev', '');
 498   end;
 499
 500   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP1MenuWeapons').GetControl('mOptionsControlsP1MenuWeapons'));
 501   with menu do
 502   begin
 503     for i := WP_FIRST to WP_LAST do
 504     begin
 505       TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key0 := g_Console_FindBind(1, 'p1_weapon ' + IntToStr(i + 1));
 506       TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key1 := g_Console_FindBind(2, 'p1_weapon ' + IntToStr(i + 1));
 507     end;
 508   end;
 509
 510   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP2Menu').GetControl('mOptionsControlsP2Menu'));
 511   with menu do
 512   begin
 513     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key0 := g_Console_FindBind(1, '+p2_moveright', '-p2_moveright');
 514     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key0 := g_Console_FindBind(1, '+p2_moveleft', '-p2_moveleft');
 515     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key0 := g_Console_FindBind(1, '+p2_lookup', '-p2_lookup');
 516     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key0 := g_Console_FindBind(1, '+p2_lookdown', '-p2_lookdown');
 517     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key0 := g_Console_FindBind(1, '+p2_attack', '-p2_attack');
 518     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key0 := g_Console_FindBind(1, '+p2_jump', '-p2_jump');
 519     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key0 := g_Console_FindBind(1, '+p2_activate', '-p2_activate');
 520     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key0 := g_Console_FindBind(1, '+p2_strafe', '-p2_strafe');
 521     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key0 := g_Console_FindBind(1, 'p2_dropflag', '');
 522     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key0 := g_Console_FindBind(1, 'p2_weapnext', '');
 523     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key0 := g_Console_FindBind(1, 'p2_weapprev', '');
 524     // second set
 525     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_RIGHT])).Key1 := g_Console_FindBind(2, '+p2_moveright', '-p2_moveright');
 526     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_LEFT])).Key1 := g_Console_FindBind(2, '+p2_moveleft', '-p2_moveleft');
 527     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_UP])).Key1 := g_Console_FindBind(2, '+p2_lookup', '-p2_lookup');
 528     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DOWN])).Key1 := g_Console_FindBind(2, '+p2_lookdown', '-p2_lookdown');
 529     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_FIRE])).Key1 := g_Console_FindBind(2, '+p2_attack', '-p2_attack');
 530     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_JUMP])).Key1 := g_Console_FindBind(2, '+p2_jump', '-p2_jump');
 531     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_USE])).Key1 := g_Console_FindBind(2, '+p2_activate', '-p2_activate');
 532     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_STRAFE])).Key1 := g_Console_FindBind(2, '+p2_strafe', '-p2_strafe');
 533     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_DROPFLAG])).Key1 := g_Console_FindBind(2, 'p2_dropflag', '');
 534     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_NEXT_WEAPON])).Key1 := g_Console_FindBind(2, 'p2_weapnext', '');
 535     TGUIKeyRead2(GetControl(_lc[I_MENU_CONTROL_PREV_WEAPON])).Key1 := g_Console_FindBind(2, 'p2_weapprev', '');
 536   end;
 537
 538   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsP2MenuWeapons').GetControl('mOptionsControlsP2MenuWeapons'));
 539   with menu do
 540   begin
 541     for i := WP_FIRST to WP_LAST do
 542     begin
 543       TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key0 := g_Console_FindBind(1, 'p2_weapon ' + IntToStr(i + 1));
 544       TGUIKeyRead2(GetControl(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)])).Key1 := g_Console_FindBind(2, 'p2_weapon ' + IntToStr(i + 1));
 545     end;
 546   end;
 547
 548   if e_HasJoysticks then
 549   begin
 550     menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsJoystickMenu').GetControl('mOptionsControlsJoystickMenu'));
 551     with menu do
 552     begin
 553       for i := 0 to e_MaxJoys - 1 do
 554         if e_JoystickAvailable[i] then
 555           TGUIScroll(menu.GetControl('scDeadzone' + IntToStr(i))).Value := e_JoystickDeadzones[i] div (32767 div 20)
 556     end
 557   end;
 558
 559   if g_touch_enabled then
 560   begin
 561     menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsTouchMenu').GetControl('mOptionsControlsTouchMenu'));
 562     with TGUISwitch(menu.GetControl('swTouchAlt')) do
 563       if g_touch_alt then ItemIndex := 1 else ItemIndex := 0;
 564     TGUIScroll(menu.GetControl('scTouchSize')).Value := Round((g_touch_size - 0.5) * 10);
 565     with TGUISwitch(menu.GetControl('swTouchFire')) do
 566       if g_touch_fire then ItemIndex := 1 else ItemIndex := 0;
 567     TGUIScroll(menu.GetControl('scTouchOffset')).Value := Round(g_touch_offset / 5);
 568   end;
 569
 570   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsMenu').GetControl('mOptionsControlsMenu'));
 571   with menu do
 572   begin
 573     TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_SCREENSHOT])).Key := g_Console_FindBind(1, 'screenshot');
 574     TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_STAT])).Key := g_Console_FindBind(1, '+scores', '-scores');
 575     TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_CHAT])).Key := g_Console_FindBind(1, 'togglechat');
 576     TGUIKeyRead(GetControl(_lc[I_MENU_CONTROL_TEAMCHAT])).Key := g_Console_FindBind(1, 'toggleteamchat');
 577   end;
 578
 579   menu := TGUIMenu(g_GUI_GetWindow('OptionsGameMenu').GetControl('mOptionsGameMenu'));
 580
 581   TGUIScroll(menu.GetControl('scParticlesCount')).Value := g_GFX_GetMax() div 1000;
 582   TGUIScroll(menu.GetControl('scShellsMax')).Value := g_Shells_GetMax() div 30;
 583   TGUIScroll(menu.GetControl('scGibsMax')).Value := g_Gibs_GetMax() div 25;
 584   TGUIScroll(menu.GetControl('scCorpsesMax')).Value := g_Corpses_GetMax() div 5;
 585   TGUISwitch(menu.GetControl('swBloodCount')).ItemIndex := gBloodCount;
 586
 587   with TGUISwitch(menu.GetControl('swScreenFlash')) do
 588     ItemIndex := gFlash;
 589
 590   with TGUISwitch(menu.GetControl('swBloodType')) do
 591     if gAdvBlood then ItemIndex := 1 else ItemIndex := 0;
 592
 593   with TGUISwitch(menu.GetControl('swCorpseType')) do
 594     if gAdvCorpses then ItemIndex := 1 else ItemIndex := 0;
 595
 596   with TGUISwitch(menu.GetControl('swGibsType')) do
 597     if gAdvGibs then ItemIndex := 1 else ItemIndex := 0;
 598
 599   with TGUISwitch(menu.GetControl('swGibsCount')) do
 600     case gGibsCount of
 601       0: ItemIndex := 0;
 602       8: ItemIndex := 1;
 603       16: ItemIndex := 2;
 604       32: ItemIndex := 3;
 605       else ItemIndex := 4;
 606     end;
 607
 608   with TGUISwitch(menu.GetControl('swBackGround')) do
 609     if gDrawBackGround then ItemIndex := 0 else ItemIndex := 1;
 610
 611   with TGUISwitch(menu.GetControl('swMessages')) do
 612     if gShowMessages then ItemIndex := 0 else ItemIndex := 1;
 613
 614   with TGUISwitch(menu.GetControl('swRevertPlayers')) do
 615     if gRevertPlayers then ItemIndex := 0 else ItemIndex := 1;
 616
 617   with TGUISwitch(menu.GetControl('swChatBubble')) do
 618     ItemIndex := gChatBubble;
 619
 620   with TGUISwitch(menu.GetControl('swPlayerIndicator')) do
 621     ItemIndex := gPlayerIndicator;
 622
 623   with TGUISwitch(menu.GetControl('swPlayerIndicatorStyle')) do
 624     ItemIndex := gPlayerIndicatorStyle;
 625
 626   TempScale := Round(g_dbg_scale - 1);
 627   TGUIScroll(menu.GetControl('scScaleFactor')).Value := TempScale;
 628
 629   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP1Menu').GetControl('mOptionsPlayersP1Menu'));
 630
 631   TGUIListBox(menu.GetControl('lsP1Model')).SelectItem(gPlayer1Settings.Model);
 632   TGUIEdit(menu.GetControl('edP1Name')).Text := gPlayer1Settings.Name;
 633
 634   TGUISwitch(menu.GetControl('swP1Team')).ItemIndex :=
 635     IfThen(gPlayer1Settings.Team = TEAM_BLUE, 1, 0);
 636
 637   TGUIScroll(menu.GetControl('scP1Red')).Value := Round(gPlayer1Settings.Color.R/16);
 638   TGUIScroll(menu.GetControl('scP1Green')).Value := Round(gPlayer1Settings.Color.G/16);
 639   TGUIScroll(menu.GetControl('scP1Blue')).Value := Round(gPlayer1Settings.Color.B/16);
 640
 641   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP1WeaponMenu').GetControl('mOptionsPlayersP1WeaponMenu'));
 642   TGUISwitch(menu.GetControl('swWeaponAutoswitch')).ItemIndex := gPlayer1Settings.WeaponSwitch;
 643   TGUISwitch(menu.GetControl('swWeaponAllowEmpty')).ItemIndex := gPlayer1Settings.SwitchToEmpty;
 644   TGUISwitch(menu.GetControl('swWeaponAllowFist')).ItemIndex := gPlayer1Settings.SkipFist;
 645   menu := TGUIMenu(g_GUI_GetWindow('OptionsPreferencesP1WeaponMenu').GetControl('mOptionsPreferencesP1WeaponMenu'));
 646   for i := WP_FIRST to WP_LAST+1 do
 647   begin
 648         if (gPlayer1Settings.WeaponPreferences[i] > 0) and (gPlayer1Settings.WeaponPreferences[i] <= WP_LAST+1) then TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex := gPlayer1Settings.WeaponPreferences[i]
 649         else TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex := 0;
 650   end;
 651
 652   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP2WeaponMenu').GetControl('mOptionsPlayersP2WeaponMenu'));
 653   TGUISwitch(menu.GetControl('swWeaponAutoswitch')).ItemIndex := gPlayer2Settings.WeaponSwitch;
 654   TGUISwitch(menu.GetControl('swWeaponAllowEmpty')).ItemIndex := gPlayer2Settings.SwitchToEmpty;
 655   TGUISwitch(menu.GetControl('swWeaponAllowFist')).ItemIndex := gPlayer2Settings.SkipFist;
 656   menu := TGUIMenu(g_GUI_GetWindow('OptionsPreferencesP2WeaponMenu').GetControl('mOptionsPreferencesP2WeaponMenu'));
 657   for i := WP_FIRST to WP_LAST+1 do
 658   begin
 659         if (gPlayer2Settings.WeaponPreferences[i] > 0) and (gPlayer2Settings.WeaponPreferences[i] <= WP_LAST+1) then TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex := gPlayer2Settings.WeaponPreferences[i]
 660         else TGUISwitch(menu.GetControl(IntToStr(i))).ItemIndex := 0;
 661   end;
 662
 663   menu := TGUIMenu(g_GUI_GetWindow('OptionsPlayersP2Menu').GetControl('mOptionsPlayersP2Menu'));
 664
 665   TGUIListBox(menu.GetControl('lsP2Model')).SelectItem(gPlayer2Settings.Model);
 666   TGUIEdit(menu.GetControl('edP2Name')).Text := gPlayer2Settings.Name;
 667
 668   TGUISwitch(menu.GetControl('swP2Team')).ItemIndex :=
 669     IfThen(gPlayer2Settings.Team = TEAM_BLUE, 1, 0);
 670
 671   TGUIScroll(menu.GetControl('scP2Red')).Value := Round(gPlayer2Settings.Color.R/16);
 672   TGUIScroll(menu.GetControl('scP2Green')).Value := Round(gPlayer2Settings.Color.G/16);
 673   TGUIScroll(menu.GetControl('scP2Blue')).Value := Round(gPlayer2Settings.Color.B/16);
 674
 675   ProcSelectModel(nil);
 676 end;
 677
 678 procedure ProcSwitchMonstersCustom(Sender: TGUIControl);
 679 begin
 680   // don't turn off monsters in DM
 681   {
 682   with TGUIMenu(g_ActiveWindow.GetControl('mCustomGameMenu')) do
 683     if TGUISwitch(GetControl('swGameMode')).GetText <> _lc[I_MENU_GAME_TYPE_CTF] then
 684       TGUISwitch(GetControl('swMonsters')).ItemIndex := 0
 685     else
 686       TGUISwitch(GetControl('swMonsters')).ItemIndex := 1;
 687   }
 688   {
 689     if TGUISwitch(GetControl('swGameMode')).GetText = _lc[I_MENU_GAME_TYPE_COOP] then
 690       TGUISwitch(GetControl('swMonsters')).ItemIndex := 0
 691     else if TGUISwitch(GetControl('swGameMode')).GetText = _lc[I_MENU_GAME_TYPE_CTF] then
 692       TGUISwitch(GetControl('swMonsters')).ItemIndex := 1;
 693   }
 694 end;
 695
 696 procedure ProcSwitchMonstersNet(Sender: TGUIControl);
 697 begin
 698   // don't turn off monsters in DM
 699   {
 700   with TGUIMenu(g_ActiveWindow.GetControl('mNetServerMenu')) do
 701     if TGUISwitch(GetControl('swGameMode')).GetText <> _lc[I_MENU_GAME_TYPE_CTF] then
 702       TGUISwitch(GetControl('swMonsters')).ItemIndex := 0
 703     else
 704       TGUISwitch(GetControl('swMonsters')).ItemIndex := 1;
 705   }
 706     {
 707     if TGUISwitch(GetControl('swGameMode')).GetText = _lc[I_MENU_GAME_TYPE_COOP] then
 708       TGUISwitch(GetControl('swMonsters')).ItemIndex := 0
 709     else if TGUISwitch(GetControl('swGameMode')).GetText = _lc[I_MENU_GAME_TYPE_CTF] then
 710       TGUISwitch(GetControl('swMonsters')).ItemIndex := 1;
 711     }
 712 end;
 713
 714 function LatchGameOptions(const MenuName: string): Byte;
 715 var
 716   Map: string;
 717 begin
 718   Result := GM_NONE;
 719
 720   with TGUIMenu(g_ActiveWindow.GetControl(MenuName)) do
 721   begin
 722     Map := TGUILabel(GetControl('lbMap')).Text;
 723     if Map = '' then
 724       Exit;
 725     if not isWadPath(Map) then
 726       Exit;
 727
 728     Result := TGUISwitch(GetControl('swGameMode')).ItemIndex+1;
 729     gsGameMode := TGUISwitch(GetControl('swGameMode')).GetText;
 730     gsTimeLimit := StrToIntDef(TGUIEdit(GetControl('edTimeLimit')).Text, 0);
 731     gsScoreLimit := StrToIntDef(TGUIEdit(GetControl('edScoreLimit')).Text, 0);
 732     gsMaxLives := StrToIntDef(TGUIEdit(GetControl('edMaxLives')).Text, 0);
 733     gsItemRespawnTime := StrToIntDef(TGUIEdit(GetControl('edItemRespawnTime')).Text, 0);
 734     gsPlayers := TGUISwitch(GetControl('swPlayers')).ItemIndex;
 735     gsMap := Map;
 736
 737     gsGameFlags := 0;
 738     if TGUISwitch(GetControl('swTeamDamage')).ItemIndex = 0 then
 739       gsGameFlags := gsGameFlags or GAME_OPTION_TEAMDAMAGE;
 740     if TGUISwitch(GetControl('swDeathmatchKeys')).ItemIndex = 0 then
 741       gsGameFlags := gsGameFlags or GAME_OPTION_DMKEYS;
 742     if TGUISwitch(GetControl('swEnableExits')).ItemIndex = 0 then
 743       gsGameFlags := gsGameFlags or GAME_OPTION_ALLOWEXIT;
 744     if TGUISwitch(GetControl('swWeaponStay')).ItemIndex = 0 then
 745       gsGameFlags := gsGameFlags or GAME_OPTION_WEAPONSTAY;
 746     if TGUISwitch(GetControl('swMonsters')).ItemIndex = 0 then
 747       gsGameFlags := gsGameFlags or GAME_OPTION_MONSTERS;
 748
 749     case TGUISwitch(GetControl('swTeamHit')).ItemIndex of
 750       1: gsGameFlags := gsGameFlags or GAME_OPTION_TEAMHITTRACE;
 751       2: gsGameFlags := gsGameFlags or GAME_OPTION_TEAMHITPROJECTILE;
 752       0: gsGameFlags := gsGameFlags or GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE;
 753     end;
 754
 755     case TGUISwitch(GetControl('swBotsVS')).ItemIndex of
 756       1: gsGameFlags := gsGameFlags or GAME_OPTION_BOTVSMONSTER;
 757       2: gsGameFlags := gsGameFlags or GAME_OPTION_BOTVSPLAYER or GAME_OPTION_BOTVSMONSTER;
 758       else gsGameFlags := gsGameFlags or GAME_OPTION_BOTVSPLAYER;
 759     end;
 760
 761     case TGUISwitch(GetControl('swFlagDrop')).ItemIndex of
 762       0: gsGameFlags := gsGameFlags or GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG;
 763       1: gsGameFlags := gsGameFlags or GAME_OPTION_ALLOWDROPFLAG;
 764       else gsGameFlags := gsGameFlags and not (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG);
 765     end;
 766
 767     // TODO: get this crap out of here
 768     gGameSettings.ItemRespawnTime := gsItemRespawnTime;
 769     gGameSettings.WarmupTime := gsWarmupTime;
 770     gGameSettings.SpawnInvul := gsSpawnInvul;
 771   end;
 772 end;
 773
 774 procedure ProcStartCustomGame();
 775 var
 776   GameMode: Byte;
 777 begin
 778   GameMode := LatchGameOptions('mCustomGameMenu');
 779   if GameMode = GM_NONE then Exit;
 780
 781   g_Console_WriteGameConfig;
 782   g_Game_StartCustom(gsMap, GameMode, gsTimeLimit, gsScoreLimit,
 783                      gsMaxLives, gsGameFlags, gsPlayers);
 784 end;
 785
 786
 787 procedure ProcStartNetGame();
 788 var
 789   GameMode: Byte;
 790 begin
 791   GameMode := LatchGameOptions('mNetServerMenu');
 792   if GameMode = GM_NONE then Exit;
 793
 794   with TGUIMenu(g_ActiveWindow.GetControl('mNetServerMenu')) do
 795   begin
 796     NetPort := StrToIntDef(TGUIEdit(GetControl('edPort')).Text, 0);
 797     NetServerName := TGUIEdit(GetControl('edSrvName')).Text;
 798     NetMaxClients := Max(1, StrToIntDef(TGUIEdit(GetControl('edMaxPlayers')).Text, 1));
 799     NetMaxClients := Min(NET_MAXCLIENTS, NetMaxClients);
 800     NetPassword := TGUIEdit(GetControl('edSrvPassword')).Text;
 801     NetUseMaster := TGUISwitch(GetControl('swUseMaster')).ItemIndex = 0;
 802   end;
 803
 804   g_Console_WriteGameConfig;
 805   g_Game_StartServer(gsMap, GameMode, gsTimeLimit, gsScoreLimit, gsMaxLives,
 806                      gsGameFlags, gsPlayers, 0, NetPort);
 807 end;
 808
 809 procedure ProcConnectNetGame();
 810 var
 811   PW: String;
 812 begin
 813   with TGUIMenu(g_ActiveWindow.GetControl('mNetClientMenu')) do
 814   begin
 815     NetClientIP := TGUIEdit(GetControl('edIP')).Text;
 816     NetClientPort := StrToIntDef(TGUIEdit(GetControl('edPort')).Text, 0);
 817     PW := TGUIEdit(GetControl('edPW')).Text;
 818   end;
 819
 820   g_Console_WriteGameConfig;
 821   g_Game_StartClient(NetClientIP, NetClientPort, PW);
 822 end;
 823
 824 procedure ProcEnterPassword();
 825 var
 826   PW: string;
 827 begin
 828   with TGUIMenu(g_ActiveWindow.GetControl('mClientPasswordMenu')) do
 829   begin
 830     NetClientIP := PromptIP;
 831     NetClientPort := PromptPort;
 832     PW := TGUIEdit(GetControl('edPW')).Text;
 833   end;
 834
 835   g_Console_WriteGameConfig;
 836   g_Game_StartClient(NetClientIP, NetClientPort, PW);
 837 end;
 838
 839 procedure ProcServerlist();
 840 begin
 841   if not NetInitDone then
 842   begin
 843     if (not g_Net_Init()) then
 844     begin
 845       g_Console_Add('NET: ERROR: Failed to init ENet!');
 846       Exit;
 847     end
 848     else
 849       NetInitDone := True;
 850   end;
 851
 852   g_Net_Slist_Set(NetMasterList);
 853
 854   gState := STATE_SLIST;
 855   g_ActiveWindow := nil;
 856
 857   slWaitStr := _lc[I_NET_SLIST_WAIT];
 858
 859   r_Game_Draw;
 860   sys_Repaint;
 861
 862   slReturnPressed := True;
 863   if g_Net_Slist_Fetch(slCurrent) then
 864   begin
 865     if slCurrent = nil then
 866       slWaitStr := _lc[I_NET_SLIST_NOSERVERS];
 867   end
 868   else
 869     slWaitStr := _lc[I_NET_SLIST_ERROR];
 870   g_Serverlist_GenerateTable(slCurrent, slTable);
 871 end;
 872
 873 procedure ProcStartCampaign();
 874 var
 875   WAD: String;
 876   TwoPlayers: Boolean;
 877   n: Byte;
 878 begin
 879   with TGUIMenu(g_ActiveWindow.GetControl('mCampaignMenu')) do
 880   begin
 881     WAD := TGUIFileListBox(GetControl('lsWAD')).SelectedItem();
 882     TwoPlayers := TGUISwitch(GetControl('swPlayers')).ItemIndex = 1;
 883   end;
 884   WAD := e_FindWadRel(MegawadDirs, WAD);
 885
 886   if TwoPlayers then
 887     n := 2
 888   else
 889     n := 1;
 890   g_Game_StartSingle(WAD + ':\MAP01', TwoPlayers, n);
 891 end;
 892
 893 procedure ProcSelectMap(Sender: TGUIControl);
 894 var
 895   win: TGUIWindow;
 896   a: TMapInfo;
 897   wad, map, res: String;
 898 begin
 899   win := g_GUI_GetWindow('SelectMapMenu');
 900   with TGUIMenu(win.GetControl('mSelectMapMenu')) do
 901   begin
 902     wad := TGUIFileListBox(GetControl('lsMapWAD')).SelectedItem();
 903     map := TGUIListBox(GetControl('lsMapRes')).SelectedItem();
 904
 905     if (wad = '') or (map = '') then
 906       begin // Ýòî íå êàðòà
 907         TGUILabel(GetControl('lbMapName')).Text := '';
 908         TGUILabel(GetControl('lbMapAuthor')).Text := '';
 909         TGUILabel(GetControl('lbMapSize')).Text := '';
 910         TGUIMemo(GetControl('meMapDescription')).SetText('');
 911         TGUIMapPreview(win.GetControl('mpMapPreview')).ClearMap();
 912         TGUILabel(win.GetControl('lbMapScale')).Text := '';
 913       end
 914     else // Ýòî êàðòà
 915       begin
 916         res := wad+':\'+map;
 917
 918         a := g_Map_GetMapInfo(res);
 919
 920         TGUILabel(GetControl('lbMapName')).Text := a.Name;
 921         TGUILabel(GetControl('lbMapAuthor')).Text := a.Author;
 922         TGUILabel(GetControl('lbMapSize')).Text := Format('%dx%d', [a.Width, a.Height]);
 923         TGUIMemo(GetControl('meMapDescription')).SetText(a.Description);
 924         TGUIMapPreview(win.GetControl('mpMapPreview')).SetMap(res);
 925         TGUILabel(win.GetControl('lbMapScale')).Text :=
 926           TGUIMapPreview(win.GetControl('mpMapPreview')).GetScaleStr;
 927       end;
 928   end;
 929 end;
 930
 931 procedure ProcSelectWAD(Sender: TGUIControl);
 932 var
 933   wad: String;
 934   list: SSArray;
 935 begin
 936   with TGUIMenu(g_GUI_GetWindow('SelectMapMenu').GetControl('mSelectMapMenu')) do
 937   begin
 938     wad := TGUIFileListBox(GetControl('lsMapWAD')).SelectedItem();
 939
 940     with TGUIListBox(GetControl('lsMapRes')) do
 941     begin
 942       Clear();
 943
 944       if wad <> '' then
 945       begin
 946         list := g_Map_GetMapsList(wad);
 947
 948         if list <> nil then
 949         begin
 950           Items := list;
 951           ItemIndex := 0;
 952         end
 953       end;
 954     end;
 955  end;
 956
 957  ProcSelectMap(nil);
 958 end;
 959
 960 procedure ProcSelectCampaignWAD(Sender: TGUIControl);
 961 var
 962   win: TGUIWindow;
 963   a: TMegaWADInfo;
 964   wad, fn: String;
 965 begin
 966   win := g_GUI_GetWindow('CampaignMenu');
 967   with TGUIMenu(win.GetControl('mCampaignMenu')) do
 968   begin
 969     wad := TGUIFileListBox(GetControl('lsWAD')).SelectedItem();
 970
 971     if wad = '' then
 972     begin
 973       TGUILabel(GetControl('lbWADName')).Text := '';
 974       TGUILabel(GetControl('lbWADAuthor')).Text := '';
 975       TGUIMemo(GetControl('meWADDescription')).SetText('');
 976     end;
 977
 978     a := g_Game_GetMegaWADInfo(wad);
 979
 980     TGUILabel(GetControl('lbWADName')).Text := a.Name;
 981     TGUILabel(GetControl('lbWADAuthor')).Text := a.Author;
 982     TGUIMemo(GetControl('meWADDescription')).SetText(a.Description);
 983
 984     TGUIImage(win.GetControl('mpWADImage')).ClearImage();
 985
 986     if a.pic <> '' then
 987     begin
 988       fn := g_ExtractWadName(a.pic);
 989       if fn = '' then
 990         TGUIImage(win.GetControl('mpWADImage')).SetImage(wad+a.pic)
 991       else
 992         TGUIImage(win.GetControl('mpWADImage')).SetImage(a.pic);
 993     end;
 994   end;
 995 end;
 996
 997 procedure ProcChangeColor(Sender: TGUIControl);
 998 var
 999   window: TGUIWindow;
1000 begin
1001   window := g_GUI_GetWindow('OptionsPlayersP1Menu');
1002   with TGUIMenu(window.GetControl('mOptionsPlayersP1Menu')) do
1003     TGUIModelView(window.GetControl('mvP1Model')).SetColor(
1004                   Min(TGUIScroll(GetControl('scP1Red')).Value*16, 255),
1005                   Min(TGUIScroll(GetControl('scP1Green')).Value*16, 255),
1006                   Min(TGUIScroll(GetControl('scP1Blue')).Value*16, 255));
1007
1008   window := g_GUI_GetWindow('OptionsPlayersP2Menu');
1009   with TGUIMenu(window.GetControl('mOptionsPlayersP2Menu')) do
1010     TGUIModelView(window.GetControl('mvP2Model')).SetColor(
1011                   Min(TGUIScroll(GetControl('scP2Red')).Value*16, 255),
1012                   Min(TGUIScroll(GetControl('scP2Green')).Value*16, 255),
1013                   Min(TGUIScroll(GetControl('scP2Blue')).Value*16, 255));
1014 end;
1015
1016 procedure ProcSelectModel(Sender: TGUIControl);
1017 var
1018   a: string;
1019   window: TGUIWindow;
1020 begin
1021   window := g_GUI_GetWindow('OptionsPlayersP1Menu');
1022   a := TGUIListBox(TGUIMenu(window.GetControl('mOptionsPlayersP1Menu')).GetControl('lsP1Model')).SelectedItem;
1023   if a <> '' then TGUIModelView(window.GetControl('mvP1Model')).SetModel(a);
1024
1025   window := g_GUI_GetWindow('OptionsPlayersP2Menu');
1026   a := TGUIListBox(TGUIMenu(window.GetControl('mOptionsPlayersP2Menu')).GetControl('lsP2Model')).SelectedItem;
1027   if a <> '' then TGUIModelView(window.GetControl('mvP2Model')).SetModel(a);
1028
1029   ProcChangeColor(nil);
1030 end;
1031
1032 procedure LoadStdFont(cfgres, texture: string; var FontID: DWORD);
1033 var
1034   cwdt, chgt: Byte;
1035   spc: ShortInt;
1036   ID: DWORD;
1037   wad: TWADFile;
1038   cfgdata: Pointer;
1039   cfglen: Integer;
1040   config: TConfig;
1041 begin
1042   cfglen := 0;
1043
1044   wad := TWADFile.Create;
1045   if wad.ReadFile(GameWAD) then
1046     wad.GetResource('FONTS/'+cfgres, cfgdata, cfglen);
1047   wad.Free();
1048
1049   if cfglen <> 0 then
1050   begin
1051     g_Texture_CreateWADEx('FONT_STD', GameWAD+':FONTS\'+texture);
1052
1053     config := TConfig.CreateMem(cfgdata, cfglen);
1054     cwdt := Min(Max(config.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
1055     chgt := Min(Max(config.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
1056     spc := Min(Max(config.ReadInt('FontMap', 'Kerning', 0), -128), 127);
1057
1058     if g_Texture_Get('FONT_STD', ID) then
1059       e_TextureFontBuild(ID, FontID, cwdt, chgt, spc);
1060
1061     config.Free();
1062   end;
1063
1064   if cfglen <> 0 then FreeMem(cfgdata);
1065 end;
1066
1067 procedure LoadFont(txtres, fntres: string; var FontID: DWORD);
1068 var
1069   cwdt, chgt: Byte;
1070   spc: ShortInt;
1071   CharID: DWORD;
1072   wad: TWADFile;
1073   cfgdata, fntdata: Pointer;
1074   cfglen, fntlen: Integer;
1075   config: TConfig;
1076   chrwidth: Integer;
1077   a: Byte;
1078 begin
1079   cfglen := 0;
1080   fntlen := 0;
1081
1082   wad := TWADFile.Create;
1083   if wad.ReadFile(GameWAD) then
1084   begin
1085     wad.GetResource('FONTS/'+txtres, cfgdata, cfglen);
1086     wad.GetResource('FONTS/'+fntres, fntdata, fntlen);
1087   end;
1088   wad.Free();
1089
1090   if cfglen <> 0 then
1091   begin
1092     config := TConfig.CreateMem(cfgdata, cfglen);
1093     cwdt := Min(Max(config.ReadInt('FontMap', 'CharWidth', 0), 0), 255);
1094     chgt := Min(Max(config.ReadInt('FontMap', 'CharHeight', 0), 0), 255);
1095
1096     spc := Min(Max(config.ReadInt('FontMap', 'Kerning', 0), -128), 127);
1097     FontID := e_CharFont_Create(spc);
1098
1099     for a := 0 to 255 do
1100     begin
1101       chrwidth := config.ReadInt(IntToStr(a), 'Width', 0);
1102       if chrwidth = 0 then Continue;
1103
1104       if e_CreateTextureMemEx(fntdata, fntlen, CharID, cwdt*(a mod 16), chgt*(a div 16),
1105                               cwdt, chgt) then
1106         e_CharFont_AddChar(FontID, CharID, Chr(a), chrwidth);
1107     end;
1108
1109     config.Free();
1110   end;
1111
1112   if cfglen <> 0 then FreeMem(cfgdata);
1113   if fntlen <> 0 then FreeMem(fntdata);
1114 end;
1115
1116 procedure MenuLoadData();
1117 begin
1118   e_WriteLog('Loading menu data...', TMsgType.Notify);
1119
1120   g_Texture_CreateWADEx('MAINMENU_LOGO', GameWAD+':TEXTURES\MAINLOGO');
1121   g_Texture_CreateWADEx('MAINMENU_MARKER1', GameWAD+':TEXTURES\MARKER1');
1122   g_Texture_CreateWADEx('MAINMENU_MARKER2', GameWAD+':TEXTURES\MARKER2');
1123   g_Texture_CreateWADEx('SCROLL_LEFT', GameWAD+':TEXTURES\SLEFT');
1124   g_Texture_CreateWADEx('SCROLL_RIGHT', GameWAD+':TEXTURES\SRIGHT');
1125   g_Texture_CreateWADEx('SCROLL_MIDDLE', GameWAD+':TEXTURES\SMIDDLE');
1126   g_Texture_CreateWADEx('SCROLL_MARKER', GameWAD+':TEXTURES\SMARKER');
1127   g_Texture_CreateWADEx('EDIT_LEFT', GameWAD+':TEXTURES\ELEFT');
1128   g_Texture_CreateWADEx('EDIT_RIGHT', GameWAD+':TEXTURES\ERIGHT');
1129   g_Texture_CreateWADEx('EDIT_MIDDLE', GameWAD+':TEXTURES\EMIDDLE');
1130   g_Texture_CreateWADEx('BOX1', GameWAD+':TEXTURES\BOX1');
1131   g_Texture_CreateWADEx('BOX2', GameWAD+':TEXTURES\BOX2');
1132   g_Texture_CreateWADEx('BOX3', GameWAD+':TEXTURES\BOX3');
1133   g_Texture_CreateWADEx('BOX4', GameWAD+':TEXTURES\BOX4');
1134   g_Texture_CreateWADEx('BOX5', GameWAD+':TEXTURES\BOX5');
1135   g_Texture_CreateWADEx('BOX6', GameWAD+':TEXTURES\BOX6');
1136   g_Texture_CreateWADEx('BOX7', GameWAD+':TEXTURES\BOX7');
1137   g_Texture_CreateWADEx('BOX8', GameWAD+':TEXTURES\BOX8');
1138   g_Texture_CreateWADEx('BOX9', GameWAD+':TEXTURES\BOX9');
1139   g_Texture_CreateWADEx('BSCROLL_UP_A', GameWAD+':TEXTURES\SCROLLUPA');
1140   g_Texture_CreateWADEx('BSCROLL_UP_U', GameWAD+':TEXTURES\SCROLLUPU');
1141   g_Texture_CreateWADEx('BSCROLL_DOWN_A', GameWAD+':TEXTURES\SCROLLDOWNA');
1142   g_Texture_CreateWADEx('BSCROLL_DOWN_U', GameWAD+':TEXTURES\SCROLLDOWNU');
1143   g_Texture_CreateWADEx('BSCROLL_MIDDLE', GameWAD+':TEXTURES\SCROLLMIDDLE');
1144   g_Texture_CreateWADEx('NOPIC', GameWAD+':TEXTURES\NOPIC');
1145
1146   g_Sound_CreateWADEx('MENU_SELECT', GameWAD+':SOUNDS\MENUSELECT');
1147   g_Sound_CreateWADEx('MENU_OPEN', GameWAD+':SOUNDS\MENUOPEN');
1148   g_Sound_CreateWADEx('MENU_CLOSE', GameWAD+':SOUNDS\MENUCLOSE');
1149   g_Sound_CreateWADEx('MENU_CHANGE', GameWAD+':SOUNDS\MENUCHANGE');
1150   g_Sound_CreateWADEx('SCROLL_ADD', GameWAD+':SOUNDS\SCROLLADD');
1151   g_Sound_CreateWADEx('SCROLL_SUB', GameWAD+':SOUNDS\SCROLLSUB');
1152   g_Sound_CreateWADEx('SOUND_PLAYER_FALL', GameWAD+':SOUNDS\FALL');
1153 end;
1154
1155 procedure MenuFreeData();
1156 begin
1157   e_CharFont_Remove(gMenuFont);
1158   e_CharFont_Remove(gMenuSmallFont);
1159
1160   g_Texture_Delete('MAINMENU_LOGO');
1161   g_Texture_Delete('MAINMENU_MARKER1');
1162   g_Texture_Delete('MAINMENU_MARKER2');
1163   g_Texture_Delete('SCROLL_LEFT');
1164   g_Texture_Delete('SCROLL_RIGHT');
1165   g_Texture_Delete('SCROLL_MIDDLE');
1166   g_Texture_Delete('SCROLL_MARKER');
1167   g_Texture_Delete('EDIT_LEFT');
1168   g_Texture_Delete('EDIT_RIGHT');
1169   g_Texture_Delete('EDIT_MIDDLE');
1170   g_Texture_Delete('BOX1');
1171   g_Texture_Delete('BOX2');
1172   g_Texture_Delete('BOX3');
1173   g_Texture_Delete('BOX4');
1174   g_Texture_Delete('BOX5');
1175   g_Texture_Delete('BOX6');
1176   g_Texture_Delete('BOX7');
1177   g_Texture_Delete('BOX8');
1178   g_Texture_Delete('BOX9');
1179   g_Texture_Delete('BSCROLL_UP_A');
1180   g_Texture_Delete('BSCROLL_UP_U');
1181   g_Texture_Delete('BSCROLL_DOWN_A');
1182   g_Texture_Delete('BSCROLL_DOWN_U');
1183   g_Texture_Delete('BSCROLL_MIDDLE');
1184   g_Texture_Delete('NOPIC');
1185
1186   g_Sound_Delete('MENU_SELECT');
1187   g_Sound_Delete('MENU_OPEN');
1188   g_Sound_Delete('MENU_CLOSE');
1189   g_Sound_Delete('MENU_CHANGE');
1190   g_Sound_Delete('SCROLL_ADD');
1191   g_Sound_Delete('SCROLL_SUB');
1192   g_Sound_Delete('SOUND_PLAYER_FALL');
1193 end;
1194
1195 procedure ProcAuthorsMenu();
1196 begin
1197   gMusic.SetByName('MUSIC_INTERMUS');
1198   gMusic.Play();
1199 end;
1200
1201 procedure ProcExitMenuKeyDown (yes: Boolean);
1202 var
1203   s: ShortString;
1204   snd: TPlayableSound;
1205   res: Boolean;
1206 begin
1207   if yes then
1208   begin
1209     g_Game_StopAllSounds(True);
1210     case (Random(18)) of
1211       0: s := 'SOUND_MONSTER_PAIN';
1212       1: s := 'SOUND_MONSTER_DIE_3';
1213       2: s := 'SOUND_MONSTER_SLOP';
1214       3: s := 'SOUND_MONSTER_DEMON_DIE';
1215       4: s := 'SOUND_MONSTER_IMP_DIE_2';
1216       5: s := 'SOUND_MONSTER_MAN_DIE';
1217       6: s := 'SOUND_MONSTER_BSP_DIE';
1218       7: s := 'SOUND_MONSTER_VILE_DIE';
1219       8: s := 'SOUND_MONSTER_SKEL_DIE';
1220       9: s := 'SOUND_MONSTER_MANCUB_ALERT';
1221       10: s := 'SOUND_MONSTER_PAIN_PAIN';
1222       11: s := 'SOUND_MONSTER_BARON_DIE';
1223       12: s := 'SOUND_MONSTER_CACO_DIE';
1224       13: s := 'SOUND_MONSTER_CYBER_DIE';
1225       14: s := 'SOUND_MONSTER_KNIGHT_ALERT';
1226       15: s := 'SOUND_MONSTER_SPIDER_ALERT';
1227       else s := 'SOUND_PLAYER_FALL';
1228     end;
1229     snd := TPlayableSound.Create();
1230     res := snd.SetByName(s);
1231     if not res then res := snd.SetByName('SOUND_PLAYER_FALL');
1232     if res then
1233     begin
1234       snd.Play(True);
1235       while snd.IsPlaying() do begin end;
1236     end;
1237     g_Game_Quit();
1238     exit;
1239   end;
1240   g_GUI_HideWindow();
1241 end;
1242
1243 procedure ProcLoadMenu();
1244 var
1245   a: Integer;
1246   valid: Boolean;
1247 begin
1248   for a := 1 to 8 do
1249   begin
1250     TGUIEdit(TGUIMenu(g_GUI_GetWindow('LoadMenu').GetControl('mmLoadMenu')).GetControl('edSlot'+IntToStr(a))).Text := g_GetSaveName(a, valid);
1251     TGUIEdit(TGUIMenu(g_GUI_GetWindow('LoadMenu').GetControl('mmLoadMenu')).GetControl('edSlot'+IntToStr(a))).Invalid := not valid;
1252     //TGUIMenu(g_GUI_GetWindow('LoadMenu').GetControl('mmLoadMenu')).GetControl('edSlot'+IntToStr(a)).Enabled := valid;
1253   end;
1254 end;
1255
1256 procedure ProcSaveMenu();
1257 var
1258   a: Integer;
1259   valid: Boolean;
1260   name: AnsiString;
1261 begin
1262   for a := 1 to 8 do
1263   begin
1264     name := g_GetSaveName(a, valid);
1265     TGUIEdit(TGUIMenu(g_GUI_GetWindow('SaveMenu').GetControl('mmSaveMenu')).GetControl('edSlot'+IntToStr(a))).Text := name;
1266     TGUIEdit(TGUIMenu(g_GUI_GetWindow('SaveMenu').GetControl('mmSaveMenu')).GetControl('edSlot'+IntToStr(a))).Invalid := (name <> '') and (not valid);
1267   end;
1268 end;
1269
1270 procedure ProcSaveGame(Sender: TGUIControl);
1271 var
1272   a: Integer;
1273 begin
1274   if g_Game_IsNet then Exit;
1275   if g_Game_IsTestMap then Exit;
1276   a := StrToInt(Copy(Sender.Name, Length(Sender.Name), 1));
1277   g_Game_PauseAllSounds(True);
1278   g_SaveGame(a, TGUIEdit(Sender).Text);
1279
1280   g_ActiveWindow := nil;
1281   g_Game_Pause(False);
1282 end;
1283
1284 procedure ProcLoadGame(Sender: TGUIControl);
1285 var
1286   a: Integer;
1287 begin
1288   if g_Game_IsNet then Exit;
1289   a := StrToInt(Copy(Sender.Name, Length(Sender.Name), 1));
1290   if g_LoadGame(a) then
1291   begin
1292     g_Game_PauseAllSounds(False)
1293   end
1294   else // Íå çàãðóçèëîñü - âîçâðàò â ìåíþ
1295   begin
1296     g_Console_Add(_lc[I_MSG_BAD_SAVE_VERSION], true);
1297     g_GUI_GetWindow('LoadMenu').SetActive(g_GUI_GetWindow('LoadMenu').GetControl('mmLoadMenu'));
1298     //g_ActiveWindow := nil;
1299   end;
1300 end;
1301
1302 procedure ProcSinglePlayer (n: Integer);
1303   var wad, map: AnsiString;
1304 begin
1305   assert(n >= 1);
1306   wad := g_ExtractWadName(gDefaultMegawadStart);
1307   map := g_ExtractFilePathName(gDefaultMegawadStart);
1308   if e_FindResource(AllMapDirs, wad) then
1309   begin
1310     wad := ExpandFileName(wad);
1311     g_Game_StartSingle(wad + ':\' + map, n > 1, n)
1312   end
1313 end;
1314
1315 procedure ProcSingle1Player;
1316 begin
1317   ProcSinglePlayer(1)
1318 end;
1319
1320 procedure ProcSingle2Players;
1321 begin
1322   ProcSinglePlayer(2)
1323 end;
1324
1325 procedure ProcSelectMapMenu();
1326 var
1327   menu: TGUIMenu;
1328   wad_lb: TGUIFileListBox;
1329   map_lb: TGUIListBox;
1330   map: String;
1331 begin
1332   menu := TGUIMenu(g_GUI_GetWindow('SelectMapMenu').GetControl('mSelectMapMenu'));
1333   wad_lb := TGUIFileListBox(menu.GetControl('lsMapWAD'));
1334   map_lb := TGUIListBox(menu.GetControl('lsMapRes'));
1335
1336   if wad_lb.SelectedItem() <> '' then
1337     map := map_lb.SelectedItem()
1338   else
1339     map := '';
1340
1341   wad_lb.UpdateFileList();
1342   map_lb.Clear();
1343
1344   if wad_lb.SelectedItem() <> '' then
1345   begin
1346     ProcSelectWAD(nil);
1347     map_lb.SelectItem(map);
1348
1349     if map_lb.SelectedItem() <> '' then
1350       ProcSelectMap(nil);
1351   end;
1352
1353   g_GUI_ShowWindow('SelectMapMenu');
1354 end;
1355
1356 procedure ProcSelectCampaignMenu();
1357 var
1358   menu: TGUIMenu;
1359   wad_lb: TGUIFileListBox;
1360 begin
1361   menu := TGUIMenu(g_GUI_GetWindow('CampaignMenu').GetControl('mCampaignMenu'));
1362   wad_lb := TGUIFileListBox(menu.GetControl('lsWAD'));
1363
1364   wad_lb.UpdateFileList();
1365
1366   if wad_lb.SelectedItem() <> '' then
1367     ProcSelectCampaignWAD(nil);
1368 end;
1369
1370 procedure ProcSetMap();
1371 var
1372   wad, map, res: String;
1373 begin
1374   with TGUIMenu(g_ActiveWindow.GetControl('mSelectMapMenu')) do
1375   begin
1376     wad := TGUIFileListBox(GetControl('lsMapWAD')).SelectedItem();
1377     map := TGUIListBox(GetControl('lsMapRes')).SelectedItem();
1378   end;
1379
1380   if (wad = '') or (map = '') then
1381     Exit;
1382
1383   wad := e_FindWadRel(MapDirs, WAD);
1384
1385   res := wad+':\'+map;
1386
1387   TGUILabel(TGUIMenu(g_GUI_GetWindow('CustomGameMenu').GetControl('mCustomGameMenu')).GetControl('lbMap')).Text := res;
1388   TGUILabel(TGUIMenu(g_GUI_GetWindow('NetServerMenu').GetControl('mNetServerMenu')).GetControl('lbMap')).Text := res;
1389 end;
1390
1391 procedure ProcChangeSoundSettings(Sender: TGUIControl);
1392 var
1393   menu: TGUIMenu;
1394 begin
1395   menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu'));
1396
1397   g_Sound_SetupAllVolumes(
1398     Min(TGUIScroll(menu.GetControl('scSoundLevel')).Value*16, 255),
1399     Min(TGUIScroll(menu.GetControl('scMusicLevel')).Value*16, 255)
1400   );
1401 end;
1402
1403 procedure ProcChangeGameSettings(Sender: TGUIControl);
1404 var
1405   menu: TGUIMenu;
1406 begin
1407   menu := TGUIMenu(g_GUI_GetWindow('OptionsGameMenu').GetControl('mOptionsGameMenu'));
1408   if TGUIScroll(menu.GetControl('scScaleFactor')).Value <> TempScale then
1409   begin
1410     TempScale := TGUIScroll(menu.GetControl('scScaleFactor')).Value;
1411     g_dbg_scale := TempScale + 1;
1412   end;
1413 end;
1414
1415 procedure ProcChangeTouchSettings(Sender: TGUIControl);
1416 var
1417   menu: TGUIMenu;
1418 begin
1419   menu := TGUIMenu(g_GUI_GetWindow('OptionsControlsTouchMenu').GetControl('mOptionsControlsTouchMenu'));
1420   g_touch_alt := TGUISwitch(menu.GetControl('swTouchAlt')).ItemIndex = 1;
1421   g_touch_size := TGUIScroll(menu.GetControl('scTouchSize')).Value / 10 + 0.5;
1422   g_touch_offset := TGUIScroll(menu.GetControl('scTouchOffset')).Value * 5;
1423 end;
1424
1425 procedure ProcOptionsPlayersMIMenu();
1426 var
1427   s, a: string;
1428   b: TModelInfo;
1429 begin
1430   if g_ActiveWindow.Name = 'OptionsPlayersP1Menu' then s := 'P1' else s := 'P2';
1431
1432   a := TGUIListBox(TGUIMenu(g_ActiveWindow.GetControl('mOptionsPlayers'+s+'Menu')).GetControl('ls'+s+'Model')).SelectedItem;
1433
1434   if a = '' then Exit;
1435
1436   b := g_PlayerModel_GetInfo(a);
1437
1438   with TGUIMenu(g_GUI_GetWindow('OptionsPlayersMIMenu').GetControl('mOptionsPlayersMIMenu')) do
1439   begin
1440     TGUILabel(GetControl('lbName')).Text := b.Name;
1441     TGUILabel(GetControl('lbAuthor')).Text := b.Author;
1442     TGUIMemo(GetControl('meComment')).SetText(b.Description);
1443
1444     if b.HaveWeapon then
1445       TGUILabel(GetControl('lbWeapon')).Text := _lc[I_MENU_YES]
1446     else
1447       TGUILabel(GetControl('lbWeapon')).Text := _lc[I_MENU_NO];
1448   end;
1449
1450   g_GUI_ShowWindow('OptionsPlayersMIMenu');
1451 end;
1452
1453 procedure ProcOptionsPlayerP1WeaponMenu();
1454 var
1455   a: string;
1456 begin
1457   a := TGUIListBox(TGUIMenu(g_ActiveWindow.GetControl('mOptionsPlayers'+'P1'+'Menu')).GetControl('ls'+'P1'+'Model')).SelectedItem;
1458   if a = '' then Exit;
1459   g_GUI_ShowWindow('OptionsPlayersP1WeaponMenu');
1460 end;
1461
1462 procedure ProcOptionsPlayerP1WeaponPreferencesMenu();
1463 begin
1464   g_GUI_ShowWindow('OptionsPreferencesP1WeaponMenu');
1465 end;
1466
1467 procedure ProcOptionsPlayerP2WeaponMenu();
1468 var
1469   a: string;
1470 begin
1471   a := TGUIListBox(TGUIMenu(g_ActiveWindow.GetControl('mOptionsPlayers'+'P2'+'Menu')).GetControl('ls'+'P2'+'Model')).SelectedItem;
1472   if a = '' then Exit;
1473   g_GUI_ShowWindow('OptionsPlayersP2WeaponMenu');
1474 end;
1475
1476 procedure ProcOptionsPlayerP2WeaponPreferencesMenu();
1477 begin
1478   g_GUI_ShowWindow('OptionsPreferencesP2WeaponMenu');
1479 end;
1480
1481 procedure ProcOptionsPlayersAnim();
1482 var
1483   s: String;
1484 begin
1485   if g_ActiveWindow.Name = 'OptionsPlayersP1Menu' then
1486     s := 'P1'
1487   else
1488     s := 'P2';
1489
1490   with TGUIModelView(g_ActiveWindow.GetControl('mv'+s+'Model')) do
1491   begin
1492     NextAnim();
1493     Model.GetCurrentAnimation.Loop := True;
1494     Model.GetCurrentAnimationMask.Loop := True;
1495   end;
1496 end;
1497
1498 procedure ProcOptionsPlayersWeap();
1499 var
1500   s: String;
1501 begin
1502   if g_ActiveWindow.Name = 'OptionsPlayersP1Menu' then
1503     s := 'P1'
1504   else
1505     s := 'P2';
1506
1507   with TGUIModelView(g_ActiveWindow.GetControl('mv'+s+'Model')) do
1508     NextWeapon();
1509 end;
1510
1511 procedure ProcOptionsPlayersRot();
1512 var
1513   s: string;
1514 begin
1515   if g_ActiveWindow.Name = 'OptionsPlayersP1Menu' then s := 'P1' else s := 'P2';
1516   with TGUIModelView(g_ActiveWindow.GetControl('mv'+s+'Model')).Model do
1517   begin
1518     if Direction = TDirection.D_LEFT then Direction := TDirection.D_RIGHT else Direction := TDirection.D_LEFT;
1519   end;
1520 end;
1521
1522 procedure ProcDefaultMenuKeyDown (yes: Boolean);
1523 begin
1524   if yes then
1525   begin
1526     g_Options_SetDefault();
1527     ReadOptions();
1528   end;
1529   g_GUI_HideWindow();
1530 end;
1531
1532 procedure ProcSavedMenuKeyDown (yes: Boolean);
1533 begin
1534   if yes then ReadOptions();
1535   g_GUI_HideWindow();
1536 end;
1537
1538 procedure ProcAuthorsClose();
1539 begin
1540   gMusic.SetByName('MUSIC_MENU');
1541   gMusic.Play();
1542   gState := STATE_MENU;
1543 end;
1544
1545 procedure ProcGMClose();
1546 begin
1547   g_Game_InGameMenu(False);
1548 end;
1549
1550 procedure ProcGMShow();
1551 var
1552   Enabled: Boolean;
1553 begin
1554   Enabled := True;
1555   if (gGameSettings.GameType = GT_SINGLE) and
1556      ((gPlayer1 = nil) or (not gPlayer1.alive)) and
1557      ((gPlayer2 = nil) or (not gPlayer2.alive)) then
1558     Enabled := False; // Îäèí èç èãðîêîâ ïîãèá â ñèíãëå
1559   if not gGameOn then
1560     Enabled := False; // Çàïðåòèòü ñîõðàíåíèå â èíòåðìèññèè (íå ðåàëèçîâàíî)
1561   if g_Game_IsTestMap then
1562     Enabled := False; // Åñëè èãðàåì íà òåñòîâîé èëè âðåìåííîé êàðòå
1563   TGUIMainMenu(g_ActiveWindow.GetControl(
1564     g_ActiveWindow.DefControl )).EnableButton('save', Enabled);
1565 end;
1566
1567 procedure ProcChangePlayers();
1568 var
1569   TeamGame, Spectator, AddTwo: Boolean;
1570   P1Team{, P2Team}: Byte;
1571   bP2: TGUITextButton;
1572 begin
1573   TeamGame := gGameSettings.GameMode in [GM_TDM, GM_CTF];
1574   Spectator := (gPlayer1 = nil) and (gPlayer2 = nil);
1575   AddTwo := gGameSettings.GameType in [GT_CUSTOM, GT_SERVER];
1576   P1Team := TEAM_NONE;
1577   if gPlayer1 <> nil then P1Team := gPlayer1.Team;
1578   // TODO
1579   //P2Team := TEAM_NONE;
1580   //if gPlayer2 <> nil then P2Team := gPlayer2.Team;
1581
1582   TGUIMainMenu(g_ActiveWindow.GetControl(
1583     g_ActiveWindow.DefControl )).EnableButton('tmJoinRed', TeamGame and (P1Team <> TEAM_RED));
1584   TGUIMainMenu(g_ActiveWindow.GetControl(
1585     g_ActiveWindow.DefControl )).EnableButton('tmJoinBlue', TeamGame and (P1Team <> TEAM_BLUE));
1586   TGUIMainMenu(g_ActiveWindow.GetControl(
1587     g_ActiveWindow.DefControl )).EnableButton('tmJoinGame', Spectator and not TeamGame);
1588
1589   bP2 := TGUIMainMenu(g_ActiveWindow.GetControl(
1590     g_ActiveWindow.DefControl )).GetButton('tmPlayer2');
1591   bP2.Enabled := AddTwo and not Spectator;
1592   if bP2.Enabled then
1593     bP2.Color := MAINMENU_ITEMS_COLOR
1594   else
1595     bP2.Color := MAINMENU_UNACTIVEITEMS_COLOR;
1596   if gPlayer2 = nil then
1597     bP2.Caption := _lc[I_MENU_ADD_PLAYER_2]
1598   else
1599     bP2.Caption := _lc[I_MENU_REM_PLAYER_2];
1600
1601   TGUIMainMenu(g_ActiveWindow.GetControl(
1602     g_ActiveWindow.DefControl )).EnableButton('tmSpectate', not Spectator);
1603 end;
1604
1605 procedure ProcJoinRed();
1606 begin
1607   if not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
1608     Exit;
1609   if g_Game_IsServer then
1610   begin
1611     if gPlayer1 = nil then
1612       g_Game_AddPlayer(TEAM_RED)
1613     else
1614     begin
1615       if gPlayer1.Team <> TEAM_RED then
1616       begin
1617         gPlayer1.SwitchTeam;
1618         gPlayer1Settings.Team := gPlayer1.Team;
1619       end;
1620
1621       if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
1622     end;
1623   end
1624   else
1625   begin
1626     gPlayer1Settings.Team := TEAM_RED;
1627     MC_SEND_PlayerSettings;
1628     if gPlayer1 = nil then
1629       g_Game_AddPlayer(TEAM_RED);
1630   end;
1631   g_ActiveWindow := nil;
1632   g_Game_Pause(False);
1633 end;
1634
1635 procedure ProcJoinBlue();
1636 begin
1637   if not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
1638     Exit;
1639   if g_Game_IsServer then
1640   begin
1641     if gPlayer1 = nil then
1642       g_Game_AddPlayer(TEAM_BLUE)
1643     else
1644     begin
1645       if gPlayer1.Team <> TEAM_BLUE then
1646       begin
1647         gPlayer1.SwitchTeam;
1648         gPlayer1Settings.Team := gPlayer1.Team;
1649       end;
1650
1651       if g_Game_IsNet then MH_SEND_PlayerSettings(gPlayer1.UID);
1652     end;
1653   end
1654   else
1655   begin
1656     gPlayer1Settings.Team := TEAM_BLUE;
1657     MC_SEND_PlayerSettings;
1658     if gPlayer1 = nil then
1659       g_Game_AddPlayer(TEAM_BLUE);
1660   end;
1661   g_ActiveWindow := nil;
1662   g_Game_Pause(False);
1663 end;
1664
1665 procedure ProcJoinGame();
1666 begin
1667   if not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
1668     Exit;
1669   if gPlayer1 = nil then
1670     g_Game_AddPlayer();
1671   g_ActiveWindow := nil;
1672   g_Game_Pause(False);
1673 end;
1674
1675 procedure ProcSwitchP2();
1676 begin
1677   if not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER]) then
1678     Exit;
1679   if gPlayer1 = nil then
1680     Exit;
1681   if gPlayer2 = nil then
1682     g_Game_AddPlayer()
1683   else
1684     g_Game_RemovePlayer();
1685   g_ActiveWindow := nil;
1686   g_Game_Pause(False);
1687 end;
1688
1689 procedure ProcSpectate();
1690 begin
1691   if not (gGameSettings.GameType in [GT_CUSTOM, GT_SERVER, GT_CLIENT]) then
1692     Exit;
1693   g_Game_Spectate();
1694   g_ActiveWindow := nil;
1695   g_Game_Pause(False);
1696 end;
1697
1698 procedure ProcRestartMenuKeyDown (yes: Boolean);
1699 begin
1700   if yes then g_Game_Restart() else g_GUI_HideWindow;
1701 end;
1702
1703 procedure ProcEndMenuKeyDown (yes: Boolean);
1704 begin
1705   if yes then gExit := EXIT_SIMPLE else g_GUI_HideWindow;
1706 end;
1707
1708 procedure ProcSetRussianLanguage;
1709 begin
1710   if gLanguage <> LANGUAGE_RUSSIAN then
1711   begin
1712     gLanguage := LANGUAGE_RUSSIAN;
1713     gLanguageChange := True;
1714     gAskLanguage := False;
1715     ProcApplyOptions();
1716   end;
1717 end;
1718
1719 procedure ProcSetEnglishLanguage;
1720 begin
1721   if gLanguage <> LANGUAGE_ENGLISH then
1722   begin
1723     gLanguage := LANGUAGE_ENGLISH;
1724     gLanguageChange := True;
1725     gAskLanguage := False;
1726     ProcApplyOptions();
1727   end;
1728 end;
1729
1730 procedure ReadGameSettings();
1731 var
1732   menu: TGUIMenu;
1733 begin
1734   menu := TGUIMenu(g_GUI_GetWindow('GameSetGameMenu').GetControl('mGameSetGameMenu'));
1735
1736   with gGameSettings do
1737   begin
1738     with TGUISwitch(menu.GetControl('swTeamDamage')) do
1739       if LongBool(Options and GAME_OPTION_TEAMDAMAGE) then
1740         ItemIndex := 0
1741       else
1742         ItemIndex := 1;
1743     with TGUISwitch(menu.GetControl('swTeamHit')) do
1744       if (Options and (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE)) = (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE) then
1745         ItemIndex := 0
1746       else if LongBool(Options and GAME_OPTION_TEAMHITTRACE) then
1747         ItemIndex := 1
1748       else if LongBool(Options and GAME_OPTION_TEAMHITPROJECTILE) then
1749         ItemIndex := 2
1750       else
1751         ItemIndex := 3;
1752     with TGUISwitch(menu.GetControl('swDeathmatchKeys')) do
1753       if LongBool(Options and GAME_OPTION_DMKEYS) then
1754         ItemIndex := 0
1755       else
1756         ItemIndex := 1;
1757     with TGUISwitch(menu.GetControl('swFlagDrop')) do
1758       if LongBool(Options and GAME_OPTION_ALLOWDROPFLAG) and LongBool(Options and GAME_OPTION_THROWFLAG) then
1759         ItemIndex := 0
1760       else if LongBool(Options and GAME_OPTION_ALLOWDROPFLAG) then
1761         ItemIndex := 1
1762       else
1763         ItemIndex := 2;
1764
1765     TGUIEdit(menu.GetControl('edTimeLimit')).Text := IntToStr(TimeLimit);
1766     TGUIEdit(menu.GetControl('edScoreLimit')).Text := IntToStr(ScoreLimit);
1767     TGUIEdit(menu.GetControl('edMaxLives')).Text := IntToStr(MaxLives);
1768
1769     with TGUISwitch(menu.GetControl('swBotsVS')) do
1770       if LongBool(Options and GAME_OPTION_BOTVSPLAYER) and
1771          LongBool(Options and GAME_OPTION_BOTVSMONSTER) then
1772         ItemIndex := 2
1773       else
1774         if LongBool(Options and GAME_OPTION_BOTVSMONSTER) then
1775           ItemIndex := 1
1776         else
1777           ItemIndex := 0;
1778
1779     if GameType in [GT_CUSTOM, GT_SERVER] then
1780       begin
1781         TGUISwitch(menu.GetControl('swTeamDamage')).Enabled := True;
1782         TGUISwitch(menu.GetControl('swTeamHit')).Enabled := True;
1783         if (GameMode in [GM_DM, GM_TDM, GM_CTF]) then
1784         begin
1785           TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := True;
1786           TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_ITEMSTEXT_COLOR;
1787         end
1788         else
1789         begin
1790           TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := False;
1791           TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_UNACTIVEITEMS_COLOR;
1792         end;
1793         TGUIEdit(menu.GetControl('edTimeLimit')).Enabled := True;
1794         TGUILabel(menu.GetControlsText('edTimeLimit')).Color := MENU_ITEMSTEXT_COLOR;
1795         TGUIEdit(menu.GetControl('edScoreLimit')).Enabled := True;
1796         TGUILabel(menu.GetControlsText('edScoreLimit')).Color := MENU_ITEMSTEXT_COLOR;
1797         TGUIEdit(menu.GetControl('edMaxLives')).Enabled := True;
1798         TGUILabel(menu.GetControlsText('edMaxLives')).Color := MENU_ITEMSTEXT_COLOR;
1799         TGUISwitch(menu.GetControl('swBotsVS')).Enabled := True;
1800         TGUISwitch(menu.GetControl('swFlagDrop')).Enabled := True;
1801       end
1802     else
1803       begin
1804         TGUISwitch(menu.GetControl('swTeamDamage')).Enabled := True;
1805         TGUISwitch(menu.GetControl('swTeamHit')).Enabled := True;
1806         TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := False;
1807         TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_UNACTIVEITEMS_COLOR;
1808         with TGUIEdit(menu.GetControl('edTimeLimit')) do
1809         begin
1810           Enabled := False;
1811           Text := '';
1812         end;
1813         TGUILabel(menu.GetControlsText('edTimeLimit')).Color := MENU_UNACTIVEITEMS_COLOR;
1814         with TGUIEdit(menu.GetControl('edScoreLimit')) do
1815         begin
1816           Enabled := False;
1817           Text := '';
1818         end;
1819         TGUILabel(menu.GetControlsText('edScoreLimit')).Color := MENU_UNACTIVEITEMS_COLOR;
1820         with TGUIEdit(menu.GetControl('edMaxLives')) do
1821         begin
1822           Enabled := False;
1823           Text := '';
1824         end;
1825         TGUILabel(menu.GetControlsText('edMaxLives')).Color := MENU_UNACTIVEITEMS_COLOR;
1826         TGUISwitch(menu.GetControl('swBotsVS')).Enabled := True;
1827         TGUISwitch(menu.GetControl('swFlagDrop')).Enabled := False;
1828       end;
1829   end;
1830 end;
1831
1832 procedure ProcApplyGameSet();
1833 var
1834   menu: TGUIMenu;
1835   a, b, n: Integer;
1836   stat: TPlayerStatArray;
1837 begin
1838   menu := TGUIMenu(g_GUI_GetWindow('GameSetGameMenu').GetControl('mGameSetGameMenu'));
1839
1840   if not g_Game_IsServer then Exit;
1841
1842   with gGameSettings do
1843   begin
1844     if TGUISwitch(menu.GetControl('swTeamDamage')).Enabled then
1845     begin
1846       if TGUISwitch(menu.GetControl('swTeamDamage')).ItemIndex = 0 then
1847         Options := Options or GAME_OPTION_TEAMDAMAGE
1848       else
1849         Options := Options and (not GAME_OPTION_TEAMDAMAGE);
1850     end;
1851
1852     if TGUISwitch(menu.GetControl('swTeamHit')).Enabled then
1853     begin
1854       Options := Options and not (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE);
1855       case TGUISwitch(menu.GetControl('swTeamHit')).ItemIndex of
1856         1: Options := Options or GAME_OPTION_TEAMHITTRACE;
1857         2: Options := Options or GAME_OPTION_TEAMHITPROJECTILE;
1858         0: Options := Options or GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE;
1859       end;
1860     end;
1861
1862     if TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled then
1863     begin
1864       if TGUISwitch(menu.GetControl('swDeathmatchKeys')).ItemIndex = 0 then
1865         Options := Options or GAME_OPTION_DMKEYS
1866       else
1867         Options := Options and (not GAME_OPTION_DMKEYS);
1868     end;
1869
1870     if TGUIEdit(menu.GetControl('edTimeLimit')).Enabled then
1871     begin
1872       n := StrToIntDef(TGUIEdit(menu.GetControl('edTimeLimit')).Text, TimeLimit);
1873
1874       if n = 0 then
1875         TimeLimit := 0
1876       else
1877         begin
1878           b := (gTime - gGameStartTime) div 1000 + 10; // 10 ñåêóíä íà ñìåíó
1879
1880           TimeLimit := Max(n, b);
1881         end;
1882     end;
1883
1884     if TGUIEdit(menu.GetControl('edScoreLimit')).Enabled then
1885     begin
1886       n := StrToIntDef(TGUIEdit(menu.GetControl('edScoreLimit')).Text, ScoreLimit);
1887
1888       if n = 0 then
1889         ScoreLimit := 0
1890       else
1891         begin
1892           b := 0;
1893           if GameMode = GM_DM then
1894             begin // DM
1895               stat := g_Player_GetStats();
1896               if stat <> nil then
1897                 for a := 0 to High(stat) do
1898                   if stat[a].Frags > b then
1899                     b := stat[a].Frags;
1900             end
1901           else // CTF
1902             b := Max(gTeamStat[TEAM_RED].Score, gTeamStat[TEAM_BLUE].Score);
1903
1904           ScoreLimit := Max(n, b);
1905         end;
1906     end;
1907
1908     if TGUIEdit(menu.GetControl('edMaxLives')).Enabled then
1909     begin
1910       n := StrToIntDef(TGUIEdit(menu.GetControl('edMaxLives')).Text, MaxLives);
1911       if n < 0 then n := 0;
1912       if n > 255 then n := 255;
1913       if n = 0 then
1914         MaxLives := 0
1915       else
1916         begin
1917           b := 0;
1918           stat := g_Player_GetStats();
1919           if stat <> nil then
1920             for a := 0 to High(stat) do
1921               if stat[a].Lives > b then
1922                 b := stat[a].Lives;
1923
1924           MaxLives := Max(n, b);
1925         end;
1926     end;
1927
1928     if TGUISwitch(menu.GetControl('swBotsVS')).Enabled then
1929     begin
1930       case TGUISwitch(menu.GetControl('swBotsVS')).ItemIndex of
1931         1:
1932           begin
1933             Options := Options and (not GAME_OPTION_BOTVSPLAYER);
1934             Options := Options or GAME_OPTION_BOTVSMONSTER;
1935           end;
1936         2:
1937           begin
1938             Options := Options or GAME_OPTION_BOTVSPLAYER;
1939             Options := Options or GAME_OPTION_BOTVSMONSTER;
1940           end;
1941         else
1942           begin
1943             Options := Options or GAME_OPTION_BOTVSPLAYER;
1944             Options := Options and (not GAME_OPTION_BOTVSMONSTER);
1945           end;
1946       end;
1947     end;
1948
1949     if TGUISwitch(menu.GetControl('swFlagDrop')).Enabled then
1950     begin
1951       case TGUISwitch(menu.GetControl('swFlagDrop')).ItemIndex of
1952         0: Options := Options or GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG;
1953         1: Options := Options or GAME_OPTION_ALLOWDROPFLAG;
1954         else Options := Options and not (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG);
1955       end;
1956     end;
1957
1958     // don't forget to latch this shit
1959     gsGameFlags := Options;
1960     gsMaxLives := MaxLives;
1961     gsScoreLimit := ScoreLimit;
1962     gsTimeLimit := TimeLimit;
1963   end;
1964
1965   if g_Game_IsNet then MH_SEND_GameSettings;
1966 end;
1967
1968 procedure ProcVideoOptionsRes();
1969 var
1970   menu: TGUIMenu;
1971   list: SSArray;
1972 begin
1973   menu := TGUIMenu(g_GUI_GetWindow('OptionsVideoResMenu').GetControl('mOptionsVideoResMenu'));
1974
1975   TGUILabel(menu.GetControl('lbCurrentRes')).Text :=
1976     IntToStr(gWinSizeX) +
1977     ' x ' + IntToStr(gWinSizeY) +
1978     ', ' + IntToStr(gBPP) + ' bpp';
1979
1980   with TGUIListBox(menu.GetControl('lsResolution')) do
1981   begin
1982     list := sys_GetDisplayModes(gBPP);
1983     if list <> nil then
1984     begin
1985       Items := list;
1986       ItemIndex := Length(list)
1987     end
1988     else
1989     begin
1990       Clear
1991     end
1992   end;
1993
1994   with TGUISwitch(menu.GetControl('swFullScreen')) do
1995     if gFullscreen then
1996       ItemIndex := 0
1997     else
1998       ItemIndex := 1;
1999
2000   TempResScale := Round(r_pixel_scale - 1);
2001   with TGUISwitch(menu.GetControl('swResFactor')) do
2002     ItemIndex := Min(TempResScale, gRC_Width div 640 - 1);
2003 end;
2004
2005 procedure ProcApplyVideoOptions();
2006 var
2007   menu: TGUIMenu;
2008   Fullscreen: Boolean;
2009   SWidth, SHeight: Integer;
2010   ScaleChanged: Boolean;
2011   str: String;
2012 begin
2013   menu := TGUIMenu(g_GUI_GetWindow('OptionsVideoResMenu').GetControl('mOptionsVideoResMenu'));
2014
2015   str := TGUIListBox(menu.GetControl('lsResolution')).SelectedItem;
2016   if str <> '' then
2017     SScanf(str, '%dx%d', [@SWidth, @SHeight])
2018   else
2019   begin
2020     SWidth := gWinSizeX;
2021     SHeight := gWinSizeY;
2022     TempResScale := Min(TempResScale, SWidth div 640 - 1);
2023   end;
2024
2025   Fullscreen := TGUISwitch(menu.GetControl('swFullScreen')).ItemIndex = 0;
2026
2027   ScaleChanged := False;
2028   if TGUISwitch(menu.GetControl('swResFactor')).ItemIndex <> TempResScale then
2029   begin
2030     TempResScale := Min(TGUISwitch(menu.GetControl('swResFactor')).ItemIndex, SWidth div 640 - 1);
2031     r_pixel_scale := TempResScale + 1;
2032     ScaleChanged := True;
2033   end;
2034
2035   if (SWidth <> gWinSizeX) or
2036      (SHeight <> gWinSizeY) or
2037      (Fullscreen <> gFullscreen) or
2038      ScaleChanged then
2039   begin
2040     gResolutionChange := True;
2041     gRC_Width := SWidth;
2042     gRC_Height := SHeight;
2043     gRC_FullScreen := Fullscreen;
2044     gRC_Maximized := gWinMaximized;
2045   end;
2046
2047 // Ñîõðàíÿåì èçìåíåíèÿ âñåõ íàñòðîåê:
2048   ProcApplyOptions();
2049 end;
2050
2051 procedure ProcSetFirstRussianLanguage;
2052 begin
2053   gLanguage := LANGUAGE_RUSSIAN;
2054   gLanguageChange := True;
2055   gAskLanguage := False;
2056 end;
2057
2058 procedure ProcSetFirstEnglishLanguage;
2059 begin
2060   gLanguage := LANGUAGE_ENGLISH;
2061   gLanguageChange := True;
2062   gAskLanguage := False;
2063 end;
2064
2065 procedure ProcRecallAddress();
2066 begin
2067   with TGUIMenu(g_GUI_GetWindow('NetClientMenu').GetControl('mNetClientMenu')) do
2068   begin
2069     TGUIEdit(GetControl('edIP')).Text := NetClientIP;
2070     TGUIEdit(GetControl('edPort')).Text := IntToStr(NetClientPort);
2071   end;
2072 end;
2073
2074 procedure CreateFirstLanguageMenu();
2075 var
2076   Menu: TGUIWindow;
2077 begin
2078   Menu := TGUIWindow.Create('FirstLanguageMenu');
2079
2080   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', ' '))) do
2081   begin
2082     Name := 'mmFirstLanguageMenu';
2083     AddButton(@ProcSetFirstRussianLanguage, 'Ðóññêèé', '');
2084     AddButton(@ProcSetFirstEnglishLanguage, 'English', '');
2085   end;
2086
2087   Menu.DefControl := 'mmFirstLanguageMenu';
2088   Menu.MainWindow := True;
2089   g_GUI_AddWindow(Menu);
2090 end;
2091
2092 procedure g_Menu_AskLanguage();
2093 begin
2094   CreateFirstLanguageMenu();
2095   g_GUI_ShowWindow('FirstLanguageMenu');
2096 end;
2097
2098 procedure CreatePlayerOptionsMenu(s: String);
2099 var
2100   Menu: TGUIWindow;
2101   a: String;
2102 begin
2103   Menu := TGUIWindow.Create('OptionsPlayers'+s+'Menu');
2104   if s = 'P1' then
2105     a := _lc[I_MENU_PLAYER_1]
2106   else
2107     a := _lc[I_MENU_PLAYER_2];
2108   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, a))) do
2109   begin
2110     Name := 'mOptionsPlayers'+s+'Menu';
2111     with AddEdit(_lc[I_MENU_PLAYER_NAME]) do
2112     begin
2113       Name := 'ed'+s+'Name';
2114       MaxLength := 12;
2115       Width := 12;
2116     end;
2117     with AddSwitch(_lc[I_MENU_PLAYER_TEAM]) do
2118     begin
2119       Name := 'sw'+s+'Team';
2120       AddItem(_lc[I_MENU_PLAYER_TEAM_RED]);
2121       AddItem(_lc[I_MENU_PLAYER_TEAM_BLUE]);
2122     end ;
2123     with AddList(_lc[I_MENU_PLAYER_MODEL], 12, 6) do
2124     begin
2125       Name := 'ls'+s+'Model';
2126       Sort := True;
2127       Items := g_PlayerModel_GetNames();
2128       OnChange := ProcSelectModel;
2129     end;
2130     with AddScroll(_lc[I_MENU_PLAYER_RED]) do
2131     begin
2132       Name := 'sc'+s+'Red';
2133       Max := 16;
2134       OnChange := ProcChangeColor;
2135     end;
2136     with AddScroll(_lc[I_MENU_PLAYER_GREEN]) do
2137     begin
2138       Name := 'sc'+s+'Green';
2139       Max := 16;
2140       OnChange := ProcChangeColor;
2141     end;
2142     with AddScroll(_lc[I_MENU_PLAYER_BLUE]) do
2143     begin
2144       Name := 'sc'+s+'Blue';
2145       Max := 16;
2146       OnChange := ProcChangeColor;
2147     end;
2148     AddSpace();
2149     AddButton(@ProcOptionsPlayersMIMenu, _lc[I_MENU_MODEL_INFO]);
2150     AddButton(@ProcOptionsPlayersAnim, _lc[I_MENU_MODEL_ANIMATION]);
2151     AddButton(@ProcOptionsPlayersWeap, _lc[I_MENU_MODEL_CHANGE_WEAPON]);
2152     AddButton(@ProcOptionsPlayersRot, _lc[I_MENU_MODEL_ROTATE]);
2153     if s = 'P1' then AddButton(@ProcOptionsPlayerP1WeaponMenu, _lc[I_MENU_WEAPON])
2154     else AddButton(@ProcOptionsPlayerP2WeaponMenu, _lc[I_MENU_WEAPON]);
2155     with TGUIModelView(Menu.AddChild(TGUIModelView.Create)) do
2156     begin
2157       Name := 'mv'+s+'Model';
2158       X := GetControl('ls'+s+'Model').X+TGUIListBox(GetControl('ls'+s+'Model')).GetWidth+16;
2159       Y := GetControl('ls'+s+'Model').Y;
2160     end;
2161   end;
2162   Menu.DefControl := 'mOptionsPlayers'+s+'Menu';
2163   g_GUI_AddWindow(Menu);
2164 end;
2165
2166 procedure CreateAllMenus();
2167 var
2168   Menu: TGUIWindow;
2169   //SR: TSearchRec;
2170   a, cx, _y, i: Integer;
2171   //list: SSArray;
2172 begin
2173   Menu := TGUIWindow.Create('MainMenu');
2174   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, 'MAINMENU_LOGO', _lc[I_MENU_MAIN_MENU]))) do
2175   begin
2176     Name := 'mmMainMenu';
2177     AddButton(nil, _lc[I_MENU_NEW_GAME], 'NewGameMenu');
2178     AddButton(nil, _lc[I_MENU_MULTIPLAYER], 'NetGameMenu');
2179     AddButton(nil, _lc[I_MENU_LOAD_GAME], 'LoadMenu');
2180     AddButton(@ReadOptions, _lc[I_MENU_OPTIONS], 'OptionsMenu');
2181     AddButton(@ProcAuthorsMenu, _lc[I_MENU_AUTHORS], 'AuthorsMenu');
2182     AddButton(nil, _lc[I_MENU_EXIT], 'ExitMenu');
2183   end;
2184   with TGUILabel(Menu.AddChild(TGUILabel.Create(Format(_lc[I_VERSION], [GAME_VERSION]), gMenuSmallFont))) do
2185   begin
2186     Color := _RGB(255, 255, 255);
2187     X := gScreenWidth-GetWidth-8;
2188     Y := gScreenHeight-GetHeight-8;
2189   end;
2190   Menu.DefControl := 'mmMainMenu';
2191   Menu.MainWindow := True;
2192   g_GUI_AddWindow(Menu);
2193
2194   Menu := TGUIWindow.Create('NewGameMenu');
2195   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_NEW_GAME]))) do
2196   begin
2197     Name := 'mmNewGameMenu';
2198     AddButton(@ProcSingle1Player, _lc[I_MENU_1_PLAYER]);
2199     AddButton(@ProcSingle2Players, _lc[I_MENU_2_PLAYERS]);
2200     AddButton(@ProcSelectCampaignMenu, _lc[I_MENU_CAMPAIGN], 'CampaignMenu');
2201     AddButton(nil, _lc[I_MENU_CUSTOM_GAME], 'CustomGameMenu');
2202   end;
2203   Menu.DefControl := 'mmNewGameMenu';
2204   g_GUI_AddWindow(Menu);
2205
2206   Menu := TGUIWindow.Create('NetGameMenu');
2207   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_MULTIPLAYER]))) do
2208   begin
2209     Name := 'mmNetGameMenu';
2210     AddButton(@ProcRecallAddress, _lc[I_MENU_START_CLIENT], 'NetClientMenu');
2211     AddButton(nil, _lc[I_MENU_START_SERVER], 'NetServerMenu');
2212   end;
2213   Menu.DefControl := 'mmNetGameMenu';
2214   g_GUI_AddWindow(Menu);
2215
2216   Menu := TGUIWindow.Create('NetServerMenu');
2217   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_START_SERVER]))) do
2218   begin
2219     Name := 'mNetServerMenu';
2220     with AddEdit(_lc[I_NET_SERVER_NAME]) do
2221     begin
2222       Name := 'edSrvName';
2223       OnlyDigits := False;
2224       Width := 16;
2225       MaxLength := 64;
2226       Text := NetServerName;
2227     end;
2228     with AddEdit(_lc[I_NET_SERVER_PASSWORD]) do
2229     begin
2230       Name := 'edSrvPassword';
2231       OnlyDigits := False;
2232       Width := 16;
2233       MaxLength := 24;
2234       Text := NetPassword;
2235     end;
2236     with AddEdit(_lc[I_NET_PORT]) do
2237     begin
2238       Name := 'edPort';
2239       OnlyDigits := True;
2240       Width := 4;
2241       MaxLength := 5;
2242       Text := IntToStr(NetPort);
2243     end;
2244     with AddEdit(_lc[I_NET_MAX_CLIENTS]) do
2245     begin
2246       Name := 'edMaxPlayers';
2247       OnlyDigits := True;
2248       Width := 4;
2249       MaxLength := 2;
2250       Text := IntToStr(NetMaxClients);
2251     end;
2252     with AddSwitch(_lc[I_NET_USE_MASTER]) do
2253     begin
2254       Name := 'swUseMaster';
2255       AddItem(_lc[I_MENU_YES]);
2256       AddItem(_lc[I_MENU_NO]);
2257       if NetUseMaster then
2258         ItemIndex := 0
2259       else
2260         ItemIndex := 1;
2261     end;
2262     AddSpace();
2263     with AddLabel(_lc[I_MENU_MAP]) do
2264     begin
2265       Name := 'lbMap';
2266       FixedLength := 16;
2267       Text := gsMap;
2268       OnClick := @ProcSelectMapMenu;
2269     end;
2270     with AddSwitch(_lc[I_MENU_GAME_TYPE]) do
2271     begin
2272       Name := 'swGameMode';
2273       AddItem(_lc[I_MENU_GAME_TYPE_DM]);
2274       AddItem(_lc[I_MENU_GAME_TYPE_TDM]);
2275       AddItem(_lc[I_MENU_GAME_TYPE_CTF]);
2276       AddItem(_lc[I_MENU_GAME_TYPE_COOP]);
2277       case g_Game_TextToMode(gsGameMode) of
2278         GM_NONE,
2279         GM_DM:   ItemIndex := 0;
2280         GM_TDM:  ItemIndex := 1;
2281         GM_CTF:  ItemIndex := 2;
2282         GM_SINGLE,
2283         GM_COOP: ItemIndex := 3;
2284       end;
2285       OnChange := ProcSwitchMonstersCustom;
2286     end;
2287     with AddEdit(_lc[I_MENU_TIME_LIMIT]) do
2288     begin
2289       Name := 'edTimeLimit';
2290       OnlyDigits := True;
2291       Width := 4;
2292       MaxLength := 5;
2293       if gsTimeLimit > 0 then
2294         Text := IntToStr(gsTimeLimit);
2295     end;
2296     with AddEdit(_lc[I_MENU_SCORE_LIMIT]) do
2297     begin
2298       Name := 'edScoreLimit';
2299       OnlyDigits := True;
2300       Width := 4;
2301       MaxLength := 5;
2302       if gsScoreLimit > 0 then
2303         Text := IntToStr(gsScoreLimit);
2304     end;
2305     with AddEdit(_lc[I_MENU_MAX_LIVES]) do
2306     begin
2307       Name := 'edMaxLives';
2308       OnlyDigits := True;
2309       Width := 4;
2310       MaxLength := 5;
2311       if gsMaxLives > 0 then
2312         Text := IntToStr(gsMaxLives);
2313     end;
2314     with AddEdit(_lc[I_MENU_ITEM_RESPAWN_TIME]) do
2315     begin
2316       Name := 'edItemRespawnTime';
2317       OnlyDigits := True;
2318       Width := 4;
2319       MaxLength := 5;
2320       if gsItemRespawnTime > 0 then
2321         Text := IntToStr(gsItemRespawnTime);
2322     end;
2323     with AddSwitch(_lc[I_MENU_PLAYERS]) do
2324     begin
2325       Name := 'swPlayers';
2326       AddItem(_lc[I_MENU_COUNT_NONE]);
2327       AddItem(_lc[I_MENU_PLAYERS_ONE]);
2328       AddItem(_lc[I_MENU_PLAYERS_TWO]);
2329       ItemIndex := gsPlayers;
2330     end;
2331     with AddSwitch(_lc[I_MENU_TEAM_DAMAGE]) do
2332     begin
2333       Name := 'swTeamDamage';
2334       AddItem(_lc[I_MENU_YES]);
2335       AddItem(_lc[I_MENU_NO]);
2336       if LongBool(gsGameFlags and GAME_OPTION_TEAMDAMAGE) then
2337         ItemIndex := 0
2338       else
2339         ItemIndex := 1;
2340     end;
2341     with AddSwitch(_lc[I_MENU_TEAM_HIT]) do
2342     begin
2343       Name := 'swTeamHit';
2344       AddItem(_lc[I_MENU_TEAM_HIT_BOTH]);
2345       AddItem(_lc[I_MENU_TEAM_HIT_TRACE]);
2346       AddItem(_lc[I_MENU_TEAM_HIT_PROJECTILE]);
2347       AddItem(_lc[I_MENU_TEAM_HIT_NOTHING]);
2348       if (gsGameFlags and (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE)) = (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE) then
2349         ItemIndex := 0
2350       else if LongBool(gsGameFlags and GAME_OPTION_TEAMHITTRACE) then
2351         ItemIndex := 1
2352       else if LongBool(gsGameFlags and GAME_OPTION_TEAMHITPROJECTILE) then
2353         ItemIndex := 2
2354       else
2355         ItemIndex := 3;
2356     end;
2357     with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do
2358     begin
2359       Name := 'swDeathmatchKeys';
2360       AddItem(_lc[I_MENU_YES]);
2361       AddItem(_lc[I_MENU_NO]);
2362       if LongBool(gsGameFlags and GAME_OPTION_DMKEYS) then
2363         ItemIndex := 0
2364       else
2365         ItemIndex := 1;
2366     end;
2367     with AddSwitch(_lc[I_MENU_ENABLE_EXITS]) do
2368     begin
2369       Name := 'swEnableExits';
2370       AddItem(_lc[I_MENU_YES]);
2371       AddItem(_lc[I_MENU_NO]);
2372       if LongBool(gsGameFlags and GAME_OPTION_ALLOWEXIT) then
2373         ItemIndex := 0
2374       else
2375         ItemIndex := 1;
2376     end;
2377     with AddSwitch(_lc[I_MENU_WEAPONS_STAY]) do
2378     begin
2379       Name := 'swWeaponStay';
2380       AddItem(_lc[I_MENU_YES]);
2381       AddItem(_lc[I_MENU_NO]);
2382       if LongBool(gsGameFlags and GAME_OPTION_WEAPONSTAY) then
2383         ItemIndex := 0
2384       else
2385         ItemIndex := 1;
2386     end;
2387     with AddSwitch(_lc[I_MENU_ENABLE_MONSTERS]) do
2388     begin
2389       Name := 'swMonsters';
2390       AddItem(_lc[I_MENU_YES]);
2391       AddItem(_lc[I_MENU_NO]);
2392       if LongBool(gsGameFlags and GAME_OPTION_MONSTERS) then
2393         ItemIndex := 0
2394       else
2395         ItemIndex := 1;
2396     end;
2397     with AddSwitch(_lc[I_MENU_BOTS_VS]) do
2398     begin
2399       Name := 'swBotsVS';
2400       AddItem(_lc[I_MENU_BOTS_VS_PLAYERS]);
2401       AddItem(_lc[I_MENU_BOTS_VS_MONSTERS]);
2402       AddItem(_lc[I_MENU_BOTS_VS_ALL]);
2403       ItemIndex := 2;
2404       if not LongBool(gsGameFlags and GAME_OPTION_BOTVSMONSTER) then
2405         ItemIndex := 0;
2406       if not LongBool(gsGameFlags and GAME_OPTION_BOTVSPLAYER) then
2407         ItemIndex := 1;
2408     end;
2409     with AddSwitch(_lc[I_MENU_FLAG_DROP]) do
2410     begin
2411       Name := 'swFlagDrop';
2412       AddItem(_lc[I_MENU_FLAG_THROW]);
2413       AddItem(_lc[I_MENU_YES]);
2414       AddItem(_lc[I_MENU_NO]);
2415       if (gsGameFlags and (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG)) = (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG) then
2416         ItemIndex := 0
2417       else if LongBool(gsGameFlags and GAME_OPTION_ALLOWDROPFLAG) then
2418         ItemIndex := 1
2419       else
2420         ItemIndex := 2;
2421     end;
2422     AddSpace();
2423     AddButton(@ProcStartNetGame, _lc[I_MENU_START_GAME]);
2424
2425     ReAlign();
2426   end;
2427   Menu.DefControl := 'mNetServerMenu';
2428   g_GUI_AddWindow(Menu);
2429
2430   Menu := TGUIWindow.Create('NetClientMenu');
2431   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_START_CLIENT]))) do
2432   begin
2433     Name := 'mNetClientMenu';
2434
2435     AddButton(@ProcServerlist, _lc[I_NET_SLIST]);
2436     AddSpace();
2437
2438     with AddEdit(_lc[I_NET_ADDRESS]) do
2439     begin
2440       Name := 'edIP';
2441       OnlyDigits :=False;
2442       Width := 12;
2443       MaxLength := 64;
2444       Text := 'localhost';
2445     end;
2446     with AddEdit(_lc[I_NET_PORT]) do
2447     begin
2448       Name := 'edPort';
2449       OnlyDigits := True;
2450       Width := 4;
2451       MaxLength := 5;
2452       Text := '25666';
2453     end;
2454     with AddEdit(_lc[I_NET_SERVER_PASSWORD]) do
2455     begin
2456       Name := 'edPW';
2457       OnlyDigits := False;
2458       Width := 12;
2459       MaxLength := 32;
2460       Text := '';
2461     end;
2462
2463     AddSpace();
2464     AddButton(@ProcConnectNetGame, _lc[I_MENU_CLIENT_CONNECT]);
2465
2466     ReAlign();
2467   end;
2468   Menu.DefControl := 'mNetClientMenu';
2469   g_GUI_AddWindow(Menu);
2470
2471   Menu := TGUIWindow.Create('LoadMenu');
2472   Menu.OnShow := ProcLoadMenu;
2473   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_LOAD_GAME]))) do
2474   begin
2475     Name := 'mmLoadMenu';
2476
2477     for a := 1 to 8 do
2478       with AddEdit('') do
2479       begin
2480         Name := 'edSlot'+IntToStr(a);
2481         Width := 16;
2482         MaxLength := 16;
2483         OnEnter := ProcLoadGame;
2484       end;
2485   end;
2486   Menu.DefControl := 'mmLoadMenu';
2487   g_GUI_AddWindow(Menu);
2488
2489   Menu := TGUIWindow.Create('SaveMenu');
2490   Menu.OnShow := ProcSaveMenu;
2491   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_SAVE_GAME]))) do
2492   begin
2493     Name := 'mmSaveMenu';
2494
2495     for a := 1 to 8 do
2496       with AddEdit('') do
2497       begin
2498         Name := 'edSlot'+IntToStr(a);
2499         Width := 16;
2500         MaxLength := 16;
2501         OnChange := ProcSaveGame;
2502       end;
2503   end;
2504   Menu.DefControl := 'mmSaveMenu';
2505   g_GUI_AddWindow(Menu);
2506
2507   Menu := TGUIWindow.Create('CustomGameMenu');
2508   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CUSTOM_GAME]))) do
2509   begin
2510     Name := 'mCustomGameMenu';
2511     with AddLabel(_lc[I_MENU_MAP]) do
2512     begin
2513       Name := 'lbMap';
2514       FixedLength := 16;
2515       Text := gsMap;
2516       OnClick := @ProcSelectMapMenu;
2517     end;
2518     with AddSwitch(_lc[I_MENU_GAME_TYPE]) do
2519     begin
2520       Name := 'swGameMode';
2521       AddItem(_lc[I_MENU_GAME_TYPE_DM]);
2522       AddItem(_lc[I_MENU_GAME_TYPE_TDM]);
2523       AddItem(_lc[I_MENU_GAME_TYPE_CTF]);
2524       AddItem(_lc[I_MENU_GAME_TYPE_COOP]);
2525       case g_Game_TextToMode(gsGameMode) of
2526         GM_NONE,
2527         GM_DM:   ItemIndex := 0;
2528         GM_TDM:  ItemIndex := 1;
2529         GM_CTF:  ItemIndex := 2;
2530         GM_SINGLE,
2531         GM_COOP: ItemIndex := 3;
2532       end;
2533       OnChange := ProcSwitchMonstersCustom;
2534     end;
2535     with AddEdit(_lc[I_MENU_TIME_LIMIT]) do
2536     begin
2537       Name := 'edTimeLimit';
2538       OnlyDigits := True;
2539       Width := 4;
2540       MaxLength := 5;
2541       if gsTimeLimit > 0 then
2542         Text := IntToStr(gsTimeLimit);
2543     end;
2544     with AddEdit(_lc[I_MENU_SCORE_LIMIT]) do
2545     begin
2546       Name := 'edScoreLimit';
2547       OnlyDigits := True;
2548       Width := 4;
2549       MaxLength := 5;
2550       if gsScoreLimit > 0 then
2551         Text := IntToStr(gsScoreLimit);
2552     end;
2553     with AddEdit(_lc[I_MENU_MAX_LIVES]) do
2554     begin
2555       Name := 'edMaxLives';
2556       OnlyDigits := True;
2557       Width := 4;
2558       MaxLength := 5;
2559       if gsMaxLives > 0 then
2560         Text := IntToStr(gsMaxLives);
2561     end;
2562     with AddEdit(_lc[I_MENU_ITEM_RESPAWN_TIME]) do
2563     begin
2564       Name := 'edItemRespawnTime';
2565       OnlyDigits := True;
2566       Width := 4;
2567       MaxLength := 5;
2568       if gsItemRespawnTime > 0 then
2569         Text := IntToStr(gsItemRespawnTime);
2570     end;
2571     with AddSwitch(_lc[I_MENU_PLAYERS]) do
2572     begin
2573       Name := 'swPlayers';
2574       AddItem(_lc[I_MENU_COUNT_NONE]);
2575       AddItem(_lc[I_MENU_PLAYERS_ONE]);
2576       AddItem(_lc[I_MENU_PLAYERS_TWO]);
2577       ItemIndex := gsPlayers;
2578     end;
2579     with AddSwitch(_lc[I_MENU_TEAM_DAMAGE]) do
2580     begin
2581       Name := 'swTeamDamage';
2582       AddItem(_lc[I_MENU_YES]);
2583       AddItem(_lc[I_MENU_NO]);
2584       if LongBool(gsGameFlags and GAME_OPTION_TEAMDAMAGE) then
2585         ItemIndex := 0
2586       else
2587         ItemIndex := 1;
2588     end;
2589     with AddSwitch(_lc[I_MENU_TEAM_HIT]) do
2590     begin
2591       Name := 'swTeamHit';
2592       AddItem(_lc[I_MENU_TEAM_HIT_BOTH]);
2593       AddItem(_lc[I_MENU_TEAM_HIT_TRACE]);
2594       AddItem(_lc[I_MENU_TEAM_HIT_PROJECTILE]);
2595       AddItem(_lc[I_MENU_TEAM_HIT_NOTHING]);
2596       if (gsGameFlags and (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE)) = (GAME_OPTION_TEAMHITTRACE or GAME_OPTION_TEAMHITPROJECTILE) then
2597         ItemIndex := 0
2598       else if LongBool(gsGameFlags and GAME_OPTION_TEAMHITTRACE) then
2599         ItemIndex := 1
2600       else if LongBool(gsGameFlags and GAME_OPTION_TEAMHITPROJECTILE) then
2601         ItemIndex := 2
2602       else
2603         ItemIndex := 3;
2604     end;
2605     with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do
2606     begin
2607       Name := 'swDeathmatchKeys';
2608       AddItem(_lc[I_MENU_YES]);
2609       AddItem(_lc[I_MENU_NO]);
2610       if LongBool(gsGameFlags and GAME_OPTION_DMKEYS) then
2611         ItemIndex := 0
2612       else
2613         ItemIndex := 1;
2614     end;
2615     with AddSwitch(_lc[I_MENU_ENABLE_EXITS]) do
2616     begin
2617       Name := 'swEnableExits';
2618       AddItem(_lc[I_MENU_YES]);
2619       AddItem(_lc[I_MENU_NO]);
2620       if LongBool(gsGameFlags and GAME_OPTION_ALLOWEXIT) then
2621         ItemIndex := 0
2622       else
2623         ItemIndex := 1;
2624     end;
2625     with AddSwitch(_lc[I_MENU_WEAPONS_STAY]) do
2626     begin
2627       Name := 'swWeaponStay';
2628       AddItem(_lc[I_MENU_YES]);
2629       AddItem(_lc[I_MENU_NO]);
2630       if LongBool(gsGameFlags and GAME_OPTION_WEAPONSTAY) then
2631         ItemIndex := 0
2632       else
2633         ItemIndex := 1;
2634     end;
2635     with AddSwitch(_lc[I_MENU_ENABLE_MONSTERS]) do
2636     begin
2637       Name := 'swMonsters';
2638       AddItem(_lc[I_MENU_YES]);
2639       AddItem(_lc[I_MENU_NO]);
2640       if LongBool(gsGameFlags and GAME_OPTION_MONSTERS) then
2641         ItemIndex := 0
2642       else
2643         ItemIndex := 1;
2644     end;
2645     with AddSwitch(_lc[I_MENU_BOTS_VS]) do
2646     begin
2647       Name := 'swBotsVS';
2648       AddItem(_lc[I_MENU_BOTS_VS_PLAYERS]);
2649       AddItem(_lc[I_MENU_BOTS_VS_MONSTERS]);
2650       AddItem(_lc[I_MENU_BOTS_VS_ALL]);
2651       ItemIndex := 2;
2652       if not LongBool(gsGameFlags and GAME_OPTION_BOTVSMONSTER) then
2653         ItemIndex := 0;
2654       if not LongBool(gsGameFlags and GAME_OPTION_BOTVSPLAYER) then
2655         ItemIndex := 1;
2656     end;
2657     with AddSwitch(_lc[I_MENU_FLAG_DROP]) do
2658     begin
2659       Name := 'swFlagDrop';
2660       AddItem(_lc[I_MENU_FLAG_THROW]);
2661       AddItem(_lc[I_MENU_YES]);
2662       AddItem(_lc[I_MENU_NO]);
2663       if (gsGameFlags and (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG)) = (GAME_OPTION_ALLOWDROPFLAG or GAME_OPTION_THROWFLAG) then
2664         ItemIndex := 0
2665       else if LongBool(gsGameFlags and GAME_OPTION_ALLOWDROPFLAG) then
2666         ItemIndex := 1
2667       else
2668         ItemIndex := 2;
2669     end;
2670     AddSpace();
2671     AddButton(@ProcStartCustomGame, _lc[I_MENU_START_GAME]);
2672
2673     ReAlign();
2674   end;
2675   Menu.DefControl := 'mCustomGameMenu';
2676   g_GUI_AddWindow(Menu);
2677
2678   Menu := TGUIWindow.Create('CampaignMenu');
2679   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CAMPAIGN]))) do
2680   begin
2681     Name := 'mCampaignMenu';
2682
2683     AddSpace();
2684     AddSpace();
2685     AddSpace();
2686     AddSpace();
2687     AddSpace();
2688     AddSpace();
2689
2690     with AddFileList('', 15, 4) do
2691     begin
2692       Name := 'lsWAD';
2693       OnChange := ProcSelectCampaignWAD;
2694
2695       Sort := True;
2696       Dirs := True;
2697       FileMask := '*.wad|*.pk3|*.zip|*.dfz';
2698       SetBase(MegawadDirs);
2699     end;
2700
2701     with AddLabel(_lc[I_MENU_MAP_NAME]) do
2702     begin
2703       Name := 'lbWADName';
2704       FixedLength := 8;
2705       Enabled := False;
2706     end;
2707     with AddLabel(_lc[I_MENU_MAP_AUTHOR]) do
2708     begin
2709       Name := 'lbWADAuthor';
2710       FixedLength := 8;
2711       Enabled := False;
2712     end;
2713     AddLine(_lc[I_MENU_MAP_DESCRIPTION]);
2714     with AddMemo('', 15, 3) do
2715     begin
2716       Name := 'meWADDescription';
2717       Color := MENU_ITEMSCTRL_COLOR;
2718     end;
2719     with AddSwitch(_lc[I_MENU_PLAYERS]) do
2720     begin
2721       Name := 'swPlayers';
2722       AddItem(_lc[I_MENU_PLAYERS_ONE]);
2723       AddItem(_lc[I_MENU_PLAYERS_TWO]);
2724     end;
2725     AddSpace();
2726     AddButton(@ProcStartCampaign, _lc[I_MENU_START_GAME]);
2727
2728     ReAlign();
2729
2730     with TGUIImage(Menu.AddChild(TGUIImage.Create)) do
2731     begin
2732       Name := 'mpWADImage';
2733       DefaultRes := 'NOPIC';
2734       X := GetControl('lsWAD').X+4;
2735       Y := GetControl('lsWAD').Y-128-MENU_VSPACE;
2736     end;
2737   end;
2738   Menu.DefControl := 'mCampaignMenu';
2739   g_GUI_AddWindow(Menu);
2740
2741   Menu := TGUIWindow.Create('SelectMapMenu');
2742   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_SELECT_MAP]))) do
2743   begin
2744     Name := 'mSelectMapMenu';
2745     with AddFileList(_lc[I_MENU_MAP_WAD], 12, 4) do
2746     begin
2747       Name := 'lsMapWAD';
2748       OnChange := ProcSelectWAD;
2749
2750       Sort := True;
2751       Dirs := True;
2752       FileMask := '*.wad|*.pk3|*.zip|*.dfz';
2753       SetBase(MapDirs);
2754     end;
2755     with AddList(_lc[I_MENU_MAP_RESOURCE], 12, 4) do
2756     begin
2757       Name := 'lsMapRes';
2758       Sort := True;
2759       OnChange := ProcSelectMap;
2760     end;
2761     AddSpace();
2762     with AddLabel(_lc[I_MENU_MAP_NAME]) do
2763     begin
2764       Name := 'lbMapName';
2765       FixedLength := 24;
2766       Enabled := False;
2767     end;
2768     with AddLabel(_lc[I_MENU_MAP_AUTHOR]) do
2769     begin
2770       Name := 'lbMapAuthor';
2771       FixedLength := 16;
2772       Enabled := False;
2773     end;
2774     with AddLabel(_lc[I_MENU_MAP_SIZE]) do
2775     begin
2776       Name := 'lbMapSize';
2777       FixedLength := 10;
2778       Enabled := False;
2779     end;
2780     with AddMemo(_lc[I_MENU_MAP_DESCRIPTION], 20, 4) do
2781     begin
2782       Name := 'meMapDescription';
2783     end;
2784
2785     ReAlign();
2786
2787     with TGUIMapPreview(Menu.AddChild(TGUIMapPreview.Create)) do
2788     begin
2789       Name := 'mpMapPreview';
2790       X := GetControl('lsMapWAD').X+TGUIListBox(GetControl('lsMapWAD')).GetWidth()+2;
2791       Y := GetControl('lsMapWAD').Y;
2792     end;
2793     with TGUILabel(Menu.AddChild(TGUILabel.Create('', gMenuSmallFont))) do
2794     begin
2795       Name := 'lbMapScale';
2796       FixedLength := 8;
2797       Enabled := False;
2798       Color := MENU_ITEMSCTRL_COLOR;
2799       X := GetControl('lsMapWAD').X +
2800         TGUIListBox(GetControl('lsMapWAD')).GetWidth() +
2801         2 + MAPPREVIEW_WIDTH*4;
2802       Y := GetControl('lsMapWAD').Y + MAPPREVIEW_HEIGHT*16 + 16;
2803     end;
2804   end;
2805   Menu.OnClose := ProcSetMap;
2806   Menu.DefControl := 'mSelectMapMenu';
2807   g_GUI_AddWindow(Menu);
2808
2809   Menu := TGUIWindow.Create('OptionsMenu');
2810   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_OPTIONS]))) do
2811   begin
2812     Name := 'mmOptionsMenu';
2813     AddButton(nil, _lc[I_MENU_VIDEO_OPTIONS], 'OptionsVideoMenu');
2814     AddButton(nil, _lc[I_MENU_SOUND_OPTIONS], 'OptionsSoundMenu');
2815     AddButton(nil, _lc[I_MENU_GAME_OPTIONS], 'OptionsGameMenu');
2816     AddButton(nil, _lc[I_MENU_CONTROLS_OPTIONS], 'OptionsControlsMenu');
2817     AddButton(nil, _lc[I_MENU_PLAYER_OPTIONS], 'OptionsPlayersMenu');
2818     AddButton(nil, _lc[I_MENU_LANGUAGE_OPTIONS], 'OptionsLanguageMenu');
2819     AddSpace();
2820     AddButton(nil, _lc[I_MENU_SAVED_OPTIONS], 'SavedOptionsMenu').Color := _RGB(255, 0, 0);
2821     AddButton(nil, _lc[I_MENU_DEFAULT_OPTIONS], 'DefaultOptionsMenu').Color := _RGB(255, 0, 0);
2822   end;
2823   Menu.OnClose := ProcApplyOptions;
2824   Menu.DefControl := 'mmOptionsMenu';
2825   g_GUI_AddWindow(Menu);
2826
2827   Menu := CreateYNMenu('SavedOptionsMenu', _lc[I_MENU_LOAD_SAVED_PROMT], Round(gScreenWidth*0.6),
2828                        gMenuSmallFont, @ProcSavedMenuKeyDown);
2829   g_GUI_AddWindow(Menu);
2830
2831   Menu := TGUIWindow.Create('OptionsVideoMenu');
2832   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_VIDEO_OPTIONS]))) do
2833   begin
2834     Name := 'mOptionsVideoMenu';
2835     AddButton(@ProcVideoOptionsRes, _lc[I_MENU_VIDEO_RESOLUTION], 'OptionsVideoResMenu');
2836     with AddSwitch(_lc[I_MENU_VIDEO_BPP]) do
2837     begin
2838       Name := 'swBPP';
2839       AddItem('16');
2840       AddItem('32');
2841     end;
2842     with AddSwitch(_lc[I_MENU_VIDEO_VSYNC]) do
2843     begin
2844       Name := 'swVSync';
2845       AddItem(_lc[I_MENU_YES]);
2846       AddItem(_lc[I_MENU_NO]);
2847     end;
2848     with AddSwitch(_lc[I_MENU_VIDEO_FILTER_SKY]) do
2849     begin
2850       Name := 'swTextureFilter';
2851       AddItem(_lc[I_MENU_YES]);
2852       AddItem(_lc[I_MENU_NO]);
2853     end;
2854     with AddSwitch(_lc[I_MENU_VIDEO_INTERPOLATION]) do
2855     begin
2856       Name := 'swInterp';
2857       AddItem(_lc[I_MENU_YES]);
2858       AddItem(_lc[I_MENU_NO]);
2859     end;
2860     with AddSwitch(_lc[I_MENU_VIDEO_LEGACY_COMPATIBLE]) do
2861     begin
2862       Name := 'swLegacyNPOT';
2863       AddItem(_lc[I_MENU_NO]);
2864       AddItem(_lc[I_MENU_YES]);
2865     end;
2866     AddSpace();
2867     AddText(_lc[I_MENU_VIDEO_NEED_RESTART], Round(gScreenWidth*0.6));
2868     ReAlign();
2869   end;
2870   Menu.DefControl := 'mOptionsVideoMenu';
2871   g_GUI_AddWindow(Menu);
2872
2873   Menu := TGUIWindow.Create('OptionsVideoResMenu');
2874   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_RESOLUTION_SELECT]))) do
2875   begin
2876     Name := 'mOptionsVideoResMenu';
2877     with AddLabel(_lc[I_MENU_RESOLUTION_CURRENT]) do
2878     begin
2879       Name := 'lbCurrentRes';
2880       FixedLength := 24;
2881       Enabled := False;
2882     end;
2883     with AddList(_lc[I_MENU_RESOLUTION_LIST], 12, 6) do
2884     begin
2885       Name := 'lsResolution';
2886       Sort := False;
2887     end;
2888     with AddSwitch(_lc[I_MENU_RESOLUTION_FULLSCREEN]) do
2889     begin
2890       Name := 'swFullScreen';
2891       AddItem(_lc[I_MENU_YES]);
2892       AddItem(_lc[I_MENU_NO]);
2893     end;
2894     with AddSwitch(_lc[I_MENU_GAME_SCALE_FACTOR]) do
2895     begin
2896       Name := 'swResFactor';
2897       AddItem('1x');
2898       for i := 2 to gRC_Width div 640 do
2899         AddItem(IntToStr(i) + 'x');
2900     end;
2901     AddSpace();
2902     AddButton(@ProcApplyVideoOptions, _lc[I_MENU_RESOLUTION_APPLY]);
2903     UpdateIndex();
2904   end;
2905   Menu.DefControl := 'mOptionsVideoResMenu';
2906   g_GUI_AddWindow(Menu);
2907
2908   Menu := TGUIWindow.Create('OptionsSoundMenu');
2909   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_SOUND_OPTIONS]))) do
2910   begin
2911     Name := 'mOptionsSoundMenu';
2912     with AddScroll(_lc[I_MENU_SOUND_MUSIC_LEVEL]) do
2913     begin
2914       Name := 'scMusicLevel';
2915       Max := 16;
2916       OnChange := ProcChangeSoundSettings;
2917     end;
2918     with AddScroll(_lc[I_MENU_SOUND_SOUND_LEVEL]) do
2919     begin
2920       Name := 'scSoundLevel';
2921       Max := 16;
2922       OnChange := ProcChangeSoundSettings;
2923     end;
2924     with AddScroll(_lc[I_MENU_SOUND_MAX_SIM_SOUNDS]) do
2925     begin
2926       Name := 'scMaxSimSounds';
2927       Max := 16;
2928     end;
2929     with AddSwitch (_lc[I_MENU_SOUND_ANNOUNCE]) do
2930     begin;
2931       Name := 'swAnnouncer';
2932       AddItem(_lc[I_MENU_ANNOUNCE_NONE]);
2933       AddItem(_lc[I_MENU_ANNOUNCE_ME]);
2934       AddItem(_lc[I_MENU_ANNOUNCE_MEPLUS]);
2935       AddItem(_lc[I_MENU_ANNOUNCE_ALL]);
2936     end;
2937     // Ïåðåêëþ÷àòåëü çâóêîâûõ ýôôåêòîâ (DF / Doom 2)
2938     with AddSwitch (_lc[I_MENU_SOUND_COMPAT]) do
2939     begin;
2940       Name := 'swSoundEffects';
2941       AddItem(_lc[I_MENU_COMPAT_DOOM2]);
2942       AddItem(_lc[I_MENU_COMPAT_DF]);
2943     end;
2944     // Ïåðåêëþ÷àòåëü çâóêîâ ÷àòà
2945     with AddSwitch (_lc[I_MENU_SOUND_CHAT]) do
2946     begin;
2947       Name := 'swChatSpeech';
2948       AddItem(_lc[I_MENU_YES]);
2949       AddItem(_lc[I_MENU_NO]);
2950     end;
2951     with AddSwitch(_lc[I_MENU_SOUND_INACTIVE_SOUNDS]) do
2952     begin
2953       Name := 'swInactiveSounds';
2954       AddItem(_lc[I_MENU_SOUND_INACTIVE_SOUNDS_ON]);
2955       AddItem(_lc[I_MENU_SOUND_INACTIVE_SOUNDS_OFF]);
2956     end;
2957     ReAlign();
2958   end;
2959   Menu.DefControl := 'mOptionsSoundMenu';
2960   g_GUI_AddWindow(Menu);
2961
2962   Menu := TGUIWindow.Create('OptionsGameMenu');
2963   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_GAME_OPTIONS]))) do
2964   begin
2965     Name := 'mOptionsGameMenu';
2966     with AddScroll(_lc[I_MENU_GAME_PARTICLES_COUNT]) do
2967     begin
2968       Name := 'scParticlesCount';
2969       Max := 20;
2970     end;
2971     with AddSwitch(_lc[I_MENU_GAME_BLOOD_COUNT]) do
2972     begin
2973       Name := 'swBloodCount';
2974       AddItem(_lc[I_MENU_COUNT_NONE]);
2975       AddItem(_lc[I_MENU_COUNT_SMALL]);
2976       AddItem(_lc[I_MENU_COUNT_NORMAL]);
2977       AddItem(_lc[I_MENU_COUNT_BIG]);
2978       AddItem(_lc[I_MENU_COUNT_VERYBIG]);
2979     end;
2980     with AddScroll(_lc[I_MENU_GAME_MAX_SHELLS]) do
2981     begin
2982       Name := 'scShellsMax';
2983       Max := 20;
2984     end;
2985     with AddScroll(_lc[I_MENU_GAME_GIBS_COUNT]) do
2986     begin
2987       Name := 'scGibsMax';
2988       Max := 20;
2989     end;
2990     with AddScroll(_lc[I_MENU_GAME_MAX_CORPSES]) do
2991     begin
2992       Name := 'scCorpsesMax';
2993       Max := 20;
2994     end;
2995     with AddSwitch(_lc[I_MENU_GAME_MAX_GIBS]) do
2996     begin
2997       Name := 'swGibsCount';
2998       AddItem(_lc[I_MENU_COUNT_NONE]);
2999       AddItem(_lc[I_MENU_COUNT_SMALL]);
3000       AddItem(_lc[I_MENU_COUNT_NORMAL]);
3001       AddItem(_lc[I_MENU_COUNT_BIG]);
3002       AddItem(_lc[I_MENU_COUNT_VERYBIG]);
3003     end;
3004     with AddSwitch(_lc[I_MENU_GAME_CORPSE_TYPE]) do
3005     begin
3006       Name := 'swCorpseType';
3007       AddItem(_lc[I_MENU_GAME_CORPSE_TYPE_SIMPLE]);
3008       AddItem(_lc[I_MENU_GAME_CORPSE_TYPE_ADV]);
3009     end;
3010     with AddSwitch(_lc[I_MENU_GAME_GIBS_TYPE]) do
3011     begin
3012       Name := 'swGibsType';
3013       AddItem(_lc[I_MENU_GAME_GIBS_TYPE_SIMPLE]);
3014       AddItem(_lc[I_MENU_GAME_GIBS_TYPE_ADV]);
3015     end;
3016     with AddSwitch(_lc[I_MENU_GAME_BLOOD_TYPE]) do
3017     begin
3018       Name := 'swBloodType';
3019       AddItem(_lc[I_MENU_GAME_BLOOD_TYPE_SIMPLE]);
3020       AddItem(_lc[I_MENU_GAME_BLOOD_TYPE_ADV]);
3021     end;
3022     with AddSwitch(_lc[I_MENU_GAME_SCREEN_FLASH]) do
3023     begin
3024       Name := 'swScreenFlash';
3025       AddItem(_lc[I_MENU_NO]);
3026       AddItem(_lc[I_MENU_COMPAT_DF]);
3027       AddItem(_lc[I_MENU_COMPAT_DOOM2]);
3028     end;
3029     with AddSwitch(_lc[I_MENU_GAME_BACKGROUND]) do
3030     begin
3031       Name := 'swBackground';
3032       AddItem(_lc[I_MENU_YES]);
3033       AddItem(_lc[I_MENU_NO]);
3034     end;
3035     with AddSwitch(_lc[I_MENU_GAME_MESSAGES]) do
3036     begin
3037       Name := 'swMessages';
3038       AddItem(_lc[I_MENU_YES]);
3039       AddItem(_lc[I_MENU_NO]);
3040     end;
3041     with AddSwitch(_lc[I_MENU_GAME_REVERT_PLAYERS]) do
3042     begin
3043       Name := 'swRevertPlayers';
3044       AddItem(_lc[I_MENU_YES]);
3045       AddItem(_lc[I_MENU_NO]);
3046     end;
3047     with AddSwitch(_lc[I_MENU_GAME_CHAT_BUBBLE]) do
3048     begin
3049       Name := 'swChatBubble';
3050       AddItem(_lc[I_MENU_GAME_CHAT_TYPE_NONE]);
3051       AddItem(_lc[I_MENU_GAME_CHAT_TYPE_SIMPLE]);
3052       AddItem(_lc[I_MENU_GAME_CHAT_TYPE_ADV]);
3053       AddItem(_lc[I_MENU_GAME_CHAT_TYPE_COLOR]);
3054       AddItem(_lc[I_MENU_GAME_CHAT_TYPE_TEXTURE]);
3055     end;
3056     with AddSwitch(_lc[I_MENU_GAME_PLAYER_INDICATOR]) do
3057     begin
3058       Name := 'swPlayerIndicator';
3059       AddItem(_lc[I_MENU_GAME_INDICATOR_NONE]);
3060       AddItem(_lc[I_MENU_GAME_INDICATOR_OWN]);
3061       AddItem(_lc[I_MENU_GAME_INDICATOR_ALL]);
3062     end;
3063     with AddSwitch(_lc[I_MENU_GAME_INDICATOR_STYLE]) do
3064     begin
3065       Name := 'swPlayerIndicatorStyle';
3066       AddItem(_lc[I_MENU_GAME_INDICATOR_ARROW]);
3067       AddItem(_lc[I_MENU_GAME_INDICATOR_NAME]);
3068     end;
3069     with AddScroll(_lc[I_MENU_GAME_SCALE_FACTOR]) do
3070     begin
3071       Name := 'scScaleFactor';
3072       Max := 10;
3073       OnChange := ProcChangeGameSettings;
3074     end;
3075     ReAlign();
3076   end;
3077   Menu.DefControl := 'mOptionsGameMenu';
3078   g_GUI_AddWindow(Menu);
3079
3080   Menu := TGUIWindow.Create('OptionsControlsMenu');
3081   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CONTROLS_OPTIONS]))) do
3082   begin
3083     Name := 'mOptionsControlsMenu';
3084     AddLine(_lc[I_MENU_CONTROL_GLOBAL]);
3085     AddKeyRead(_lc[I_MENU_CONTROL_SCREENSHOT]).Name := _lc[I_MENU_CONTROL_SCREENSHOT];
3086     AddKeyRead(_lc[I_MENU_CONTROL_STAT]).Name := _lc[I_MENU_CONTROL_STAT];
3087     AddKeyRead(_lc[I_MENU_CONTROL_CHAT]).Name := _lc[I_MENU_CONTROL_CHAT];
3088     AddKeyRead(_lc[I_MENU_CONTROL_TEAMCHAT]).Name := _lc[I_MENU_CONTROL_TEAMCHAT];
3089     AddSpace();
3090     AddButton(nil, _lc[I_MENU_PLAYER_1_KBD], 'OptionsControlsP1Menu');
3091     {AddButton(nil, _lc[I_MENU_PLAYER_1_ALT], 'OptionsControlsP1MenuAlt');}
3092     AddButton(nil, _lc[I_MENU_PLAYER_1_WEAPONS], 'OptionsControlsP1MenuWeapons');
3093     AddButton(nil, _lc[I_MENU_PLAYER_2_KBD], 'OptionsControlsP2Menu');
3094     {AddButton(nil, _lc[I_MENU_PLAYER_2_ALT], 'OptionsControlsP2MenuAlt');}
3095     AddButton(nil, _lc[I_MENU_PLAYER_2_WEAPONS], 'OptionsControlsP2MenuWeapons');
3096     if e_HasJoysticks then
3097     begin
3098       AddSpace();
3099       AddButton(nil, _lc[I_MENU_CONTROL_JOYSTICKS], 'OptionsControlsJoystickMenu');
3100     end;
3101     if g_touch_enabled then
3102     begin
3103       AddSpace();
3104       AddButton(nil, _lc[I_MENU_CONTROL_TOUCH], 'OptionsControlsTouchMenu');
3105     end;
3106   end;
3107   Menu.DefControl := 'mOptionsControlsMenu';
3108   g_GUI_AddWindow(Menu);
3109
3110   Menu := TGUIWindow.Create('OptionsControlsP1Menu');
3111   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_PLAYER_1_KBD]))) do
3112   begin
3113     Name := 'mOptionsControlsP1Menu';
3114     AddKeyRead2(_lc[I_MENU_CONTROL_LEFT]).Name := _lc[I_MENU_CONTROL_LEFT];
3115     AddKeyRead2(_lc[I_MENU_CONTROL_RIGHT]).Name := _lc[I_MENU_CONTROL_RIGHT];
3116     AddKeyRead2(_lc[I_MENU_CONTROL_UP]).Name := _lc[I_MENU_CONTROL_UP];
3117     AddKeyRead2(_lc[I_MENU_CONTROL_DOWN]).Name := _lc[I_MENU_CONTROL_DOWN];
3118     AddKeyRead2(_lc[I_MENU_CONTROL_JUMP]).Name := _lc[I_MENU_CONTROL_JUMP];
3119     AddKeyRead2(_lc[I_MENU_CONTROL_FIRE]).Name := _lc[I_MENU_CONTROL_FIRE];
3120     AddKeyRead2(_lc[I_MENU_CONTROL_USE]).Name := _lc[I_MENU_CONTROL_USE];
3121     AddKeyRead2(_lc[I_MENU_CONTROL_NEXT_WEAPON]).Name := _lc[I_MENU_CONTROL_NEXT_WEAPON];
3122     AddKeyRead2(_lc[I_MENU_CONTROL_PREV_WEAPON]).Name := _lc[I_MENU_CONTROL_PREV_WEAPON];
3123     AddKeyRead2(_lc[I_MENU_CONTROL_STRAFE]).Name := _lc[I_MENU_CONTROL_STRAFE];
3124     AddKeyRead2(_lc[I_MENU_CONTROL_DROPFLAG]).Name := _lc[I_MENU_CONTROL_DROPFLAG];
3125   end;
3126   Menu.DefControl := 'mOptionsControlsP1Menu';
3127   g_GUI_AddWindow(Menu);
3128
3129   Menu := TGUIWindow.Create('OptionsControlsP1MenuWeapons');
3130   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_PLAYER_1_WEAPONS]))) do
3131   begin
3132     Name := 'mOptionsControlsP1MenuWeapons';
3133     for i := WP_FIRST to WP_LAST do
3134       AddKeyRead2(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)]).Name :=
3135         _lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)];
3136   end;
3137   Menu.DefControl := 'mOptionsControlsP1MenuWeapons';
3138   g_GUI_AddWindow(Menu);
3139
3140   Menu := TGUIWindow.Create('OptionsControlsP2Menu');
3141   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_PLAYER_2_KBD]))) do
3142   begin
3143     Name := 'mOptionsControlsP2Menu';
3144     AddKeyRead2(_lc[I_MENU_CONTROL_LEFT]).Name := _lc[I_MENU_CONTROL_LEFT];
3145     AddKeyRead2(_lc[I_MENU_CONTROL_RIGHT]).Name := _lc[I_MENU_CONTROL_RIGHT];
3146     AddKeyRead2(_lc[I_MENU_CONTROL_UP]).Name := _lc[I_MENU_CONTROL_UP];
3147     AddKeyRead2(_lc[I_MENU_CONTROL_DOWN]).Name := _lc[I_MENU_CONTROL_DOWN];
3148     AddKeyRead2(_lc[I_MENU_CONTROL_JUMP]).Name := _lc[I_MENU_CONTROL_JUMP];
3149     AddKeyRead2(_lc[I_MENU_CONTROL_FIRE]).Name := _lc[I_MENU_CONTROL_FIRE];
3150     AddKeyRead2(_lc[I_MENU_CONTROL_USE]).Name := _lc[I_MENU_CONTROL_USE];
3151     AddKeyRead2(_lc[I_MENU_CONTROL_NEXT_WEAPON]).Name := _lc[I_MENU_CONTROL_NEXT_WEAPON];
3152     AddKeyRead2(_lc[I_MENU_CONTROL_PREV_WEAPON]).Name := _lc[I_MENU_CONTROL_PREV_WEAPON];
3153     AddKeyRead2(_lc[I_MENU_CONTROL_STRAFE]).Name := _lc[I_MENU_CONTROL_STRAFE];
3154     AddKeyRead2(_lc[I_MENU_CONTROL_DROPFLAG]).Name := _lc[I_MENU_CONTROL_DROPFLAG];
3155   end;
3156   Menu.DefControl := 'mOptionsControlsP2Menu';
3157   g_GUI_AddWindow(Menu);
3158
3159   Menu := TGUIWindow.Create('OptionsControlsP2MenuWeapons');
3160   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_PLAYER_2_WEAPONS]))) do
3161   begin
3162     Name := 'mOptionsControlsP2MenuWeapons';
3163     for i := WP_FIRST to WP_LAST do
3164       AddKeyRead2(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)]).Name :=
3165         _lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)];
3166   end;
3167   Menu.DefControl := 'mOptionsControlsP2MenuWeapons';
3168   g_GUI_AddWindow(Menu);
3169
3170   Menu := TGUIWindow.Create('OptionsControlsJoystickMenu');
3171   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CONTROL_JOYSTICKS]))) do
3172   begin
3173     Name := 'mOptionsControlsJoystickMenu';
3174     for i := 0 to e_MaxJoys - 1 do
3175       with AddScroll(Format(_lc[I_MENU_CONTROL_DEADZONE], [i + 1])) do
3176       begin
3177         Name := 'scDeadzone' + IntToStr(i);
3178         Max := 20
3179       end
3180   end;
3181   Menu.DefControl := 'mOptionsControlsJoystickMenu';
3182   g_GUI_AddWindow(Menu);
3183
3184   Menu := TGUIWindow.Create('OptionsControlsTouchMenu');
3185   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_CONTROL_TOUCH]))) do
3186   begin
3187     Name := 'mOptionsControlsTouchMenu';
3188     with AddSwitch(_lc[I_MENU_CONTROL_TOUCH_ALT]) do
3189     begin
3190       Name := 'swTouchAlt';
3191       AddItem(_lc[I_MENU_NO]);
3192       AddItem(_lc[I_MENU_YES]);
3193       OnChange := ProcChangeTouchSettings;
3194     end;
3195     with AddScroll(_lc[I_MENU_CONTROL_TOUCH_SIZE]) do
3196     begin
3197       Name := 'scTouchSize';
3198       Max := 20;
3199       OnChange := ProcChangeTouchSettings;
3200     end;
3201     with AddSwitch(_lc[I_MENU_CONTROL_TOUCH_FIRE]) do
3202     begin
3203       Name := 'swTouchFire';
3204       AddItem(_lc[I_MENU_NO]);
3205       AddItem(_lc[I_MENU_YES]);
3206     end;
3207     with AddScroll(_lc[I_MENU_CONTROL_TOUCH_OFFSET]) do
3208     begin
3209       Name := 'scTouchOffset';
3210       Max := 20;
3211       OnChange := ProcChangeTouchSettings;
3212     end;
3213   end;
3214   Menu.DefControl := 'mOptionsControlsTouchMenu';
3215   g_GUI_AddWindow(Menu);
3216
3217   Menu := TGUIWindow.Create('OptionsPlayersMenu');
3218   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_PLAYER_OPTIONS]))) do
3219   begin
3220     Name := 'mOptionsPlayersMenu';
3221     AddButton(nil, _lc[I_MENU_PLAYER_1], 'OptionsPlayersP1Menu');
3222     AddButton(nil, _lc[I_MENU_PLAYER_2], 'OptionsPlayersP2Menu');
3223   end;
3224   Menu.DefControl := 'mOptionsPlayersMenu';
3225   g_GUI_AddWindow(Menu);
3226
3227   CreatePlayerOptionsMenu('P1');
3228   CreatePlayerOptionsMenu('P2');
3229
3230   Menu := TGUIWindow.Create('OptionsPlayersMIMenu');
3231   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_MODEL_INFO]))) do
3232   begin
3233     Name := 'mOptionsPlayersMIMenu';
3234     with AddLabel(_lc[I_MENU_MODEL_NAME]) do
3235     begin
3236       Name := 'lbName';
3237       FixedLength := 16;
3238     end;
3239     with AddLabel(_lc[I_MENU_MODEL_AUTHOR]) do
3240     begin
3241       Name := 'lbAuthor';
3242       FixedLength := 16;
3243     end;
3244     with AddMemo(_lc[I_MENU_MODEL_COMMENT], 14, 6) do
3245     begin
3246       Name := 'meComment';
3247     end;
3248     AddSpace();
3249     AddLine(_lc[I_MENU_MODEL_OPTIONS]);
3250     with AddLabel(_lc[I_MENU_MODEL_WEAPON]) do
3251     begin
3252       Name := 'lbWeapon';
3253       FixedLength := Max(Length(_lc[I_MENU_YES]), Length(_lc[I_MENU_NO]));
3254     end;
3255     ReAlign();
3256   end;
3257   Menu.DefControl := 'mOptionsPlayersMIMenu';
3258   g_GUI_AddWindow(Menu);
3259
3260   Menu := TGUIWindow.Create('OptionsPlayersP1WeaponMenu');
3261   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_WEAPON]))) do
3262   begin
3263     Name := 'mOptionsPlayersP1WeaponMenu';
3264     with AddSwitch(_lc[I_MENU_WEAPON_SWITCH]) do
3265     begin
3266       Name := 'swWeaponAutoswitch';
3267       AddItem(_lc[I_MENU_NO]);
3268       AddItem(_lc[I_MENU_WEAPON_SWITCH_LINEAR]);
3269       AddItem(_lc[I_MENU_WEAPON_SWITCH_PREFERENCE]);
3270     end;
3271     with AddSwitch(_lc[I_MENU_WEAPON_ALLOW_EMPTY]) do
3272     begin
3273       Name := 'swWeaponAllowEmpty';
3274       AddItem(_lc[I_MENU_YES]);
3275       AddItem(_lc[I_MENU_NO]);
3276     end;
3277     with AddSwitch(_lc[I_MENU_KASTET_ALLOW]) do
3278     begin
3279       Name := 'swWeaponAllowFist';
3280       AddItem(_lc[I_MENU_KASTET_ALLOW_ALWAYS]);
3281       AddItem(_lc[I_MENU_KASTET_ALLOW_BERSERK]);
3282     end;
3283     AddButton(@ProcOptionsPlayerP1WeaponPreferencesMenu, _lc[I_MENU_WEAPON_SWITCH_PRIORITY]);
3284     ReAlign();
3285   end;
3286   Menu.DefControl := 'mOptionsPlayersP1WeaponMenu';
3287   g_GUI_AddWindow(Menu);
3288
3289   Menu := TGUIWindow.Create('OptionsPreferencesP1WeaponMenu');
3290   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_WEAPON_PRIORITY_PLAYER_1]))) do
3291   begin
3292     Name := 'mOptionsPreferencesP1WeaponMenu';
3293     for i := WP_FIRST to WP_LAST do
3294     begin
3295         with AddSwitch(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)]) do
3296         begin
3297           Name := IntToStr(i);
3298           for a := WP_FIRST to WP_LAST+1 do
3299             begin
3300               AddItem(IntToStr(a));
3301             end;
3302           ItemIndex := i
3303         end;
3304     end;
3305     with AddSwitch(_lc[I_GAME_WEAPON_BERSERK]) do
3306     begin
3307       Name := IntToStr(WP_LAST+1);
3308       for a := WP_FIRST to WP_LAST+1 do
3309       begin
3310          AddItem(IntToStr(a));
3311       end;
3312       ItemIndex := WP_LAST + 1;
3313     end;
3314   end;
3315   Menu.DefControl := 'mOptionsPreferencesP1WeaponMenu';
3316   g_GUI_AddWindow(Menu);
3317
3318
3319   Menu := TGUIWindow.Create('OptionsPlayersP2WeaponMenu');
3320   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_WEAPON]))) do
3321   begin
3322     Name := 'mOptionsPlayersP2WeaponMenu';
3323     with AddSwitch(_lc[I_MENU_WEAPON_SWITCH]) do
3324     begin
3325       Name := 'swWeaponAutoswitch';
3326       AddItem(_lc[I_MENU_NO]);
3327       AddItem(_lc[I_MENU_WEAPON_SWITCH_LINEAR]);
3328       AddItem(_lc[I_MENU_WEAPON_SWITCH_PREFERENCE]);
3329     end;
3330     with AddSwitch(_lc[I_MENU_WEAPON_ALLOW_EMPTY]) do
3331     begin
3332       Name := 'swWeaponAllowEmpty';
3333       AddItem(_lc[I_MENU_YES]);
3334       AddItem(_lc[I_MENU_NO]);
3335     end;
3336     with AddSwitch(_lc[I_MENU_KASTET_ALLOW]) do
3337     begin
3338       Name := 'swWeaponAllowFist';
3339       AddItem(_lc[I_MENU_KASTET_ALLOW_ALWAYS]);
3340       AddItem(_lc[I_MENU_KASTET_ALLOW_BERSERK]);
3341     end;
3342     AddButton(@ProcOptionsPlayerP2WeaponPreferencesMenu, _lc[I_MENU_WEAPON_SWITCH_PRIORITY]);
3343     ReAlign();
3344   end;
3345   Menu.DefControl := 'mOptionsPlayersP2WeaponMenu';
3346   g_GUI_AddWindow(Menu);
3347
3348   Menu := TGUIWindow.Create('OptionsPreferencesP2WeaponMenu');
3349   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_WEAPON_PRIORITY_PLAYER_2]))) do
3350   begin
3351     Name := 'mOptionsPreferencesP2WeaponMenu';
3352     for i := WP_FIRST to WP_LAST do
3353     begin
3354         with AddSwitch(_lc[TStrings_Locale(Cardinal(I_GAME_WEAPON0) + i)]) do
3355         begin
3356           Name := IntToStr(i);
3357           for a := WP_FIRST to WP_LAST+1 do
3358             begin
3359               AddItem(IntToStr(a));
3360             end;
3361           ItemIndex := i
3362         end;
3363     end;
3364     with AddSwitch(_lc[I_GAME_WEAPON_BERSERK]) do
3365     begin
3366       Name := IntToStr(WP_LAST+1);
3367       for a := WP_FIRST to WP_LAST+1 do
3368       begin
3369          AddItem(IntToStr(a));
3370       end;
3371       ItemIndex := WP_LAST + 1;
3372     end;
3373   end;
3374   Menu.DefControl := 'mOptionsPreferencesP2WeaponMenu';
3375   g_GUI_AddWindow(Menu);
3376
3377   Menu := TGUIWindow.Create('OptionsLanguageMenu');
3378   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_LANGUAGE_OPTIONS]))) do
3379   begin
3380     Name := 'mOptionsLanguageMenu';
3381     AddButton(@ProcSetRussianLanguage, _lc[I_MENU_LANGUAGE_RUSSIAN]);
3382     AddButton(@ProcSetEnglishLanguage, _lc[I_MENU_LANGUAGE_ENGLISH]);
3383     ReAlign();
3384   end;
3385   Menu.DefControl := 'mOptionsLanguageMenu';
3386   g_GUI_AddWindow(Menu);
3387
3388   Menu := CreateYNMenu('DefaultOptionsMenu', _lc[I_MENU_SET_DEFAULT_PROMT], Round(gScreenWidth*0.6),
3389                        gMenuSmallFont, @ProcDefaultMenuKeyDown);
3390   g_GUI_AddWindow(Menu);
3391
3392   Menu := TGUIWindow.Create('AuthorsMenu');
3393   Menu.BackTexture := 'INTER';
3394   Menu.OnClose := ProcAuthorsClose;
3395
3396 // Çàãîëîâîê:
3397   _y := 16;
3398   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CAP_1], gMenuFont))) do
3399   begin
3400     Color := _RGB(255, 0, 0);
3401     X := (gScreenWidth div 2)-(GetWidth() div 2);
3402     Y := _y;
3403     _y := _y+GetHeight();
3404   end;
3405   with TGUILabel(Menu.AddChild(TGUILabel.Create(Format(_lc[I_CREDITS_CAP_2], [GAME_VERSION, NET_PROTOCOL_VER]), gMenuSmallFont))) do
3406   begin
3407     Color := _RGB(255, 0, 0);
3408     X := (gScreenWidth div 2)-(GetWidth() div 2);
3409     Y := _y;
3410     _y := _y+GetHeight()+32;
3411   end;
3412 // ×òî äåëàë: Êòî äåëàë
3413   cx := gScreenWidth div 2 - 320 + 64;
3414   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_1], gMenuSmallFont))) do
3415   begin
3416     Color := _RGB(255, 0, 0);
3417     X := cx;
3418     Y := _y;
3419     _y := _y+22;
3420   end;
3421   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_1_1], gMenuSmallFont))) do
3422   begin
3423     Color := _RGB(255, 255, 255);
3424     X := cx+32;
3425     Y := _y;
3426     _y := _y+36;
3427   end;
3428   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_2], gMenuSmallFont))) do
3429   begin
3430     Color := _RGB(255, 0, 0);
3431     X := cx;
3432     Y := _y;
3433     _y := _y+22;
3434   end;
3435   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_2_1], gMenuSmallFont))) do
3436   begin
3437     Color := _RGB(255, 255, 255);
3438     X := cx+32;
3439     Y := _y;
3440     _y := _y+22;
3441   end;
3442   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_2_2], gMenuSmallFont))) do
3443   begin
3444     Color := _RGB(255, 255, 255);
3445     X := cx+32;
3446     Y := _y;
3447     _y := _y+36;
3448   end;
3449   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_3], gMenuSmallFont))) do
3450   begin
3451     Color := _RGB(255, 0, 0);
3452     X := cx;
3453     Y := _y;
3454     _y := _y+22;
3455   end;
3456   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_3_1], gMenuSmallFont))) do
3457   begin
3458     Color := _RGB(255, 255, 255);
3459     X :=  cx+32;
3460     Y := _y;
3461    _y := _y+36;
3462   end;
3463   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_4], gMenuSmallFont))) do
3464   begin
3465     Color := _RGB(255, 0, 0);
3466     X := cx;
3467     Y := _y;
3468     _y := _y+22;
3469   end;
3470   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_A_4_1], gMenuSmallFont))) do
3471   begin
3472     Color := _RGB(255, 255, 255);
3473     X := cx+32;
3474     Y := _y;
3475     _y := gScreenHeight - 128;
3476   end;
3477 // Çàêëþ÷åíèå:
3478   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CAP_3], gMenuSmallFont))) do
3479   begin
3480     Color := _RGB(255, 0, 0);
3481     X := cx;
3482     Y := _y;
3483     _y := _y+16;
3484   end;
3485   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CLO_1], gMenuSmallFont))) do
3486   begin
3487     Color := _RGB(255, 255, 255);
3488     X := cx+32;
3489     Y := _y;
3490     _y := _y+GetHeight();
3491   end;
3492   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CLO_2], gMenuSmallFont))) do
3493   begin
3494     Color := _RGB(255, 255, 255);
3495     X := cx+32;
3496     Y := _y;
3497     _y := _y+GetHeight();
3498   end;
3499   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CLO_3], gMenuSmallFont))) do
3500   begin
3501     Color := _RGB(255, 255, 255);
3502     X := cx+32;
3503     Y := _y;
3504     _y := gScreenHeight - 32;
3505   end;
3506   with TGUILabel(Menu.AddChild(TGUILabel.Create(_lc[I_CREDITS_CLO_4], gMenuSmallFont))) do
3507   begin
3508     Color := _RGB(255, 0, 0);
3509     X := gScreenWidth div 2 - GetWidth() div 2;
3510     Y := _y;
3511   end;
3512   g_GUI_AddWindow(Menu);
3513
3514   Menu := CreateYNMenu('ExitMenu', _lc[I_MENU_EXIT_PROMT], Round(gScreenWidth*0.6),
3515                        gMenuSmallFont, @ProcExitMenuKeyDown);
3516   g_GUI_AddWindow(Menu);
3517
3518   Menu := TGUIWindow.Create('GameSingleMenu');
3519   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_MAIN_MENU]))) do
3520   begin
3521     Name := 'mmGameSingleMenu';
3522     AddButton(nil, _lc[I_MENU_LOAD_GAME], 'LoadMenu');
3523     AddButton(nil, _lc[I_MENU_SAVE_GAME], 'SaveMenu').Name := 'save';
3524     AddButton(@ReadGameSettings, _lc[I_MENU_SET_GAME], 'GameSetGameMenu');
3525     AddButton(@ReadOptions, _lc[I_MENU_OPTIONS], 'OptionsMenu');
3526     AddButton(nil, _lc[I_MENU_RESTART], 'RestartGameMenu');
3527     AddButton(nil, _lc[I_MENU_END_GAME], 'EndGameMenu');
3528   end;
3529   Menu.DefControl := 'mmGameSingleMenu';
3530   Menu.MainWindow := True;
3531   Menu.OnClose := ProcGMClose;
3532   Menu.OnShow := ProcGMShow;
3533   g_GUI_AddWindow(Menu);
3534
3535   Menu := CreateYNMenu('EndGameMenu', _lc[I_MENU_END_GAME_PROMT], Round(gScreenWidth*0.6),
3536                        gMenuSmallFont, @ProcEndMenuKeyDown);
3537   g_GUI_AddWindow(Menu);
3538
3539   Menu := CreateYNMenu('RestartGameMenu', _lc[I_MENU_RESTART_GAME_PROMT], Round(gScreenWidth*0.6),
3540                        gMenuSmallFont, @ProcRestartMenuKeyDown);
3541   g_GUI_AddWindow(Menu);
3542
3543   Menu := TGUIWindow.Create('GameCustomMenu');
3544   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_MAIN_MENU]))) do
3545   begin
3546     Name := 'mmGameCustomMenu';
3547     AddButton(nil, _lc[I_MENU_CHANGE_PLAYERS], 'TeamMenu');
3548     AddButton(nil, _lc[I_MENU_LOAD_GAME], 'LoadMenu');
3549     AddButton(nil, _lc[I_MENU_SAVE_GAME], 'SaveMenu').Name := 'save';
3550     AddButton(@ReadGameSettings, _lc[I_MENU_SET_GAME], 'GameSetGameMenu');
3551     AddButton(@ReadOptions, _lc[I_MENU_OPTIONS], 'OptionsMenu');
3552     AddButton(nil, _lc[I_MENU_RESTART], 'RestartGameMenu');
3553     AddButton(nil, _lc[I_MENU_END_GAME], 'EndGameMenu');
3554   end;
3555   Menu.DefControl := 'mmGameCustomMenu';
3556   Menu.MainWindow := True;
3557   Menu.OnClose := ProcGMClose;
3558   Menu.OnShow := ProcGMShow;
3559   g_GUI_AddWindow(Menu);
3560
3561   Menu := TGUIWindow.Create('GameServerMenu');
3562   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_MAIN_MENU]))) do
3563   begin
3564     Name := 'mmGameServerMenu';
3565     AddButton(nil, _lc[I_MENU_CHANGE_PLAYERS], 'TeamMenu');
3566     AddButton(@ReadGameSettings, _lc[I_MENU_SET_GAME], 'GameSetGameMenu');
3567     AddButton(@ReadOptions, _lc[I_MENU_OPTIONS], 'OptionsMenu');
3568     AddButton(nil, _lc[I_MENU_RESTART], 'RestartGameMenu');
3569     AddButton(nil, _lc[I_MENU_END_GAME], 'EndGameMenu');
3570   end;
3571   Menu.DefControl := 'mmGameServerMenu';
3572   Menu.MainWindow := True;
3573   Menu.OnClose := ProcGMClose;
3574   Menu.OnShow := ProcGMShow;
3575   g_GUI_AddWindow(Menu);
3576
3577   Menu := TGUIWindow.Create('GameClientMenu');
3578   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_MAIN_MENU]))) do
3579   begin
3580     Name := 'mmGameClientMenu';
3581     AddButton(nil, _lc[I_MENU_CHANGE_PLAYERS], 'TeamMenu');
3582     AddButton(@ReadOptions, _lc[I_MENU_OPTIONS], 'OptionsMenu');
3583     AddButton(nil, _lc[I_MENU_END_GAME], 'EndGameMenu');
3584   end;
3585   Menu.DefControl := 'mmGameClientMenu';
3586   Menu.MainWindow := True;
3587   Menu.OnClose := ProcGMClose;
3588   Menu.OnShow := ProcGMShow;
3589   g_GUI_AddWindow(Menu);
3590
3591   Menu := TGUIWindow.Create('ClientPasswordMenu');
3592   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuSmallFont, gMenuSmallFont, _lc[I_MENU_ENTERPASSWORD]))) do
3593   begin
3594     Name := 'mClientPasswordMenu';
3595     with AddEdit(_lc[I_NET_SERVER_PASSWORD]) do
3596     begin
3597       Name := 'edPW';
3598       Width := 12;
3599       MaxLength := 32;
3600     end;
3601     AddSpace;
3602
3603     AddButton(@ProcEnterPassword, _lc[I_MENU_START_GAME]);
3604     ReAlign();
3605   end;
3606   Menu.DefControl := 'mClientPasswordMenu';
3607   g_GUI_AddWindow(Menu);
3608
3609   Menu := TGUIWindow.Create('GameSetGameMenu');
3610   with TGUIMenu(Menu.AddChild(TGUIMenu.Create(gMenuFont, gMenuSmallFont, _lc[I_MENU_SET_GAME]))) do
3611   begin
3612     Name := 'mGameSetGameMenu';
3613     with AddSwitch(_lc[I_MENU_TEAM_DAMAGE]) do
3614     begin
3615       Name := 'swTeamDamage';
3616       AddItem(_lc[I_MENU_YES]);
3617       AddItem(_lc[I_MENU_NO]);
3618       ItemIndex := 1;
3619     end;
3620     with AddSwitch(_lc[I_MENU_TEAM_HIT]) do
3621     begin
3622       Name := 'swTeamHit';
3623       AddItem(_lc[I_MENU_TEAM_HIT_BOTH]);
3624       AddItem(_lc[I_MENU_TEAM_HIT_TRACE]);
3625       AddItem(_lc[I_MENU_TEAM_HIT_PROJECTILE]);
3626       AddItem(_lc[I_MENU_TEAM_HIT_NOTHING]);
3627       ItemIndex := 0
3628     end;
3629     with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do
3630     begin
3631       Name := 'swDeathmatchKeys';
3632       AddItem(_lc[I_MENU_YES]);
3633       AddItem(_lc[I_MENU_NO]);
3634       ItemIndex := 1;
3635     end;
3636     with AddEdit(_lc[I_MENU_TIME_LIMIT]) do
3637     begin
3638       Name := 'edTimeLimit';
3639       OnlyDigits := True;
3640       Width := 4;
3641       MaxLength := 5;
3642     end;
3643     with AddEdit(_lc[I_MENU_SCORE_LIMIT]) do
3644     begin
3645       Name := 'edScoreLimit';
3646       OnlyDigits := True;
3647       Width := 4;
3648       MaxLength := 5;
3649     end;
3650     with AddEdit(_lc[I_MENU_MAX_LIVES]) do
3651     begin
3652       Name := 'edMaxLives';
3653       OnlyDigits := True;
3654       Width := 4;
3655       MaxLength := 5;
3656     end;
3657     with AddSwitch(_lc[I_MENU_BOTS_VS]) do
3658     begin
3659       Name := 'swBotsVS';
3660       AddItem(_lc[I_MENU_BOTS_VS_PLAYERS]);
3661       AddItem(_lc[I_MENU_BOTS_VS_MONSTERS]);
3662       AddItem(_lc[I_MENU_BOTS_VS_ALL]);
3663       ItemIndex := 2;
3664     end;
3665     with AddSwitch(_lc[I_MENU_FLAG_DROP]) do
3666     begin
3667       Name := 'swFlagDrop';
3668       AddItem(_lc[I_MENU_FLAG_THROW]);
3669       AddItem(_lc[I_MENU_YES]);
3670       AddItem(_lc[I_MENU_NO]);
3671       ItemIndex := 2;
3672     end;
3673
3674     ReAlign();
3675   end;
3676   Menu.DefControl := 'mGameSetGameMenu';
3677   Menu.OnClose := ProcApplyGameSet;
3678   g_GUI_AddWindow(Menu);
3679
3680   Menu := TGUIWindow.Create('TeamMenu');
3681   with TGUIMainMenu(Menu.AddChild(TGUIMainMenu.Create(gMenuFont, '', _lc[I_MENU_CHANGE_PLAYERS]))) do
3682   begin
3683     Name := 'mmTeamMenu';
3684     AddButton(@ProcJoinRed, _lc[I_MENU_JOIN_RED], '').Name := 'tmJoinRed';
3685     AddButton(@ProcJoinBlue, _lc[I_MENU_JOIN_BLUE], '').Name := 'tmJoinBlue';
3686     AddButton(@ProcJoinGame, _lc[I_MENU_JOIN_GAME], '').Name := 'tmJoinGame';
3687     AddButton(@ProcSwitchP2, _lc[I_MENU_ADD_PLAYER_2], '').Name := 'tmPlayer2';
3688     AddButton(@ProcSpectate, _lc[I_MENU_SPECTATE], '').Name := 'tmSpectate';
3689   end;
3690   Menu.DefControl := 'mmTeamMenu';
3691   Menu.OnShow := ProcChangePlayers;
3692   g_GUI_AddWindow(Menu);
3693 end;
3694
3695 procedure g_Menu_Show_SaveMenu();
3696 begin
3697   if g_Game_IsTestMap then
3698     Exit;
3699   if gGameSettings.GameType = GT_SINGLE then
3700     g_GUI_ShowWindow('GameSingleMenu')
3701   else
3702   begin
3703     if g_Game_IsClient then
3704       Exit
3705     else
3706       if g_Game_IsNet then
3707         Exit
3708       else
3709         g_GUI_ShowWindow('GameCustomMenu');
3710   end;
3711   g_GUI_ShowWindow('SaveMenu');
3712   g_Sound_PlayEx('MENU_OPEN');
3713 end;
3714
3715 procedure g_Menu_Show_LoadMenu (standalone: Boolean=false);
3716 begin
3717   if (g_ActiveWindow <> nil) and (g_ActiveWindow.name = 'LoadMenu') then exit; // nothing to do
3718   if gGameSettings.GameType = GT_SINGLE then
3719   begin
3720     if not standalone then g_GUI_ShowWindow('GameSingleMenu')
3721   end
3722   else
3723   begin
3724     if g_Game_IsClient then exit;
3725     if g_Game_IsNet then exit;
3726     if not standalone then g_GUI_ShowWindow('GameCustomMenu');
3727   end;
3728   g_GUI_ShowWindow('LoadMenu');
3729   g_Sound_PlayEx('MENU_OPEN');
3730 end;
3731
3732 procedure g_Menu_Show_GameSetGame();
3733 begin
3734   if gGameSettings.GameType = GT_SINGLE then
3735     g_GUI_ShowWindow('GameSingleMenu')
3736   else
3737   begin
3738     if g_Game_IsClient then
3739       Exit
3740     else
3741       if g_Game_IsNet then
3742         g_GUI_ShowWindow('GameServerMenu')
3743       else
3744         g_GUI_ShowWindow('GameCustomMenu');
3745   end;
3746   ReadGameSettings();
3747   g_GUI_ShowWindow('GameSetGameMenu');
3748   g_Sound_PlayEx('MENU_OPEN');
3749 end;
3750
3751 procedure g_Menu_Show_OptionsVideo();
3752 begin
3753   if gGameSettings.GameType = GT_SINGLE then
3754     g_GUI_ShowWindow('GameSingleMenu')
3755   else
3756   begin
3757     if g_Game_IsClient then
3758       g_GUI_ShowWindow('GameClientMenu')
3759     else
3760       if g_Game_IsNet then
3761         g_GUI_ShowWindow('GameServerMenu')
3762       else
3763         g_GUI_ShowWindow('GameCustomMenu');
3764   end;
3765   ReadOptions();
3766   g_GUI_ShowWindow('OptionsMenu');
3767   g_GUI_ShowWindow('OptionsVideoMenu');
3768   g_Sound_PlayEx('MENU_OPEN');
3769 end;
3770
3771 procedure g_Menu_Show_OptionsSound();
3772 begin
3773   if gGameSettings.GameType = GT_SINGLE then
3774     g_GUI_ShowWindow('GameSingleMenu')
3775   else
3776   begin
3777     if g_Game_IsClient then
3778       g_GUI_ShowWindow('GameClientMenu')
3779     else
3780       if g_Game_IsNet then
3781         g_GUI_ShowWindow('GameServerMenu')
3782       else
3783         g_GUI_ShowWindow('GameCustomMenu');
3784   end;
3785   ReadOptions();
3786   g_GUI_ShowWindow('OptionsMenu');
3787   g_GUI_ShowWindow('OptionsSoundMenu');
3788   g_Sound_PlayEx('MENU_OPEN');
3789 end;
3790
3791 procedure g_Menu_Show_EndGameMenu();
3792 begin
3793   g_GUI_ShowWindow('EndGameMenu');
3794   g_Sound_PlayEx('MENU_OPEN');
3795 end;
3796
3797 procedure g_Menu_Show_QuitGameMenu();
3798 begin
3799   g_GUI_ShowWindow('ExitMenu');
3800   g_Sound_PlayEx('MENU_OPEN');
3801 end;
3802
3803 procedure g_Menu_Init();
3804 begin
3805   MenuLoadData();
3806   CreateAllMenus();
3807 end;
3808
3809 procedure g_Menu_Free();
3810 begin
3811   MenuFreeData();
3812 end;
3813
3814 procedure g_Menu_Reset();
3815 var
3816   ex: Boolean;
3817 begin
3818   g_GUI_SaveMenuPos();
3819   ex := g_GUI_Destroy();
3820
3821   if ex then
3822   begin
3823     e_WriteLog('Recreating menu...', TMsgType.Notify);
3824
3825     CreateAllMenus();
3826
3827     if gDebugMode then
3828       g_Game_SetDebugMode();
3829
3830     g_GUI_LoadMenuPos();
3831   end;
3832 end;
3833
3834 end.