SCAR Code:
{=========================================================================]
[ Rora tree chopper by your truly: ]
[ ______ ________ ______ _ ]
[ /| __ | /| ___ | /| __ | //\ ]
[ || |_| | || | | | || |_| | // \ ]
[ || / || | | | || / // /\ \ ]
[ || |\ \ || | | | || |\ \ // /__\ \ ]
[ || | \ \ || |__| | || | \ \// /____\ \ ]
[ \|_| \_\ \|_______| \|_| \_/_/ \_\ ]
[ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ] ]
[ ___________ ]
[ | Details | ]
[ |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| ]
[ | NAME : Rora's Power Chopper | ]
[ | WRITER : Rora | ]
[ | CATEGORY : Woodcutting | ]
[ | DESCRIPTION : Cuts Normal Trees and Drops Them | ]
[ | USAGE : To Raise Your WoodCutting Level | ]
[ | Note. : Anti random, anti ban, finds ents, proggie + sig| ]
[ |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ * USE Runescape with Low Detail, Very Bright. ]
[ * Set your Screen to 32 bit TRUE color. ]
[ * Position Players In Woodcutting Spots (Lumbridge) ]
[ * Set Playernames and Passwords and DeclarePlayers ]
[ * Drag Cross Hair Over Client ]
[ * Start script Logged Out / In! ]
[ * Set the 'DidYouReadTheInstructions' to 'yes' ]
[ * Read the green comments before you press play. ]
{=========================================================================}
////////////////////////////////////////////////////////////////////////////////
////////////////////////////PROGRAM NAME, VAR'S AND CONST'S/////////////////////
////////////////////////////////////////////////////////////////////////////////
Program PowerWoodCutter;
{.include SRL/SRL.scar}
Var
DidRandomHappen: Boolean;
x, y, EncounteredDeath, CountLoads: integer;
Const
Loads = 10;
DidYouReadInstructions = 'no';// did you read the instuctions up there ^^ ?
TreeColor1 = 1463619;
TreeColor2 = 1125670;
TreeColor3 = 1516323;
TreeColor4 = 2058335;
TreeColor5 = 1718832;
TreeColor6 = 3108192;
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DELCARE PLAYERS////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers := 2; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 2; //Player to start on.
//set all user names, passwords and nicks correctly please.
Players[0].Name := 'skills r me5';
Players[0].Pass := '';
Players[0].Nick := 'ills';
Players[0].Active := True;
Players[1].Name := 'Yo the skl';
Players[1].Pass := '';
Players[1].Nick := 'the';
Players[1].Active := False;
Writeln('Using '+ IntToStr(HowManyPlayers) +' Players.');
End;
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////SIGNATURE/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure Signature;
Begin
ClearDebug;
writeln('Rora tree chopper by your truly:');
writeln(' ______ ________ ______ _ ');
writeln('/| __ | / | ___ | /| __ | //\');
writeln('|| |__|| | | | | | || |__|| // \');
writeln('|| / | | | | | || / // /\ \');
writeln('|| |\ \ | | | | | || |\ \ // /__\ \');
writeln('|| | \ \ | | |__| | || | \ \ // /____\ \');
writeln('||_| \_\ \|_______| ||_| \_\|/_/ \_\');
wait(3000+random(750));
End;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI RANDOM//////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure FindRandoms;
Begin
If (Not (LoggedIn)) Then LoginPlayer;
If FindNormalRandoms Then DidRandomHappen := True;
If FindFight Then
Begin
RunTo('N', True);
Wait(15000 + random(5000));
RunBack;
EncounteredDeath:=EncounteredDeath+1;
End;
End;
Procedure RunFromRandoms;
Begin
If(FindnpcChattext('ontinue')) Then
RunTo('N', True);
Wait(15000 + random(5000));
RunBack;
End;
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////Did you read the instructions?////////////////////
////////////////////////////////////////////////////////////////////////////////
Function InstructionReader: boolean;
Begin
If DidYouReadInstructions = 'no' Then
Begin
result := True;
Writeln('You DID NOT Read The Instructions, Please Read!');
TerminateScript;
End;
End;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBanMe;
Begin
If (Not (LoggedIn)) Then LoginPLayer;
If (InChat('hello')) Or (InChat('Hi')) Or (InChat('hey')) Or (InChat('yo')) Then
Case Random(5) Of
0: TypeSend('hello');
1: TypeSend('hey');
2: TypeSend('yo');
3: TypeSend('Hello, how are you?');
4: TypeSend('ummm hi...');
End;
If (InChat('noob')) Or (InChat('nooblet')) Then
Case Random(6) Of
0: TypeSend('you the noob');
1: TypeSend('your face is a noob.');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
if (InChat('auto')) or (InChat('autoer')) then
case Random(5) of
0: TypeSend('??? i do not do that ???');
1: TypeSend('you wish');
2: TypeSend('i never cheated in my life');
3: TypeSend('go away noob.');
4: TypeSend('you auto');
end;
if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
case Random(5) of
0: TypeSend('Lol ok youll get repoted then');
1: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
2: TypeSend('ill report u then');
3: TypeSend('ur loss.. youll see');
4: TypeSend('ehemm?!?!?!?!');
end;
if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
case Random(5) of
0: TypeSend('-laughs-');
1: TypeSend('pretty funny');
2: TypeSend('ooo');
3: TypeSend('whats so funny?');
4: TypeSend('funny...');
end;
if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level?')) then
case Random(6) of
0: TypeSend('Je suis français.'); //Do you like? :D
1: TypeSend('Sono Italiano.');
2: TypeSend('Jeg er Norsk.');
3: TypeSend('Sou russo.');
4: TypeSend('Ik ben Nederlands.');
end;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN 2///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBannage;
begin
if (not (LoggedIn)) then LoginPLayer;
case random(30) of
0: Boredhuman
1: hoverskill('Random',false)
2: begin
RandomRClick;
clickoption('Cancel',1)
end;
3: pickupmouse
4: begin
gametab(1+random(11))
wait(3000+random(1000))
gametab(4)
end;
5:Typesend('ughh')
6:AlmostLogout;
end;
end;
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////Anti Death////////////////////////////////////
procedure AntiDeath;
begin
if (not (LoggedIn)) then LoginPlayer;
if FindFight then
begin
MakeCompass('N');
RunTo('N',True);
EncounteredDeath:=EncounteredDeath+1;
RunBack;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////Uber Ent////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
begin
if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
(FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
begin
GetMousePos(x, y);
Mouse(x, y, 5, 5, False);
if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
begin
if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
begin
Mouse(MMCX, MMCY, 5, 5, True);
Writeln('Found ent! Waiting for it to go away');
Result := True;
EntsAvoided := EntsAvoided + 1;
end;
end else
ChooseOption('Cancel');
FindRandoms;
end;
end;
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////PROGGY/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure RoraProggy;
Var
H, M, S, EntCount, DroppedLoads, ChopRate, Chopped, ExpGained : integer;
Begin
ClearDebug;
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Rora Progress report. Please remember to post proggies/bugs wherever you got this script :) ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Dropped '+IntToStr(DroppedLoads)+' loads ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ||');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('|| Ran Away to Save your life '+IntToStr(EncounteredDeath)+' times. ||');
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
Writeln('||Thanks for using Rora Tree chopper, happy autoing ||');
Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
SRLRandomsReport;
End;
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////CHOPPING//////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function ChopIt: Boolean;
var
TreeColor: Array [0..5] of Integer;
i: integer;
begin
TreeColor[0] := TreeColor1;
TreeColor[1] := TreeColor2;
TreeColor[2] := TreeColor3;
TreeColor[3] := TreeColor4;
TreeColor[4] := TreeColor5;
TreeColor[5] := TreeColor6;
repeat
if (not (LoggedIn)) then LoginPLayer;
for i := 0 to 5 do
if FindColorTolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3) then
begin
MMouse(x, y, 3, 3);
if (IsUpText('ree')) then
begin
Mouse(x, y, 2, 2, true);
repeat
case Random(11) of
1: typesend('this is boring');
2: typesend('i cant take any more!!!');
3: typesend('');
4: typesend('');
5: typesend('zzzz...zzzz...');
6: typesend('This is so not fun');
7: typesend('when does it end!');
8: typesend('This is 3 hours straight!!!');
9: typesend('');
10: typesend('');
end;
if InvFull or FindnpcChattext('ontinue') then Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen := False;
Mouse(x, y, 2, 2, true);
end;
SleepAndMoveMouse(9671 + random(1709));
FindRandoms;
repeat
if InvFull or FindNPCChattext('ontinue') then Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen := False;
Mouse(x, y, 2, 2, true);
end;
Wait(750 + Random(250));
FindRandoms;
until(invfull)
until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
Result := True;
end;
end;
until (InvFull);
end;
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DROPPING///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Dropping;
begin
if (not (LoggedIn)) then LoginPlayer;
if InvFull then
begin
if InvCount = 28 then
DropToPosition(2, 28);
mousespeed:=100;
wait(1500+random(100));
CountLoads := CountLoads + 1;
end;
end;
{/////////NOTE. THIS IS THE PART YOU DONT TOUCH UNLESS YOU ARE A EXPERIENCED SCRIPTER... DON'T COME CRYING TO ME IF IT DOESN'T WORK BECAUSE IT HAS SOME ERROR IN IT.////////}
////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////MAIN LOOP/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
begin
SetupSrl;
DeclarePlayers;
Signature;
repeat
FindRandoms;
AntiBanMe;
RunFromRandoms;
AntiBannage;
AntiDeath;
UberEnt;
ChopIt;
Dropping;
until(CountLoads >= Loads)
begin
RoraProggy;
Writeln('Done!')
if (not(LoggedIn)) then LoginPlayer;
begin
TerminateScript
Writeln('Thank you for using Roras Power WoodCutter. For Updates go to srl forums!! :)')
end;
end;
end.