SCAR Code:
program new;
{.include srl/srl.scar}
Function BankAutoColor: Integer;
Var
i, GC, RED, Blue, Green, TestColor: Integer;
H, L, S: Extended;
P: TPointArray;
Begin
GC := 6062752;
FFlag(0);
FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 40);
For i := 0 To High(P)-1 Do
begin
If RS_OnMinimap(P[i].x,P[i].y) Then
begin
TestColor := GetColor(P[i].x,P[i].y);
ColorToRGB(TestColor, Red, Green, Blue);
ColorToHSL(TestColor, H, S, L);
If InRange(Red - Blue, 58, 78) Then
If InRange(Red - Green, 24, 59) Then
If InRange(Green - Blue, 11, 44) Then
If InRange(Round(H - L), -34, 53) Then
If InRange(Round(S - H), 40, 14) Then
If InRange(Round(S - L), -27, -13) Then
If GetColor(P[i].x + 2, P[i].y + 2) = TestColor Then
If GetColor(P[i].x + 1, P[i].y + 1) = TestColor Then
If GetColor(P[i].x, P[i].y + 2) = TestColor Then
If GetColor(P[i].x + 2, P[i].y) = TestColor Then
If GetColor(P[i].x, P[i].y + 1) = TestColor Then
If GetColor(P[i].x + 1, P[i].y) = TestColor Then
If GetColor(P[i].x + 2, P[i].y + 1) = TestColor Then
If GetColor(P[i].x + 1, P[i].y + 2) = TestColor Then
begin
Result := TestColor;
Writeln('BankAutoColor = '+ IntToStr(Result) + '.');
Exit;
end;
end;
end;
WriteLn('Couldnt Find BankAutoColor =(!');
Result := 0;
End;
Begin
SetupSRL;
ActivateClient;
Wait(1000);
ClearDebug;
BankAutocolor;
End.
it never finds the color i want is their something wrong with it?