SCAR Code:
//////// ////////// / /L //////// //////////// ////// N///
//BBBBBB// //EEEEEE// //L //GGGGG// IIII//IIII ///N/// N///
//BB BBB// //E //L //GGGGGG// I//I ///NN/// N///
//BBBBBB// ////////// //L // I//I ///N /// N///
//BBBBB// //EEEEEE// //L //GGGG/////// I//I ///N /// N///
//BB BB// //E //L //GGG//GG// I//I ///N ///NN///
//BBBBBBB// //EEEEEE// //LLLLLLL //GGGGG// IIII//IIII ///N ///N///
////////// ////////// ////////// /////// //////////// ///N //////
////////// //////////// ////////// //H H//
//FFFFFF// IIII//IIII //SSSSSSS// //H H//
//F I//I //S //H H//
//F I//I /////// //HHHHHHH//
////////// I//I // ///////////
//FFFFFFF I//I //SSSSSSS// //HHHHHHH//
//F IIII//IIII //SSSSSSSS// //H H//
//F //////////// ////////// //H H//
//////////////////////////////////////////////////
//Start Neer Trees //
//Have Axe In First Iventory Spot or weilded //
//Fill Out Whats There //
//Enjoy //
//Attention:I Some Ideas From Other Peoples Work//
//Includes Srl, Thanks Srl Creators //
//This Is My Very First Script I Know It Sucks //
//////////////////////////////////////////////////
program PowerChopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
//Edit The Things In This Box Only!//
////////////////////////////////////////////////////////////////////
const TreeColor1 = 3041376; //Color Of The Tree You Want To Chop.
const TreeColor2 = 3041376; //Color Of The Tree You Want To Chop.
const TreeColor3 = 3041376; //Color Of The Tree You Want To Chop.
const TreeType = 'Tree'; //Enter The Tree Type Here.
const LoadsToDo = 1000; //Times to click trees before logging out.
const RunDir = 'N'; // Direction You Wish To Run If Attacked.
const AxeWeilded = True; //axe weilded True or False
////////////////////////////////////////////////////////////////////
var
c: Integer;
LogOutNum: Integer;
procedure ProgressReport; //Progress Report
begin
ClearDebug;
Writeln('---------------->Progress Report<------------');
WriteLn('Cut ' + inttostr(c) + ' logs. ');
WriteLn('Script Has Been Running ' + TimeRunning);
Writeln('---------------------------------------------');
c := 0;
end;
//AntiRandoms\\
procedure AntiRandoms;
begin
Status('Searching For Randoms')
FindNormalRandoms;
wait(10 + random(3))
FindTalk;
if (FindFight) then
begin
Status('Found Fight Running Away')
RunAwayDirection(RunDir);
wait(4000 + random(4560))
RunBack;
Status('Random Handled Successfully')
end;
end;
begin
FindTalk;
wait(10 + random(2))
end;
//AntiBan\\
procedure Antibans;
begin
AntiRandoms;
HoverSkill('WoodCutting', False)
HoverEvery(5, 'Woodcutting');
end;
begin
RotateEvery(10);
PickUpMouse;
wait(30 + random(10))
BoredHuman;
BoredEvery(5);
end;
begin
case random(90) of
0: TypeSend('hi');
1: TypeSend('lol');
2: TypeSend('rofl');
3: TypeSend('wc lvls?');
4: TypeSend('Hello');
5: TypeSend('hey');
6: TypeSend('glow2:im bored');
7: TypeSend('white croll: im bored');
8: TypeSend('wc is boring');
9: TypeSend('lalalalala');
10: TypeSend('i hate Woodcutting!!!!!')
11: TypeSend('Woodcutting= most boring skill')
12: TypeSend('WOOOT!! im going for 99wc!')
13: TypeSend('glow2:MOOOOOOO')
14: TypeSend('omg i cant wait till i get 60wc!')
15: TypeSend('YAY!')
16: TypeSend('woops wrong convo')
17: TypeSend('this is too time consuming!')
18: TypeSend('white: isnt there an easier way to get high wc!')
19: TypeSend('duun dunnn duunnnn dun')
20: TypeSend('i wana chop yews!!!!')
AntiRandoms;
end;
//Find Ent\\
procedure FindEnt;
begin
wait(15 + random(3))
FindEnt(TreeColor1)
wait(4 + random(2))
end;
//FindAxe and Chek For Broken Axe\\
procedure AxeCheking;
begin
if AxeWeilded(True) then
begin
GameTab(5);
FindAxeHeadColor;
Status('Searching For Axe Head')
wait(10 + random(10))
FindHead;
wait(10 + random(4))
AttachHead;
end;
end;
begin;
if AxeWeilded(False) then
begin
FindAxeHeadColor;
Status('Searching For Axe Head')
wait(10 + random(10))
FindHead;
wait(10 + random(4))
AttachHead;
end;
end;
//Starting To Chop\\
var
x, y: Integer
c: Integer
procedure ChopLogs;
begin
AntiRandoms;
if (FindColor(x, y, TreeColor1, 0, 0, 600, 600)) or
(FindColor(x, y, TreeColor2, 0, 0, 600, 600)) or
(FindColor(x, y, TreeColor3, 0, 0, 600, 600)) then
begin
movemousesmooth(x, y)
wait(10 + random(6))
FindEnt;
wait(900 + random(300))
if UpText(Chop down(TreeType))
wait(500 + random(300))
clickmouse(x, y(random))
c := c + 1;
wait(2000 + random(1000))
AntiBans;
AxeCheking;
end else
begin
repeat
end;
end;
end;
var
x, y: Integer
procedure ChopLogs;
begin
AntiRandoms;
if (FindColor(x, y, TreeColor1, 0, 0, 600, 600)) or
(FindColor(x, y, TreeColor2, 0, 0, 600, 600)) or
(FindColor(x, y, TreeColor3, 0, 0, 600, 600)) then
begin
movemousesmooth(x, y)
wait(10 + random(6))
FindEnt;
wait(900 + random(300))
if UpText(Chop down(TreeType))
wait(500 + random(300))
clickmouse(x, y(random))
c := c + 1;
wait(2000 + random(1000))
AntiBans;
AxeCheking;
end else
begin
repeat
end;
end;
end;
//Start Dropping\\
procedure DropLogs;
begin
AntiBans;
AntiRandoms;
DropAllLogs;
AntiBans;
end;
//Main Loop\\
procedure PowerCut
begin
ChopLogs;
wait(30 + random(20))
DropLogs;
ProgressReport;
repeat
until (logOutNum = LoadsToDo)
LogOut;
end.