TActivePlayer.OnWeaponChange

property OnWeaponChange
 Access mode: RW
 Event handler type: TOnWeaponChangeEvent
 Event handler declaration: procedure (Player: TActivePlayer; Primary, Secondary: TPlayerWeapon);

Description

Bug: (#582) [2.7.8.b1] Primary's or Secondary's properties other than WType do not hold valuable data. Name is empty, BulletStyle always 0, Ammo always 0

Event property called whenever a player's weapons (excluding grenades) change

Event	Is OnWeaponChange triggered
Re-spawn	yes
Throwing weapon	yes
Changing weapons	yes
Changing weapons when 2 equipped weapons are the same type	no

Example

Expand with: Better example

Example sends player a message whenever he changes weapons.

procedure OnWepChangeMessage(Player: TActivePlayer; Primary, Secondary: TPlayerWeapon);
begin
  Player.Tell(Primary.Name + ' | ' + Secondary.Name);
end;

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