Difference between revisions of "TTeam.OnJoin"
m (→Example) |
m (→Example) |
||
Line 22: | Line 22: | ||
begin | begin | ||
− | // assign | + | // assign OnJoinTeam handler |
Game.Teams[1].OnJoin := @MyOnJoinTeamHandler; | Game.Teams[1].OnJoin := @MyOnJoinTeamHandler; | ||
Revision as of 13:28, 26 July 2013
property OnJoin Access mode: RW Event handler type: TOnJoinTeamEvent Event handler declaration: procedure (Player: TPlayer; Team: TTeam);
Description
Event property called when any player leaves the server or gets kicked/banned.
Example
procedure MyOnJoinTeamHandler(Player: TActivePlayer; Team: TTeam);
begin
if Team.ID = 2 then
begin
Player.Team := 1;
Player.Tell('Sorry, you can''t join Bravo Team');
end;
end;
// ...
begin
// assign OnJoinTeam handler
Game.Teams[1].OnJoin := @MyOnJoinTeamHandler;
// ...
// unassign
Game.Teams[1].OnJoin := nil;
end;