Results 1 to 2 of 2

Thread: Strange Error in my "BreakOut" player

  1. #1
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default Strange Error in my "BreakOut" player

    Try compiling it... It wants an Identifier for the "until" statement, but I gave it one. Well, what this does is follow a little ball on (smashing), (it only follows it in the lower part of the screen because of color conflicts), and well, anyway, it used to work, untill I added a "send Name" thing.

    SCAR Code:
    program New;
    Var xx,yy,z:Integer;

    {.include SRL/SRL.scar}
    begin
     repeat;
      begin;
       If (FindColorTolerance(xx, yy, 12164766, 20, 345, 580, 380, 5))Then
        begin;
         MoveMouse(x, y);
         Wait(1);
         If (FindColorTolerance(xx, yy, 12164766, 20, 350, 55, 380, 5)) Or (FindColorTolerance(xx, yy, 12164766, 525, 365, 580, 385, 5))Then
          begin;
        end;
       If (FindColorTolerance(xx, yy, 65484, 215, 290, 250, 320, 2))Then
        begin;
         ClickMouse(x, y, True);
        end;
       If (FindColorTolerance(xx, yy, 6697728, 215, 150, 230, 160, 2))Then
        begin;
         ClickMouse(225, 180, True);
         SendKeys('r0b0t1');
         Wait(25000);
         SendKeys(chr(13));
         ClickMouse(215, 350, True);
        end;
      end;
     until(IsFKeyDown(12));
    end.
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  2. #2
    Join Date
    Apr 2007
    Posts
    581
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program New;
    Var xx,yy,z:Integer;

    {.include SRL/SRL.scar}
    begin
     repeat
      begin;
       If (FindColorTolerance(xx, yy, 12164766, 20, 345, 580, 380, 5))Then
        begin;
         MoveMouse(x, y);
         Wait(1);
         If (FindColorTolerance(xx, yy, 12164766, 20, 350, 55, 380, 5)) Or (FindColorTolerance(xx, yy, 12164766, 525, 365, 580, 385, 5))Then
          begin;
        end;
       If (FindColorTolerance(xx, yy, 65484, 215, 290, 250, 320, 2))Then
        begin;
         ClickMouse(x, y, True);
        end;
       If (FindColorTolerance(xx, yy, 6697728, 215, 150, 230, 160, 2))Then
        begin;
         ClickMouse(225, 180, True);
         SendKeys('r0b0t1');
         Wait(25000);
         SendKeys(chr(13));
         ClickMouse(215, 350, True);
        end;
      end;
      end;
     until(IsFKeyDown(12));
    end.

    You forgot an 'end;' at the buttom of the script. :]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 17
    Last Post: 11-14-2007, 07:43 AM
  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
  •