SCAR Code:
// :::>>>>>>> BobboHobbo Productions <<<<<<<::::
// This Script was made from Me and got help from many guides
// Thank you to people who created guide
// to have helped me
// [Instructions]
// 1. Setup Lines 14-16
// 2. I made this mainly for willows
// so wc where thers only willows
// (Near lumbridge chickens)
program PowerCutte;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.include SRL\SRL\extended\xantiban.scar}
const
RunDirection= 'E';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
//
//
//
//
//
//
/////////////////////////////////////////////////////////////
// >>>Declare Your players.
// DELCARE PLAYERS AINT WORKING!!
/////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
CurrentPlayer:= 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='Your Username';
Players[0].Pass :='Your Password';
Players[0].Nick :='Nickname'; //3 letters of your username, example jonno you would choose onn.
Players[0].Active:= True;
Players[1].Name :='Your Username';
Players[1].Pass :='Your Password';
Players[1].Nick :='Nickname'; //3 letters of your username, example jonno you would choose onn.
Players[1].Active:= True;
end;
/////////////////////////////////////////////////////////////
// >> Cuttin the tree //
/////////////////////////////////////////////////////////////
procedure CuttingTree;
begin
if FindColorSpiral(x, y, Tree, 0, 0, 517, 339) then
MMouse(x, y, 1, 1);
if FindObj(x,y,'ill',Tree,10) then
Mouse(x, y, 1, 1, true);
Writeln('Cutting a tree ');
case random(10)of
0 : wait (1000);
1 : wait (2000);
2 : wait (3000);
3 : wait (1000);
4 : wait (2500);
5 : wait (1544);
6 : wait (3453);
7 : wait (1343);
8 : wait (1232);
9 : wait (2743);
10 : wait (2342);
end
FindHead;
AttachHead;
end;
/////////////////////////////////////////////////////////////
// >> Anti Ban //
/////////////////////////////////////////////////////////////
procedure AntiBanSystem;
Begin
Antiban;
PickUpMouse;
case random(12)of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('random', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'random');
6: MessageFriendEvery;
7: PickUpMouse;
8: BoredEvery(9 + Random(24));
9: DragItem(1, 1 + Random(18));
10: GameTab(1 + Random(12));
11: DoEmote(1 + Random(20));
12: PolyGlotTalk;
end;
end;
/////////////////////////////////////////////////////////////
// >> Dropping the Logs //
/////////////////////////////////////////////////////////////
procedure Drop;
begin
if (InvFull) then
wait(10000);
Writeln('Droping the Logs ');
DropAllLogs;
Writeln('Dropped All logs ');
case random(4)of
0 : Makecompass('S');
1 : MakeCompass('E');
2 : MakeCompass('W');
3 : MakeCompass('n');
4 : wait (1000);
end
end;
/////////////////////////////////////////////////////////////
// >> Taking care of the ents! //
/////////////////////////////////////////////////////////////
procedure EntFinder;
var
EX, EY: integer;
FX, FY: integer;
SafeEntWait: LongInt;
begin
Status('Checking For Ent')
if (FindObjMultiText(EX, EY, Treename, Treename, Treename, Tree, 2)) then
begin
MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)
repeat
FTWait(5)
FindNormalRandoms;
if not (LoggedIn) then
NextPlayer(False);
until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
EntsAvoided := EntsAvoided + 1
end;
end;
end;
/////////////////////////////////////////////////////////////
// >> Taking care of randoms //
/////////////////////////////////////////////////////////////
function FindFastRandoms: Boolean; //Function by WT-Fakawi
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7:
begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
Wait(20)
FindTalk;
Wait(20)
EntFinder;
if (FindFight) then
begin
RunAwayDirection(RunDirection);
Wait(8000 + Random(2000));
RunBack;
end;
Wait(20)
FindTalk;
end;
/////////////////////////////////////////////////////////////
// >>> The Setup of the script //
/////////////////////////////////////////////////////////////
procedure setup;
begin
SetupSRL;
SetRun(true);
Writeln('We have set Run to on ');
SetChat('Hide', 1);
SetChat('Off', 2);
SetChat('Off', 3);
end;
//-----------------------------------------------------------------//
// >> MAIN LOOP //
//-----------------------------------------------------------------//
begin
case random(3)of
0 : wait (3000);
1 : wait (3000);
2 : wait (4000);
3 : wait (2000);
end
setupSRL;
ActivateClient;
setup;
FindRandoms;
HighestAngle;
Makecompass ('N')
FindAxeHeadColor;
Repeat
FindRandoms;
AntiBanSystem;
CuttingTree;
until(InvFull);
Drop;
Repeat
FindRandoms;
AntiBanSystem;
CuttingTree;
until(InvFull);
AntiBanSystem;
FindRandoms;
Drop;
end.