SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Javascript, Python, a bit of C++ and html


Are you a member of any other communities?
Sythe, and the former rsbots.net


Tell us about yourself…

From: ifrootloops
I'm 20 years old and I go to college. I've played and botted runescape for years.

In the last couple of years I learned a bit of programming here and there as a hobby. Now I've developed my very first runescape script - it took like 2 days to learn simba coding. I think I've gotten the hang of it now, and my script runs smoothly. (i took a little bit from "Procedure skullslope" of RyGuys Ape Atoll Agility Runner, and antiban from Baja_blast1's OGre Destroyer):
***
Failed 0 Times
Time: 56 Minutes and 1 Seconds
We have gained 31320 Agility Experience!
We are gaining 33547 Agility Experience per Hour!
***

Apart from that, I'm in a relationship, and i like to read, watch tv and play squash/ go to the gym..

Pretty normal stuff I guess

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

program 75+ Ape Atoll Agility;
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}
{$i sps/sps.simba}

//PLEASE NOTE REQUIREMENTS:
// 75 AGILITY!
// NINJA GREEGREE
// START SCRIPT NEAR STEPPING STONE

var
  x, y, TimesFailed, TimeBegan, Startingxp: Integer;
  toSwing, toStone: TPointArray;
  toSwing2, toStone2: TPoint;


Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
  End;
End;

Procedure AntiBan;
Begin
 WriteLn('~AntiBan Started');
  case Random(50) of
    0: Begin WriteLn('~Examining Inventory') GameTab(tab_Inv)ExamineInv; End;
    1: Begin WriteLn('~Waiting 3 seconds') Wait(3000 + Random(500)) End;
    2: Begin WriteLn('~Hovering Agility XP') GameTab(tab_Stats) HoverSkill('Agility', False) Wait(1000+ Random(500)) GameTab(tab_Inv); End;
    3: Begin WriteLn('~Hovering Constitution XP') GameTab(tab_Stats) HoverSkill('Constitution', False) Wait(1000 + Random(500)) GameTab(tab_Inv); End;
    4: Begin WriteLn('~Random Click') RandomRClick; End;
    5: Begin WriteLn('~Pick Up Mouse') PickUpMouse; End;
    6: Begin WriteLn('~Hovering Cooking XP') GameTab(tab_Stats) HoverSkill('Cooking', False) Wait(1000 + Random(500)) GameTab(tab_Inv); End;
    7..49: Begin WriteLn('~Waiting Random Time') Wait(RandomRange(500, 1200)); End;

  End;
End;


procedure Report;
var
  Exp, ExpHr, TimeRan: integer;
begin
  wait(1000);
  TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
  Exp := (GetXPBarTotal - StartingXP);
  ExpHr := Round((Exp * 3600) / (TimeRan));
  WriteLn('Time: ' + TimeRunning);
  WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
  WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
end;

procedure walkToStone;
begin
  begin
    TimesFailed := 0;
    writeln('Moving To Stone');
    SPS_Setup(RUNESCAPE_SURFACE, ['7_14','6_14','8_14','7_13','6_13']);
    toStone := [Point(2915, 5695), Point(2875, 5690), Point(2855, 5715)];
    SPS_WalkPath(toStone);
    Wait(1000+random(300))
    ;
  end;
end;


procedure SteppingStone;
begin
  MMouse(219, 173, 4, 6);
  wait(200+random(200));
  if IsUpText('ump') then
  begin
    writeln('SteppingStone');
    wait(100+random(100));
    ClickMouse2(True);
    wait(100+random(600));
    MMouse(1, 1, 500, 300);
    Wait(4000+random(500));
  end else
    begin
      MMouse(185, 178, 4, 4);
      wait(200+random(200));
      if IsUpText('ump') then
    begin
      writeln('SteppingStone');
      wait(100+random(100));
      ClickMouse2(True);
      wait(100+random(600));
      MMouse(1, 1, 500, 300);
      Wait(4000+random(500));
    end else
      begin

        writeln('!Retry + 1');
        Mouse(537, 15, 10, 10, true);
        wait(200+random(100));
        SPS_Setup(RUNESCAPE_SURFACE, ['7_14','6_14','8_14','7_13','6_13']);
        toStone2 := Point(2855, 5715);
        SPS_WalkToPos(toStone2);
        inc(TimesFailed);
        if TimesFailed > 15 then
        begin
          WriteLn('We are probably stuck. Logging out to be safe.');
          Logout;
          TerminateScript;
       end;
       SteppingStone;
      end;
    end;
