A semi-transparent layer in front of players

[Runny]

Hello!

I've been playing on Last Stand server today, and we made to the Satan. Right before it appears, the gravity is changing randomly and there's a red pulsating semi-transparent animation all over the screen. How did the author code it?

[Hacktank]

It is a very large scale drawtext such as this for the pulsing:

Code: [Select]

drawtext(ID,'|',300,$55ffffff,10,320,240);
The 55 in $55ffffff controls the transparency, 0-f.

For the gravity:
Read this.

[tk]

Code: (pascal) [Select]

var
  EQcounter: byte;

procedure EarthQuake();
begin
  EQcounter := 8;
end;

procedure ProcessEQ();
var n, m: byte;
begin
EQcounter:=EQcounter-1;
if EQcounter = 0 then begin
ServerModifier('Gravity',0.06);
exit;
end;
m := Random(1,4);
for n := 1 to m * 2 do begin
if n mod 2 = 1 then
currentgravity:=-Random(9,12)*(1+n/2)/50
else
currentgravity:=Random(9,11)/50;
ServerModifier('Gravity',currentgravity);
if n < m*2 then Sleep(120);
end;
DrawText(0,'XXX',71,$320000,35,-3000,-3000);
end;

procedure AppOnIdle(t: integer);
begin
  if EQcounter > 0 then ProcessEQ();
end;

[Runny]

I knew how to do gravity, but had no idea, how to make this "layer". Thanks!

It can be nicely used with OnPlayerDamage.

[dnmr]

I knew how to do gravity, but had no idea, how to make this "layer". Thanks!

It can be nicely used with OnPlayerDamage.

now that would be just annoying