SCAR Code:
program LumbyAllInOne;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/woodcutting.scar}
{.include SRL/SRL/skill/cooking.scar}
{.include SRL/SRL/skill/fighting.scar}
var
hometeleport, lx, ly:integer;
const
Location = 'Lumbridge'; //You can use Chicken Pen, Lumbridge, or Other.
{=====================================================================================]
DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}
procedure loadbitmaps; //I made a new BMP, this one was out of date.
begin
hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
'3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
'58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
'6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
'5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
'E870');
end;
Procedure casthometeleport;
begin
gametab(7);
WriteLn('Opened Tab');
wait(400+Random(600));
If(FindBitmap(hometeleport, lx, ly)) Then
Begin
wait(100 + Random(150));
Mouse(lx, ly, 5, 5, True);
wait(15000);
WriteLn('your in limbridge, have a nice day!');
end
else
If Not(FindBitmap(HomeTelePort, lx, ly)) Then
begin
WriteLn('couldnt fin spell.');
end;
end;
procedure Move;
begin
if Location='Other' then
begin
casthometeleport;
HighestAngle;
MakeCompass('N');
FindRoadColor;
SetRun(true);
RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
WriteLn('Clicked 1');
FFlag(5);
RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
WriteLn('Clicked 2');
FFlag(5);
RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
WriteLn('Clicked 3');
FFlag(5);
RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
WriteLn('Clicked 4');
FFlag(4);
RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
WriteLn('Clicked 5');
FFlag(6);
RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
WriteLn('Clicked 6');
FFlag(5);
RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
WriteLn('Clicked 7');
FFlag(5);
RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
WriteLn('Clicked 8');
SetRun(false);
end
if Location='Lumbridge' then
begin
HighestAngle;
MakeCompass('N');
FindRoadColor;
SetRun(true);
RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
WriteLn('Clicked 1');
FFlag(5);
RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
WriteLn('Clicked 2');
FFlag(5);
RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
WriteLn('Clicked 3');
FFlag(5);
RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
WriteLn('Clicked 4');
FFlag(4);
RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
WriteLn('Clicked 5');
FFlag(6);
RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
WriteLn('Clicked 6');
FFlag(5);
RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
WriteLn('Clicked 7');
FFlag(5);
RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
WriteLn('Clicked 8');
SetRun(false);
end
If Location='Chicken Pen' Then
Begin
Exit;
end;
end;
begin
SetupSrl;
activateclient;
loadbitmaps; //Load your bitmaps here instead of in Procedure.
Move; //It is named Move because it takes care of everything not just chicken pen, doesn't really matter
end.