Script of renewal of health

[Detector]

Script of renewal of health,
I think this is sometimes better then just god script.

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin
   if Ticks mod (60 * 1) = 0 then begin
     DoDamage(NameToID('The Wasted!Det'),-10);
   end;
end;

[xmRipper]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if (Text = '!renewal') then
  DoDamage(ID,-(150-GetPlayerStat(ID,'Health')));
end;

[Detector]

No, i mean after some damage health will restore Automatically.
How to do that?

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if (Text = '!renewal') then
  DoDamage(ID,-(150-GetPlayerStat(ID,'Health')));
end;

   

Hexer server is use this script too)

[Avarax]

Code: [Select]

procedure AppOnIdle(Ticks: integer)
var i: byte;
begin
  for  i:=1 to 32 do
    DoDamage(i,-3);
end;

this will restore 2% health for each player each second.

[Detector]

wow, thank you!!!


Date Posted: 22 June 2007, 08:22:49how i can do that Health will restore for current player?

[FliesLikeABrick]

I'm moving this out of Scripting Releases

[Avarax]

what do you mean by current player?

[Detector]

I did it already, thank you for help.

I mean this

Code: [Select]

procedure AppOnIdle(Ticks: integer);
begin
   if Ticks mod (60 * 1) = 0 then begin
     DoDamage(NameToID('The Wasted!Det'),-10);
   end;
end;
FliesLikeABrick
Please move it back, the question is closed/