I was making my first script and I wanted to use the procedure IdleTime from the core include Mouse. The third parameter is Gravity: Extended. I know what an extended variable is I just don't know what the variable means in this case. Hope you guys can help 
Here is the procedure IdleTime.
SCAR Code:
{*******************************************************************************
procedure IdleTime(Time, Rand: integer; Gravity: extended);
By: BenLand100
Description: Randomly moves the mouse (Rand, and Gravity) for Time milliseconds
*******************************************************************************}
procedure IdleTime(Time, Rand: Integer; Gravity: Extended);
var
H, W, Cx, Cy, i, n, St: Integer;
Controls, Path: TPointArray;
LastC, LastP: TPoint;
begin
St := GetSystemTime;
GetClientDimensions(W, H);
SetArrayLength(Controls, 4);
GetMousePos(Cx, Cy);
LastP.x := Cx;
LastP.y := Cy;
LastC.x := LastP.x + (Random(Rand * 2) - Rand)
LastC.y := LastP.y + (Random(Rand * 2) - Rand)
repeat
Controls[0].x := LastP.x;
Controls[0].y := LastP.y;
Controls[1].x := LastP.x + -(LastC.x - LastP.x);
Controls[1].y := LastP.y + -(LastC.y - lastP.y);
Controls[2].x := Controls[1].x + (Random(Rand * 2) - Rand);
Controls[2].y := Controls[1].y + (Random(Rand * 2) - Rand);
Controls[3].x := Controls[2].x + (Random(Rand * 2) - Rand);
Controls[3].x := Controls[3].x + Round(-(Controls[3].x - (W / 2)) *
(Gravity));
Controls[3].y := Controls[2].y + (Random(Rand * 2) - Rand);
Controls[3].y := Controls[3].y + Round(-(Controls[3].y - (H / 2)) *
(Gravity));
LastC.x := Controls[2].x;
LastC.y := Controls[2].y;
LastP.x := Controls[3].x;
LastP.y := Controls[3].y;
Path := MakeSplinePath(Controls, 0.01);
Path := MidPoints(Path, 5);
n := GetArrayLength(Path);
for i := 0 to n - 1 do
begin
MoveMouse(Path[i].x, Path[i].y);
Wait(Random(2) + 2);
if (GetSystemTime - St >= Time) then Break
end;
until (GetSystemTime - St >= Time)
end;
Here is my Script (If anyone wants to give me tips lol I know its bad).
SCAR Code:
{
[=========================================================================]
[ AutoTyper 1.0 ]
[=========================================================================]
[ ]
[ NAME : AutoTyper 1.0 ]
[ WRITER : Dusk412 ]
[ CATEGORY : Auto Typer ]
[ DESCRIPTION : Types Messages Automatically ]
[ CONTACT : [email]dusk412@hotmail.com[/email] ]
[ CREDITS : Dusk412 - Creator ]
[ ]
[=========================================================================]
[ Notes ]
[=========================================================================]
[ ]
[ My First Script ^_^ ]
[ Please Copy and Paste the Progress Report onto my thread ]
[ I haven't the automated way to do progress reports yet sorry ]
[ ]
[=========================================================================]
[ Instructions ]
[=========================================================================]
[ ]
[ 1. Enter the text you want it to say ]
[ 3. Drag the crosshairs to the runescape screen ]
[ 4. Run the script ]
[ ]
[=========================================================================]
[ Words of Wisdom ]
[=========================================================================]
[ ]
[ - KNOWLEDGE is knowing a tomato is a fruit; not putting it into your ]
[ fruit salad is WISDOM ]
[ - A ship in the harbor is safe, but that's not what ships are built for.]
[ - A peacock who sits on his tail is just another turkey. ]
[ - If you are willing to admit faults, you have one less fault to admit. ]
[ ]
[=========================================================================] }
program AutoTyper;
{.include SRL/SRL.scar}
const // *** FILL OUT THESE *** //
Name='Dusk412'; // Please Enter Your Name Here (For Progress Report)
Waittime=1000; // How Long Between Each Message
Message1='Merry Christmas!'; // What the Message Says
NumSaid=5; // How Many Times The Message Will Be Said (Leave as 0 for infinity)
var
i : Integer;
// BoredMouse : Integer;
BoredTime : Integer;
procedure ProgressReport;
begin
writeln('----------------------------------------')
writeln('SRL-Forums Username: ' +Name)
writeln('Message Sent ' +IntToStr(i) +' Times')
writeln('----------------------------------------')
end;
{procedure Bored;
begin
BoredMouse:=random(1)
BoredTime:=2500+random(350)
if(BoredMouse=1) then
begin
//IdleTime(BoredTime,150,)
end;
end;}
procedure TypeMessage;
begin
TypeSend(Message1)
i:=i+1
end;
begin
setupSRL
ClearDebug
activateclient;
writeln('Hello, Welcome to AutoTyper 1.0')
i:=0
BoredTime:=0
repeat
TypeMessage
Wait(1000)
//Bored
until(i>=NumSaid)
ProgressReport
end.