Invincibility for Cappers

[DorkeyDear]

Script Name: Invincibility for Cappers
Script Description: Every time you capture the flag, you gain 1 more chance to use the invincibility command, which lasts for a specified amount of time.
Original Author: Curt
Core Version: 2.6.2
Code:

Code: [Select]

const
  Color = $FFFFFFFF;
  Time = 10;

var
  InvinCount, Invincable: array[1..32] of byte;

procedure AppOnIdle(Ticks: integer);
var
  i: byte;
begin
  for i := 1 to 32 do if Invincable[i] > 0 then begin
    Invincable[i] := Invincable[i] - 1;
    if Invincable[i] = 0 then WriteConsole(i,'You are no longer invincable.',Color);
  end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
  if (Text = '/inv') or (Text = '/invin') or (Text = '/invincible') or (Text = '/invincibility') then begin
    if Invincable[ID] = 0 then begin
      if InvinCount[ID] > 0 then begin
        InvinCount[ID] := InvinCount[ID] - 1;
        Invincable[ID] := Time;
        WriteConsole(ID,'You are now invincible for ' + InttoStr(Time) + ' second' + iif(Time = 1,'','s') + '.',Color);
      end else WriteConsole(ID,'You do not have enough remaining captures available.',Color);
    end else WriteConsole(ID,'You are already invincible.',Color);
  end;
end;

procedure OnFlagScore(ID, TeamFlag: byte);
begin
  InvinCount[ID] := InvinCount[ID] + 1;
end;

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
  if Invincable[Victim] = 0 then Result := Damage else Result := 0;
end;_{In request from Ttil_Np.csWoW}

[Ttil_Np.csWoW]

You are amazing!

[Toumaz]

Err, again:

If you really want to have the player completely invincible you need to set the Result in OnPlayerDamage to a relatively big negative value; or else the player will die from explosives.

If you set Result to 0 the player can still die from direct hits from M79 shells and LAW rockets; -4000 works just fine.

[DorkeyDear]

I still use 0 sense doing -4000 would basically heal him, and if he was initially hurt, then the player would be healed, and sense this is for a climb server (i think), it would probably be better to have it 0 than -4000 or whatever sense there are no m79s or LAWs.

[miketh2005]

thanx, I'll implement this on my server now...