SRL Archive - First Scripts

Quoting from my topic at Thieving Scripts.

From: RuneScapeJJ
Video on setting it up and showing how it works, etc.
http://www.youtube.com/watch?v=VZsZExKnCjE

Hello,

Thanks for taking your time to check out my script. This is the first script I've written myself and I'm proud to have it finished. As far as I know it works flawless, except for handling random. I will add more features in the future. You currently have to log-in manually.

This script should be getting around 50.000 thieving experience per hour.

How to set it up and what are the requirements?

• 35 thieving
• Buyers and Cellars quest
• Lockpick

This script is opening the gates/doors and looting the chests are spot number 4 on this map:

Once you have positioned your character there you can choose to run this script with SMART, which works but is a bit harder to set up.. or you can choose to let Simba control your mouse and choose your desired RuneScape screen with the "Select a client"-tool built in to Simba.

Your brightness should be turned all the way up, and your graphics should be on the lowest possible.

The script:

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

Function OpenChest:Boolean;
Var
  X, Y, t: Integer;

begin
MarkTime(t);
  repeat

    X:=MSCX;
    Y:=MSCY;
    if FindObjTPA(X, Y, 7376552, 15, 1, 4, 9, 20, ['ract']) then
      begin;
        Writeln('We found the chest');
        GetMousePos(X, Y);

          Case Random(4) of
          0..2: begin;
                  Mouse(X, Y, 5, 5, True);
                  Writeln('We clicked the chest');
                end;

          3:    begin;
                  Mouse(X, Y, 5, 5, False);
                  WaitOption('Open', 300);
                  Writeln('We clicked the chest');
                end;
          end;

        Wait(1500+random(1000));
        Writeln('We are waiting to complete the thieving');
      end;

    begin;
      repeat
      Wait(200+random(200));
      until FindChatBoxText('fail', 8, clBlack) or FindChatBoxText('open', 8, clBlack) or FindChatBoxText('reach', 8, clBlack) or (TimeFromMark(t) >= 10000);
    end;

    begin;
      if FindChatBoxText('fail', 8, clBlack) then
      Wait(300+random(200));
    end;

    begin;
      if FindChatBoxText('open', 8, clBlack) then
      Wait(2000+random(500));
    end;

    begin
      if FindChatBoxText('reach', 8, clBlack) then
      WriteLn('Time to open the doors');
      Wait(300+random(200));
    end;

  until FindChatBoxText('reach', 8, clBlack) or (TimeFromMark(t) >= 15000);
end;


function OpenGate:Boolean;
var
  X, Y, a, t, z: Integer;

begin
z:=0
t:=0
a:=0
MarkTime(t);

  repeat
    X:=MSCX;
    Y:=MSCY;
    z:=0
     if FindObjTPA(X, Y, 1252637, 5, 1, 3, 3, 6, ['pen']) then
        begin;
          Writeln('We found the chest');
          GetMousePos(X, Y);

          Case Random(4) of
          0..2: begin;
                  Mouse(X, Y, 2, 2, True);
                  Writeln('We clicked the gate');
                end;

          3:    begin;
                  Mouse(X, Y, 2, 2, False);
                  WaitOption('Open', 300);
                  Writeln('We clicked the gate');
                end;
          end;

          Writeln('We are waiting to open the gate');
          Wait(2000+random(1000));
        end;

        begin;
          repeat
            Wait(200+random(200));
          until FindChatBoxText('swings', 8, clBlack) or FindChatBoxText('bornly', 8, clBlack) or (TimeFromMark(t) >= 10000);
        end;

        begin;
          if FindChatBoxText('bornly', 8, clBlack) then
          WriteLn('We failed to open the gate');
          Wait(200+random(200));
        end;

        begin;
          if FindChatBoxText('swings', 8, clBlack) then
          a:=a+1
        end;

        begin;
          if (TimeFromMark(z) >= 10000) then
          WriteLn('Time exceeded');
        end;

   until FindChatBoxText('swings', 8, clBlack) or (TimeFromMark(t) >= 20000);
end;


begin
  SetUpSRL;
  ActivateClient;
    repeat
      repeat OpenChest;
      until(FindChatBoxText('reach', 8, clBlack));
        OpenGate;
    until(False);
end.

Be sure to leave some feedback to help me to improve the script!
Auto log-in, antiban and other features will be added in the future.

Greetz,

JJ.

Give me some feedback :)

i will probably try this one out next week :) sounds good

made it run for an hour no problems.. but i hate theiving and i thought they had a high ban rate