SCAR Code:
program New;
{.include SRL\SRL.scar}
const
Colour = 0;
NUpText = 'Hi';
function FindTree: Boolean; //Not sure what im lookin for
var
Skip: TBoxArray;
begin
repeat
if FindColorSkipBoxArray(X, Y, Colour, MSX1, MSY1, MSX2, MSY2, Skip) then
begin
MMouse(X, Y + Random(50), 1, 1); //Moves mouse lower then it would
Wait(500 + Random(250)); //Change wait if you want
if IsUpText(NUpText) then
begin
Result := True; //Add Mouse or w\e you want in here
end else
begin
SetArrayLength(Skip, GetArrayLength(Skip) + 1);
Skip[GetArrayLength(Skip) - 1] := IntToBox(X - 25, Y - 25, X + 25, Y + 25); //Makes a 50x50 box around the X, Y Coordinates
end;
end;
until(Result);
end;
begin
SetUpSRL;
FindTree;
end.
That works, I don't understand what you just asked sorry, Why not just not wear a lederhosen xD?