Results 1 to 4 of 4

Thread: Identifier on line 142?

  1. #1
    Join Date
    Feb 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Identifier on line 142?

    Im getting an identifier error at line 142, from the part in orange.


    Code:
    program ArdyGemStall;
    {$I SRL/SRL.simba}
    Const
      Mspeed = 25;
    var
      x, y: integer;
      a, r: integer;
      count: Integer;
    
    function Jarod: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.25, 0.11);
    
      if not (FindColorsTolerance(arP, 3163991, MSX1, MSY1, MSX2, MSY2, 1)) then
      begin
        //Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        //Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        //Writeln('AutoColor failed in finding the color.');
    end;
    Procedure Thieveit;
    begin
      if(FindColor(a, r, Jarod, MSX1, MSY1, MSX2, MSY2))then
      begin
      MouseSpeed:= (Mspeed)
      Mouse(a, r,1,1,true);
      end else;
    end;
    begin
    SetupSRL;
    ActivateClient;
    repeat
        if (FindColor(x, y, 12364441, MMX1, MMY1, MMX2, MMY2)) then
        begin
        Login;
        end else;
        begin
        function jarod;
        wait(100);
        Thieveit;
      end;
    until(count=100)
    end.
    Last edited by iridektm; 02-14-2012 at 09:31 PM.

  2. #2
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    in the future keep the post here and tell us how you solved it. That way people searching the forums can get info from your post rather then space just being taken up...

  3. #3
    Join Date
    Feb 2012
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i still need help, i still have an error... sorry.

  4. #4
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    function jarod; just needs to be jarod;
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •