FindRoadColor Problem

[jackkat]

I have been working on a script to cut logs from Varrock, but with this new update, findroadcolor has stopped working.
Anyone know how I can figure out the road color without using that, or how to fix that?
The player is standing in the Varrock east bank.

Error message:
Could Not Find Road Color!

[jhildy]

just use autocolorthis it works fine

[tarajunky]

You can put this in your script until the next SRL update.

function FindVarrockRoadColor: Integer;
var
  GC, a, l, TestColor, Red, Green, Blue : integer;
var
  P:array of Tpoint;
begin
  GC := 7304312;
  Flag;
  FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    TestColor := GetColor(P[a].x, P[a].y);
    red := (TestColor mod 256);
    green := ((TestColor / 256) mod 256);
    blue := ((TestColor / 256) / 256);
    if Red - Blue <= 12 then if Red - Blue >= 8 then
      if Red - Green <= 6 then if Red - Green >= -1 then
        if Green - Blue <= 10 then if Green - Blue >= 4 then
          if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
            if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
              if GetColor(P[a].x, P[a].y + 5) = TestColor then
                if GetColor(P[a].x + 5, P[a].y) = TestColor then
                  if GetColor(P[a].x, P[a].y + 3) = TestColor then
                    if GetColor(P[a].x + 3, P[a].y) = TestColor then
                      if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                        if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                        begin
                          Result := TestColor;
                          WriteLn('Varrock RoadColor = ' + IntToStr(TestColor));
                          Exit;
                        end;
  end;
  WriteLn('Could not find Varrock Road Color!');
  Result := 0;
end;

[Buckleyindahouse]

Tara to the resuce, I also think Wizzup? made an function to find the new road colors.

[jackkat]

Thank you all, I created my own function to find the color from that autocolorthis function.
Here is what I did:

Declare roadcol and roadbmp as integers

Declare this somewhere:

roadbmp := BitmapFromString(3, 3, 'z78DAB370B170B430B62' +
       '0910400557F0C61');

The function:

procedure findroadcol;
begin
  roadcol:=AutoColorThis(roadbmp,20,MMX1,MMY1,MMX2,MMY2);
  writeln('Road color: '+inttostr(roadcol));
end;

and you can just use 'roadcol' instead of 'roadcolor'

The first version of the script should be posted later today or tomorrow.
I just have to get the banking working correctly and it will be runable.
(currently it goes to the bank symbol, but it can't open the booth)