Almighty Gravity changer

[Swompie]

Author: Swompie (Mini thx to Curt` for some RegEx help)
Server version: 2.6.5 or higher
Command: /g NN (where NN represents a number; synonyms are /grav and /gravity)

Here's the source for the Almighty Gravity changer:

Code: (pascal) [Select]

const
    OnGravChangeNotice = true; // set to true to display a message to all players when gravity has changed
    Color = $FFFFFF; // color of the message

function OnCommand(ID: byte; Text: string): boolean;
var g: integer;
begin
  result := false;
  if (RegExpMatch('^/(g|grav|gravity) (-?\d+)', lowercase(Text))) then begin
    g := strtoint(GetPiece(Text, ' ', 1));
    ServerModifier('Gravity', g * 0.0006);
    if OnGravChangeNotice then
      WriteConsole(0, 'Gravity changed to ' + inttostr(g) + '%', Color);
    exit;
  end;
end;

Use /g 100 for default gravity!
Have fun making the people in your server beeing "WTF!" when you change the gravity

[PKS|Shooter]

download link?

[croat1gamer]

Just copy and paste it in the .pas file.

Though, i think there is already one.

[Swompie]

download link?

Attached it for the lazy ones

Though, i think there is already one.

Yes, but it's using the GetKeyPress() function iirc.

[mich1103]

I like this script, its very usefull !
But this command work for all or only for admin ?

[Swompie]

Second part of your question.

[mich1103]

Ok so where's the part who say that there is only for admin ?

[the halo fan]

As far as i know theres only a soldat server 2.6.5. you have 2.6.6.?

[Swompie]

Somewhat always makes me think it's 266, don't ask me what it was. Anyways, fixed.

[dnmr]

Ok so where's the part who say that there is only for admin ?

http://enesce.com/help/html/Events/OnCommand.html

[mich1103]

Ok thanks 
so this kind of command can be called by arsse ?

[Swompie]

Yes..

[mich1103]

so i can do like

Code: [Select]

procedure ActivateServer();
begin
Command('/g 60');
end;



[frosty]

very nice, much better than my gravity script