title says it all heres my script (the relevent part)
SCAR Code:if (InvFull or (ChooseOption('ontinue'117,204,887,709)) then
title says it all heres my script (the relevent part)
SCAR Code:if (InvFull or (ChooseOption('ontinue'117,204,887,709)) then
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
... you forgot a ")" after invfull
SCAR Code:if (InvFull) or (ChooseOption('ontinue'117,204,887,709)) then
I still get a error![]()
![]()
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
SCAR Code:if InvFull or ChooseOption('ontinue', 117,204,887,709) then
the comma after 'ontuneu'
ill try that
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
hmm i get a new error saying invalid number of pareameters on the same 2 lines... some help there?
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
SCAR Code:if InvFull or ChooseOption('ontinue') then
didn't you mean:
SCAR Code:if InvFull or Findnpctext('ontinue') then
ok ill try that thankyou
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
unknown identifer... what include should I call for... text?
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
oh ok sorry... here it is
SCAR Code:{=========================================================================]
[ Rora tree chopper by your truly: ]
[ ______ ________ ______ ]
[ | __ | | ___ | | __ | /\ ]
[ | |_| | | | | | | |_| | / \ ]
[ | / | | | | | / / /\ \ ]
[ | |\ \ | | | | | |\ \ / /__\ \ ]
[ | | \ \ | |__| | | | \ \ / /____\ \ ]
[ |_| \_\|_______| |_| \_\/_/ \_\ ]
[ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ] ]
[ ]
[ |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| ]
[ | NAME : Rora's Power Chopper | ]
[ | WRITER : Rora | ]
[ | CATEGORY : Woodcutting | ]
[ | DESCRIPTION : Cuts Normal Trees and Drops Them | ]
[ | USAGE : To Raise Your WoodCutting Level | ]
[ | OTHER : 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}
{.include SRL/SRL/Skill/WoodCutting.scar}
Var
DidRandomHappen: Boolean;
x,y,EncounteredDeath: integer;
Const
DirTorun = 'N';
Loads = 10; //Loads to do before switching players.
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 := 0; //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 := 'o th';
Players[1].Active := False;
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//////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Function FindFastRandoms: Boolean; //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;
if (Result = true) then
DidRandomHappen := true;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////OTHER ANTI RANDOM////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
if (FindNormalRandoms) then
DidRandomHappen := true;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBanMe;
Var
TalkBack, TalkBack1, TalkBack2, TalkBack3, TalkBack4, TalkBack5 : Integer;
Begin
If (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then
TalkBack := Random(5);
case TalkBack of
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('yo');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi...');
end;
begin
if (InChat('noob')) or (InChat('nooblet')) then
begin
TalkBack1 := Random(5);
case TalkBack1 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;
begin
if (InChat('auto')) or (InChat('autoer')) then
TalkBack2 := Random(5);
case TalkBack2 of
1: TypeSend('??? i do not do that ???');
2: TypeSend('you wish');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('you auto');
end;
begin
if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
TalkBack3 := Random(5)
case TalkBack3 of
1: TypeSend('Lol ok youll get repoted then');
2: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
3: TypeSend('ill report u then');
4: TypeSend('ur loss.. youll see');
5: TypeSend('ehemm?!?!?!?!');
end;
begin
if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
TalkBack4 := Random(5)
case TalkBack4 of
1: TypeSend('-laughs-');
2: TypeSend('pretty funny');
3: TypeSend('ooo');
4: TypeSend('whats so funny?');
5: TypeSend('funny...');
end;
begin
if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level')) then
TalkBack5 := Random(5)
case TalkBack5 of
1: TypeSend('Je suis français.');
2: TypeSend('Sono Italiano.');
3: TypeSend('Jeg er Norsk.');
4: TypeSend('Sou russo.');
5: TypeSend('Ik ben Nederlands.');
end;
end;
end;
end;
end;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN 2///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBannage;
begin
case random(30) of
1: Boredhuman
3: hoverskill('Random',false)
5: begin
RandomRClick
clickoption('Cancel',1)
end;
9: pickupmouse
13: begin
gametab(1+random(11))
wait(3000+random(1000))
gametab(4)
end;
15:Typesend('ughh')
29:AlmostLogout;
end;
end;
procedure AntiDeath;
begin
if FindFight then
begin
MakeCompass('E');
RunTo('N',True);
EncounteredDeath:=EncounteredDeath+1;
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');
Writeln('|| proggies/bugs wherever you got this script :)');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting ');
Writeln('|| Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ');
Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour');
Writeln('|| Dropped '+IntToStr(DroppedLoads)+' loads ');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ');
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;
begin
repeat
if (not (LoggedIn)) then
Exit;
if (findcolortolerance(x,y,treecolor1,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor2,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor3,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor4,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor5,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor6,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(10) 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 Findnpctext('ontinue') then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
SleepAndMoveMouse(9671 + random(1709));
FindRandoms;
FindFastRandoms;
repeat
if InvFull or Findnpctext('ontinue') then
Exit;
if(DidRandomHappen = true) then
begin
DidRandomHappen:=False;
Mouse(x, y, 2, 2, true);
end;
wait(750+random(250));
FindRandoms;
until (findcolortolerance(x,y,treecolor1,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor2,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor3,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor4,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor5,117,204,887,709,3)) or
(findcolortolerance(x,y,treecolor6,117,204,887,709,3));
Result := True;
until (InvFull);
end;
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DROPPING///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Function Dropping;
begin
if (not (LoggedIn)) then
Exit;
if InvFull then
begin
if InvCount = 28 then
DropToPosition(2, 28);
mousespeed:=100;
wait(1500+random(100));
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;
DelcarePlayers;
Signature;
Repeat
Anti Random;
Other Anti Random;
Anti Ban;
Anti Ban 2;
Proggy;
Chopping;
Dropping;
Until(Loads)
If HowMany=Loads then
Begin
NextPlayer(true);
If HowMany=Loads then
Begin
Writeln('Done!')
Proggie;
Logout;
If (not(loggedin)) then
Begin
TerminateScript
Writeln('For Updates go to srl forums!! :)')
end;
end;
end;
end.
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
It still doesnt register and Ive called SetupSrl in the main loop![]()
![]()
Click here for Rora's Power Woodcutter!
Testers needed!
|
|
|
|
V
http://www.fenjer.com/adnan/SRL//100...Woodcutter.png
http://photos33.flickr.com/38918814_8370ddb570_m.jpg
If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
1: Please don't double post... When no one has posted below you just use the edit button.
2: Its FindNpcChatText not FindNpcText
3: Work on your standards, its really hard to try to fix things when your script jumps all over the place.
Also you don't need to have the FindFastRandoms procedure because FindNormalRandoms now does everything except findfight.
I'll post your script redone with good standards in a little bit when I get done doing that.
You forgot an until in there also.
Edit:
Here you go, its not perfect and I did some things you might not know but it compiles until the mainloop, but I don't think you're done with that yet.
SCAR Code:{=========================================================================]
[ Rora tree chopper by your truly: ]
[ ______ ________ ______ ]
[ | __ | | ___ | | __ | /\ ]
[ | |_| | | | | | | |_| | / \ ]
[ | / | | | | | / / /\ \ ]
[ | |\ \ | | | | | |\ \ / /__\ \ ]
[ | | \ \ | |__| | | | \ \ / /____\ \ ]
[ |_| \_\|_______| |_| \_\/_/ \_\ ]
[ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ] ]
[ ]
[ |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| ]
[ | NAME : Rora's Power Chopper | ]
[ | WRITER : Rora | ]
[ | CATEGORY : Woodcutting | ]
[ | DESCRIPTION : Cuts Normal Trees and Drops Them | ]
[ | USAGE : To Raise Your WoodCutting Level | ]
[ | OTHER : 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}
{.include SRL/SRL/Skill/WoodCutting.scar}
Var
DidRandomHappen: Boolean;
x, y, EncounteredDeath: integer;
Const
DirTorun = 'N';
Loads = 10; //Loads to do before switching players.
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 := 0; //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;
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;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////OTHER ANTI RANDOM////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure FindRandoms;
begin
if FindNormalRandoms then DidRandomHappen := True; //automatically calls findnormalrandoms
{if FindFight then //you can add this here if you want
begin
RunTo('N', True);
Wait(15000 + random(5000));
RunBack;
EncounteredDeath := True;
end;}
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBanMe;
Begin
If (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) or (InChat('yo')) then
case Random(5) of //talkback var isn't needed.
0: TypeSend('hello'); //have to start on 0
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.'); //lol
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
case random(30) of
0: Boredhuman //Might as well do them in order
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;
procedure AntiDeath;
begin
if FindFight then
begin
MakeCompass('E'); //not sure why you made it east.
RunTo('N',True);
EncounteredDeath:=EncounteredDeath+1;
RunBack; //you forgot this.
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');
Writeln('|| proggies/bugs wherever you got this script :)');
Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ');
Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting ');
Writeln('|| Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ');
Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour');
Writeln('|| Dropped '+IntToStr(DroppedLoads)+' loads ');
Writeln('|| Avoided ' + IntToStr(EntCount) + ' ents ');
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; //sorry this will confuse you
TreeColor[1] := TreeColor2; //look up some stuff on arrays
TreeColor[2] := TreeColor3;
TreeColor[3] := TreeColor4;
TreeColor[4] := TreeColor5;
TreeColor[5] := TreeColor6;
repeat
if (not (LoggedIn)) then Exit;
for i := 0 to 5 do //and for to do loops too
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(False)//change this. you forgot it.
until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
Result := True;
end;
end;
until (InvFull);
end;
////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DROPPING///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure Dropping; //changed this to a procedure...
begin
if (not (LoggedIn)) then Exit;
if InvFull then
begin
if InvCount = 28 then
DropToPosition(2, 28);
mousespeed:=100;
wait(1500+random(100));
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
//Anti Random; //you'll have to add or change these.
//Other Anti Random;
//Anti Ban;
//Anti Ban 2;
RoraProggy;
ChopIt;
Dropping;
until(Loads) //problem here.
if HowMany = Loads then
begin
NextPlayer(true);
If HowMany = Loads then
begin
Writeln('Done!')
Proggie;
Logout;
if (not(LoggedIn)) then
begin
TerminateScript
Writeln('For Updates go to srl forums!! :)')
end;
end;
end;
end.
There are currently 1 users browsing this thread. (0 members and 1 guests)