Ok so Im making a script that cuts the magic trees near Seers village, but I dont know the best way to walk there/back. Im currently using radialwalk/findsymbol, but that doesnt seem reliable or safe. Im looking for an easy method too since im noobish:P Thanks.
SCAR Code:
program New;
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/skill/Woodcutting.scar}
var
X, Y : Integer;
const
YourSRLID = ''; //Your SRL ID, 4 digits long.
YourSRLPW = ''; //Your Srl Password
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := '';
Players[0] .Pass := '';
Players[0] .Nick := ''; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
end;
//*******Do not change below this point*******//
procedure AntiRandoms;
begin
FindTalk;
if FindNormalRandoms then
FindLamp('woodcutting');
if FindFight then
begin
RunAway('E', True, 1, 5000);
Wait(10000+random(2000));
end;
end;
procedure AntiBan;
begin
if(not(LoggedIn))then Exit;
case random(4) of
0: PickUpMouse;
1: RandomMovement;
2: RandomRClick;
3: case random(4) of
0: HoverSkill('Woodcutting', false);
1: HoverSkill('Smithing', false);
2: HoverSkill('Hitpoints', false);
3: HoverSkill('Agility', false);
end;
end;
end;
procedure TiltScreen;
begin
if not(loggedIn) then exit;
keydown(VK_DOWN);
wait(200+random(125)+random(138));
keyup(VK_DOWN);
wait(random(232));
end;
procedure SetupPlayers;
begin
if not LoggedIn then LoginPlayer;
MakeCompass('n');
SetAngle(true);
SetRun(true);
TiltScreen;
end;
procedure WalkToTrees;
begin
MakeCompass('n');
if FindSymbol(x,y, 'anvil')then
begin
if RadialWalk( 12568008 , 140, 180, 70, 5, 5)then
if RadialWalk( 12568008 , 180, 220, 70, 5, 5)then
if not FindSymbol(x,y, 'spin') then
WriteLn('Could not complete walk to magics, sorry');
TerminateScript;
end;
begin
if FindSymbol(x,y, 'spin') then
wait(1000);
RadialRoadWalk( FindRockColor , 190, 220, 100, 5, 5)
end;
end;
procedure MainLoop;
var Mark : Integer;
begin
repeat
repeat
SetupPlayers;
AntiRandoms;
AntiBan;
WalkToTrees;
if not LoggedIn then Exit;
AntiBan;
WalkToTrees;
until((TimeFromMark(Mark) / 1000 * 60) >= 50);
until(false);
end;
begin
SetUpSRL;
SRLID := YourSRLID;
SRLPassword := YourSRLPW;
DeclarePlayers;
SetupPlayers;
MainLoop;
SendSRLReport;
end.