Results 1 to 1 of 1

Thread: Looping

  1. #1
    Join Date
    Dec 2011
    Location
    United States
    Posts
    960
    Mentioned
    21 Post(s)
    Quoted
    504 Post(s)

    Exclamation Looping *Updated Question*

    It was an error in another part of my code.
    Right now when my script is trying to script it will not stop click on fishing spots. I need to know how to end this function when click a fishing spot was successful. I tried creating a Boolean and when turned true the script would stop looping but it didnt work. Any ideas?

    Code:
    function FindFish: boolean;
    var
      TPA: TPointArray;
      ATPA: T2DPointArray;
      i, x, y : Integer;
      R: boolean;
    begin
    R := False;
      repeat
        FindColorsTolerance(TPA, 10984084, MSX1, MSY1, MSX2, MSY2, 8);
        ATPA := TPAToATPAEx(TPA, 15, 15);
        for i := 0 to High(ATPA) do
        begin
          MiddleTPAEx(ATPA[i], x, y);
          MMouse(x, y, 4, 4);
          if WaitUpText('age', 600) then
          begin
            Mouse(x, y, 0, 0, false);
            WaitOption('arpoon', 600);
            R := True;
          end;
        end;
      until(R = True);
    end;
    Last edited by Wetish; 01-31-2012 at 09:27 PM.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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