SetVest

[J-Factor]

Script Name: SetVest
Script Description: Sets the amount of vest a player has (0 = No vest, 100 = Full vest).
Original Author(s): J-Factor
Core Version: 2.6.3

Code:

Code: [Select]

var
    NoDamage: boolean;

(* Gives a player a certain amount of vest *)
procedure SetVest(ID: Byte; VestAmount: integer);
begin
    GiveBonus(ID, 3);
       
    NoDamage := true;
    DoDamage(ID, 302 - VestAmount*302/100);
    NoDamage := false;
end;

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
    if (NoDamage) then begin
        Result := 0;
    end else begin
        Result := Damage;
    end;
end;Colour formatted version: http://nopaste.com/p/aXHJayH9mb
Zip archive attached.

Notes: You can change the code involving the variable NoDamage but make sure that when DoDamage() is called in SetVest it does no actual damage to the player!. This is because we only want the vest amount to be decreased (which happens no matter what the result of OnPlayerDamage is).

When SetVest is called "Bulletproof Vest!" is drawn on the player's screen. You might want to call DrawText() to replace this text with your own after setting someone's vest amount.

[DorkeyDear]

Nice
Is VestAmount like a % or the same intervals as normal for vest (whatever that is)?

[J-Factor]

Is VestAmount like a % or the same intervals as normal for vest (whatever that is)?

Same intervals. Vest goes from 0 to 100 normally, while health goes from 0 to 150. I haven't tested this with realistic mode yet (which has health from 0 to 65) but it should work.

Just so you know, when you have any amount of vest (between 1 and 100) you only take a quarter of any damage you receive while you vest amount takes a third of whatever damage you receive.

E.g. You have 100 health and 50 vest. If you were hit with 12 damage you would be left with 97 health (100 - 12/4) and 46 vest (50 - 12/3).

[EnEsCe]

I see people intentionally ignoring the post template becoming abit of a regularity.

[A Zombie]

What is the command im suppose to type in?

[Boblekonvolutt]

What is the command im suppose to type in?

There is none.

If you want a command for this, put this at the bottom of the code, then you can do /setvest player amount (/setvest 1 50)

Code: [Select]

function OnCommand(ID: byte; Text: string): boolean;
begin
  if lowercase(GetPiece(Text, ' ', 0)) = '/setvest' then
    SetVest(StrToInt(GetPiece(Text, ' ', 1)), StrToInt(GetPiece(Text, ' ', 2)));
end;

[A Zombie]

Thx Bob

[mikembm]

For Those of you that don't like unneeded global variables and like less lines of code, here is an alternative way to do this:

Code: [Select]

procedure SetVest(ID: Byte; VestAmount: integer);
begin
    GiveBonus(ID, 3);
    While GetPlayerStat(ID, 'Vest') < VestAmount do DoDamage(ID, 2);
end;

How does this work?
A damage of 2 is just enough to decrease the vest amount by 1 but not enough to do damage to the player.


I typed this out without testing but it should work.