Question about PowerChopper
First of all here is my latest version:
Code:
//[A][s]
//[K][c]
//[R][r]
//[I][i]
//[A][p]
//[M][t]
//BIG THANKS TO PREMIER FOR HELPING ME!
//Thanks to M0rtion for the ASIIC!
// _____ _____ _ _
//| __ \ / ____| | | | |
//| |__) |____ _____ _ __| | _ _| |_| |_ ___ _ __
//| ___/ _ \ \ /\ / / _ \ '__| | | | | | __| __/ _ \ '__|
//| | | (_) \ V V / __/ | | |___| |_| | |_| || __/ |
//|_| \___/ \_/\_/ \___|_| \_____\__,_|\__|\__\___|_|
//[------------------| Details |------------------]
//[ Title: Akarims PowerCutter ]
//[ Version: Version 3.5 ]
//[ Creator: Akarim ]
//[ Contact: Jiwman88@hotmail.com ]
//[---------------| Description |-----------------]
//[ This script will automaticly cut the trees ]
//[ Normal, Oak and Willow then once your pack is ]
//[ full it will drop the logs, Thus gaining exp ]
//[ in the Woodcutting skill. This script has SRL ]
//[ with anti-randoms and anti-fights. Have Fun :)]
//[---------------| Instructions |----------------]
//[ 1) Start next to the tree you want to cut ]
//[ 2) Fill in the setup on lines 55-61 ]
//[ 3) Fill in lines 58-65, 91-104 ]
//[ 4) Set Ent color in line 296 ]
//[ 5) Drag the crosshair onto Runescape ]
//[ 6) V-Bright, 32 bitcolor ]
//[ 7) Press play and watch it cut and drop 1 load]
//[ Have Fun, to post all bugs and reports please ]
//[-----------------------------------------------]
//[ Official Web-Thread-none yet ]
//[ ]
//[-----------------------------------------------}
//Note:Credits at bottom
program ultimatechopper;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
{.include SRL/SRL/Skill/Fighting.scar}
//Constants
Const
TreeColor1=2785392; //Set all of these tree colors
TreeColor2=3829856;
TreeColor3=4290672;
WaitTime=5; //Seconds to wait
Username=''; //username
TalkWait=180000; //when character talks (in miliseconds; default is 3 min)
treetocut = 'Willow'; //either tree, oak, willow, ect.
BlueChatColor=234212; //Color of blue text in chatbox
Procedure updates;
begin
writeln('Hello,thanks for using this script!')
writeln('You are using version 3.3!')
writeln('Updates for version four include:')
writeln('1.)Random mouse movements')
writeln('2.)Banking')
writeln('3.)More Random Phrases')
writeln('4.)Forms!')
writeln('5.)Progress Report')
writeln('6.)Everyone give a big thanks to Premier for helping me!')
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[1].Name :=''
Players[1].Pass :=''
Players[1].Nick :=''
Players[1].Active:=True;
Players[2].Name :=''
Players[2].Pass :=''
Players[2].Nick :=''
Players[2].Active:=True;
end;
//AntiBan
Procedure Notban;
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: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;
//talking responders
Procedure autowcrespond;
begin
if findcolor(x,y,BlueChatColor,3,3,515,336) then
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 findcolor(x,y,BlueChatColor,3,3,515,336) then
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)
(random(2) = 1) then
TypeSend('Hey')
else
TypeSend('Hi')
end;
End;
Procedure autofriendortraderespond;
if findcolor(x,y,BlueChatColor,3,3,515,336)) then
begin
if (InChat(UserName + '?'))Then
Begin
wait(2000)
(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;
findcolor(x,y,BlueChatColor,3,3,515,336) then
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;
//Randoms; Thanks to "The Prince of Randomness" for this part
Procedure Randoms;
begin
setupsrl
FindNormalRandoms
FindHead
FindEnt(4156042)
notban;
autowcrespond;
autogreetingrespond;
autofriendortraderespond;
macrono;
randomtalking;
if not loggedin then RandomNextPlayer(False);
end;
Procedure Fightrun;
begin
If InFight Then
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
//Cutting Procedure
Procedure Cut;
begin
repeat
If InFight Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
(FindObjMulti(treetocut, treecolor1, treecolor2, treecolor3, 5)) then
begin
Randoms;
notban;
autowcrespond;
autogreetingrespond;
autofriendortraderespond;
macrono;
randomtalking;
mmouse(x,y,2,2)
(IsUpTextMulti('Chop')) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
if not loggedin then
RandomNextPlayer(False);
end;
end;
//Dropping Procedure
Procedure dropal;
begin
Randoms;
notban;
autowcrespond;
autogreetingrespond;
autofriendortraderespond;
macrono;
randomtalking;
DropTo(2,28)
end;
begin
declareplayers;
FindAxeHeadColor;
repeat
Cut;
dropal;
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
//Nashi-touchup
//all the testers
//Note:A touchup doesn't mean I used their code, and just because
//I looked at someone's code doesn't mean I copied it. I retyped it
//all and tryed to change it!
Now I get the error "146 close round expected" but I didn't miss a ")" anywhere in that line...Also, I deleated the whole procedure and then I got the error in the 1st line of the next procedure "Identifier expected in script". Can anyone help :S