Difference between revisions of "TActivePlayer.OnVoteKick"
m (→Example) |
m (→Example) |
||
| Line 9: | Line 9: | ||
==Example== | ==Example== | ||
| − | Example makes players say "Voted!" when they hit F12. | + | Example makes players say "Voted Yes!" when they hit F12. |
<syntaxhighlight lang="pascal"> | <syntaxhighlight lang="pascal"> | ||
procedure OnVoteMessage(Player, Victim: TActivePlayer); | procedure OnVoteMessage(Player, Victim: TActivePlayer); | ||
Latest revision as of 23:18, 25 September 2013
property OnVoteKick Access mode: RW Event handler type: TOnVoteKickEvent Event handler declaration: procedure (Player, Victim: TActivePlayer)
Description
Event property called when a player hits F12 during a kick vote. F11 (No) votes are ignored.
Example
Example makes players say "Voted Yes!" when they hit F12.
procedure OnVoteMessage(Player, Victim: TActivePlayer);
begin
Player.Say('Voted Yes!');
end;
var
i: Byte;
begin
for i:=1 to 32 do
Players[i].OnVoteKick := @OnVoteMessage;
end.
