SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I started programming with SCAR way back when
mIRC Scripts
html + javascript + php
java
and the last few years C++


Are you a member of any other communities?
Inactive account at RSBot


Tell us about yourself…

From: fastler
The first online game I ever registered for was RuneScape back in 2002, and I've been playing it on and off ever since. I have used, or attempted to use, SCAR to "enhance" game-play in other games as well. Lately I've used my knowledge to script privately and I haven't released a single script for RS as I always build them to fit my needs and fidget with the code on a daily basis. I'm currently 22 years old and studying Computer Science. I have never done anything noteworthy, but I do command a decent understanding of many world languages as I've lived in various countries. I'm a first generation American and I currently live in the US. If I were to be lax about naming my interests, I'd say I have a passion for all things internet, computers, atheism, and 420. Oh and I hate p2p, I'm an f2p pure. And as such I only play RS3.

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

program Prayer3;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}

{*
Since the release of cremation I've been
working towards 99 prayer on my main.
I set SMART to use a custom width and height
(mimicking my browser) and the script
takes into account my interface layout.
Login, bankpin, camera angle are to be done manually.
I used to have comments, but as I fiddle
with the script daily the comments, over time,
got deleted or overwritten along with
the bits of code they described.
*}

procedure myPushButton(id: Integer)
begin
  wait(gaussRangeInt(50, 100));
  KeyDown(id);
  wait(gaussRangeInt(85, 150));
  KeyUp(id);
  wait(gaussRangeInt(50, 100));
end

procedure myMMove(x, y: Integer)
begin
  if not gaussRangeInt(-10, 10) = 0 then
    mouse(x + RandomRange(-10, 10), y + RandomRange(-10, 10))
  else
    missMouse(Point(x + RandomRange(-10, 10), y + RandomRange(-10, 10)));
end

function bpUnlocked(): boolean
var
  x, y: Integer;
  lock := DTMFromString ('mLgAAAHicY2JgYFjNxMAwH4irGSHYMSSGQUrHmIELKAfCjFDMwAAAdl4DyQ==');
begin
  result := true;
  wait(gaussRangeInt(85, 150));
  if findDTM(lock, x, y, IntToBox(1256, 309, 1587, 452)) then
    result := false;
  FreeDTM(lock);
end

procedure optClose
var
  x, y: Integer;
  opt := DTMFromString ('mQwAAAHicY2ZgYLjFyMBwHYgfA7EgEHMCsQAQCwtxM/z//5/h79+/DEAuHDMhYSAAAGhACPU=');
begin
  if findDTM(opt, x, y, IntToBox(576, 1, 1247, 788)) then
    mouseBox(IntToBox(1256, 309, 1587, 452));
  FreeDTM(opt);
end

procedure randomMove
begin
  if RandomRange(RandomRange(0, 10), RandomRange(15, 30)) < 4 then
    mouse(Point(800 + gaussRangeInt(-200, 200), 420 + gaussRangeInt(-200, 200)));
end

procedure bank
var
  x, y: Integer;
  banker := DTMFromString ('mQwAAAHicY2aAAEYoLQClxYG4ra6eoTlNjGHvxo0MrEA+DDMjYSAAAKWCBOU=');
begin
  if findDTM(banker, x, y, IntToBox(576, 1, 1150, 450)) then begin
    if not IsArrInStr(['Bank'], getMouseOverText(true)) then
      myMMove(x, y);
    wait(gaussRangeInt(150, 250));
    if IsArrInStr(['Bank'], getMouseOverText(true)) then
      fastClick(mouse_Left);
    wait(gaussRangeInt(250, 450));
  end
  FreeDTM(banker);
  if not bpUnlocked then begin
    myPushButton(49);
    WaitFunc(@bpUnlocked, 50, 750);
  end
end

function burn(): boolean
var
  selected: Boolean;
  x, y: Integer;
  bone := DTMFromString ('mQwAAAHicY2ZgYFjLxMCwBIi3APFcRgaG+YwQemp/H0NfRztDUW4OAz9QHQwzImEgAABzMwi1');
begin
  result := false;
  if findDTM(bone, x, y, IntToBox(1256, 309, 1587, 452)) then
    result := true;
  if result then begin
    wait(2850 + gaussRangeInt(-250, 250));
    if not SimilarColors(GetColor(x, y), 2366475, 30) then begin
      if y > 420 then
        exit(false);
      if (x > 1422) and (y > 383) then
        exit(false);
      findDTM(bone, x, y, IntToBox(1256, 309, 1296, 452));
      myMMove(x, y);
      fastClick(mouse_Right);
      wait(gaussRangeInt(150, 250));
      chooseOption.select(['Use Big bones']);
      selected := true;
      wait(gaussRangeInt(150, 250));
      repeat
        repeat
          optClose;
          randomMove;
          wait(gaussRangeInt(150, 250));
          if not findColorTolerance(x, y, 16777215, IntToBox(1256, 309, 1587, 452), 10) then
            selected := false;
        until (not selected or mainscreen.findObject(x, y,
          [944279, 945050, 3763578, 1541059, 2386321, 2450827],
          [3, 3, 3, 3, 3, 3],
          colorSetting(2, 0.16, 0.61),
          Point(800, 420),
          40, 40, 75,
          ['Use Big', 'ig bo'],
          IntToBox(576, 200, 933, 650),
          mouse_Right));
        wait(gaussRangeInt(150, 250));
      until (not selected or chooseOption.select(['Use Big bones -> Fire']));
    end else randomMove;
  end
  FreeDTM(bone);
end

procedure Pray
begin
  while getColor(1594, 5) = 16240 do begin
    wait(gaussRangeInt(85, 150));
    if not burn then
      bank;
  end
end

begin
  smartPlugins := ['d3d9.dll'];
  disableSRLDebug := true;
  mouseSpeed := 18;
  initSmart(false);
  Pray;
end.