Results 1 to 3 of 3

Thread: JJ's Thieving Guild Chest Thiever

  1. #1
    Join Date
    Dec 2011
    Location
    The Netherlands
    Posts
    1,631
    Mentioned
    47 Post(s)
    Quoted
    254 Post(s)

    Default JJ's Thieving Guild Chest Thiever

    Quoting from my topic at Thieving Scripts.

    Quote Originally Posted by RuneScapeJJ View Post
    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:
    Simba Code:
    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

    Script source code available here: Github

  2. #2
    Join Date
    Feb 2012
    Posts
    152
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i will probably try this one out next week sounds good

  3. #3
    Join Date
    Feb 2012
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •