crapkiller
2007-04-09 19:56:52
Well you may have seen my HORRIBLE Varrock auto chopper and banker. This is NOT like that. This script actually WORKS(Kinda)! (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.
Ne1 got sum advice or constructive critisism?
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.
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.Ne1 got sum advice or constructive critisism?