teamchange script

[Nubism]

can anyone make/give me a script that changes everyone to red who trys to join beta or delta?

can be arsse or a serverscript
but arsse would be better 

[jrgp]

This little script might do the trick.

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
begin

if Team > 2 then
begin
Command('/setteam1 '+inttostr(ID));
end;

end;

[DorkeyDear]

Beta team?

Code: [Select]

procedure OnJoinTeam(Id, Team: byte);
begin
  if ((Team <> 1) and (Team <> 5)) then Command('/setteam1 ' + InttoStr(Id));
end;forces players to be on alpha if joining a non alpha, non spectator team

[Nubism]

thank u very much guys, i didn't tested it yet
but a old 1.3.1 said me that he would like to get the script too
and i said that i'll request it here to dont let him make another topic.

~>can anyone give a script for arsse or 1.3.1 so please?