anchor.diff:    KM_Utils, KM_ResLocales, KM_ResSound, KM_Resource, KM_Log, KM_ResCursors, KM_ResFonts, KM_ResKeys,
     KM_ResSprites, KM_ResUnits, KM_ResWares, KM_FogOfWar, KM_Sound, KM_NetPlayersList, KM_MessageLog, KM_NetworkTypes;
   
  +const ALLIES_ROWS = 6;
  +      PANEL_ALLIES_WIDTH = 810;
  +
   
   procedure TKMGamePlayInterface.Menu_Save_ListChange(Sender: TObject);
   begin
  
positive.code: { Allies page }
  procedure TKMGamePlayInterface.Create_Allies;
  var I,K: Integer;
  const ROWS = 6;
        PANEL_ALLIES_WIDTH = 810;
  begin
    Panel_Allies := TKMPanel.Create(Panel_Main, TOOLBAR_WIDTH, Panel_Main.Height - MESSAGE_AREA_HEIGHT - 25, PANEL_ALLIES_WIDTH, MESSAGE_AREA_HEIGHT + 25);
    Panel_Allies.Anchors := [anLeft, anBottom];
  
negative.code: 
      for I := 0 to MAX_LOBBY_SLOTS - 1 do
      begin
        if (I mod ALLIES_ROWS) = 0 then // Header for each column
        begin
          TKMLabel.Create(Panel_Allies, 80+(I div ALLIES_ROWS)*380, 60, 140, 20, gResTexts[TX_LOBBY_HEADER_PLAYERS], fnt_Outline, taLeft);
          TKMLabel.Create(Panel_Allies, 230+(I div ALLIES_ROWS)*380, 60, 140, 20, gResTexts[TX_LOBBY_HEADER_TEAM], fnt_Outline, taLeft);
          TKMLabel.Create(Panel_Allies, 360+(I div ALLIES_ROWS)*380, 60, gResTexts[TX_LOBBY_HEADER_PINGFPS], fnt_Outline, taCenter);
        end;
        Image_AlliesMute[I] := TKMImage.Create(Panel_Allies, 45+(I div ALLIES_ROWS)*380, 82+(I mod ALLIES_ROWS)*20, 11, 11, 0, rxGuiMain);
        Image_AlliesMute[I].OnClick := Allies_Mute;
        Image_AlliesMute[I].Tag := I;
        Image_AlliesMute[I].HighlightOnMouseOver := True;
        Image_AlliesMute[I].Hide;
  
        Image_AlliesFlag[I] := TKMImage.Create(Panel_Allies,     60+(I div ALLIES_ROWS)*380, 82+(I mod ALLIES_ROWS)*20, 16,  11,  0, rxGuiMain);
        Label_AlliesPlayer[I] := TKMLabel.Create(Panel_Allies,   80+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, 140, 20, '', fnt_Grey, taLeft);
        Label_AlliesTeam[I]   := TKMLabel.Create(Panel_Allies,   230+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, 120, 20, '', fnt_Grey, taLeft);
        DropBox_AlliesTeam[I] := TKMDropList.Create(Panel_Allies,230+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, 120, 20, fnt_Grey, '', bsGame);
        DropBox_AlliesTeam[I].Hide; // Use label for demos until we fix exploits
        DropBox_AlliesTeam[I].Add('-');
        for K := 1 to 4 do DropBox_AlliesTeam[I].Add(IntToStr(K));
        DropBox_AlliesTeam[I].OnChange := AlliesTeamChange;
        DropBox_AlliesTeam[I].DropUp := True; // Doesn't fit if it drops down
        Label_AlliesPing[I] :=          TKMLabel.Create(Panel_Allies, 347+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, '', fnt_Grey, taRight);
        Label_AlliesPingFpsSlash[I] :=  TKMLabel.Create(Panel_Allies, 354+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, '', fnt_Grey, taCenter);
        Label_AlliesFPS[I] :=           TKMLabel.Create(Panel_Allies, 361+(I div ALLIES_ROWS)*380, 80+(I mod ALLIES_ROWS)*20, '', fnt_Grey, taLeft);
      end;
  
      Image_AlliesClose:=TKMImage.Create(Panel_Allies,PANEL_ALLIES_WIDTH-98,24,32,32,52,rxGui);
  