Results 1 to 9 of 9

Thread: Line 176: [Error] (12640:1): Identifier expected in script

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Line 176: [Error] (12640:1): Identifier expected in script

    Im getting this error with this line:
    SCAR Code:
    until(InvCount = 28);


  2. #2
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Is there a repeat before it?
    Eerik.

  3. #3
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by heavenzeyez1 View Post
    Is there a repeat before it?
    Eerik.
    YES.


  4. #4
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    maybe post entire script? or error procedure?
    Eerik.

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    // No standars hehe
    procedure FindForTreeAndChop;
    begin
    if (not(LoggedIn)) then
    Exit;
    if (SetUpped = False) then
    Exit;
    if (SetUpped) then
    TreeFound := False;
    Writeln('Starting...')
    repeat
    if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
    begin
    Writeln('Tree Found')
    MMouse(x,y,2,2)
    if (IsUpText(TreeNameWithoutCapitals))then
    begin
    GetMousePos(x,y)
    Mouse(x,y,3,3,false)
    for i:= 0 to 3 do
    if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
    ChooseOption('hop');
    if(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2)) then
    begin
    Writeln('********ENT FOUND********')
    wait(15000+random(555))
    AntiBannage;
    Randoms;
    wait(15000+random(666))// 666...
    AntiBannage;
    Randoms;
    if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
    begin
    Writeln('Tree Found')
    MMouse(x,y,2,2)
    if (IsUpText(TreeNameWithoutCapitals))then
    begin
    GetMousePos(x,y)
    Mouse(x,y,3,3,false)
    for i:= 0 to 3 do
    if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
    ChooseOption('hop');
    until(InvCount = 28)
    TreeFound := True;
    end;
    end;
    end;
    end;
    end;
    end;


  6. #6
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    if you used standards you wouldve found your problem. try this.
    SCAR Code:
    procedure FindForTreeAndChop;
    begin
      if (not(LoggedIn)) then
      Exit;
      if (SetUpped = False) then
      Exit;
      if (SetUpped) then
      TreeFound := False;
      Writeln('Starting...')
      repeat
        if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
        begin
          Writeln('Tree Found')
          MMouse(x,y,2,2)
          if (IsUpText(TreeNameWithoutCapitals))then
          begin
            GetMousePos(x,y)
            Mouse(x,y,3,3,false)
            for i:= 0 to 3 do
            if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
            ChooseOption('hop');
            if(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2)) then
            begin
              Writeln('********ENT FOUND********')
              wait(15000+random(555))
              AntiBannage;
              Randoms;
              wait(15000+random(666))// 666...
              AntiBannage;
              Randoms;
              if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
              begin
                Writeln('Tree Found')
                MMouse(x,y,2,2)
                if (IsUpText(TreeNameWithoutCapitals))then
                begin
                  GetMousePos(x,y)
                  Mouse(x,y,3,3,false)
                  for i:= 0 to 3 do
                  if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
                  ChooseOption('hop');
                end;
              end;
            end;
          end;
        end;
      until(InvCount = 28)
    TreeFound := True;
    end;

  7. #7
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Looks like you have your 'Until()' too early - keep putting it back an 'End;' until it works (would be easier to see which one if there were standards)
    Edit: >< canadaman beat me (don't know how as I just typed 2 lines - ahwell)

  8. #8
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by XcanadamanX View Post
    if you used standards you wouldve found your problem. try this.
    SCAR Code:
    procedure FindForTreeAndChop;
    begin
      if (not(LoggedIn)) then
      Exit;
      if (SetUpped = False) then
      Exit;
      if (SetUpped) then
      TreeFound := False;
      Writeln('Starting...')
      repeat
        if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
        begin
          Writeln('Tree Found')
          MMouse(x,y,2,2)
          if (IsUpText(TreeNameWithoutCapitals))then
          begin
            GetMousePos(x,y)
            Mouse(x,y,3,3,false)
            for i:= 0 to 3 do
            if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
            ChooseOption('hop');
            if(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2)) then
            begin
              Writeln('********ENT FOUND********')
              wait(15000+random(555))
              AntiBannage;
              Randoms;
              wait(15000+random(666))// 666...
              AntiBannage;
              Randoms;
              if (FindObjCustom(x,y,['hop','down',TreeNameWithoutCapitals,'hop do'], [TreeColor1,TreeColor2,TreeColor3,TreeColor4], 20)) then
              begin
                Writeln('Tree Found')
                MMouse(x,y,2,2)
                if (IsUpText(TreeNameWithoutCapitals))then
                begin
                  GetMousePos(x,y)
                  Mouse(x,y,3,3,false)
                  for i:= 0 to 3 do
                  if(not(FindDTM(Ent[i],a,b,MIX1,MIY1,MIX2,MIY2))) then
                  ChooseOption('hop');
                end;
              end;
            end;
          end;
        end;
      until(InvCount = 28)
    TreeFound := True;
    end;
    thx XcanadamanX, but can someone teach me standars?


  9. #9
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    look in tut island. or search for standards

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 4
    Last Post: 11-02-2008, 12:39 PM
  2. Replies: 2
    Last Post: 08-25-2008, 01:32 AM
  3. Replies: 10
    Last Post: 06-01-2008, 02:15 PM
  4. Replies: 17
    Last Post: 11-14-2007, 07:43 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
  •