TActivePlayer.Damage

procedure Damage(Shooter: Byte; Damage: Integer)
 Shooter: player dealing the damage
 Damage: amount of damage dealt

Description

Injures a player.

Example

var i: byte;
begin
  for i := 1 to 32 do if Players[i].Active then
    Players[i].Damage(i,4000); //kills all active players, BOOYEAH
end;