Add TBonus RW

[BaneOfDeath]

Add for scriptcore 3 Tactiveplayer.Tbonus RW.

Tbonus:
- BonusID
- BonusTime
- Additional (If berserk a percentage of the additional damage, If predator percentage transparency, if cluster number of grenades, If vest the value of the vest, IF medkit the value of treatment, If granadekit number of grenades)

Example write use:

Code: [Select]

  var
    NewBonus: TNewBonus;
  begin
    NewBonus := TNewBonus.Create;
    try
      NewBonus.ID := 1; //Predator
      NewBonus.Time := 15; //15 seconds
      NewBonus.Additional := 90; //Transparency player 90%
      Players[ID].AddBonus(NewBonus); //Assign bonus
    finally
      NewBonus.Free;
    end;
  end;
TActivePlayer.TBonus
Example read/write use:

Code: [Select]

//Write
players[ID].Bonus[1].Time:=20;

//Read
var
PredTime:integer;

PredTime:=players[ID].Bonus[1].Time;

[rOy]

Who are you?

http://wiki.soldat.pl/index.php/Main_Page

Stop trolling please

[JotEmI]

Besides the fact that it's probably another one of dominikk's accounts and that it should go here it's not a bad idea.
Problem is, as far as I know, that things like predator duration or berserk bonus damage are hard coded into the source code.

[ExHunter]

Yes, it is him. Also he spams me with PMs and creates multiple threads here in forums.

If we would keep everything in one place, that would be nice.

I will look into this anyways. :p