ok here it is....
SCAR Code:
//TREE FINDER//
procedure FindTheTree;
var Tries: Integer;
begin
if(not(LoggedIn))then
Exit;
begin
repeat
Wait(1000 + random(250));
Tries:= Tries + 1;
if(Tries = 20)then
begin
Writeln('couldnt find color...ending script');
TerminateScript;
end;
until(FindColorTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,3));
end;
end;
//MAIN LOOP//
begin
ScriptSetup;
if (not(LoggedIn)) then
LogInPlayer;
Setup;
NEWLINE:='';
DeclarePlayers;
Randoms;
repeat
if (not(LoggedIn)) then
LogInPlayer;
Chop;
Drop;
Proggy;
Randoms;
DontGetBanned;
until Loads >= Players[CurrentPlayer].Loads1
if Loads >= Players[CurrentPlayer].Loads1 then
Logout;
NextPlayer(True);
end.