Mine

// inf enhancer v0.1

var
score [1..2]: array of integer
  alphaplayer: integer;


procedure MoveAllToBravo();
var i: Integer;
begin
  alphaplayer := 0;
  
// First, check if there are any alpha players and select the first one
for i := 1 to 32 do
if (GetPlayerStat(i,'Active') = true) and (GetPlayerStat(i,'Team') = 1) and alphaplayer = 0 then
alphaplayer := i;
break;
end;

  // Looping through players to put them all on blue team
for i := 1 to 32 do
if (GetPlayerStat(i,'Active') = true) and (GetPlayerStat(i,'Team') = 1) and alphaplayer <> i then
Command('/setteam2 ' + inttostr(i));
end;


for i := 1 to 32 do
if (GetPlayerStat(i,'Active') = true) and (GetPlayerStat(i,'Team') = 2) and alphaplayer = 0 then
alphaplayer := i;
Command('/setteam1 ' + inttostr(i));
break;
end;

end;


procedure OnFlagScore(ID, TeamFlag: Byte);
begin
  // if its alpha flag
  if TeamFlag = 2 then
    MoveAllToBravo();
  
end;


// This will run every time a player is killed
procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
var i: byte;
begin
  // if the victim is on team two, move to team one
  if GetPlayerStat(Victim, 'Team') = 2 then begin
    score[2] := BravoScore; // saving bravo score
    Command('/setteam1 ' + IntToStr(Victim));

    // When all Bravo players killed
    if BravoPlayers = 0 then begin
      SetTeamScore(1, AlphaScore + 25); // add score to alpha
      MoveAllToBravo(); // 
      
    end;
    
  end;
  
end;