SCAR Code:
////////////////////////////////////////////////////////////////
// //
// ***** ***** ** ** ** *** ** **** ***** //
// ** ** ** ** ** * ** ** **** ** ** ** ** ** //
// ** ** ***** ****** *** ** **** ** ** ***** //
// ** ** ** ** ** ** ** ** *** ** ** ** ** //
// ***** ** ** ** ** ** ** ** **** ** **//
// //
// **** ** ** ******** ******** ***** ***** //
// ** ** ** ** ** ** ** ** //
// ** ** ** ** ** ***** ***** //
// ** *** *** ** ** ** ** ** //
// **** ****** ** ** ***** ** ** //
// //
// ** *** ** ***** //
// ** * **** ** ** ** //
// ****** ** **** ** ** //
// ** ** ** *** ** ** //
// ** ** ** ** ***** //
// //
// ***** ** *** ** ** ** ***** ***** //
// ** ** ** * **** ** ** ** ** ** ** //
// ***** ****** ** **** **** ***** ***** //
// ** ** ** ** ** *** ** ** ** ** ** //
// ***** ** ** ** ** ** ** ***** ** ** //
// //
////////////////////////////////////////////////////////////////
// Script created by: Phoenix13nl //
////////////////////////////////////////////////////////////////
program DraynorCutterAndBanker;
{.include srl/srl/misc/smart.scar}
{.include SRL/SRL.Scar}
var
xf, yf, x, y, LoopCount, LogCount : integer;
smartworld : string;
procedure DeclarePlayers;
begin
howmanyplayers:=1;
numberofplayers(howmanyplayers);
players[0].name:='Name';
players[0].pass:='Pass';
players[0].nick:='Nick'; //Just write 3-4 letters of your username, use correct capitals.
players[0].Integers[0]:=280; //Amount of fish to catch (About 27 fish per load of using net)
players[0].active:=true;
players[0].worked:=0;
end;
procedure Init;
begin
smartworld:='world63'; //Change 63 into any world's number...
end;
procedure AntiRandoms;
begin
if not(LoggedIn)then Exit;
if not findnormalrandoms then
begin
findtalk;
end;
if findfight=true then runaway('E',true,1,4000+random(2000));
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('Fishing', false);
1: HoverSkill('Cooking', false);
2: HoverSkill('Woodcutting', false);
3: HoverSkill('Firemaking', false);
end;
end;
end;
procedure WalkLogs;
begin
if not LoggedIn then exit;
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
if (InvFull = True) then exit;
wait(1500+random(500))
if(FindSymbol(x,y,'fish'))then
begin
writeln('Walking to willows.');
AntiRandoms;
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(3000+random(1000))
Antiban;
AntiRandoms;
wait(2000+random(500))
end;
end;
Procedure CutLogs;
begin
if (InvFull = true) or (LoggedIn = false) then exit;
repeat
AntiRandoms;
AntiBan;
wait(500+random(500))
if not FindObjCustom(x, y, ['own W','Will','low'], [2506050, 1849390, 3433040, 2506291, 3627360], 3) then exit;
repeat
wait(1500+random(500)) //Dont not remove/move this line! will slow down RS by searching the ObjCustom before being able to find.
if FindObjCustom(x, y, ['own W','Will','low'], [2506050, 1849390, 3433040, 2506291, 3627360], 3) then
begin
if FindObjCustom(xf, yf, [], [514778], 3) then
begin
runaway('E',true,1,200+random(200));
writeln('Ent!')
wait(2000+random(500));
AntiRandoms;
AntiBan;
wait(7500+random(500));
end;
writeln('Willow tree found.');
wait(100+random(50));
Mouse(x, y, 1, 1, true);
writeln('Cutting...');
wait(5000+random(2500));
if FindObjCustom(xf, yf, [], [514778], 3) then
begin
runaway('E',true,1,200+random(200));
writeln('Ent!')
wait(2000+random(500));
AntiRandoms;
AntiBan;
wait(7500+random(500));
end;
AntiRandoms;
AntiBan;
wait(3000+random(2500));
end;
until(InvFull = true);
until(InvFull = true);
LogCount:=LogCount+1;
MMouse(648,57,4,4);
wait(100+random(50));
Mouse(648,57,1,1,true);
wait(2000+random(1000))
end;
procedure WalkBank;
begin
if not LoggedIn then exit;
if not (InvFull = true) then exit;
wait(1000+random(500))
if(FindSymbol(x,y,'bank'))then
begin
Writeln('Bank found.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(5000+random(1000));
AntiBan;
AntiRandoms;
wait(4500+random(1000));
end;
end;
procedure Bank;
begin
if not LoggedIn then exit;
if not (InvFull = true) then exit;
repeat
if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(1000+random(500))
if ChooseOption('se-q') then
begin
wait(3500+random(500));
deposit(3,28,true);
wait(1500+random(500));
MMouse(489,33,4,4);
wait(100+random(50));
Mouse(489,33,1,1,true);
wait(1500+random(500));
MMouse(609,129,4,4);
wait(100+random(50));
Mouse(609,129,1,1,true);
AntiBan;
wait(6000+random(2000));
end;
end;
until(InvFull = false)
end;
begin
cleardebug;
init;
smartsetup(smartworld,false,true,false);
settargetdc(smartgetdc);
setupsrl;
lampskill:='woodcutting'; //Change into any skill... make sure its written corretly!
declareplayers;
currentplayer:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
Repeat
if not loggedin then exit;
WalkLogs;
CutLogs;
WalkBank;
Bank;
if (InvFull = True) then break;
Cleardebug;
LoopCount:=LoopCount+1;
Writeln(IntToStr(LoopCount) + ' loops completed.');
Writeln('About ' + IntToStr(LogCount * 28) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' logs banked.');
Until(LogCount * 28>= Players[CurrentPlayer].Integers[0]);
logout;
end.