SRL Archive - RS3 Script Requests

I would love if someone could help me write a decent script for grinding blue dragon scales. Here's what I'm working with now(I'm very new to this)
I would like to see an antiban as well as failsafes :)

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

procedure practiceBox();
begin
mouse(286, 120, 30, 50, MOUSE_MOVE);
wait(randomRange(400, 800));
fastClick(MOUSE_LEFT);

wait(randomRange(1000, 2000));
mouse(198, 573, 15, 15, MOUSE_MOVE);
wait(randomRange(400, 800));
fastClick(MOUSE_LEFT);

wait(randomRange(1000, 2000));
mouse(640, 342, 15, 15, MOUSE_MOVE);
wait(randomRange(400, 800));
fastClick(MOUSE_LEFT);

wait(randomRange(900, 2000));
mouse(401, 340, 30, 15, MOUSE_MOVE);
wait(randomRange(400, 800));
fastClick(MOUSE_LEFT);

mouse(286, 120, 500, 500, MOUSE_MOVE);
wait(randomRange(15000, 18000));
pickupmouse;
end;

begin
clearDebug();
setupSRL();
practiceBox();

repeat
practiceBox();
until false;
end.

From: Effz
I would love if someone could help me write a decent script for grinding blue dragon scales. Here's what I'm working with now(I'm very new to this)
I would like to see an antiban as well as failsafes :)

I think you should read my simplistic guide (it explains how to bank, how to click inventory slots etc.). After reading that, you should have all the skills you need to write a basic dragon scale crusher.

Will do, thank you very much!

I've created my script, one question though, any ideas how I can get my script to repeat until the chatbox says "item not found"?

Look in chatbox.simba which is included by automatic when you include SRL6.

(*
TRSChatbox.findTextOnLines
~~~~~~~~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    function TRSChatbox.findTextOnLines(txt: TStringArray; lines: TIntegerArray): boolean;

Returns true if the text in 'txt' is found on the 'lines' of the chatbox.  The
lines start with 0 being the bottom chat line.

.. note::

    - by Olly
    - Last Updated: 17 October 2013 by Olly

Example:

.. code-block:: pascal

    // returns true if "Hello" is found on the first 4 lines
    chatbox.findTextOnLines(['Hello'], [0..3]);
*)
function TRSChatbox.findTextOnLines(txt: TStringArray; lines: TIntegerArray): boolean;
var
  i: integer;
  p: TPoint;
begin
  for i := 0 to high(lines) do
  begin
    result := findText(p, txt, [SmallChars], self.lineBoxes[lines[i]]);

    if (result) then
    begin
      print('TRSChatBox.findTextOnLines(): Found text '+toStr(txt)+' on line '+intToStr(lines[i]));
      exit();
    end;
  end;
end;

also take a breif look at how repeat until statement work, it's really simple, give it a try. Having any trouble just shoot a pm or post here :)

Hi,

I really suggest reading Mayors guides as he's already stated. His guides will have your script running in no time.
If you still need help, don't hesitate to contact me on Skype! Skype : seansproxiedskype