Difference between revisions of "TActivePlayer.OnDamage"

From Soldat Community Wiki
Jump to: navigation, search
m
m (Example)
Line 10: Line 10:
 
Example ignores all damage dealt, players become invincible.
 
Example ignores all damage dealt, players become invincible.
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
function OnDamageZero(Shooter, Victim: TActivePlayer; Damage: Integer; WeaponType: Byte): Integer
+
function OnDamageZero(Shooter, Victim: TActivePlayer; Damage: Integer; BulletID: Byte): Integer
 
begin
 
begin
 
   Result := 0;
 
   Result := 0;

Revision as of 13:27, 9 August 2013

property OnDamage
 Access mode: RW
 Event handler type: TOnDamageEvent
 Event handler declaration: function (Shooter, Victim: TActivePlayer; Damage: Integer; BulletID: Byte): Integer

Description

Event property called when a player is hurt, whether from a killing poly, bullet or command.

Example

Example ignores all damage dealt, players become invincible.

function OnDamageZero(Shooter, Victim: TActivePlayer; Damage: Integer; BulletID: Byte): Integer
begin
  Result := 0;
end;

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