end;


Procedure UpTree;
begin

  MMouse(212, 172, 3, 20)

  wait(200+random(200));
  if IsUpText('lim') then
  begin
    writeln('upTree');
    wait(100+random(100));
    ClickMouse2(True);
    wait(100+random(600));
    MMouse(1, 1, 500, 300);
    Wait(2000+random(300));

  end else
  begin
    writeln('!Retry + 1');
    Mouse(537, 15, 10, 10, true);
    inc(TimesFailed);
    if TimesFailed > 15 then
    begin
      WriteLn('We are probably stuck. Logging out to be safe.');
      Logout;
      TerminateScript;
    end;
    upTree;
  end;
end;

procedure MonkeyBars;
begin

    setAngle(SRL_ANGLE_HIGH);
    wait(100+random(100));
    MMouse(218, 197, 12, 12);
    wait(200+random(300));
    if IsUpText('wing')then
    begin
      writeln('MonkeyBars');
      wait(100+random(100));
      ClickMouse2(True);
      wait(100+random(600));
      MMouse(1, 1, 500, 300);
      Wait(5000 + random(1000));

    end else
    begin
      writeln('!Retry + 1');
      wait(100+random(600));
      inc(TimesFailed);
      if TimesFailed > 15 then
      begin
        WriteLn('We are probably stuck. Logging out to be safe.');
        Logout;
        TerminateScript;
      end;
      MonkeyBars;
    end;
end;


procedure SkullSlope;
var
  SlopeCount: integer;
begin
  setAngle(SRL_ANGLE_HIGH);
  wait(100+random(100));
  repeat
    Inc(SlopeCount);
    x := MSCX;
    y := MSCY;
    if FindColorSpiralTolerance(x, y, 3435383, MSX1, MSY1, MSX2, MSY2, 4)then
    MMouse(x, y, 0, 0);
    Wait( randomrange (25, 50));
  until IsUpText('slope') or (SlopeCount > 30);
  wait(100+random(100));
  if  IsUpText('slope')then
  begin
    writeln('SkullSlope');
    wait(100+random(100));
    ClickMouse2(True);
    wait(100+random(600));
    MMouse(1, 1, 500, 300);
    Wait(600 + random(250));
    setAngle(SRL_ANGLE_LOW);
    Wait(1000 + random(400));
  end else
  begin
    writeln('!Retry + 1');
    Mouse(537, 15, 10, 10, true);
    inc(TimesFailed);
    if TimesFailed > 15 then
    begin
      WriteLn('We are probably stuck. Logging out to be safe.');
      Logout;
      TerminateScript;
    end;
    SkullSlope;
  end;
end;

procedure moveToSwing;
begin
 Mouse(537, 15, 10, 10, true);
 writeln('Moved To Swing');
 SPS_Setup(RUNESCAPE_SURFACE, ['7_14','6_14','8_14','7_13','6_13']);
 toSwing := [Point(2805, 5720), Point(2820, 5735), Point(2845, 5750)];
 SPS_WalkPath(toSwing);
 wait(300+random(100));
 antiban;
end;

