SRL Archive - Archive

How Long have You Played Runescape?
3 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal language


Are you a member of any other communities?
Powerbot, Rarebot, Runedream…


Tell us about yourself…

From: BGXD
Hello my name is Bruno, I am Brazilian understand a little of the language Pascal, I'm studying a lot.

Please show us one (or multiple) of your scripts.

http://villavu.com/forum/showthread.php?p=1088446#post1088446

Can you post your script in simba tags? Thanks :)

I vote no. I'm sure someone will be in the mood to post why.

Going to have to say no.

Check out some of the guides to becoming an SRL Member. They give you a pretty good idea of what is needed to be accepted.

Sorry but I'm going to have to say no.

It's way to short, way too simple and it only uses FindObj to locate stuff.

Simba tags pleaseeee.
I can't view it on my phone :c

From: Shay
Simba tags pleaseeee.
I can't view it on my phone :c

program WillowPowerChop;
{$DEFINE SMART}
{$i srl/srl.simba}

const
  Direction = 'N'; //N=north, W=west, S=south, E=east. choose the looking-direction of the compass.


Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

procedure Antiban;
begin
  if FindNormalRandoms then
begin
    ClickNorth(SRL_ANGLE_HIGH);
    MakeCompass(Direction);
  end;
  case Random(60) of // Random(60) generates a random integer from 0 to 59
    10: RandomRClick;
    20: HoverSkill('Woodcutting', False);
    30: PickUpMouse;
    40: RandomMovement;
    50: BoredHuman;
    59: ExamineInv;
  end;
end;

procedure ChopWillow;
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop', 1054740, 35) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('low');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);
  until(InvFull);
end;

Procedure DropLogs;
var
  i: Integer;
begin
  if not (LoggedIn) then
    Exit;
  if(InvFull) then
  for i := 2 to 28 do
  begin
    if ExistsItem(i) then
      DropItem(i);
      wait(10+random(80));
  end;
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  //Inc(Stats_CustomVars[10]);
end;

procedure MainLoop;
begin
 repeat
  ChopWillow;
  DropLogs;
  Antiban;
  FindNormalRandoms;
  Until not(LoggedIn);
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  MakeCompass(Direction);
  MainLoop();
end.

Code above is OP's script.

Thanks, Justin for posting the script :)

I've found a few weird things

procedure ChopWillow;
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop', 1054740, 35) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('low');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);
  until(InvFull);
end;

I don't get it.

 if FindObj(x, y, 'hop', 1054740, 35) then

You're looking for a chop? Shouldn't that be Willow like you switched in THIS procedure

 begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('low');
    end;

So one thing about this is no randomization. Bad bad easy bot ban.
Then you choose Willow? I don't think thats an option when you are choosing a tree…

 repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);

I don't get this either. So you wait and do antiban until you don't have the uptext for a yew tree or your inventory is full? This could easily be an infinity loop.

Overall the script isn't very impressive. I myself made a custom willowchopper and am using it as we speak. If you need any help for future fixes and improvements just shoot me a PM.

I have to vote no based on these findings.

~Joe

From: Joe
Thanks, Justin for posting the script :)

I've found a few weird things

procedure ChopWillow;
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    if FindObj(x, y, 'hop', 1054740, 35) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('low');
    end;
      repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);
  until(InvFull);
end;

I don't get it.

 if FindObj(x, y, 'hop', 1054740, 35) then

You're looking for a chop? Shouldn't that be Willow like you switched in THIS procedure

 begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('low');
    end;

So one thing about this is no randomization. Bad bad easy bot ban.
Then you choose Willow? I don't think thats an option when you are choosing a tree…

 repeat
      wait(400+random(250));
      AntiBan;
      Until not IsUpText('ew') or (InvFull);

I don't get this either. So you wait and do antiban until you don't have the uptext for a yew tree or your inventory is full? This could easily be an infinity loop.

Overall the script isn't very impressive. I myself made a custom willowchopper and am using it as we speak. If you need any help for future fixes and improvements just shoot me a PM.

I have to vote no based on these findings.

~Joe

I think that's straight out of the "script down your first tree" tutorial. I read it a long while ago, but I remember that it made you hover over the tree until it disappeared.

From: litoris
I think that's straight out of the "script down your first tree" tutorial. I read it a long while ago, but I remember that it made you hover over the tree until it disappeared.

but there are no yew trees…. and I think kyle made that tutorial and it was for regular trees…

This is based almost all off of Script down your first RS Tree, with a bit of copy/paste.

Doesn't show you know the SRL Include to the extent we're looking for.
Going to have to vote no.

Stolen from Random:

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused, you have 2 posts! Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Sorry, but not quite there for SRL Member standard

Script down your first RS Tree vs. BGXD's Member Application

Far too similar to demonstrate sufficient knowledge of the SRL include for me.

From: BGXD
Hello my name is Bruno, I am Brazilian understand a little of the language Pascal, I'm studying a lot.

It's great that you are studying PascalScript! Make sure to view the links in Ashaman88's post and you'll be well on your way towards becoming an SRL Member.

Hi BGXD,

Unfortunately it looks like you won't be getting in this time :(

You may apply again in one month. But, before doing so, be sure to read this thread :)

Regards,
~ Daniel.