X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_menu.pas;h=ed6d3ef3261cb8bb9e655389d5e29dddadcae2cd;hp=c6910e749465d055572696be93cdbad1d1f014b8;hb=251b8e917e5ec31d8fc2d0f0f98a427d37eb6946;hpb=1eb8b9c599c59d9cdb36f68bb1ca176b86a0dc80

diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas
index c6910e7..ed6d3ef 100644
--- a/src/game/g_menu.pas
+++ b/src/game/g_menu.pas
@@ -441,7 +441,7 @@ end;
 procedure ReadOptions();
 var
   menu: TGUIMenu;
-  i, a: Integer;
+  i: Integer;
 begin
   menu := TGUIMenu(g_GUI_GetWindow('OptionsVideoMenu').GetControl('mOptionsVideoMenu'));
 
@@ -2187,7 +2187,7 @@ procedure CreateAllMenus();
 var
   Menu: TGUIWindow;
   //SR: TSearchRec;
-  a, cx, _y, i, x: Integer;
+  a, cx, _y, i: Integer;
   //list: SSArray;
 begin
   Menu := TGUIWindow.Create('MainMenu');