Alright this is all i got so far for my script, and its all from Sumillion's auto color aid lol.
What i need from here is it to click when it finds the object. I need login. I need it to log out if it doesnt find the color and then some antirandoms and antiban.Code:program FindObject; {.include SRL\SRL.scar} var x, y: Integer; function FindObject(var fx, fy: Integer): Boolean; var arP, arAP: TPointArray; arC, arUC: TIntegerArray; ararP: T2DPointArray; tmpCTS, i, j, arL, arL2: Integer; P: TPoint; H, S, L: Extended; X, Y, Z: Extended; begin tmpCTS := GetColorToleranceSpeed; ColorToleranceSpeed(1); if not(FindColorsTolerance(arP, 9206074, MSX1, MSY1, MSX2, MSY2, 39)) then begin Writeln('Failed to find the color, no object found.'); ColorToleranceSpeed(tmpCTS); Exit; end; arC := GetColors(arP); arUC := arC; ClearSameIntegers(arUC); arL := High(arUC); arL2 := High(arC); for i := 0 to arL do begin ColorToHSL(arC[i], H, S, L); if (H >= 51.98) and (H <= 56.46) and (S >= 22.30) and (S <= 69.49) and (L >= 37.23) and (L <= 43.94) then begin ColorToXYZ(arC[i], X, Y, Z); if (X >= 11.87) and (X <= 16.58) and (Y >= 13.96) and (Y <= 20.08) and (Z >= 19.26) and (Z <= 35.77) then begin for j := 0 to arL2 do begin if (arUC[i] = arC[j]) then begin SetLength(arAP, Length(arAP) + 1); arAP[High(arAP)] := arP[j]; end; end; end; end; end; SortTPAFrom(arAP, Point(MSCX, MSCY)); ararP := SplitTPAEx(arAP, 10, 10); arL := High(ararP); for i := 0 to arL do begin if (Length(ararP[i]) < 10) then Continue; P := MiddleTPA(ararP[i]); MMouse(P.x, P.y, 5, 5); Wait(100 + Random(100)); if (IsUpText('Take')) then begin; Result := True; Break; end; end; ColorToleranceSpeed(tmpCTS); if (i = arL + 1) then begin Writeln('FindObject could not find object.'); Exit; end; GetMousePos(fx, fy); end; begin SetupSRL; FindObject(x, y); end.


Reply With Quote



