Results 1 to 4 of 4

Thread: Identifier expected in script?

  1. #1
    Join Date
    Mar 2007
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Identifier expected in script?

    I need an END; or BEGIN? But where...

    SCAR Code:
    procedure StartCuttin;
    begin
     SeeIfCut:=0;
      MouseItem(1,true);
      MouseItem(2,true);
      ChooseOption('Cut All');
      MMouseItem(28);
      Wait(5000);
       repeat
        MMouseItem(28);
        if (isuptext('ncut')) then
        begin
         SeeIfCut:= SeeIfCut + 1;
         Writeln('Cutting Not Completed. Waiting...');
         Wait(5000);
         end else
         begin
          if (isuptext(WhatGemNo)) then Donextluls;
        until(SeeIfCut >= 7);
       Writeln('Gems didnt cut completelly.');
       Writeln('Terminating script!');
       Logout;
       TerminateScript;
    end;
    end;
    end;
    http://www.fenjer.com/adnan/SRLStats/877.png
    The Fabis Uber banner has been updated so it works in the latest SRL versions -->Fastest baning script ever!

  2. #2
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    SCAR Code:
    procedure StartCuttin;
    begin
      SeeIfCut:=0;
      MouseItem(1,true);
      MouseItem(2,true);
      ChooseOption('Cut All');
      MMouseItem(28);
      Wait(5000);
      repeat
        MMouseItem(28);
        if (isuptext('ncut')) then
        begin
          SeeIfCut:= SeeIfCut + 1;
          Writeln('Cutting Not Completed. Waiting...');
          Wait(5000);
        end else
          if (isuptext(WhatGemNo)) then Donextluls;
      until(SeeIfCut >= 7);
      Writeln('Gems didnt cut completelly.');
      Writeln('Terminating script!');
      Logout;
      TerminateScript;
    end;

    I fixed your standards as well as the identifier error. It should compile (at least that procedure) now.
    :-)

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

    Default

    Quote Originally Posted by fabis94 View Post
    I need an END; or BEGIN? But where...

    SCAR Code:
    procedure StartCuttin;
    begin//1
     SeeIfCut:=0;
      MouseItem(1,true);
      MouseItem(2,true);
      ChooseOption('Cut All');
      MMouseItem(28);
      Wait(5000);
       repeat
        MMouseItem(28);
        if (isuptext('ncut')) then
        begin//2
         SeeIfCut:= SeeIfCut + 1;
         Writeln('Cutting Not Completed. Waiting...');
         Wait(5000);
         end else//this is end 1
         begin   //not needed  
          if (isuptext(WhatGemNo)) then Donextluls;
        until(SeeIfCut >= 7);
       Writeln('Gems didnt cut completelly.');
       Writeln('Terminating script!');
       Logout;
       TerminateScript;
    end;//2
    end;//?
    end;//?
    SCAR Code:
    procedure StartCuttin;
    var
      seeifcut: integer;
    begin // See , first begin
      SeeIfCut := 0;
      MouseItem(1, true);
      MouseItem(2, true);
      ChooseOption('Cut All');
      MMouseItem(28);
      Wait(5000);
      repeat
        MMouseItem(28);  //IsUpText Requires string inside so you need these -> ''
        if (isuptext('ncut')) then
        begin //Second begin
          SeeIfCut := SeeIfCut + 1;
          Writeln('Cutting Not Completed. Waiting...');
          Wait(5000);
        end//first end
        else if (isuptext('WhatGemNo')) then Donextluls;
      until (SeeIfCut >= 7);
      Writeln('Gems didnt cut completelly.');
      Writeln('Terminating script!');
      Logout;
      TerminateScript;
    end;//second end
    Try like that . You will see what is different .
    ~Eerik~

  4. #4
    Join Date
    Mar 2007
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, both of you ^_^
    Close this plawx
    http://www.fenjer.com/adnan/SRLStats/877.png
    The Fabis Uber banner has been updated so it works in the latest SRL versions -->Fastest baning script ever!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Identifier expected in script...But Why?
    By Macrosoft in forum OSR Help
    Replies: 10
    Last Post: 01-27-2012, 06:33 AM
  2. Bah!! Identifier Expected in Script.
    By siroober in forum OSR Help
    Replies: 3
    Last Post: 05-03-2008, 11:46 PM
  3. Identifier expected in script
    By StrikerX in forum OSR Help
    Replies: 2
    Last Post: 04-11-2008, 12:21 PM
  4. Identifier expected in script
    By Becks in forum OSR Help
    Replies: 6
    Last Post: 04-11-2008, 06:41 AM
  5. Identifier expected in script?
    By steth1010 in forum OSR Help
    Replies: 6
    Last Post: 05-06-2007, 09:03 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
  •