Results 1 to 6 of 6

Thread: Identifer expected

  1. #1
    Join Date
    May 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Identifer expected

    In this procedure I can't find the identifer expected and whats wrong with it can someone help?

    SCAR Code:
    Procedure Chop;

    var
      loops:integer;
      i:integer;

    Begin
      repeat
      if(not(LoggedIn)) then Exit;
      HighestAngle;
      MakeCompass('N')
      CheckForEnt;
      FindFastRandoms;
      Wait(5000+random(5000));
         If(FindObj3(x, y,'ew', YewColor,3)) then
           begin
             MMouse(x, y, 1, 1);
             Wait(1000+random(500));
             if(IsUpText('hop')) or (IsUpText('cho')) or (IsUpText('hop'))then
               begin
                 Mouse(x, y, 1, 1, true);
                 Wait(TreeTB*1000/2+random(2000));
                 CheckForEnt;
                 OtherAntiBan;
                 FindTheHead;
                 AttachTheHead;
                 AutoTalk;
                 FindFastRandoms;
                 Wait(TreeTB*1000/2+random(2000));
                 until(InChat('logs.')) or (InChat('get some');
               end;
               end;
            if(not(FindObj3(x, y,'ew', YewColor,3)))then
            begin
              I:=0
              repeat
              Wait(5000+random(1000));
              I:=I+1;
              until (FindObj3(x, y,'ew', YewColor,3));
            end;
           if(I = 15)then
           begin
             Writeln('Sorry,the script could not work');
             Writeln('Please try restarting the script');
             Writeln('If problem persists, please notify me');
           end;
         Players[CurrentPlayer].Active := False;
         LogOut;
         Exit;
         NextPlayer(False)
       end;

  2. #2
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There are several. Here's the corrected script.

    SCAR Code:
    Procedure Chop;
     
    var
      loops:integer;
      i:integer;
     
    Begin
      repeat
      if(not(LoggedIn)) then Exit;
      HighestAngle;
      MakeCompass('N');//Forgot the semi-colon here.
      CheckForEnt;
      FindFastRandoms;
      Wait(5000+random(5000));
         If(FindObj3(x, y,'ew', YewColor,3)) then
           begin
             MMouse(x, y, 1, 1);
             Wait(1000+random(500));
             if(IsUpText('hop')) or (IsUpText('cho')) or (IsUpText('hop'))then
               begin
                 Mouse(x, y, 1, 1, true);
                 Wait(TreeTB*1000/2+random(2000));
                 CheckForEnt;
                 OtherAntiBan;
                 FindTheHead;
                 AttachTheHead;
                 AutoTalk;
                 FindFastRandoms;
                 Wait(TreeTB*1000/2+random(2000));
                 until(InChat('logs.')) or (InChat('get some');
               end;
               end;
            if(not(FindObj3(x, y,'ew', YewColor,3)))then
            begin
              I:=0;//Forgot the semi-colon here too.
              repeat
              Wait(5000+random(1000));
              I:=I+1;
              until (FindObj3(x, y,'ew', YewColor,3));
            end;
           if(I = 15)then
           begin
             Writeln('Sorry,the script could not work');
             Writeln('Please try restarting the script');
             Writeln('If problem persists, please notify me');
           end;
         Players[CurrentPlayer].Active := False;
         LogOut;
         Exit;
         NextPlayer(False);//Same with right here
       end;

  3. #3
    Join Date
    May 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Ty -.- I hate those errors my eyes were tired yesterday couldn't see it lol but it still has identifer expected

  4. #4
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    At what line?

    And yeah. . .I'm an idiot. Here was correct, I didn't include SRL when I tried to compile the procedure. The CheckForEnt thing messes it up when I try to compile it anyway, since we don't have the rest of the script.

  5. #5
    Join Date
    Jun 2007
    Location
    New Yawk
    Posts
    943
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you include SRL? Obvious question.
    I guess the holidays are over - no sig for now.

  6. #6
    Join Date
    Dec 2006
    Location
    Houston, TX USA
    Posts
    4,791
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Here View Post
    Did you include SRL? Obvious question.
    That's a procedure, not the entire script....

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 5
    Last Post: 05-17-2008, 12:48 PM
  2. Identifier Expected
    By HairyDuncan2 in forum OSR Help
    Replies: 1
    Last Post: 10-06-2007, 08:58 AM
  3. var expected :s
    By ShowerThoughts in forum OSR Help
    Replies: 12
    Last Post: 09-25-2007, 07:33 PM
  4. Identifer Expected Error.
    By I Karma I in forum OSR Help
    Replies: 8
    Last Post: 05-16-2007, 07:28 AM

Posting Permissions

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