Help with my PowerCutter

[Akriam]

I made the following script, there are some errors, and I was just wondering whether or not any of you could fix it up a little. There probably is many procedure errors because I have only scimmed over like 3 [Tut]'s on how to script. Also in line 86 there is an error;) \




////////////////////////////////////////////////////////////////////////////////
////AKRIAM'S ULTIMATE CHOPPER///////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//All of the following Code belongs to Akriam, do not repost without permission
//Start Of Program:

//Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100
//becasue I looked at their scripts to make this one.

//Insturctions:
//1.)Start by the willow trees in Draynor
//2.)Press "Start"

program ultimatechopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

//Constants

Const
TreeColor1=125234;
TreeColor2=234634;
TreeColor3=235234;
CutWait=2000;

Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 1!')
writeln('Updates for version two include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)Random talking')

end;

//Declaring Players

Procedure decalreplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0

//Player Setup

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

end;

//Randoms; Thanks to "The Prince of Randomness" for this part

Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);

end;

//Cutting Procedure

Procedure Cut;
begin
wait(100)
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then
begin
movemousesmooth(x,y,3,3)
istextat2(9,9;'Chop'20)
holdmouse(x,y)
releasemouse(x,y)
wait(CutWait+random(300))
until(invfull)
if (invfull = true) then
end;

//Dropping Procedure
Procedure dropal;
begin
dropto(2-28);
end;


begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.

//Copywrighted- © 2006 G.A.S.P. Inc./Akriam

[Pentti]

Man... You had so many mistakes; Heres working one i fixed for you:
////////////////////////////////////////////////////////////////////////////////
////AKRIAM'S ULTIMATE CHOPPER///////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
//All of the following Code belongs to Akriam, do not repost without permission
//Start Of Program:

//Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100
//becasue I looked at their scripts to make this one.

//Insturctions:
//1.)Start by the willow trees in Draynor
//2.)Press "Start"

program ultimatechopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}


//Constants

Const
TreeColor1=125234;
TreeColor2=234634;
TreeColor3=235234;
CutWait=2000;

Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 1!')
writeln('Updates for version two include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)Random talking')

end;

//Declaring Players

Procedure declareplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0

//Player Setup

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

end;

//Randoms; Thanks to "The Prince of Randomness" for this part

Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);

end;

//Cutting Procedure

Procedure Cut;
begin
repeat
wait(100)
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then
begin
movemousesmooth(x,y)
istextat2(9,9,'Chop',20)
holdmouse(x,y,true)
releasemouse(x,y,true)
wait(2000)
end;
until(invcount=28)
end;

//Dropping Procedure
Procedure dropal;
begin
DropTo(2,28)
end;


begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.

//Copywrighted- © 2006 G.A.S.P. Inc./Akriam

[Akriam]

Thanks, yes I had many, this is my first script ever, and I only scimmed over like 3 tutorials, I will be able to learn of this new one you posted :) Thanks!

EDIT:but now i get the error "Period expected in line 85" and when i fix that, it comes up with an access violation :(

[Pentti]

Yea, lines went weird when i posted that, this should work now:
//////////////////////////////////////////////////////////////////////////////// ////AKRIAM'S ULTIMATE CHOPPER/////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////// //All of the following Code belongs to Akriam, do not repost without permission //Start Of Program:

//Credits to Solemn Whishes, The Prince of Randomness, and Starblaster100 //becasue I looked at their scripts to make this one.

//Insturctions: //1.)Start by the willow trees in Draynor //2.)Press "Start"

program ultimatechopper;

{.include SRL/SRL.scar}

{.include SRL/SRL/Skill/Woodcutting.scar}


//Constants

Const
TreeColor1=125234;
TreeColor2=234634;
TreeColor3=235234;
CutWait=2000;

Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 1!')
writeln('Updates for version two include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)Random talking')

end;

//Declaring Players

Procedure declareplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0

//Player Setup

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

end;

//Randoms; Thanks to "The Prince of Randomness" for this part

Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);

end;

//Cutting Procedure

Procedure Cut;
begin repeat
wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
movemousesmooth(x,y)
istextat2(9,9,'Chop',20)
holdmouse(x,y,true)
releasemouse(x,y,true)
wait(2000) end; until(invcount=28) end;

