SCAR Code:
program FirstRRWExample;
{.include SRL/SRL.scar}
Function MyFirstAutocolor: Integer;
var
R, G, B, TestColor: Integer;
H, S, L, X, Y, Z: Extended;
MyColor: Integer;
ColorsTPA : TPointArray;
C1 : TIntegerArray;
i,C2 : Integer;
begin
MyColor := 6781827;
FindColorsSpiralTolerance(MSCX, MSCY, ColorsTPA, MyColor, MMX1, MMY1, MMX2, MMY2, 55);
C1 := GetColors(ColorsTPA);
C2 := High(C1);
for i := 0 to C2 do
begin
if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then
end;
//You shouldn't end it right here. I don't know what you took out, but it was important.
procedure Walk; //By ending it, the variables you called are nulled. That's one thing.
begin //The other is that you didn't finish the If Then Statement (if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then)
RadialRoadWalk(MyFirstAutoColor, 0, 90, 70, 1, -1); //I'd suggest remaking it with Auto Color Aid 2. Copy the info from it exactly. Then, make the walk procedure AFTER
end; //the last end in the Auto Color Procedure.
InRange(R - G, -12, 28) then
if InRange(R - B, 8, 48) then
if InRange(G - B, 0, 40) then
if InRange(Round(S) - Round(H), -15, 15) then
if InRange(Round(L) - Round(H), 14 , 49) then
if InRange(Round(S) - Round(L), -49, -19) then
if InRange(Round(X) - Round(Y), -8 , 6) then
if InRange(Round(Y) - Round(Z), -11 , 3) then
if GetColor(ColorsTPA[A].X + 2, ColorsTPA[A].Y + 2) = TestColor then
if GetColor(ColorsTPA[A].X + 1, ColorsTPA[A].Y + 1) = TestColor then
end;
end;
Writeln('Couldnt find My Color!');
Result := 0;
end;
begin
SetUpSRL;
ActivateClient;
Wait(500 + Random(500));
Walk;
end.