Mighty: /* Example */

2013-07-24T12:33:51Z

‎Example

Mighty: new page

2013-07-24T12:24:22Z

new page

New page

''procedure '''Add'''(Player: [[TPlayer]])''
Player: a Player that is supposed to be added to the Team

==Description==
Adds a player to Team's players list.<br>
Changes player's team in game

==Example==
Example shown will move all players in Red team to Blue team.
<syntaxhighlight lang="pascal">
var
i: byte;
p: TPlayer;
begin
for i := 0 to Team[1].Count - 1 do
begin
p := Team[1].Player[i];
Team[2].Add(p);
end;
end;
</syntaxhighlight>

[[Category:TActivePlayer]]

@@ Line 9: / Line 9: @@
 Example shown will move all players in Red team to Blue team.
 <syntaxhighlight lang="pascal">
 var
-  i: byte;
+   p: TPlayer; // not needed, added for clarity
 begin
-   for i := 0 to Team[1].Count - 1 do
+   while Team[1].Count > 0 do
    begin
-     p := Team[1].Player[i];
+     p := Team[1].Player[0];
      Team[2].Add(p);
    end;
@@ Line 21: / Line 20: @@
 </syntaxhighlight>
-[[Category:TActivePlayer]]
+[[Category:TTeam]]

TTeam.Add - Revision history

Mighty: /* Example */

Mighty: new page