Need help with this chopper and banker

[Buckleyindahouse]

Hi, well I was bored so I decided to try to make a chopper and banker for Varrok. Its good to get your lvl3 pure WC accounts started. I tried making it start in the bank and walking to the spot I specified for it and then chop full load go back and bank it and repeat. Hopefully I didn't do to terribly bad. :)


program NoobStarter;

{.include srl/srl.scar}

const
treecolor=2256992;//the color of the tree
treecolor2=2248776;//another color of the tree
loadstodo=20;//how many loads to bank before logging out
run='W';//Where to run if fight is found


var
Loads: integer;


procedure NoMajorBannage;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('Woodcutting', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;

procedure treerandoms;
begin
if(FindFight)then
begin
RunAwayDirection(run);
Wait(5000+random(1000));
RunBack;
end;
Gametab(4);
FindTalk;
FindNormalRandoms;
FindLamp(Lampskill);
end;



procedure walktotrees;
begin
mouse(697,109,5,5,true);
wait(3000+random(1500));
NoMajorBannage;
mouse(705,97,5,5,true);
wait(2000+random(2500));
NoMajorBannage;
mouse(654,85,5,5,true);
end;

procedure chopemdown;
begin
if(findcolorspiral(x,y,treecolor,MSX1,MSY1,MSX2,MS Y2)) or
(findcolorspiral(x,y,treecolor2,MSX1,MSY1,MSX2,MSY 2)) then
MMouse(x,y,2,2);
if(IsUptextMulti('Chop','dow','tree'))then
NoMajorBannage;
treerandoms;
mouse(x,y,5,5)
chooseoption('Chop Down');
wait(5000+random(2500));
end;

procedure tillimdone;
begin
repeat
chopemdown;
until(invfull)
Loads: Loads+1;
end;



procedure gobank;
begin
mouse(663,184,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
mouse(616,176,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
if(findcolor(x,y,6148078,MMX1,MMY1,MMX2,MMY2)) then
mouse(x,y,2,2,true);
wait(2000+random(2500));
end;


procedure bankem;
begin
openbank;
fixbank;
depostitall1;
end;







procedure report;
begin
writeln('|This Script Was Made by Buckleyindahouse');
writeln('|You have benn chopping trees for'+timerunning);
writeln('|You have chopped and banked'+intostr(loads));
end;


begin
setupsrl;
activateclient;
repeat
walktotrees;
chopemdown;
tillimdone;
gobank
bankem;
until(Loads = loadstodo)
logout;
terminatescript;
end.

[Pentti]

program NoobStarter;

{.include srl/srl.scar}

const
treecolor=2256992;//the color of the tree
treecolor2=2248776;//another color of the tree
loadstodo=20;//how many loads to bank before logging out
run='W';//Where to run if fight is found


var
Loads: integer;


procedure NoMajorBannage;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('Woodcutting', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;

procedure treerandoms;
begin
if(FindFight)then
begin
RunAwayDirection(run);
Wait(5000+random(1000));
RunBack;
end;
Gametab(4);
FindTalk;
FindNormalRandoms;
FindLamp(Lampskill);
end;



procedure walktotrees;
begin
mouse(697,109,5,5,true);
wait(3000+random(1500));
NoMajorBannage;
mouse(705,97,5,5,true);
wait(2000+random(2500));
NoMajorBannage;
mouse(654,85,5,5,true);
end;

procedure chopemdown;
begin
if(findcolorspiral(x,y,treecolor,MSX1,MSY1,MSX2,MS Y2)) or
(findcolorspiral(x,y,treecolor2,MSX1,MSY1,MSX2,MSY 2)) then
MMouse(x,y,2,2);
if(IsUptextMulti('Chop','dow','tree'))then
NoMajorBannage;
treerandoms;
mouse(x,y,5,5,false)
ChooseOption(x,y,'Chop Down');
wait(5000+random(2500));
end;

procedure tillimdone;
begin
repeat
chopemdown;
until(invfull)
Loads:= Loads+1;
end;



procedure gobank;
begin
mouse(663,184,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
mouse(616,176,5,5,true);
wait(5000+random(1500));
NoMajorBannage;
treerandoms;
if(findcolor(x,y,6148078,MMX1,MMY1,MMX2,MMY2)) then
mouse(x,y,2,2,true);
wait(2000+random(2500));
end;


procedure bankem;
begin
openbank;
fixbank;
depositall;
end;







procedure report;
begin
writeln('|This Script Was Made by Buckleyindahouse');
writeln('|You have benn chopping trees for'+timerunning);
writeln('|You have chopped and banked'+inttostr(loads));
end;


begin
setupsrl;
activateclient;
repeat
walktotrees;
chopemdown;
tillimdone;
gobank
bankem;
until(Loads = loadstodo)
logout;
terminatescript;
end.

Here you go. You had some little errors, like in Mouse(x,y,5,5,false) You forget put false there.
and you had intostr, its inttostr and you just had errors like this.

[Buckleyindahouse]

Ok,Awsome thank you for the help

[saberthug]

everytime i copy your woodcutting thing and put into scar version 2.03 it ses com;iled falied or sumfink wtf is going on help me! :(

[Pentti]

everytime i copy your woodcutting thing and put into scar version 2.03 it ses com;iled falied or sumfink wtf is going on help me! :(

Whats the error text in scar's debug screen?

[Da Der Der]

Buckley, I think that you should at least randomize your mouse movements. Don't keep the coords the same do something like:

Mouse(223+random(7),554+random(10),2,2,true);


- Da Der Der

[Boreas]

your lvl3 pure WC accounts

:eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek:

[DaWu]

Also add the player form so talking randoms work.

[WhiteShadow]

It's never a good idea to just use coord clicks for mapwalk. Try doing something else.

Hmm, it banks so there must be road for you to use RadialRoadWalk on right? ;P

[xxlegitxx]

everytime i copy your woodcutting thing and put into scar version 2.03 it ses com;iled falied or sumfink wtf is going on help me! :(

It isn't supposed to compile... he's troubleshooting his own script. If you're gonna leech, at least leech correctly.


Buckley, I think that you should at least randomize your mouse movements. Don't keep the coords the same do something like:

Mouse(223+random(7),554+random(10),2,2,true);


- Da Der Der

Lol, why so much randomness? Mouse already includes mouse randomness, theres no need to put Random(7) or Random(10).

And rofl @ the lvl 3 wc statement.

[Sky1992]

Lol im testing now....soo far soo good :P

[FityFive Monk]

im having trouble, can i get some help?:o

[Buckleyindahouse]

im having trouble, can i get some help?:o

This thread is over 6 months old. Dont grave dig.

[Smartzkid]

im having trouble, can i get some help?:o

If you need help with something, it would be best that you make a new thread. Make sure that you post the script (or, piece of script) that you're having trouble with along with any other details that [you think] may come in handy.