function OnDamage(s, v: TActivePlayer; d: Integer; WeaponType: Byte): Integer;
begin
    WriteLn('Damage WType: '+inttostr(WeaponType));
    Result := d;
end;

procedure OnKill(k, v: TActivePlayer; WeaponType: Byte);
begin
    WriteLn('Kill WType: '+inttostr(WeaponType));
end;

var
    i: integer;

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