procedure vineSwing;
begin
  MMouse(315, 205, 8, 15);
  wait(200+random(300));
  if IsUpText('wing') then
  begin
      writeln('vineSwing');
      ClickMouse2(True);
      wait(100+random(600));
      MMouse(1, 1, 500, 300);
      wait(3400+random(600));
  end else
  begin
    writeln('!Retry + 1');
    SPS_Setup(RUNESCAPE_SURFACE, ['7_14','6_14','8_14','7_13','6_13']);
    toSwing2 := Point(2845, 5750);
    SPS_WalkToPos(toSwing2);
    wait(100+random(100));
    Mouse(537, 15, 10, 10, true);
    inc(TimesFailed);
    if TimesFailed > 15 then
    begin
      WriteLn('We are probably stuck. Logging out to be safe.');
      Logout;
      TerminateScript;
    end;
    vineSwing;
  end;
end;


procedure downTree;
begin

    MMouse(300, 50, 12, 30);
    wait(25+random(25));

  wait(200+random(200));
  if IsUpText('lim') then
  begin
    writeln('downTree');
    wait(100+random(100));
    ClickMouse2(True);
    wait(100+random(600));
    MMouse(1, 1, 500, 300);
    wait(10000+random(1000));
    antiban;
  end else
  begin
    writeln('!Retry + 1');
    Mouse(537, 15, 10, 10, true);
    wait(100+random(25));
    inc(TimesFailed);
    if TimesFailed > 15 then
    begin
      WriteLn('We are probably stuck. Logging out to be safe.');
      Logout;
      TerminateScript;
    end;
    downTree;
  end;
end;


begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  TimeBegan := GetSystemTime;
  StartingXP := (GetXPBarTotal);

  repeat
    walkToStone;
    SteppingStone;
    UpTree;
    MonkeyBars;
    SkullSlope;
    moveToSwing;
    vineSwing;
    downTree;
    WriteLn('Failed ' + IntToStr(TimesFailed) + ' Times');
    report;
    WriteLn('__________');
  until(false)
end.

You're using coords ._.

It's a good start and I'm not voting but your not going to get in with that script(and your really new here). It's really simple. You don't even search for colors you just click pixels with a little bit of randomness. And because of pixel shifts it will definitely mess up. You should look at a TPA tutorial for great color searching techniques that will help you a lot. Also, your standards could use some work. You should comment in the script if you got a piece of code(or procedure/function) from someone. //From bla bla. And make sure its ok for you to use thier code by asking them.

Thanks for the comments; I'm putting them to good use!

I've already incorporated colour finding into the stepping stone part. IT WORKS GREAT, THANKS!

I'll stay active on the forum, fix up my bot to look for colours. thanks a bunch!

No from me. Sorry. Your script is just too simple, and your activity level is still new. I like to get to know the people who apply.

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 11 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

Anyway, sorry for the roughness. Good luck.

Thanks for the honesty guys. This was my very first script.
I've added color to half the obstacles now. Im getting a better understanding of the functions within simba thanks to yohojo's tutorial.

r4ndom:
thanks for pointing me in the right direction. And in retrospect, I am rather new on these forums. So you're absolutely right. get to know me first :)

It doesn't look like this script will even compile. Look at the first line..

From: Bam Bam
It doesn't look like this script will even compile. Look at the first line..

Oh Bam Bam, that indeed is pretty funny. Yeah uh, OP you can't make script titles like that bud. It's not arithmetical, nor any spaces.

Sorry no from me, try using more complex functions.
Try using

• TPAS
• RRW
• BMP
• DDTMs & DTMS

Good luck!

From: P1nky
Sorry no from me, try using more complex functions.
Try using

• TPAS
• RRW
• BMP
• DDTMs & DTMS

Good luck!

Same for me. Best of luck in the future!

Thanks guys,

This is my first ever script, and after looking into some of the stuff you've been great with pointing out to me – I do see how primitive my script is.

And funny that it won't compile after the first line - my bad with renaming it. Two marks off.

Seriously though, thanks for the criticism guys, I do really appreciate it!

As said before, read a bit up on more advanced scripting techniques. You may reapply in 4 weeks, good luck!