//Dropping Procedure

Procedure dropal;
begin
DropTo(2,28)
end;



begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.

//Copywrighted- © 2006 G.A.S.P. Inc./Akriam


Oh, if this is your first script you are doing great! Keep it going!!! :D

[Akriam]

Ya, I saw that the Procedure was constanted out, so i got it fixed thanks again, ill put your name in the credits :) I am going to keep expanding on this, and maybe make a reallllly good free version :) Also should I use "mouse" and "mmouse" to be less detectable?

[Pentti]

Yes, you should use MMouse and Mouse from SRL include, they are less detectable.

[Akriam]

So I would just substitue those for the clickmouse and releasemouse or whatever?

[IronTeapot]

yes, if you want the mouse to move and click then use 'Mouse' if you just want the mouse to move and hover above the x,y location use 'MMouse'. so it would look like this.

Procedure Cut;
begin repeat
wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
movemousesmooth(x,y)
istextat2(9,9,'Chop',20)
Mouse(x,y,2,2,true) // The 2,2 are random pixels to click away from the x,y spot. can be whatever you like, I generally use between 2 and 5. ( sometimes 0,0 though if I want it to click exactly.
wait(2000) end; until(invcount=28) end;

[Akriam]

Thanks, i just added a talk back feature should I post it?

[lardmaster]

yes, and use isuptext('Chop') instead of ur text finding procedure.

suggestion:
make him run away from fights, and run back
infight //boolean if you are in a fight
runawaydirection('W') //runs in the west direction
runback('W') //runs back (east)
do a sleep in between!
also, try doing random check after each chop, not each load! :) good luck!

[Akriam]

Ok, I will take do that maybe tonight, but I will release this next version for the public if it is okay. Here is it with the auto responder (I will be sure to also include the fight thing, but how would you make it so he checks at random chops?).


//Akriam's Ultiamate Chopper

// All of the following Code belongs to Akriam, do not repost without permission //Start Of Program:

//Insturctions:
//1.)Start by the willow trees in Draynor
//2.)Pick Colors
//3.)Press Start
//Note:Credits at bottom

program ultimatechopper;

{.include SRL/SRL.scar}

{.include SRL/SRL/Skill/Woodcutting.scar}


//Constants

Const
TreeColor1=125234; //Set all of these tree colors
TreeColor2=234634;
TreeColor3=235234;
CutWait=2000; //how long to wait untill your character cuts again
Username='' //username
TalkWait=180000; //when character talks (in miliseconds; default is 3 min)

Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 2!')
writeln('Updates for version three include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)More Random Phrases')

end;

//Declaring Players

Procedure declareplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0

//Player Setup

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

end;

//Randoms; Thanks to "The Prince of Randomness" for this part

Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);

end;

//Cutting Procedure

Procedure Cut;
begin repeat
wait(100) if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
mmouse(x,y)
istextat2(9,9,'Chop',20)
holdmouse(x,y,true)
releasemouse(x,y,true)
wait(2000) end; until(invcount=28) end;

//Dropping Procedure

Procedure dropal;
begin
DropTo(2,28) end;

//talking responders

Procedure autowcrespond; //thanks partly to arr0w

If (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) Then
Begin
wait(2000)
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
End;

Procedure autogrettingrespond;

