Results 1 to 2 of 2

Thread: Annoying error

  1. #1
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Annoying error

    Title says it all can someone fix this error heres the error;

    SCAR Code:
    Line 356: [Error] (15445:1): Identifier expected in script

    this is my script...

    SCAR Code:
    Procedure ChopIt;
    Begin
     if (not (LoggedIn)) then LoginPlayer
     repeat
      if(findcolortolerance(x,y,treecolor1,117,204,887,709,10)) or
        (findcolortolerance(x,y,treecolor2,117,204,887,709,10)) or
        (findcolortolerance(x,y,treecolor3,117,204,887,709,10)) or
        (findcolortolerance(x,y,treecolor4,117,204,887,709,10)) or
        (findcolortolerance(x,y,treecolor5,117,204,887,709,10)) or
        (findcolortolerance(x,y,treecolor6,117,204,887,709,10)) then
       begin
        MMouse(x,y,3,3);
        if (IsUpText('ree')) then
       begin
        Mouse(x,y,2,2,true);
        Wait(15000);
        MMouse(x,y,3,3);
        if not(IsUpText('ree')) then
        Writeln('The tree has been chopped succesfully!')
        begin
              case Random(11) of
                1: typesend('this is boring');
                2: typesend('i cant take any more!!!');
                3: typesend('');
                4: typesend('');
                5: typesend('zzzz...zzzz...');
                6: typesend('This is so not fun');
                7: typesend('when does it end!');
                8: typesend('This is 3 hours straight!!!');
                9: typesend('');
                10: typesend('');
              end;
              if InvFull then Exit;
              If FindnpcChattext('ontinue') then
              Writeln('You have achieved a woodcutting level!');
              if(DidRandomHappen = true) then
              begin
                DidRandomHappen := False;
                Mouse(x, y, 2, 2, true);
              end;
              SleepAndMoveMouse(9671 + random(1709));
              FindRandoms;
              AntiBanMe;
                RunFromRandoms;
                AntiBannage;
                AntiDeath;
                UberEnt;
                if InvFull then Exit;
              If FindnpcChattext('ontinue') then
              Writeln('You have achieved a woodcutting level!');
              until(Invfull) {<--------------Line 356}
              Writeln('You have succesfully chopped a inventory of logs!');
          end;
         end;
        end;

    Thanks again

    Rora
    Click here for Rora's Power Woodcutter!
    Testers needed!
    |
    |
    |
    |
    V



    http://www.fenjer.com/adnan/SRL//100...Woodcutter.png

    http://photos33.flickr.com/38918814_8370ddb570_m.jpg




    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.

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

    Default

    Please work on your standards, I can't even tell you how I fixed it because it was so hard to read

    here is the code that won't give you an error atleast:

    SCAR Code:
    Procedure ChopIt;
    Begin
     if (not (LoggedIn)) then LoginPlayer
     repeat
       if(findcolortolerance(x,y,treecolor1,117,204,887,709,10)) or
         (findcolortolerance(x,y,treecolor2,117,204,887,709,10)) or
         (findcolortolerance(x,y,treecolor3,117,204,887,709,10)) or
         (findcolortolerance(x,y,treecolor4,117,204,887,709,10)) or
         (findcolortolerance(x,y,treecolor5,117,204,887,709,10)) or
         (findcolortolerance(x,y,treecolor6,117,204,887,709,10)) then
       begin
         MMouse(x,y,3,3);
         if (IsUpText('ree')) then
         begin
           Mouse(x,y,2,2,true);
           Wait(15000);
           MMouse(x,y,3,3);
           if not(IsUpText('ree')) then
             Writeln('The tree has been chopped succesfully!')
             case Random(11) of
                1: typesend('this is boring');
                2: typesend('i cant take any more!!!');
                3: typesend('');
                4: typesend('');
                5: typesend('zzzz...zzzz...');
                6: typesend('This is so not fun');
                7: typesend('when does it end!');
                8: typesend('This is 3 hours straight!!!');
                9: typesend('');
                10: typesend('');
             end;
             if InvFull then Exit;
             If FindnpcChattext('ontinue') then
             Writeln('You have achieved a woodcutting level!');
             if(DidRandomHappen = true) then
             begin
               DidRandomHappen := False;
               Mouse(x, y, 2, 2, true);
             end;
             SleepAndMoveMouse(9671 + random(1709));
             FindRandoms;
             AntiBanMe;
             RunFromRandoms;
             AntiBannage;
             AntiDeath;
             UberEnt;
             if InvFull then Exit;
             If FindnpcChattext('ontinue') then
             Writeln('You have achieved a woodcutting level!');
           end;
         end;
       until(Invfull); {<--------------Line 356}
       Writeln('You have succesfully chopped a inventory of logs!');
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. annoying error..
    By faster789 in forum OSR Help
    Replies: 10
    Last Post: 04-01-2008, 04:18 AM
  2. sum annoying error plz help..
    By faster789 in forum OSR Help
    Replies: 6
    Last Post: 03-29-2008, 04:11 PM
  3. Annoying error
    By Cazax in forum OSR Help
    Replies: 3
    Last Post: 03-21-2008, 09:11 PM

Posting Permissions

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