Results 1 to 8 of 8

Thread: Is there a "until (InvFull);" substitute?

  1. #1
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Is there a "until (InvFull);" substitute?

    It says (InvFull) is an unknown identifier. Is there a substitute?

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

    Default

    (InvCount = 28)


  3. #3
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Now it says "Unknown Identifier 'InvCount'"

  4. #4
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    under program include srl:

    SCAR Code:
    program new;
    {.include SRl/SRl.scar}

    begin
      SetUpSrl;
      repeat
        Mine;
      until(InvFull);
    end.

    in you're main loop. make sure to call SetUpSRl; in the begin.

  5. #5
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
     {.include SRl/SRl.scar}
    var
      x,y: Integer;

    procedure FindAndCut;
    begin
     SetUpSrl;
     repeat
      if findcolor (x,y, 3758421, 229, 60, 229, 60) and
         findcolor (x,y, 530197,  254, 93, 254, 93) and
         findcolor (x,y, 1329212, 218, 95, 218, 95) then
       begin
           Wait (7000)
           ClickMouse (216,77, True)
           Wait (7000)
           ClickMouse (216, 77, True)
       end;
     until (InvFull);
    end.
    Now, it says "semicolon expected" at the "end." When i change the period to a semicolon, it says "unexpected end of file."

  6. #6
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
     {.include SRl/SRl.scar}
    var
      x,y: Integer;

    procedure FindAndCut;
    begin
     repeat
      if findcolor (x,y, 3758421, 229, 60, 229, 60) and
         findcolor (x,y, 530197,  254, 93, 254, 93) and
         findcolor (x,y, 1329212, 218, 95, 218, 95) then
       begin
           Wait (7000)
           ClickMouse (216,77, True)
           Wait (7000)
           ClickMouse (216, 77, True)
       end;
     until(InvFull);
    end;

    begin
      SetUpSrl;
      FindAndCut;
    end.

    you need to have a main loop

  7. #7
    Join Date
    Jun 2007
    Location
    Ohio
    Posts
    341
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    forgot your main loop

    [edit:]oops rikjess already told you. sorry

    if i may explain:

    You could also Just take out the procedure part.

    SCAR Code:
    program New;
     {.include SRl/SRl.scar}
    var
      x,y: Integer;


    begin
     SetUpSrl;
     repeat
      if findcolor(x,y, 3758421, 229, 60, 229, 60) and
         findcolor(x,y, 530197,  254, 93, 254, 93) and
         findcolor(x,y, 1329212, 218, 95, 218, 95) then
       begin
           Wait(7000);
           ClickMouse(216,77, True);
           Wait(7000);
           ClickMouse(216, 77, True);
       end;
     until(InvFull);
    end.

  8. #8
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    ITS PEANUT BUTTER JELLY TIME! PEANUT BUTTER JELLY TIME! PEANUT BUTTER JELLY TIME NOW WHERE HE AT WHERE HE AT WHERE HE AT WHERE HE AT NOW THERE HE GOES THERE HE GOES THERE HE GOES PEANUT BUTTER JELLY! PEANUT BUTTER JELLY!

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. action="www.site.com" method="post"
    By Jason2gs in forum General
    Replies: 4
    Last Post: 05-17-2007, 11:50 PM
  3. Replies: 3
    Last Post: 04-19-2007, 03:44 AM
  4. Replies: 5
    Last Post: 10-26-2006, 11:30 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
  •