SCAR Code:
{---------------------------------------------------------------------|
|---------------------------Auto--------------------------------------|
|--------------------------Walker-------------------------------------|
|-----------------------By: 3Garrett3!--------------------------------|
|---------------------------------------------------------------------|
Instructions: Stand in Lumbridge castle where you would respwan if you
died, making sure the guide symbol is visible. The script walks to the
Draynor Bank}
{Credits, WT-Fakawi (if not loggedin then break;), Pennti(vars and Randoms)
Mage Of Begu (edited a bit)}
program Walker;
{.include SRL/SRL.scar}
procedure DeclarePlayers;
begin
SetArrayLength(Players,1)
CurrentPlayer:=0
Players[0].Nick:= 'Nick'; //A few letter from your username.
NickNameBmp:=Createbitmapmaskfromtext(Players[0].Nick,UpChars)
end;
Procedure Start;
begin
If (FindSymbol(x,y, 'guide')) then
begin
Writeln('Found Guide Symbol, Clicking On it')
Status('Clicking Guide Symbol')
Mouse(x,y, 0,0,True)
Flag;
end;
repeat
if not loggedin then break;
RadialWalk(14400409, 300, 360, 71, 1, 1)
until (FindSymbol(x,y, 'shop')) or
findcolor(x,y,3895484,1, 1, 800,800) or
findcolor(x,y,2585341,1,1,800,800)
end;
Procedure GenStr;
begin
Writeln('Made it to Gen Store')
repeat
if not loggedin then break;
RadialRoadWalk(FindRoadColor,360,300,55,1,1)
until (FindSymbol(x,y, 'furnace'))
or findcolor(x,y,1310717, 1,1,800,800)
or (findcolor(x,y,2585341,1,1,800,800))
Mouse(x,y,0,0,True)
Flag;
end;
Procedure Furnace;
begin
Writeln('Have made it to the Furnace')
repeat
if not loggedin then break;
RadialRoadWalk(FindRoadColor,260,380,40,1,-1);
until (findcolor(x,y, 6314328, 1, 1, 800, 800))
end;
Procedure Crossroads;
begin
Writeln('Have made it to the Flour Maker')
RadialRoadWalk(FindRoadColor, 250, 300, 60, 1, -1)
repeat
if not loggedin then break;
RadialRoadWalk(FindRoadColor, 250, 300, 60, 1, -1)
until (findcolor(x,y,6314328,1,1,800,800))
end;
Procedure Tobank;
begin
Writeln('At crossroad part, heading to bank')
repeat
RadialRoadWalk(RoadColor,180,200,55,1,-1)
until (findsymbol(x,y, 'bank'))
or (findcolor(x,y,5624553,1,1,800,800))
Mouse(x,y,0,0,True)
Flag;
Writeln('At Bank, Hurray!')
end;
begin
SetupSRL;
declarePlayers;
ClearDebug;
ActivateClient;
MakeCompass('N');
Start;
FindNormalRandoms;
GenStr;
FindNormalRandoms;
Furnace;
FindNormalRandoms;
Crossroads;
FindNormalRandoms;
Tobank;
FindNormalRandoms;
end.
please tell me if this works because I am trying to make it a part of a bigger script.