anchor.diff:    H: TKMHouse;
     W: TKMUnitWarrior;
     OldSelected: TObject;
  +  I: Integer;
   begin
     inherited;
   
  
positive.code:                     cm_Wine:  if KMSamePoint(LastDragPoint,KMPoint(0,0)) then fGame.GameInputProcess.CmdBuild(gic_BuildAddFieldPlan, P, ft_Wine);
                      cm_Wall:  fGame.GameInputProcess.CmdBuild(gic_BuildAddFieldPlan, P, ft_Wall);
                      cm_Houses:if MyPlayer.CanAddHousePlan(P, THouseType(GameCursor.Tag1)) then
                                begin
                                  fGame.GameInputProcess.CmdBuild(gic_BuildHousePlan, P, THouseType(GameCursor.Tag1));
                                  Build_ButtonClick(Button_BuildRoad);
                                end
                                else
                                  fSoundLib.Play(sfx_CantPlace,P,false,4.0);
                      cm_Erase: if KMSamePoint(LastDragPoint,KMPoint(0,0)) then
                                begin
                                  H := MyPlayer.HousesHitTest(P.X, P.Y);
  
negative.code:     for T := Low(TKMTabButtons) to High(TKMTabButtons) do Button_Main[T].Visible := ShowEm;
      Button_Back.Visible := not ShowEm;
      Label_MenuTitle.Visible := not ShowEm;
  
    end;
  
  begin
  