SRL Archive - SRL Archives

I decided to make this. its for the brown rock outside al kharid bank. could probably used elsewhere but i havent tested extensively. anyway i thought someone may use it. so here it is:

function FindAkRockColor: Integer;
var
  GC, a, l, TestColor: integer;
var
  P:array of Tpoint;
begin
  GC := 4874910;
  Flag;
  FindColorsSpiralTolerance(MMCX,MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 75);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    TestColor := GetColor(P[a].x,P[a].y);
    if (GetColor(P[a].x-1,P[a].y)=TestColor-527120) then
    begin
      Result := TestColor;
      WriteLn('Ak Rock Color = ' + IntToStr(TestColor));
      Exit;
    end;
  end;
  WriteLn('Could not find Ak Rock Color!');
  Result := 0;
end;

this one below works 100%

function GetBrownRockColor: integer;
var
  GC, a, l, TestColor: integer;
var
  P:array of Tpoint;
begin
  GC := 3625335;
  Flag;
  FindColorsSpiralTolerance(MMCX,MMCY, P, GC, MMX1,MMY1,MMX2,MMY2, 75);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    TestColor := GetColor(P[a].x,P[a].y);
    if (GetColor(P[a].x-1,P[a].y)=TestColor-1186871) then
    begin
      Result := TestColor;
      WriteLn('Brown Rock Color = ' + IntToStr(TestColor));
      Exit;
    end;
  end;
  WriteLn('Could not find Brown Rock Color!');
  Result := 0;
end;

obviously your looking for a different color than I am.

same kind of rock but different color within the rock ;)

From: Timothegreat
same kind of rock but different color within the rock ;)

thats what i meant :p