Locking 1 team on CTF?

[Kitty]

Is there a script around that allows you to lock Bravo team so only Alpha team can be joined by players? Or could someone make something like that? 

[BRADEN]

This kicks players if they join Bravo.

Code: [Select]

//UNTESTED!
procedure OnJoinTeam(ID, Team: byte);
begin
if (GetPlayerStat(ID,'team')) = 2 then begin
KickPlayer(ID);
end;

[xmRipper]

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
begin
  if (GetPlayerStat(ID, 'Team') = 2) and (GetPlayerStat(ID, 'Human') = True) then Command('/setteam1 '+IntToStr(ID));
end;