Here:
SCAR Code:
//=======South Varock OakOblivion========//
// //
// 1. Position yourself south of varrock //
// - by the oak trees facing north. //
// 2. Enter you login details. //
// ##IMPORTANT## //
// AXE MUST BE EQUIPTED //
// 3.Press play and watch the lvls go //
// up //
//=======================================//
///////////////////////////////////////////
{=========================================
program VarrockSouth_OakOblivionV1;
{.include SRL/SRL.scar}
var
i,x,y,Randomm:Integer;
const
Treecolor1 = 926756;//the color of the tree
Treecolor2 = 32768; // outher color
Procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := '--------'; //UserName
Players[0].Pass := '--------'; //Password
Players[0].Nick := '----'; //Your Nickname - 3-4 leters
Players[0].Active := True; //Active
end;
procedure Signiture;
begin
writeln('T'); // sig
writeln('O');
writeln('M');
writeln('D');
writeln('A');
writeln('V');
writeln('I');
writeln('E');
writeln('S');
end;
procedure Login; //Login
begin
if (not(LoggedIn)) then //If not logged in then logs in player
LoginPlayer;
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
solveChatRandom;
FindLamp ('Woodcutting') //Uses lamp on that skill
DwarfItem;
If (FindFight)Then
Begin
MakeCompass ('N')
RunTo('E', True)
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
Procedure AntiBan;
begin
randomm := Random(4)
case randomm of
0: begin
Wait(2241+(random(287)));
RandomRClick;
Wait(2348+(random(287)));
Randoms
end;
1: begin
Wait(1956+(random(641)));
GameTab(random(13)+1);
Randoms;
Wait(2341+(random(683)));
GameTab(4);
end;
2: begin
Wait(1119+(random(272)));
Randoms;
HoverSkill('Mining' ,false);
Wait(1164+(random(297)));
end;
3: begin
Wait(2214+(random(631)));
GameTab(random(13)+1);
Randoms;
Wait(2119+(random(653)));
GameTab(4);
end;
end;
end;
Procedure ChopTree;
Begin
repeat
if FindObjCustom(x, y, ['Oa', 'ak'], [Treecolor1, Treecolor2], 7) then
begin
Mouse(x,y,0,0,false);
Wait(25+(random(50)));
ChooseOption('hop')
randoms;
antiban;
writeln('Cutting Tree');
end else
writeln('Could not find Tree...');
until( InvFull )
End;
Procedure DropLogs;
var
i : Integer;
begin
if invfull then
begin
for i := 2 to 28 do
begin
DropItem(i);
Wait(RandomRange(201, 401));
end;
end;
end;
begin
SetupSRl; // setup srl
Signiture; // setup sig
DeclarePlayers; // Declare Players
if (not(LoggedIn)) then Login;
randoms; // Sets up randoms
AntiBan; // Trys to stop you getting banned
repeat // Repeat these functions
ChopTree; // Cut
DropLogs; // Drop
until(false) // Until stoped
end.
Hope I Helped
.