TTeam.OnJoin - Revision history

Mighty: Export fix (1.6.6b)

2013-09-09T15:25:39Z

Export fix (1.6.6b)

Mighty: /* Example */

2013-08-04T20:23:32Z

‎Example

Falcon: /* Example */

2013-07-29T12:52:32Z

‎Example

Mighty: /* Description */

2013-07-26T12:31:49Z

‎Description

Mighty: /* Example */

2013-07-26T12:28:43Z

‎Example

Mighty: /* Example */

2013-07-26T12:28:02Z

‎Example

Mighty: new page

2013-07-26T12:24:15Z

new page

New page

'''''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.
<br>

==Example==
<syntaxhighlight lang="pascal">
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 OnJoinTean handler
Game.Team[1].OnJoin := @MyOnJoinTeamHandler;

// ...

// unassign
Game.Team[1].OnJoin := nil;
end;
</syntaxhighlight>

[[Category:TTeam]][[Category:Events]]

@@ Line 22: / Line 22: @@
   begin
-    // assign OnJoinTean handler
+    // assign OnJoinTeam handler
     Game.Teams[1].OnJoin := @MyOnJoinTeamHandler;

@@ Line 2: / Line 2: @@
    Access mode: RW
    Event handler type: [[TOnJoinTeamEvent]]
-   Event handler declaration: procedure (Player: [[TPlayer]]; Team: [[TTeam]]);
+   Event handler declaration: procedure (Player: [[TActivePlayer]]; Team: [[TTeam]]);
 ==Description==

@@ Line 10: / Line 10: @@
 ==Example==
 <syntaxhighlight lang="pascal">
-  procedure MyOnJoinTeamHandler(Player: TActivePlayer; Team: TTeam);
+  procedure MyOnJoinTeamHandler(temp: TPlayer; Team: TTeam);
   begin
     Player.Team := 1;
     Player.Tell('Sorry, you can''t join Bravo Team');

@@ Line 12: / Line 12: @@
   procedure MyOnJoinTeamHandler(Player: TActivePlayer; Team: TTeam);
   begin
-    if Team.ID = 2 then
+    Player.Team := 1;
-   begin
+   Player.Tell('Sorry, you can''t join Bravo Team');
   end;
@@ Line 23: / Line 20: @@
   begin
     // assign OnJoinTeam handler
-    Game.Teams[1].OnJoin := @MyOnJoinTeamHandler;
+    Game.Teams[2].OnJoin := @MyOnJoinTeamHandler;
     // ...
     // unassign
-    Game.Teams[1].OnJoin := nil;
+    Game.Teams[2].OnJoin := nil;
   end;
 </syntaxhighlight>
 [[Category:TTeam]][[Category:Events]]

@@ Line 5: / Line 5: @@
 ==Description==
-Event property called when any player leaves the server or gets kicked/banned.
+Event property called when a player tries to change team
 <br>