SCAR Code:
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL\SRL\Skill\RuneCrafting.SCAR}
Procedure Walk2Trees;
begin
MakeCompass('n');
SetRun(true);
RadialRoadWalk(FindRoadColor, 0, 90, 70, 2, 2);
RadialRoadWalk(FindRoadColor, 0, 90, 70, 2, 2);
RadialRoadWalk(FindRoadColor, 0, 90, 50, 2, 2);
RadialRoadWalk(FindRoadColor,320,400,40, 2, 2);
RadialRoadWalk(FindRoadColor,320,400,40, 2, 2);
RadialRoadWalk(FindRoadColor,320,400,40, 2, 2);
RadialWalk(14612,90,0,70, 2, 2)
Mouse(x, y, 2, 2, true);
Flag;
end;
Function FWalkToYew : Boolean;
Var
wX, wY : Integer;
Begin
If FindSymbol(wX, wY, 'Tree') then
Begin
Mouse(wX, wY, 0, 0, True)
end;
Result := True;
end;
function GetIntoAlter: Boolean;
var
cx, cy, c: Integer;
begin
repeat
if (not (LoggedIn)) then
Exit;
repeat
c := c + 1;
if (not (LoggedIn)) then
Exit;
Wait(25);
if (c > 100) then
begin
Result := False;
Exit;
end;
until (FindMSColorTol(cx, cy, 5922904, 20));
MMouse(x, y, 1, 1);
if GetUpText = 'Enter' then
Mouse(x, y, 1, 1, true);
Result := True;
end;
begin
SetUpSRL;
ActivateClient;
Wait(5000);
Walk2Trees;
FWalkToYew;
GetIntoAlter;
end.