[SRL]Falador Normal Log Chopper and Banker

Well you may have seen my HORRIBLE Varrock auto chopper and banker. This is NOT like that. This script actually WORKS! (NO WAI). I got 2 succesful runs on it.(Only reason i got 2 instead of 3 or 4 etc. was because it went a little too north and got stuck next to a tree, currently too lazy to fix it, so maybe tommorrow =P) It has anti - randoms and it uses MMouse and Mouse instead of Movemouse
and clickmouse etc.

Instructions:
1)Start a character in front of any bank slot at Falador West bank with an axe equipped.
2)Drag the crosshair from SCAR to the RS window.
3)Hit run and watch the first couple seconds of the run(Should go a lil north of gen store and chop there)

NOTE: it shouldn't chop oak logs but if it gets 1 or 2 its not a big deal.

Code:

program New;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}

Var ax, ay, Bankx, Banky, Logz, Loadz, Exp :integer;

Procedure FindRandomz;
begin
FindEnt(1452064);
FindHead;
FindNormalRandoms;
FindLamp('Woodcutting');
if (FindFight) then
begin
RunAwayDirection('N');
Wait(10000+random(2000));
RunBack;
end;
end;

Procedure Walk2trees;
begin
SetRun(True);
if(FindSymbol(x, y, 'Water')) then
begin
Mouse(x, y, 1, 1, True);
Wait(1000);
Flag;
end;
if(FindSymbol(x, y, 'Water') = False) then
begin
Mouse(666, 55, 1, 1, True);
Wait(1000);
Flag;
FindSymbol(x, y, 'Water');
Mouse(x, y, 1, 1, True);
Wait(1000);
Flag;
end;
FindSymbol(x, y, 'Store');
Mouse(x, y, 1, 1, True);
Flag;
Mouse(646, 50, 1, 1, True);
Flag;
Mouse(646, 50, 1, 1, True);
Flag;
end;


Procedure Chop;
begin
ax := 0;
ay := 0;
repeat
If(FindColorTolerance(x, y, 1452064, ax + 5 + random(5), ay + 5 + random(5), 513, 333, 10)) then
MMouse(x, y, 1, 1);
Wait(100);
If(FindColorTolerance(x, y, 1452064, ax + 5 + random(5), ay + 5 + random(5), 513, 333, 10) = False) then
begin
ax := 0;
ay := 0;
KeyDown(VK_left);
Wait(500);
KeyUp(VK_left);
end;
Wait(100);
If(IsUpText('Tree') = False) then
GetMousePos(ax, ay);
Wait(100);
until(IsUpText('Tree'))
Mouse(x, y, 1, 1, True);
FindRandomz;
end;

Procedure NextTreeYet;
begin
ay := 0;
ax := CountItemColor(65536)
while (CountItemColor(65536) = ax)do
begin
wait(500);
ay := ay + 1
If (ay >= 20) then Chop;
end;
FindRandomz;
end;

Procedure Walk2Bank;
begin
PerfectNorth;
if(FindSymbol(x, y, 'Store')) then
Mouse(x, y, 1, 1, True);
repeat
If(FindSymbol(x, y, 'Store') = False) then
Mouse(649, 107, 1, 1, True);
Flag;
Until(FindSymbol(x, y, 'Store'));
Mouse (x, y, 1, 1, True);
Flag;
FindSymbol(x, y, 'Water');
Mouse(x, y, 1, 1, True);
Flag;
Mouse(644, 122, 1, 1, True);
Flag;
FindSymbol(x, y, 'bank');
Mouse(x, y, 1, 1, True);
Flag;
end;

Procedure Bank;
begin
Bankx := 249
Banky := 175
repeat
MMouse(Bankx, Banky, 1, 1);
Banky := Banky + 10;
Wait(100);
If (Banky > 363) then
begin
Bankx := Bankx + 50;
Banky := 175;
end;
Until(IsUpText('Bank booth') = True);
Mouse(Bankx, Banky, 1, 1, False);
Wait(1000+Random(500));
ClickOption('Use-quickly', 1);
Wait(3000+random(500));
FindColorTolerance(x, y, 3232619, 566, 219, 732, 460, 5);
Mouse(x, y, 1, 1, False);
PopUp('Store All');
Wait(200+random(500));
CloseBank;
end;

Procedure Proggyreport;
begin
Logz := Loadz * 28
Exp := Logz * 25
Writeln('|---------------------------------------------|');
Writeln('|Worked For : ' + TimeRunning)
Writeln('|Chopped and Banked '+IntToStr(Loadz) + ' Loads');
Writeln('|Chopped and Banked '+ IntToStr(Logz) + ' Logs');
Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
Writeln('|---------------------------------------------|');
end;

begin
SetUpSRL;
ActivateClient;
Wait(3000);
FindAxeHeadColor;
repeat
PerfectNorth;
Walk2Trees;
While(InvFull = False) do
begin
Chop;
NextTreeYet;
end;
Walk2Bank;
Bank;
Loadz := Loadz + 1;
ProggyReport;
until(false);
end.

 

very cool

 

Runs for... How long?

 

Well i got 2 succesful runs before it unluckily got stuck right next to a tree =(. I can hopefully get atleast 5 runs. I already have a few ideas about fixing the problem but it should be pretty rare and stiill work nicely. I will test in a bit to see what i can get.

NOTE: did anyone try it?

 

umm how do i use it im a nooby

 

No anti-ban? Get stuck in a tree half the time?

I will probably use it if you fix those

 

Well, im a n00b with scripts, so woluld someone avtually help me.
It say's like this:
Include file C:\SCAR 2.03\includes\SRL\SRL.scar does not exist.
Include file C:\SCAR 2.03\includes\SRL\SRL\skill\woodcutting.scar does not exist.

So how and where do i get those SCAR files?

 

Your script is very unreliable. Work alot harder.

 

nicez

 

www.srl-forums.com or autofighter.org

 

You need SRL. Download at Villu-Reborn.com Somewhere on that website

NOTE:

Well....... Becuase i got 2 succesful runs thats atleast 56 logs. Which means were clicking a tree 56 times. So, it happened once out of 56 times. That is NOT half not even close. That is less than 2%. Also 2 runs isn't enough to draw a conclusion from. What if it was just pure bad luck eh?

Fourscape: What is unreliable? Which part? the chopping? the walking? the whole thing? be specific dont just try to make me feel bad. This is my 3rd script. It is purely for learning purposes for me. I just wanted advice.

 

it says this when i try run it
Line 78: [Error] (15198:7): Unknown identifier 'CountItemColor' in script

Please help me!

 

i'm getting the same thing as Xtra C l I P

 

Use Scar 2.03 from www.freddy1990.com and SRL 3.6b from http://rapidshare.com/files/14478545/PowerSkills_and_SRL.rar for this script.

 

oh oops i was using 3.10

 

i tryed doing what you said but it still found an th same error

 

when i try this i get an error message, i think i need an SRL or something, and since im new on this idk what to do, i hope maby some of you could tell me or send me a turtorial etc.

 

Please help Ive Tried Everything ubove and have had all of those error mesages but now i just get "Line 15: [Error] (14676:1): Unknown identifier 'RunAwayDirection' in script
Failed when compiling"

 

it doesnt work!!!! all it does is drop it!!!!!!!!!! man make 1 that does bank!!!! plz!!!