Hey, to prove you guys wrong, I got my script to compile..it runs..but I get an error…I think I did this awile ago, but I forgot to post. The error I get is a MAV (Memory Access Violation) and Im not sure what to do about it. After I click "okay" to the error it proceeds to run but it doesnt do anything, but anyways if this proves anything at all let me know :/
//[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
//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;
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;
//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;
end;
Procedure autogreetingrespond;
begin
If 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
//ToneKray-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!
Also I tried to fix it in this one, I still get the error but it doesnt run:
//[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
//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 Responder;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;
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
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;
if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;
if (InChat(UserName + '?')) then
begin
TypeSend('Yeah?')
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
end;
if (InChat('Hi' + UserName) or
InChat('Hey' + UserName) or
InChat('Hello' + UserName)) Then
begin
TypeSend('Hi')
end;
if (InChat('You are a noob' + UserName) or
InChat( UserName + 'you are a noob')) then
begin
TypeSend('Okay')
end;
if (InChat('What music do you people like?') or
InChat('Wat music do you guys like?') or
InChat('What music you ppl like?') or
InChat('Wat music do yoo peeps like')) then
begin
TypeSend('Rock FTW!!')
end;
end;
Procedure Randoms;
begin
setupsrl
FindNormalRandoms
FindHead
FindEnt(4156042)
notban;
Responder;
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
If InFight Then
begin
Runawaydirection('N')
Wait(25000+Random(5000))
RunBack;
end;
if (FindObjMulti(treetocut, treecolor1, treecolor2, treecolor3, 5)) then
begin
Randoms;
notban;
responder;
end;
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;
begin
mmouse(x,y,2,2)
(IsUpTextMulti('Chop')) then
Mouse(x,y,0,0,true)
Begin Case random(3) of
1: hoverskill('woodcutting', false);
2: PickUpMouse;
3: LeaveScreenEvery(10 + Random(5));
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
if not loggedin then
RandomNextPlayer(False);
end;
end;
//Dropping Procedure
Procedure dropal;
begin
Randoms;
notban;
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')
DropTo(2,28)
end;
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 Responder
//IronTeapot-Touchup
//Pentti-Touchup
//Premier-Lots of Touchup
//Nashi-touchup
//ToneKray-touchup
So sorry if that is spam, I touched them up awile a go and I don't think I posted. I'm relaly dedicated to getting this right.
EDIT: Maybe its not working, because I forgot to put some of the procedures in the end of the main loop?
P.S. Ya, I posted in code tags becuase the Scar tags always mess up for me.