TActivePlayer.OnFlagDrop

property OnFlagDrop
 Access mode: RW
 Event handler type: TOnFlagDropEvent
 Event handler declaration: procedure (Player: TActivePlayer; Flag: TActiveFlag; Team: Byte; Thrown: Boolean);

Description

Event property called when a player throws or drops an enemy flag

Example

Example kills a player whenever he throws a flag.

procedure OnFlagDropKill(Player: TActivePlayer; Flag: TActiveFlag; Team: Byte; Thrown: Boolean);
begin
  if Thrown then
    Player.Alive := FALSE;
end;

var 
  i: Byte;
  
begin
  for i:=1 to 32 do
    Players[i].OnFlagDrop := @OnFlagDropKill;
end.