diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index 39da0203a5cd3b4ee9eaa5ba59a9e61086a117ea..8da0b63c93a5c66826098e2965a5b060264917c1 100644 (file)
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
gsGameFlags := 0;
if TGUISwitch(GetControl('swTeamDamage')).ItemIndex = 0 then
gsGameFlags := gsGameFlags or GAME_OPTION_TEAMDAMAGE;
+ if TGUISwitch(GetControl('swTeamAbsorbDamage')).ItemIndex = 0 then
+ gsGameFlags := gsGameFlags or GAME_OPTION_TEAMABSORBDAMAGE;
if TGUISwitch(GetControl('swDeathmatchKeys')).ItemIndex = 0 then
gsGameFlags := gsGameFlags or GAME_OPTION_DMKEYS;
if TGUISwitch(GetControl('swEnableExits')).ItemIndex = 0 then
else
ItemIndex := 3;
end;
+ with AddSwitch(_lc[I_MENU_ENABLE_TEAM_DAMAGE_ABSOBR]) do
+ begin
+ Name := 'swTeamAbsorbDamage';
+ AddItem(_lc[I_MENU_YES]);
+ AddItem(_lc[I_MENU_NO]);
+ if LongBool(gsGameFlags and GAME_OPTION_TEAMABSORBDAMAGE) then
+ ItemIndex := 0
+ else
+ ItemIndex := 1;
+ end;
with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do
begin
Name := 'swDeathmatchKeys';
else
ItemIndex := 3;
end;
+ with AddSwitch(_lc[I_MENU_ENABLE_TEAM_DAMAGE_ABSOBR]) do
+ begin
+ Name := 'swTeamAbsorbDamage';
+ AddItem(_lc[I_MENU_YES]);
+ AddItem(_lc[I_MENU_NO]);
+ if LongBool(gsGameFlags and GAME_OPTION_TEAMABSORBDAMAGE) then
+ ItemIndex := 0
+ else
+ ItemIndex := 1;
+ end;
with AddSwitch(_lc[I_MENU_DEATHMATCH_KEYS]) do
begin
Name := 'swDeathmatchKeys';