Difference between revisions of "TActivePlayer.OnVoteKick"
(→Example) |
m (→Example) |
||
| Line 13: | Line 13: | ||
procedure OnVoteMessage(Player, Victim: TActivePlayer); | procedure OnVoteMessage(Player, Victim: TActivePlayer); | ||
begin | begin | ||
| − | Player.Say('Voted!'); | + | Player.Say('Voted Yes!'); |
end; | end; | ||
Revision as of 23:17, 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!" 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.
