SRL Archive - OSR Help

When compiling a script I just wrote I get the following:

[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/pinball.scar(37:3): Variable 'MA' never used at line 36
[Error] C:\Simba\Includes\SRL/SRL/Misc/Smart.scar(9:10): Duplicate identifier 'ISKEYDOWN' at line 8
Compiling failed.

Is this an error with my script or have I set the client up slightly wrong?

I can post parts/all of my script upon request:spongebob:

First off wrong section. Next time post in the help section.

Posting the script always helps.

Its says duplicate identifier so im guessing you have a function or variable called iskeydown…

From: Yago
First off wrong section. Next time post in the help section.

Posting the script always helps.

Its says duplicate identifier so im guessing you have a function or variable called iskeydown…

Sorry, can a mod or admin move it?

it opens up another tab with the title 'smart' and highlights line 8
line 8 of that script is

function IsKeyDown(C:Byte): Boolean;   

my script:

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

Var
  Typed: Integer;
  Unlimited, LoggedHalf, AtLogin, JagexKissAss: Boolean;
  Ver: String;
  ThreeQuarters, Half: Real;

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

Const
  Text = 'Go to [url]www.fakerunescape.com[/url] to lose all of your money';          //The text that you would 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?
  Username = YourUsername;  //Your Login name/email
  Password = YourPassword;  //Your Password here
  WTime = 1000;             //Wait time between types, will auto random, set low if TalkFast is true
  Version = 0.1;            //MINE! No touching!

//====================== you are not required to change below this line =================================\\
procedure Talk;
begin
  if (Times = 0);
    then
      Repeat
        TypeSend(Text);
        Typed := Typed + 1;
        Writeln('Typed '+Typed+' Times');
        Wait(ThreeQuarters+Random(Half));
      Until(false);
    else
      Repeat
        TypeSend(Text);
        Typed := Typed + 1;
        Writeln('Typed '+Typed+'/'Times);
        Wait(ThreeQuarters+Random(Half));
      Until(Typed >= Times);
end;


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

procedure CheckVersion;
begin
  Ver := GetPage('http://pastehtml.com/view/bdsde4e5q.txt');
  If Version = Ver Then
    Begin
      WriteLn('You are using the most up to date version')
    Else
      WriteLn('Please Update This Script By Going To [url]http://goo.gl/UpgDT[/url]')
      TerminateScript;    //Comment out this to use this version anyway
end;

Procedure ClickLeaveAlone;
Begin
  if ((FindColorTolerance(var x, y: Integer; 3058112, 467, 401, 526, 417, 10: Integer): Boolean;) = False) Then
  Begin
    WriteLn('Clicking Leave Alone')
    Mouse(375, 300,15,3,true)
    Wait(500+Random(50))
    WriteLn('Clicked Leave Alone')
  Else
    WriteLn('Going for Login');
end;

Procedure UsernameandPass;
Begin
  Mouse(543, 324,3,3,true);
  TypeSend(Username);
  wait(500+Random(200));
  Mouse(543, 372,3,3,true);
  wait(100+Random(50));
  TypeSend(Password);
end;

Procedure DoLogin;
Begin
  Mouse(445, 413,20,2,true);
  WriteLn('Clicked Login');
  WriteLn('Waiting For Lobby!');
    repeat
      wait(2000)
      LoggedHalf := (FindColorTolerance(var x, y: Integer; 4357011, 270, 449, 407, 607, 10: Integer): Boolean;)
    until(LoggedHalf=True);
  WriteLn('Found Lobby')
  Wait(500+Random(200));
  Mouse(383, 462,5,5,true);
     repeat
       wait(2000)
       LoggedHalf := (FindColorTolerance(var x, y: Integer; 726554, 270, 449, 407, 607, 10: Integer): Boolean;)
     until(LoggedHalf=False)
end;

begin
  WriteLn('Hello ' + Username)
  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 = True) Then
    WriteLn('You Disgust Me...')   //Just Kidding
  else
    WriteLn('Almost Done...')

  WriteLn('Setup Complete');

  ClickLeaveAlone
  UsernameandPass;
  DoLogin;

  if (talkfast = false)
    then
      Talk;
    else
      SuperFast;
end.

That isn't your script, and it's probably outdated.

From: Harry
That isn't your script, and it's probably outdated.

anything i can do? could you try compiling the script for me as I have written all of that without compiling at all :(

Proof it isn't my script, compiling this gets the same error

program new;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Smart.scar}
begin
end.

Remove Smart your not using it
This line —{.include SRL/SRL/Misc/Smart.scar}
that's what's causing the failed compile