Help, team mover!

[shantec]

I tried to make team mover. Basicly it moves you back to Alpha when you try to go Bravo. This is what i've made this far, but it wont freakin work.

procedure OnPlayerRespawn(ID:Byte);
begin
if ((GetPlayerStat(ID,'Team') = 2 then begin
  WriteConsole(ID, 'Wrong team, moving you to team Alpha', $90C2A0);
  Command('/setteam2 '+IntToStr(ID));
end;

Edit edit... mods please move... i always manage to put these topics in wrong places x.X

[BombSki]

OnJoinTeam?

[JFK]

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
begin
  if Team=2 then begin
    WriteConsole(ID, 'Wrong team, moving you to team Alpha', $90C2A0);
    Command('/setteam1' +inttostr(ID));
  end;
end;

You'd probably want OnjoinTeam, you forgot an 'end' (that's why it wouldn't work) and i would make it setteam1, else it will be a nasty loop.
and posted in the wrong forum, but ok..   

[Boblekonvolutt]

Should be...

Code: [Select]

Command('/setteam1 ' + inttostr(ID));