SCAR Code:
//-----------------------------------------------------------//
// >>>>>>>-:BobboHobbo:-<<<<<<<< //
// Productions Presents: //
// Lumbridge RadialWalkder from bank to //
// The yew tree in Lumb gravyard. //
//-----------------------------------------------------------//
//If you find any problems in the radial walk Fix them or tell//
//me. HAVE 28 ITEMS IN UR INVENTORY BEFORE PLAYING SCRIPT //
// //
// Known Problems: When Lumbridge is crowedit stuffs up //
// sometimes. //
//-----------------------------------------------------------//
program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
const
Tree = 3168336;//Colour of tree.
Stairs = 4669512;
Ladder = 603990;
Procedure Banktoyew;
begin
RadialRoadWalk(FindRoadColor, 5, 371, 46, 0, 0);
WriteLn(' Did: Bank to Stairs ');
end;
Procedure Banktoyew1;
begin
RadialRoadWalk(6912388, 4, 374, 63, 0, 0);
WriteLn(' Did: Bank to Stairs (failsafe) ');
end;
Procedure Banktoyewstairsfloor2;
begin
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
WriteLn(' Did: Found Stairs ');
end;
Procedure Banktoyewstairsfloor1;
begin
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, true);
WriteLn(' Did: Found Stairs ');
end;
Procedure Banktoyewstairsfloor;
begin
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, false);
Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-down')) then
WriteLn(' On bottom folor ');
end;
Procedure BanktoyewsCastle;
begin
RadialRoadWalk(FindRoadColor, 243, 588, 38, 0, 0);
WriteLn(' Clicked East from stairs ');
end;
Procedure BanktoyewsCastle1;
begin
RadialRoadWalk(FindRoadColor, 239, 604, 63, 0, 0);
WriteLn(' Did: Going to the yew ');
end;
Procedure BanktoyewsCastle2;
begin
RadialRoadWalk(FindRoadColor, 310, 677, 32, 0, 0);
WriteLn(' Did: Going to the yew 2 ');
end;
Procedure BanktoyewsCastle3;
begin
RadialRoadWalk(FindRoadColor, 300, 350, 50, 0, 0);
WriteLn(' Did: Going to the yew 3 ');
end;
Procedure BanktoyewsCastle4;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
begin
if FindSymbol(x, y, 'axe shop') then
Mouse(x, y, 1, 1, true);
FTwait(15);
WriteLn(' Did: Near Tree ');
end;
end;
Procedure BanktoyewsCastle5;
begin
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'rare trees')))then
begin
if FindSymbol(x, y, 'axe shop') then
Mouse(x, y, 1, 1, true);
FTwait(15);
if FindSymbol(x, y, 'rare trees') then
Mouse(x, y, 1, 1, true);
FTwait(15);
WriteLn(' Did: Finds yew symbol ');
end;
end;
Procedure Yewstobank;
begin
RadialWalk(2913918, 101, 150, 58, 0, 0);
end;
Procedure Yewstobank1;
begin
RadialroadWalk(FindRoadColor, 167, 132, 55, 0, 0);
end;
Procedure Yewstobank2;
begin
RadialroadWalk(FindRoadColor, 55, 90, 68, 0, 0);
end;
Procedure Yewstobank3;
begin
if FindSymbol(x, y, 'quest') then
Mouse(x, y, 1, 1, true);
FTwait(15);
If (not(FindSymbol(x,y,'quest')))then
begin
if FindSymbol(x, y, 'cook') then
Mouse(x, y, 1, 1, true);
FTwait(15);
end;
end;
Procedure Yewstobank4;
begin
RadialroadWalk(FindRoadColor, 337, 440, 23, 0, 0);
end;
Procedure Yewstobank5;
begin
RadialroadWalk(FindRoadColor, 99, 120, 34, 0, 0);
end;
Procedure Yewstobankstairs0;
begin
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
end;
Procedure Yewstobankstairs;
begin
if FindObj(x,y,'lim', Stairs,35) then
Mouse(x, y, 1, 1, true);
end;
Procedure Yewstobankstairs1;
begin
if FindObj(x,y,'tai', Stairs,35) then
Mouse(x, y, 1, 1, false);
Wait(1000+random(1000))
if (ChooseOption(x, y, 'Climb-up')) then
end;
Procedure Yewstobankbbf;
begin
RadialroadWalk(FindRoadColor, 170, 220, 50, 0, 0);
openbank; //Need to finish the bank
bankscreen;
end;
procedure CuttingTree;
begin
if FindObj(x,y,'Yew',Tree,10) then
Mouse(x, y, 1, 1, true);
wait(1000+random(3500));
end;
begin
SetUpSRL;
ActivateClient;
Banktoyew;
FTwait(5);
Banktoyew1;
FTwait(6);
Banktoyewstairsfloor2;
FTwait(5);
Banktoyewstairsfloor1;
wait(2000+random(500))
Banktoyewstairsfloor;
wait(2000+random(500))
BanktoyewsCastle;
wait(2000+random(500))
BanktoyewsCastle1;
wait(2000+random(500))
BanktoyewsCastle2;
wait(2000+random(500))
BanktoyewsCastle3;
wait(2000+random(500))
BanktoyewsCastle4;
wait(2000+random(500))
BanktoyewsCastle5;
wait(2000+random(500))
Repeat // (Can get rid of this)
CuttingTree; // THIS WAS JUST TO TEST you can get rid of if you want
Until(Invfull)// Can get rid of this.
Yewstobank;
FTwait(2);
Yewstobank1;
wait(2000+random(500))
Yewstobank2;
wait(1000+random(500))
Yewstobank3;
wait(1000+random(500))
Yewstobank4;
wait(1000+random(500))
Yewstobank5;
wait(1000+random(500))
Yewstobankstairs;
wait(2000+random(500))
Yewstobankstairs0;
wait(2000+random(500))
Yewstobankstairs1;
Yewstobankbbf;
end.