Ready made: Add Speed to Player ID

[Avarax]

The code...

procedure AddSpeed(ID: byte; VectorX,VectorY,speed: single);[/b]

How to use the parameters:

ID:               Player ID to which the speedbonus shall be given

VectorX,VectorY:  Direction of the speedbonus. Use GetPlayerStat(ID,'VelX') and VelY here as default. 
                  Put a minus infront of both such GetPlayerStat to create a slowing effect.

speed:            Strength of the speedbonus. This is an appropriate value and not absolute. 
                  A negative speed value will make the AddSpeed procedure have no effect.

This procedure also creates a blood effect (because of player being pushed by bullets) that can look a bit weird. This procedure will not work on players with the ID 32. This procedure does little if used once, better use it contineously, like in the code example with AppOnIdle.
Enjoy ~ Avarax

[/i]

[Ali.Man]

you haxx0r!!!!

[xmRipper]

LoL. Interesting script.

[PKS|Shooter]

nice nice

[chutem]

lol

[FliesLikeABrick]

lol

This user was warned for this post

[zop]

Can anyone post this script again plz?
or files?

[UnknownSniper]

lol

This user was warned for this post

Wouldn't it be more logical to PM the user's that are warned, instead of breaking forum rules yourself by also posting off-topic and useless posts?

Anyways, this is a nice script. It'd be used on climb I'm sure.

[rayanaga]

Can anyone post this script again plz?
or files?

Yes, could anyone repost this script?
The link doesn't seem to work.

It seems like a neat little script.

Thanks in advance!

[BondJamesBond]

Link broken..

[UPNPAD]

Code: [Select]

procedure AddSpeed(const ID,owner: byte; VectorX,VectorY,speed: single);
var X,Y,add: single;
begin
  If (VectorX <> 0) or (VectorY <> 0) then begin
    X:=VectorX/sqrt(VectorX*VectorX + VectorY*VectorY);
    Y:=VectorY/sqrt(VectorX*VectorX + VectorY*VectorY);
    add:=20 + speed;
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X + Y * 3,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y + X * 2,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X + Y * 6,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y + X * 4,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X + Y * 9,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y + X * 4,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X - Y * 3,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y - X * 2,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X - Y * 6,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y - X * 4,X * speed,Y * speed,0,11,owner);
    CreateBullet(GetPlayerStat(ID,'X') + GetPlayerStat(ID,'VelX') * 5 - add * X - Y * 9,GetPlayerStat(ID,'Y') + GetPlayerStat(ID,'VelY') * 5 - add * Y - X * 4,X * speed,Y * speed,0,11,owner);
  end;
end;
Copied and pasted from MMod v1.1. Enjoy

[rayanaga]

Thank you UPNPAD.
I appreciate it.