Hmm, well I just updated SRL and I have restarted SCAR. Still getting the error.
Edit: I'll just post the whole script. Maybe the problem is somewhere in there.
Code:
program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
var SmartWorldNo, x, y, a, b: integer;
Tree: integer;
statuscheck: string;
Boxxy: TBox;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := 'nothing1221'; //Player username
Players[0].Pass := ''; //Player password
Players[0].Nick := 'othi'; //Player nickname - 3 or 4 letters of your player name (no spaces or capitals).Players[0].Active := True; //Is the player active (do you want to auto on this acc)?
Players[0].Active := True;
Players[0].Strings[0] := 'Free'; //'Free' or 'Members'
end;
Procedure ToTrees;
begin
writeln('Attempting to find trees');
MakeCompass('n');
SetAngle(true);
LoadSymbolBitmapColor('Fishing Spot');
wait(100+random(150));
If(FindSymbol(x, y, 'fishing spot'))then
begin
writeln('Found Fishing spot, attemtping to walk to');
mouse(x, y, 4, 4, true)
Fflag(0);
end;
if(FindSymbol(x, y, 'fishing spot'))then
writeln('At Trees');
end;
Procedure Cut;
begin
Boxxy := (IntToBox(206, 119, 296, 221));
MakeCompass('n');
SetAngle(true);
writeln('Attempting to find tree to cut');
repeat
if(FindcolorspiralTolerance(x, y, 1852469, 2, 2, 518, 337, 10))then
begin
mouse(x, y, 3, 3, false);
wait(350+random(200));
chooseoption('hop d');
wait(500+random(500));
Boxxy := IntToBox(206, 119, 296, 221);
if(Animating(Boxxy, 1000, 50))then
begin
FindNormalRandoms;
BoredHuman;
end;
end;
until(false)
end;
begin
SmartWorldNo := 0;
{$IFDEF SRL_SMART}
Smart_Server := SmartWorldNo;
{$ENDIF}
SetupSRL;
DeclarePlayers;
LoginPlayer;
ActivateClient;
// ToTrees;
repeat
Cut;
until(false)
end.