If (InChat('Hi') or
(InChat('Hey') or
(InChat('Hiya') or
(InChat('Heya') or
(InChat('Hey you')or
(InChat('hi') or
(InChat('hey') or
(InChat('hiya') or
(InChat('heya') or
(InChat('hey you')) then
Begin
wait(2000)
TypeSend('Hey') or
TypeSend('Hi'))
End;

Procedure autofriendortraderespond;

If (InChat(UserName + '?'))Then
Begin
wait(2000)
TypeSend('Yes?') or
TypeSend('ya?')) then
Begin
wait(2000)
TypeSend('Do I know you?'))

If (InChat('Yes'))
Begin
wait(2000)
TypeSend('Sorry,I dont recall'))

If (InChat('No')) Then
Begin
wait(2000)
TypeSend('Well, sorry I cant talk Im busy'))

If (InChat('Want to be friends') or
(InChat('Wanna be freinds') or
(InChat('Want 2 be friends') or
(InChat('Wanna be friends') or
(InChat('Wanna b friends') or
(InChat('Want 2 b friends') or
(InChat('Want to be friends?')or
(InChat('Wanna be friends?') or
(InChat('Want 2 be friends?') or
(InChat('Want 2 b friends?') or
(InChat('Wanna b friends?') or
(InChat('Want 2 b freinds?') or
(InChat('Want 2 b freinds') or
(InChat('want to be friends') or
(InChat('wanna be freinds') or
(InChat('want 2 be friends') or
(InChat('wanna be friends') or
(InChat('wanna b friends') or
(InChat('want 2 b friends') or
(InChat('want to be friends?')or
(InChat('wanna be friends?') or
(InChat('want 2 be friends?') or
(InChat('want 2 b friends?') or
(InChat('wanna b friends?') or
(InChat('want 2 b freinds?') or
(InChat('want 2 b freinds')) then
Begin
wait(2000)
TypeSend('No,sorry'))

If (InChat('Wanna trade?') or
(InChat('Wanna trade') or
(InChat('Wanna trade?') or
(InChat('Wanna trade?') or
(InChat('Want to trade?') or
(InChat('Want to trade') or
(InChat('Want 2 trade?') or
(InChat('Want 2 trade') or
(InChat('wanna trade?') or
(InChat('wanna trade') or
(InChat('wanna trade?') or
(InChat('wanna trade?') or
(InChat('want to trade?') or
(InChat('want to trade') or
(InChat('want 2 trade?') or
(InChat('want 2 trade')) then
Begin
wait(2000)
TypeSend('No thanks'))

Procedure macrono;
If (InChat('are you a macro')or
(InChat('are you a macro?') or
(InChat('Are you a macro?') or
(InChat('Are you a macro') or
(InChat('Are you macroing?')or
(InChat('Are you macroing') or
(InChat('are you macroing?') or
(InChat('are you macroing')) then
Begin
wait(2000)
TypeSend('No')

end;
end;
end;
end;
end;
end;
end;

//random talking

Procedure RandomTalking;
begin
repeat
wait(TalkWait+random(60000))
TypeSend('lalala') or
TypeSend('Yes WC lvl!') or
TypeSend('Hey Heyeveryone') or
TypeSend('700 more to go....') or
TypeSend('Bored....') or
TypeSend('Almost there!') or
TypeSend('he he he') or
TypeSend('I whish i was a higher lvl'))
Until(false)



begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.



//Copywrighted- © 2006 G.A.S.P. Inc./Akriam

//Credits:
//Solemn Wishes-looking at his script/touchup
//Arr0w-using his Wc respond procedure
//Prince Of Randomness-looking at his script
//IronTeapot-Touchup
//Pentti-Touchup
//Premier-Touchup
//LardMaster-suggestions
//all the testers


ya...i know the spacing is messed up :/

[YoHoJo]

pretty ok for a beginner but this procedure is very bad!
Procedure RandomTalking;
begin repeat
wait(TalkWait+random(60000))
TypeSend('lalala') or
TypeSend('Yes WC lvl!') or
TypeSend('Hey Heyeveryone') or
TypeSend('700 more to go....') or
TypeSend('Bored....') or
TypeSend('Almost there!') or
TypeSend('he he he') or
TypeSend('I whish i was a higher lvl')) Until(false)

first you are missing an end.
are then if you look though it
it would continue typing that

stuff until(false) meaning FOREVER
instead use a case


Procedure RandomTalkig;
Begin
Case Random(7) of

0:TypeSend('lalala')
1:TypeSend('Yes WC lvl!')
2:TypeSend('Hey Hey everyone')
3:TypeSend('700 more to go....')
4:TypeSend('Bored....')
5:TypeSend('Almost there!')
6:TypeSend('he he he')
7:TypeSend('I whish i was a higher lvl'):
end;
end;

and yeah. ill look though more of it later.
what are u asking about random chooping? i don't understand

This should also be change
holdmouse and releasemouse are very detactable
and the 2 second wait should be longer/shorter according to the user

const
WaitTime=5 //Seconds to wait
Procedure Cut;
begin
repeat
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
mmouse(x,y)
if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
end;

EDIT: oh just relized you have cutwait as a const. but you don't use it in the right spot =p
you also dot search for randoms enough at all!

repeat
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
mmouse(x,y)
if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
that makes it cut 28 logs. without looking for randoms at all!
you may want to add randomfinding in there !

ahh also. these lines are VERY VERY specific and i belive they are un-needed.
they are just too specific and i doubt anyone would ask these questiosn much
If (InChat('Yes')) Begin
wait(2000)
TypeSend('Sorry,I dont recall'))

If (InChat('No')) Then Begin
wait(2000)
TypeSend('Well, sorry I cant talk Im busy'))

If (InChat('Want to be friends') or (InChat('Wanna be freinds') or (InChat('Want 2 be friends') or (InChat('Wanna be friends') or (InChat('Wanna b friends') or (InChat('Want 2 b friends') or (InChat('Want to be friends?')or (InChat('Wanna be friends?') or (InChat('Want 2 be friends?') or (InChat('Want 2 b friends?') or (InChat('Wanna b friends?') or (InChat('Want 2 b freinds?') or (InChat('Want 2 b freinds') or (InChat('want to be friends') or (InChat('wanna be freinds') or (InChat('want 2 be friends') or (InChat('wanna be friends') or (InChat('wanna b friends') or (InChat('want 2 b friends') or (InChat('want to be friends?')or (InChat('wanna be friends?') or (InChat('want 2 be friends?') or (InChat('want 2 b friends?') or (InChat('wanna b friends?') or (InChat('want 2 b freinds?') or (InChat('want 2 b freinds')) then Begin
wait(2000)
TypeSend('No,sorry'))

If (InChat('Wanna trade?') or (InChat('Wanna trade') or (InChat('Wanna trade?') or (InChat('Wanna trade?') or (InChat('Want to trade?') or (InChat('Want to trade') or (InChat('Want 2 trade?') or (InChat('Want 2 trade') or (InChat('wanna trade?') or (InChat('wanna trade') or (InChat('wanna trade?') or (InChat('wanna trade?') or (InChat('want to trade?') or (InChat('want to trade') or (InChat('want 2 trade?') or (InChat('want 2 trade')) then Begin
wait(2000)
TypeSend('No thanks'))

Procedure macrono;
If (InChat('are you a macro')or (InChat('are you a macro?') or (InChat('Are you a macro?') or (InChat('Are you a macro') or (InChat('Are you macroing?')or (InChat('Are you macroing') or (InChat('are you macroing?') or (InChat('are you macroing')) then Begin
wait(2000)
TypeSend('No')
i could go on for days =p but hey im glad you are learning to script.
ill come back later after you update a bit more for more feedback.

[Akriam]

How would I make what Lard suggested? That while it is chopping it would randomly look at its stats?

[lardmaster]

just include it in your randoms check :) and do it after every chop

[YoHoJo]

just include it in your randoms check :) and do it after every chop

ROFL checking after EACH CHOP is waaaay too mcuh dude.
i dont think anyone checks their skills after the mine an ore. or cut one log =p


to make it randomly look at stats do this
HoverSkill('Woodcut',false)
make it do that randomly not too often like
Procedure RandomHover;
begin
Case Random (10) of
5:HoverSkill('Woodcut',false)
end;
end;

or just use
procedure HoverEvery(mins: Integer; skill: String);
HoverEvery(10,'Woodcut')
it woudl look at woodcut xp every 10 mins

[lardmaster]

remember, everys should be included in your randoms, because there is no threading in SCAR :(

srry about the hoverskill think, i just saw 'what lardmaster was talking about'
and the only thing i was talking about was running away from fights.

[YoHoJo]

If InFight Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;

im not sure if runback is a procedure in srl
i think iv got one somewhere though

[Akriam]

Alright thanks, Ill be sure to add those to version 3, I've got version two done and Im going to release it :P

[lardmaster]

i believe you need to do runback('N')...

and i think you need to {.include srl/srl/extended/xmapwalk.scar}

[Akriam]

//[A][s]
//[K][c]
//[R][r]
//[I][i]
//[A][p]
//[M][t]


//Author:Akriam
//Version: 2
//Script:AutoChopper

//Insturctions:
//1.)Start by the willow trees in Draynor
//2.)Pick Colors
//3.)Set Ent color in line 80 and 96 (same as tree)
//4.)Press Start
//Note:Credits at bottom

program ultimatechopper;

{.include SRL/SRL.scar}

{.include SRL/SRL/Skill/Woodcutting.scar}


//Constants

Const
TreeColor1=125234; //Set all of these tree colors
TreeColor2=234634;
TreeColor3=235234;
WaitTime=5 //Seconds to wait
Username=''; //username
TalkWait=180000; //when character talks (in miliseconds; default is 3 min)

Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 2!')
writeln('Updates for version three include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)More Random Phrases')

end;

//Declaring Players

Procedure declareplayers;
begin
HowManyPlayers :=3
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0

//Player Setup

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

Players[0].Name :=''
Players[0].Pass :=''
Players[0].Nick :=''
Players[0].Active:=True;

end;

//Randoms; Thanks to "The Prince of Randomness" for this part

Procedure Randoms;
begin
FindNormalRandoms;
FindHead;
FindEnt(4156042);
if not loggedin then RandomNextPlayer(False);

end;

Procedure Fightrun;

If InFight Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;

end;

//Cutting Procedure

Procedure Cut;
begin
repeat
If InFight Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
FindNormalRandoms; then
FindHead; then
FindEnt(4156042);
mmouse(x,y) if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
if not loggedin then RandomNextPlayer(False);
end;


//Dropping Procedure

Procedure dropal;
begin
DropTo(2,28)
end;

//AntiBan

Procedure AntiBan;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(50)
case NoBan of
1: RandomRClickEvery(2 + Random(15));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmore(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(1o + Random(5));
8: RotateEvery(20 + Random(5));
9: hoverevery(15 + Random(5));
end;
end;


//talking responders

Procedure autowcrespond; //thanks partly to arr0w
begin
If (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) or
InChat('wc lvls') or
InChat('wc lvls?') or
InChat('woodcut lvls') or
InChat('woodcut lvls?') or
InChat('woodcutting lvls') or
InChat('woodcutting lvls?')) Then
Begin
wait(2000)
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
end;

Procedure autogreetingrespond;
begin
If (InChat('Hi')) or
(InChat('Hey')) or
(InChat('Hiya')) or
(InChat('Heya')) or
(InChat('Hey you'))or
(InChat('hi')) or
(InChat('hey')) or
(InChat('hiya')) or
(InChat('heya')) or
(InChat('hey you')) then
Begin
wait(2000)
if (random(2) = 1) then
TypeSend('Hey')
else
TypeSend('Hi')
end;
End;

Procedure autofriendortraderespond;
begin
If (InChat(UserName + '?'))Then
Begin
wait(2000)
if (random(2) = 1) then
TypeSend('Yes?')
else
TypeSend('ya?')
wait(2000)
TypeSend('Do I know you?')

If (InChat('Yes')) then
Begin
wait(2000)
TypeSend('Sorry,I dont recall')

If (InChat('No')) Then
Begin
wait(2000)
TypeSend('Well, sorry I cant talk Im busy')

If (InChat('Want to be friends')) or
(InChat('Wanna be freinds')) or
(InChat('Want 2 be friends')) or
(InChat('Wanna be friends')) or
(InChat('Wanna b friends')) or
(InChat('Want 2 b friends')) or
(InChat('Want to be friends?'))or
(InChat('Wanna be friends?')) or
(InChat('Want 2 be friends?')) or
(InChat('Want 2 b friends?')) or
(InChat('Wanna b friends?')) or
(InChat('Want 2 b freinds?')) or
(InChat('Want 2 b freinds')) or
(InChat('want to be friends')) or
(InChat('wanna be freinds')) or
(InChat('want 2 be friends')) or
(InChat('wanna be friends')) or
(InChat('wanna b friends')) or
(InChat('want 2 b friends')) or
(InChat('want to be friends?'))or
(InChat('wanna be friends?')) or
(InChat('want 2 be friends?')) or
(InChat('want 2 b friends?')) or
(InChat('wanna b friends?')) or
(InChat('want 2 b freinds?')) or
(InChat('want 2 b freinds')) then
Begin
wait(2000)
TypeSend('No,sorry')

If (InChat('Wanna trade?')) or
(InChat('Wanna trade')) or
(InChat('Wanna trade?')) or
(InChat('Wanna trade?')) or
(InChat('Want to trade?')) or
(InChat('Want to trade')) or
(InChat('Want 2 trade?')) or
(InChat('Want 2 trade')) or
(InChat('wanna trade?')) or
(InChat('wanna trade')) or
(InChat('wanna trade?')) or
(InChat('wanna trade?')) or
(InChat('want to trade?')) or
(InChat('want to trade')) or
(InChat('want 2 trade?')) or
(InChat('want 2 trade')) then
Begin
wait(2000)
TypeSend('No thanks')
end; end; end; end; end; end;

Procedure macrono;
begin
If (InChat('are you a macro'))or
(InChat('are you a macro?')) or
(InChat('Are you a macro?')) or
(InChat('Are you a macro')) or
(InChat('Are you macroing?'))or
(InChat('Are you macroing')) or
(InChat('are you macroing?')) or
(InChat('are you macroing')) then
Begin
wait(2000)
TypeSend('No')

end;
end;


//random talking

Procedure RandomTalkig;
Begin Case Random(7) of

0:TypeSend('lalala')
1:TypeSend('Yes WC lvl!')
2:TypeSend('Hey Hey everyone')
3:TypeSend('700 more to go....')
4:TypeSend('Bored....')
5:TypeSend('Almost there!')
6:TypeSend('he he he')
7:TypeSend('I whish i was a higher lvl')
end;
end;


begin
Setupsrl;
declareplayers;
FindAxeHeadColor;
repeat
Cut;
Randoms;
if InvFull then DropAllLogs;
until(getskilllevel('woodcutting')=99);
end.



//Copywrighted- © 2006 G.A.S.P. Inc./Akriam

//Credits:
//Solemn Wishes-looking at his script/touchup
//Arr0w-using his Wc respond procedure
//Prince Of Randomness-looking at his script
//IronTeapot-Touchup
//Pentti-Touchup
//Premier-Lots of Touchup
//LardMaster-suggestions
//FT-Fakawi-looking at his antiban
//yohojo8-touchup;help with runback;help with hover mouse
//all the testers


Thats it, Im going to release it now :)

[lardmaster]

suggestion, you dont have to put THEN after every line.

you need to put THEN BEGIN
code you want to do if its true
END

also, check randoms even if you dont find tree color.

[Akriam]

Ok, someone just helped me add the ojectfinding thing instead of the find tree color, after a quick fix I will release version 3 publicly, also what do ya mean check even if it doesnt find color? Also do you have to set the ent color manually or is it just a procedure?

[YoHoJo]

forgot a semi colon
WaitTime=5 //Seconds to wait


forgot a begin
Procedure Fightrun;
If InFight Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;


you need
{.include SRL/SRL/Skill/Fighting.scar}
because InFight in unknown id


forgot some ifs

FindNormalRandoms; then
FindHead; then


invalid paramaters
mmouse(x,y)


something wrong here but idk what

if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait(((Waittime*1000)+ Random(500)))
until(InventoryFull)
if (not (loggedin)) then
RandomNextPlayer(False);


Duplicate identifier 'ANTIBAN' in script
Might wana rename that procedure
Procedure AntiBan;"


DoEmore" ? I think you mean Do Emote


ROFL you used a o in the number 10:
7: LeaveScreenEvery(1o + Random(5));


Invalid params in
9: hoverevery(15 + Random(5));
(forgot to put a skill to hover)


Forgot an If and a begin
Procedure autowcrespond; //thanks partly to arr0w begin If (InChat('Wc lvls') or
InChat('Wc lvls?') or



Extra )
InChat('Woodcutting lvls?')) or and
InChat('woodcutting lvls?'))
(you used it twice)

and thats all i could see wrong
i really really suggest testing your scripts before releasing
at LEAST make sure they compile
and then make sure it runs for at least one load

id like to see these changes made =)
I know you can do it

[Akriam]

Alright Ill do it, and I used that Wc phrase twice because one is capital and one isnt :P I havn't released yet, so I will change those things and then release! :)