add r_interp to video settings menu

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index 0231bc8c5858249a2d24586d2772aacd879cb359..ca0bea81dcbceb186b04afd137886b03d74542a6 100644 (file)
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -7224,7 +7224,6 @@ end;
 procedure SystemCommands(P: SSArray);
 var
   cmd: string;
-  a: Integer;
 begin
   cmd := LowerCase(P[0]);
   case cmd of

diff --git a/src/game/g_language.pas b/src/game/g_language.pas
index 5a24323de0c66ce0f989a100c9a60672d926c1eb..dc216c9a8306238f9c31ce4831e0962c30df63a3 100644 (file)
--- a/src/game/g_language.pas
+++ b/src/game/g_language.pas
@@ -275,6 +275,7 @@ type
     I_MENU_VIDEO_VSYNC,
     I_MENU_VIDEO_FILTER_SKY,
     I_MENU_VIDEO_LEGACY_COMPATIBLE,
+    I_MENU_VIDEO_INTERPOLATION,
     I_MENU_VIDEO_NEED_RESTART,
 
     I_MENU_RESOLUTION_SELECT,
@@ -1142,8 +1143,10 @@ const
                                        'Ôèëüòðàöèÿ íåáà:'),
     ('MENU VIDEO LEGACY COMPATIBLE',   'Force compatibility with NPOT textures:',
                                        'Ýìóëÿöèÿ NPOT-òåêñòóð:'),
-    ('MENU VIDEO NEED RESTART',        'Video settings will be changed after game restart.',
-                                       'Äàííûå íàñòðîéêè âèäåî âñòóïÿò â ñèëó ïîñëå ïåðåçàïóñêà èãðû.'),
+    ('MENU VIDEO INTERPOLATION',       'Motion interpolation:',
+                                       'Èíòåðïîëÿöèÿ äâèæåíèÿ:'),
+    ('MENU VIDEO NEED RESTART',        'Some video settings will be changed after game restart.',
+                                       'Íåêîòîðûå íàñòðîéêè âèäåî âñòóïÿò â ñèëó ïîñëå ïåðåçàïóñêà èãðû.'),
 
     ('MENU RESOLUTION SELECT',         'SET VIDEO MODE',
                                        'ÓÑÒÀÍÎÂÊÀ ÂÈÄÅÎÐÅÆÈÌÀ'),

diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index d409cc6f484bcb9974ec707452c7ea19b3fc9cc2..c56d6e821bd6d7224387c6ae68a434b4b0b2cce9 100644 (file)
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -124,6 +124,7 @@ begin
 
   gTextureFilter := TGUISwitch(menu.GetControl('swTextureFilter')).ItemIndex = 0;
   glNPOTOverride := not (TGUISwitch(menu.GetControl('swLegacyNPOT')).ItemIndex = 0);
+  gLerpActors := TGUISwitch(menu.GetControl('swInterp')).ItemIndex = 0;
 
   menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu'));
 
@@ -400,6 +401,9 @@ begin
   with TGUISwitch(menu.GetControl('swLegacyNPOT')) do
     if not glNPOTOverride then ItemIndex := 0 else ItemIndex := 1;
 
+  with TGUISwitch(menu.GetControl('swInterp')) do
+    if gLerpActors then ItemIndex := 0 else ItemIndex := 1;
+
   menu := TGUIMenu(g_GUI_GetWindow('OptionsSoundMenu').GetControl('mOptionsSoundMenu'));
 
   TGUIScroll(menu.GetControl('scSoundLevel')).Value := Round(gSoundLevel/16);
@@ -2642,6 +2646,12 @@ begin
       AddItem(_lc[I_MENU_YES]);
       AddItem(_lc[I_MENU_NO]);
     end;
+    with AddSwitch(_lc[I_MENU_VIDEO_INTERPOLATION]) do
+    begin
+      Name := 'swInterp';
+      AddItem(_lc[I_MENU_YES]);
+      AddItem(_lc[I_MENU_NO]);
+    end;
     with AddSwitch(_lc[I_MENU_VIDEO_LEGACY_COMPATIBLE]) do
     begin
       Name := 'swLegacyNPOT';