SCAR Code:
program WillowXL;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
///////V DO NOT EDIT THIS V/////////////////////////////////////////////////////
var
x: Integer;
y: Integer;
load: Integer;
///////V EDIT THIS V ///////////////////////////////////////////////////////////
const
pin = '';
user = '';
pass = '';
loads = 50; // <-- Number of Loads u would like to do
///////^ STOP EDITING HERE ^////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//------------------------> SCRIPT STARTING HERE <----------------------------//
////////////////////////////////////////////////////////////////////////////////
procedure Login;
begin
if (FindColor(x,y,16777215,445,290,445,290)) then
begin
MMouse (x,y,0,0);
mouse (x,y,0,0,true);
wait (500+random(50));
TypeSend (user);
wait (500+random(50));
TypeSend (pass);
MMouse (310,325,0,0);
Mouse (310,325,0,0,true);
Wait (5000+random(200));
MMouse (405,325,0,0);
Mouse (405,325,0,0,true);
end else
begin
ClearDebug;
Writeln('|--------------FATAL ERROR---------------|');
Writeln('|Script Error: Could not manage to login.|');
Writeln('|--------------FATAL ERROR---------------|');
end;
end;
procedure CheckLogin;
begin
if not LoggedIn then
Login;
end;
////////////////////////////////////////////////////////////////////////////////
procedure CompS; //
begin //
Wait (1000+random(100)); //
MakeCompass ('S'); //
Wait (1000+random(100)); //
end; //
////////////////////////////////////////////////////////////////////////////////
procedure CompN; //
begin //
Wait (1000+random(100)); //
MakeCompass ('N'); //
Wait (1000+random(100)); //
end; //
////////////////////////////////////////////////////////////////////////////////
Procedure Chopping; //
begin //
repeat //
CompS; //
if FindObjCustom(x,y,['Wil','low'],[1989969,3760987,2844763],7) then //
begin //
Mouse(x,y,0,0,false); //
repeat //
wait(100 + (random(150))); //
chooseOption('hop') //
until(InvFull) //
end; //
until(InvFull) //
end; //
////////////////////////////////////////////////////////////////////////////////
function Banking: Boolean;
begin
if (InvFull) then
begin
CompN
Wait (400 + random(200));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if(FindColorSpiral(x, y, 4155248,547,206,734,464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
end;
CloseBank;
Wait(150 + random (278));
CompS;
end;
end;
////////////////////////////////////////////////////////////////////////////////
begin
SetupSRL;
ClearDebug;
login;
CheckLogin
Chopping;
Banking;
end.