Well did you fix his Standards?
Simba Code:
program new;
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
Howmanyplayers :=1;
Numberofplayers(howmanyplayers);
CurrentPlayer :=0;
Players[0].name :='';
Players[0].pass :='';
Players[0].nick :='';
Players[0].Active:=True;
end;
// ACA data
function TreeColor: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.08);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 2374992, MSX1, MSY1, MSX2, MSY2, 7);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 2.81) and (X <= 8.83) and (Y >= 2.76) and (Y <= 8.55) and (Z >= 1.34) and (Z <= 3.79) then
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
//Finds the Tree, and clicks it
function FindTree:Boolean;
var
x, y: Integer;
begin
FindNormalRandoms;
x:=MSCX ;
Y:=MSCY;
if findObjTPA(x, y, TreeColor, 5, 1, 15, 60, 600, ['cho']) then
begin
GetMousePos(x, y);
case random(2) of
0: mouse(x, y, 5, 5, true);
1: begin
mouse(x, y, 5, 5, false);
waitoption('hop', 600);
end;
end;
end;
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
FindTree;
end.
Ok so I made one mistake I can see, who cares