Total Members Voted: 10
0 Members and 1 Guest are viewing this topic.
Anyone that says that this could be scripted should provide a script doing so.
[Team0]Balance=0-Priority=0MaxPlayers=0[Team1]Balance=0-Priority=1MaxPlayers=1[Team2]Balance=0-Priority=1MaxPlayers=1[Team3]Balance=0-Priority=0MaxPlayers=0[Team4]Balance=0-Priority=0MaxPlayers=0[Team5]Balance=0Priority=2MaxPlayers=32
procedure OnJoinTeam(ID, Team: byte);begin if Team = 1 then begin if AlphaPlayers < 1 then command('/setteam1 '+Inttostr(ID)); end else if Team = 2 then begin if BravoPlayers < 1 then command('/setteam2 '+Inttostr(ID)); end;end;
procedure OnJoinGame(ID, Team: Byte);begin if (NumPlayers - Spectators) > 2 then Command('/setteam5 ' + IntToStr(ID));end;procedure OnPlayerSpeak(ID: Byte; Text: String);begin if Text = '!join' then if (NumPlayers - Spectators) < 2 then Command('/setteam0 ' + IntToStr(ID));end;
Chutem, that won't actually do anything.
Code: [Select]procedure OnJoinTeam(ID, Team: byte);begin if Team = 1 then begin if AlphaPlayers < 1 then command('/setteam1 '+Inttostr(ID)); end else if Team = 2 then begin if BravoPlayers < 1 then command('/setteam2 '+Inttostr(ID)); end;end;
Quote from: chutem on February 07, 2009, 01:02:56 amCode: [Select]procedure OnJoinTeam(ID, Team: byte);begin if Team = 1 then begin if AlphaPlayers < 1 then command('/setteam1 '+Inttostr(ID)); end else if Team = 2 then begin if BravoPlayers < 1 then command('/setteam2 '+Inttostr(ID)); end;end;If a player joins alpha, then it will set team to alpha, if a player joins bravo, then it will set team to bravo. Nothing else, so it doesn't limit anything.
procedure OnJoinTeam(ID, Team: byte);begin if Team = 1 then begin if AlphaPlayers > 1 then command('/setteam5 '+Inttostr(ID)); end else if Team = 2 then begin if BravoPlayers > 1 then command('/setteam5 '+Inttostr(ID)); end;end;