Invalid number of paramters :S?

[sovereign]

I'm trying to run this autotyper script, but it won't compile and gives me this error:
http://screensnapr.com/e/XQwS41.jpg

//This script is designed for ease of use, you should be able to run it for the
//simplest things like selling 20k lobbies to mass spamming of the whole of runescape.
//I may even implement an account creator where it would create an account, run to a pre
//defined location, spam for 2 hours or so, log out and create a new account, therefore
//constantly the whole of runescape forever more.

program AutoTalk;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}

Var
Typed, ThreeQuarters, Half: Integer;
Ver : String;
Text : TStringArray;


//==================================== you fill this part in ============================================\\

Const
NumberOfMessages = 1; //How many different messages would you like to type?
Times = 1000; //Set to 0 for unlimited
TalkFast = False; //Only use if you will be banned anyway (e.g. advertising websites)
World = 11; //Choose your world...
JagexKissAss = FALSE; //Member?
WTime = 1000; //Wait time between types, will auto random, set low if TalkFast is true
Version = 103; //MINE! No touching!



procedure DeclarePlayers;
begin

HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :=''; //use " if you are getting ~
Players[0].Pass :='';
Players[0].Active := True;

Text[0] := 'Go to www.fakerunescape.com to lose all of your money'; //The text that you would like to type
Text[1] := 'Text1';
Text[2] := 'Text2'; //Add or remove as many as you want


end;
//====================== you are not required to change below this line =================================\\


procedure Talk;
begin
if (Times = 0) then
begin
Repeat
TypeSend(Text[Random(GetArrayLength(Text))]);
Typed := Typed + 1;
Writeln('Typed '+Inttostr(Typed)+' Times');
Wait(ThreeQuarters+Random(Half));
Until(false);
end
else
begin
Repeat
TypeSend(Text[Random(GetArrayLength(Text))]);
Typed := Typed + 1;
Writeln('Typed '+inttostr(Typed)+'/'+inttostr(Times));
Wait(ThreeQuarters+Random(Half));
Until(Typed >= Times);
end
end;


procedure SuperFast;
begin
if (Times = 0) then
Begin
Repeat
SendKeys(Text[Random(GetArrayLength(Text))]);
TypeSend(' ');
Typed := Typed + 1;
Writeln('Typed '+inttostr(Typed)+' Times');
Until(false);
end else
Begin
Repeat
SendKeys(Text[Random(GetArrayLength(Text))]);
TypeSend(' ')
Typed := Typed + 1;
Writeln('Typed '+inttostr(Typed)+'/'+inttostr(Times));
Until(Typed >= Times);
end
end;

procedure CheckVersion;
begin
Ver := GetPage('http://pastehtml.com/view/bdv09ugbx.txt');
If Version = StrToInt(Ver) Then
Begin
WriteLn('You are using the most up to date version');
end Else
begin
WriteLn('Please Update This Script, opening web page...');
OpenWebPage('http://goo.gl/Oy4jh');
TerminateScript; //Comment out this to use this version anyway
end;
end;



begin
WriteLn('Hello ' + Players[CurrentPlayer].Name)
CheckVersion;
ThreeQuarters := ((WTime DIV 4)*3);
Half := (WTime DIV 2);
WriteLn('Config Complete');

Smart_Server := World;
Smart_Members := JagexKissAss;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;

if (JagexKissAss) Then
Begin
WriteLn('You Disgust Me...'); //Just Kidding
end else
begin
WriteLn('Almost Done...');
end;

WriteLn('Setup Complete');

DeclarePlayers;
LoginPlayer;

if (not talkfast) then
Begin
Talk;
end else
begin
SuperFast;
end;
end.

If you guys can help me out I'd appreciate it.

[fre]

To start these 2 lines

{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}

should be

{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}

This might fix it, but i'm not sure of it.

[sovereign]

Nope, I already did that. Otherwise it wouldn't have gotten that far xD

[Harry]

That looks to me like you have an invalid number of parameters. Look at what SendKeys() requires.

[sovereign]

Well idk actually, I'm not a scripter, I don't think it's pointing at anything though. Once I removed it and replaced with some other variable (typesend) it worked... Although gave me a whole load of other errors after that.

I have no idea what the heck is wrong :/.