SCAR Code:
Procedure MineTin;
begin
repeat
If (FindColorSpiralTolerance(x, y, TinColour, MSX1, MSY1,MSX2, MSY2, 3))//the 3 is the tolerance parameter make it 15 or something
or
(FindColorSpiralTolerance(x, y, TinColour1, MSX1, MSY1,MSX2, MSY2, 3))//the 3 is the tolerance parameter
Then
begin
mmouse(x,y,5,5);// the 5,5 are the randx and the randy variable randx = 5 and randy = 5 means the x and y you fill in + 5 randomness on both variables
if isuptext('ine')then
begin
wait(300);//way to long make it like 1 milisec?
Mouse(x,y,0,0,true);
writeln('Found Rock');
Randoms;
end;
end;
until(invfull)
end;
some explaination to the code some guy posted:
SCAR Code:
Program HiThere;
{.include srl/srl.scar}
Procedure FindPickHeads(Colors : Array Of Integer);
Var
I, X, Y : Integer;
Begin
For I:=0 to GetArrayLength(Colors) Do
If FindColorSpiralTolerance(x, y, Colors[i], MSX1, MSY1, MSX2, MSY2, 15) Then
//Code you want executed here
End;
Begin
FindPickHeads([23423, 2343, 2342, 23423])//a array of an integer is contains indexes like:
//Let's pretend LOL is an array of integers(whole numbers)
//we could do this LOL := [342342,4234432,432234]
//an array always starts at 0(the index)
//Writeln(inttostr( LOL[0]); // index 0 is 342342
//What the code above this code does is loop through all your colors and //then if one of them is found it will do the code u put below it like check for //uptext and then click it
End.