X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_menu.pas;h=9f7aaaa4c53ea09180d2972a0f3c4428dba66fa5;hb=0b34f8195a84d9aecc7cd9f17fd1902b7723e3b8;hp=fe650785d11a8b34baa3b623089b0788e1b37349;hpb=e452d337f0620b50d8d978b534437b2732134d8f;p=d2df-sdl.git diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas index fe65078..9f7aaaa 100644 --- a/src/game/g_menu.pas +++ b/src/game/g_menu.pas @@ -668,7 +668,6 @@ begin gcMaxLives := StrToIntDef(TGUIEdit(GetControl('edMaxLives')).Text, 0); gcTeamDamage := TGUISwitch(GetControl('swTeamDamage')).ItemIndex = 0; - gcRespawnItems := TGUISwitch(GetControl('swRespawnItems')).ItemIndex = 0; gcDeathmatchKeys := TGUISwitch(GetControl('swDeathmatchKeys')).ItemIndex = 0; gcAllowExit := TGUISwitch(GetControl('swEnableExits')).ItemIndex = 0; gcWeaponStay := TGUISwitch(GetControl('swWeaponStay')).ItemIndex = 0; @@ -676,8 +675,6 @@ begin Options := 0; if gcTeamDamage then Options := Options or GAME_OPTION_TEAMDAMAGE; - if gcRespawnItems then - Options := Options or GAME_OPTION_RESPAWNITEMS; if gcDeathmatchKeys then Options := Options or GAME_OPTION_DMKEYS; if gcAllowExit then @@ -738,7 +735,6 @@ begin NetPort := StrToIntDef(TGUIEdit(GetControl('edPort')).Text, 0); gnTeamDamage := TGUISwitch(GetControl('swTeamDamage')).ItemIndex = 0; - gnRespawnItems := TGUISwitch(GetControl('swRespawnItems')).ItemIndex = 0; gnDeathmatchKeys := TGUISwitch(GetControl('swDeathmatchKeys')).ItemIndex = 0; gnAllowExit := TGUISwitch(GetControl('swEnableExits')).ItemIndex = 0; gnWeaponStay := TGUISwitch(GetControl('swWeaponStay')).ItemIndex = 0; @@ -746,8 +742,6 @@ begin Options := 0; if gnTeamDamage then Options := Options or GAME_OPTION_TEAMDAMAGE; - if gnRespawnItems then - Options := Options or GAME_OPTION_RESPAWNITEMS; if gnDeathmatchKeys then Options := Options or GAME_OPTION_DMKEYS; if gnAllowExit then @@ -1727,7 +1721,16 @@ begin if GameType in [GT_CUSTOM, GT_SERVER] then begin TGUISwitch(menu.GetControl('swTeamDamage')).Enabled := True; - TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := (GameMode in [GM_DM, GM_TDM, GM_CTF]); + if (GameMode in [GM_DM, GM_TDM, GM_CTF]) then + begin + TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := True; + TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_ITEMSTEXT_COLOR; + end + else + begin + TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := False; + TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_UNACTIVEITEMS_COLOR; + end; TGUIEdit(menu.GetControl('edTimeLimit')).Enabled := True; TGUILabel(menu.GetControlsText('edTimeLimit')).Color := MENU_ITEMSTEXT_COLOR; TGUIEdit(menu.GetControl('edGoalLimit')).Enabled := True; @@ -1740,6 +1743,7 @@ begin begin TGUISwitch(menu.GetControl('swTeamDamage')).Enabled := True; TGUISwitch(menu.GetControl('swDeathmatchKeys')).Enabled := False; + TGUILabel(menu.GetControlsText('swDeathmatchKeys')).Color := MENU_UNACTIVEITEMS_COLOR; with TGUIEdit(menu.GetControl('edTimeLimit')) do begin Enabled := False; @@ -2235,16 +2239,6 @@ begin else ItemIndex := 1; end; - with AddSwitch(_lc[I_MENU_RESPAWN_ITEMS]) do - begin - Name := 'swRespawnItems'; - AddItem(_lc[I_MENU_YES]); - AddItem(_lc[I_MENU_NO]); - if gnRespawnItems then - ItemIndex := 0 - else - ItemIndex := 1; - end; with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do begin Name := 'swDeathmatchKeys'; @@ -2455,16 +2449,6 @@ begin else ItemIndex := 1; end; - with AddSwitch(_lc[I_MENU_RESPAWN_ITEMS]) do - begin - Name := 'swRespawnItems'; - AddItem(_lc[I_MENU_YES]); - AddItem(_lc[I_MENU_NO]); - if gcRespawnItems then - ItemIndex := 0 - else - ItemIndex := 1; - end; with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do begin Name := 'swDeathmatchKeys';