X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_menu.pas;h=b4a4dfd4095fa077ebe7f4ef9b6e80d183abaa48;hb=6af04febaefa3715e0dd42083a781df9b7f5e54e;hp=ed4e25dc7b89ab84452ae47b199b02164aa80384;hpb=94590b18ecb2eeb8b0527d1eee20c7f85ada60b7;p=d2df-sdl.git

diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index ed4e25d..b4a4dfd 100644
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -743,6 +743,8 @@ begin
     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
@@ -2372,6 +2374,16 @@ begin
       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';
@@ -2415,8 +2427,8 @@ begin
     with AddSwitch(_lc[I_MENU_ENABLE_RULEZ_RANDOM]) do
     begin
       Name := 'swRulezRandom';
-      AddItem(_lc[I_MENU_NO]);
       AddItem(_lc[I_MENU_YES]);
+      AddItem(_lc[I_MENU_NO]);
       if LongBool(gsGameFlags and GAME_OPTION_RULEZRANDOM) then
         ItemIndex := 0
       else
@@ -2639,6 +2651,16 @@ begin
       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';
@@ -2682,8 +2704,8 @@ begin
     with AddSwitch(_lc[I_MENU_ENABLE_RULEZ_RANDOM]) do
     begin
       Name := 'swRulezRandom';
-      AddItem(_lc[I_MENU_NO]);
       AddItem(_lc[I_MENU_YES]);
+      AddItem(_lc[I_MENU_NO]);
       if LongBool(gsGameFlags and GAME_OPTION_RULEZRANDOM) then
         ItemIndex := 0
       else