SRL Archive - RS3 Outdated / Broken Scripts

Rev. 31 Srl 4

My first ever script, I am still working on it.

What it does:
Chops and Banks Maple Logs in Seers Village
Solves Normal Randoms
Antiban


Instructions:
Choose a low populated world
Start either in bank or at trees (behind bank)
Have axe equipped
Press play!





My Test Proggy:

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Time Running : 47 Minutes and 53 Seconds
Loads : 11
Thanks For Using Seers Maple Basher
`````````````````````````````````````````````````
Successfully executed
(Stopped It Myself)



Will Be Updated Frequently.

Last Update-

v1.1
Added-
Ent finding
AntiRandom and AntiBan
Improved Chopping






Enjoy

:p why don't you use FindSymbol when you walk to trees but you do when you go bank? :o

also, your missing some waits.. I'll let you find those..

and you call MainLoop; in your MainLoop; proc? >.> then again in the.. other main loop.. might wanna change that (dunno if it will mess it up, just kinda sloppy)

and also, you shouldn't do until false; do until (loads=loadstodo) and have loadstodo in const or something :)

looks nice tho :D

(can't believed you used TPA in your first script :p)

Yea i need help getting up to standard =p
But like i said its my first
If you have anything to contribute your welcome to.

your whole ChopTree proc is very confusing :p

and a lot of your cases aren't needed :)

This? I know..

if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
begin
case random(2) of
0:
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop')
begin
case random(2) of
0:
begin
wait(750+random(750));
HoverSkill('woodcutting', False);
end;
1:
RandomMovement;
end;
end;
end;
1:
Mouse(x, y, 0, 0, true);
end;
begin;
RandomMovement;
end;



I tried to do something like this

if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop')
begin
wait(750+random(750));
Antiban;
end;

It kept saying unknown identifier

So i had to use my antiban procedure inside my chopping…

I need help lol

From: Sir_Oober
This? I know..

if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
begin
case random(2) of
0:
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop')
begin
case random(2) of
0:
begin
wait(750+random(750));
HoverSkill('woodcutting', False);
end;
1:
RandomMovement;
end;
end;
end;
1:
Mouse(x, y, 0, 0, true);
end;
begin;
RandomMovement;
end;



I tried to do something like this

if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop')
begin
wait(750+random(750));
Antiban;
end;

It kept saying unknown identifier

So i had to use my antiban procedure inside my chopping…

I need help lol

you probably had your choptree procedure above your antiban… just make sure that the antiban is above it…

procedure AntiBan;
begin
  stuffhere;
end;

procedure ChopTree;

begin;

  if not(LoggedIn) then Exit;
    repeat
    if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('hop')
      begin
        wait(750+random(750));
        Antiban;
        FindNormalRandoms;
      end;
    end;
    Until  not IsUpText('aple') or (InvFull);
  Until(invfull);
end;

you could make a custom tpa… it would work way better!

Thanks for the help i got the anti-ban working now =]

From: mormonman
you probably had your choptree procedure above your antiban… just make sure that the antiban is above it…

procedure AntiBan;
begin
  stuffhere;
end;

procedure ChopTree;

begin;

  if not(LoggedIn) then Exit;
    repeat
    if FindObjTPA(x, y, 2901367, 20, 2, 15, 25, 10, ['aple', 'Mapl', 'Maple']) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('hop')
      begin
        wait(750+random(750));
        Antiban;
        FindNormalRandoms;
      end;
    end;
    Until  not IsUpText('aple') or (InvFull);
  Until(invfull);
end;

you could make a custom tpa… it would work way better!

lol im dumb, how do i download this script?

From: Denman
lol im dumb, how do i download this script?

Correct sir! Click the link to download and place it where you want it, open it, set it up, run it.