SRL Archive - First Scripts

Makes headless arrows for around 15-35k exp/h
Start with feathers in your first slot and arrow shafts in your second slot.
Credit to:
Keepbotting for the great help and even though i'm a beginner he helped me understand a lot :)

program new;
{$DEFINE SMART}
{$I SRL-6/SRL.SIMBA}
//start with feathers in your first slot and arrow shafts in your second.
procedure makeMyBox();
var
  settingsbutton: Tbox;
begin
  settingsButton := intToBox(272, 255, 522, 277);
  mouseBox(settingsButton, MOUSE_LEFT);
  wait(randomrange(10000, 25000));
end;

procedure changeAngle();
begin
  mainScreen.setAngle(MS_ANGLE_HIGH);
end;
procedure clickFeather();
var
  x, y: integer;
begin
    tabBackpack.mouseSlot(1, MOUSE_MOVE);
     if isMouseOverText(['eather']) then
      begin
       fastclick(MOUSE_LEFT);
       writeLn('Clicked on the feathers.');
       wait(randomRange(100, 362));
      end else begin
       writeLn('You did not have feathers in slot 1! try again :(');
       terminateScript();
      end;
    tabBackpack.mouseSlot(2, MOUSE_MOVE);
     if isMouseOverText(['rrow']) then
      begin
       fastclick(MOUSE_LEFT);
       writeLn('Clicked on the arrow shaft.');
       wait(randomRange(500, 782));
      end else begin
       writeLn('You did not have arrow shafts in slot 2! try again :(');
       terminateScript();
      end;
end;

procedure FeatherBox();
var
  featherButton: Tbox;
begin
  featherButton := intToBox(290, 325, 509, 346);
  mouseBox(featherButton, MOUSE_LEFT);
end;

procedure caseStatement();
begin
case random(5) of
0: tabBackpack.mouseSlot(22, MOUSE_MOVE);
1: hoverSkill(SKILL_SUMMONING);
2: hoverSkill(SKILL_FISHING);
3: hoverSkill(SKILL_HERBLORE);
4: tabBackpack.mouseSlot(25, MOUSE_MOVE);
5: tabBackpack.mouseSlot(6, Mouse_MOVE);
6: hoverSkill(SKILL_FLETCHING);
  end;
end;

begin
  clearDebug();
  setupSRL();
repeat
  wait(randomrange(10210, 11582));
  clickFeather();
  wait(randomrange(220, 562));
  FeatherBox();
  caseStatement();
until(false);
end.                           

Congrats on completing your first script :) What's your makeMyBox() procedure for?

Heyyy, there it is :) congrats on the release!

Good, work! Hope to see more scripts soon!

should widen the case statement to at least 6 to catch all your cases but if thats supposed to be antiban it should be a little more random. random (500) or higher with 0..5, 10..14, 21..31 case headers to make it really random would be a better antiban solution ;) skipped numbers mean better efficiency and more randomness. just my .02$

ill give this script a go in a bit :3

– setupSRL()
—- Setting up SRL…
—- initSmart():
—— Attempting to pair to a previously spawned client
—— smartPairToExistingClient():
——– Found 1 free client(s), attempting to pair to one…
———- smartSetAsTarget(): Succesfully set SMART[3620] as Simba's target
——– Succesfully paired to a existing client, SMART[3620]
—— smartPairToExistingClient(): result = true
—— Succesfully initialized via pairing to a previously spawned client
—- initSmart()
—- Waiting up to 5 minutes for RS to load…

— does not do anything after I manually log in, items are in correct spot, directx

Got it working it goes for 900 or so arrows, then this happens"

– isMouseOverText(): False
You did not have feathers in slot 1! try again :(
– Succesfully freed SMART[8588]
– Freeing gametabs bitmaps…
Successfully executed.

Even though feathers ARE in slot1, sometimes the error is about the shafts in slot 2, even though they are there.


I fixed it by changing the timing, I suspected that it was clicking on the slots possibly a bit too fast.

Might want to update the program to these intervals:
if isMouseOverText(['eather']) then
begin
fastclick(MOUSE_LEFT);
writeLn('Clicked on the feathers.');
wait(randomRange(200, 362));
end else begin
writeLn('You did not have feathers in slot 1! try again :(');
terminateScript();
end;
tabBackpack.mouseSlot(2, MOUSE_MOVE);
if isMouseOverText(['rrow']) then
begin
fastclick(MOUSE_LEFT);
writeLn('Clicked on the arrow shaft.');
wait(randomRange(600, 782));
end else begin
writeLn('You did not have arrow shafts in slot 2! try again :(');
terminateScript();
end;


Before it ran for only ~1-2 minutes before it hit a rand range where it would be too fast.

With the update to the wait time, I ran it for ~20 minutes, made 10k headless arrows. I'll work on creating a progress report tab for it too in a bit. Good program :)

From: sonbg123
hello

You asking for a ban?


E: Spam bot lol.

Nice program mate, I'll give it a little go in a few hours, I'm currently trying to make my own little scripts :D