Results 1 to 2 of 2

Thread: FindRockColor Fixed

  1. #1
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default FindRockColor Fixed

    SCAR Code:
    function FindRockColor: Integer;
    var
      A, L, TestColor: Integer;
      P: TPointArray;
    begin
      Flag;
      if FindMMColorsSpiralTolerance(P, 3618615, 40) then
      begin
        L := High(P);
        for A := 0 to L do
        begin
          TestColor := GetColor(P[a].x,P[a].y);
          if (TestColor - GetColor(P[A].X + 1,P[A].Y) = 1382166) then
          begin
            Result := TestColor;
            srl_Warn('FindRockColor', 'RockColor = ' + IntToStr(TestColor), warn_Debug);
            Exit;
          end;
        end;
      end;
      srl_Warn('FindRockColor', 'Could''t find RockColor', warn_Debug);
      Result := 0;
    end;

  2. #2
    Join Date
    Dec 2006
    Location
    Houston, TX USA
    Posts
    4,791
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's already working ???

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
  •