SRL Archive - RS3 Script Requests

I really could not find a working script for this, and wanted a script for this
Requirements
33 Magic

100k Starting cash

Setup
Air staff [equipped]
Water runes [10 will do for a hour]
Law runes [200 will do for a hour]

The Method
Start off at the west falador bank, with the correct invent setup as I showed you above.
Run along the red path on the below map to the chaos temple.

Try find a world with one botter max at the wine of zamorak table. One bot is easy to beat, if theres two try find another world.
Use telegrab on the wine of zamorak on the table shown below. The wine spawns every 20 seconds or so, so make sure to be ready when it appears, so you can telegrab before any botters.

Once your inventory is full, use the teleport to falador spell, run to the west bank, bank your wines of zamorak, rinse and repeat.


Calculations
You can telegrab approx 140 wines of zamorak a hour, including time required to bank, and run to the temple.

140 wines of zammy x 1925gp each = 260k a hour!

Tip: If the wines take too long to sell, lower the selling price by 5% and they will fell quickly.

Looks like you've got the idea sorted out already, why not give it a try yourself?

program Test;
{$i srl/srl.simba}

var
  GrabbedWines: integer;

procedure Test;
var
  X, Y, t: integer;

begin
  if not(GameTab(tab_Magic)) then
    begin
      FTab(tab_Magic);
    end else
  Mousebox(608, 217, 631, 240, 1);
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(1.15, 3.53);
  repeat
    Wait(1);
  until(FindColorSpiralTolerance(X, Y, 4876736, MSX1, MSY1, MSX2, MSY2, 3));
  MMouse(X, Y, 1, 1);
  if IsUpText('zam') then
    begin
      ClickMouse2(1);
    end;
  repeat
    MarkTime(t);
    Wait(Random(25000));
    Mousebox(608, 217, 631, 240, 1);
    MMouse(X, Y, 3, 7);
    repeat
      Wait(1);
    until IsUpText('zam') or (TimeFromMark(t) > 30000)
       if (TimeFromMark(t) > 30000) then
        begin
          if FindColorSpiralTolerance(X, Y, 5467834, MSX1, MSY1, MSX2, MSY2, 4) then
            begin
              ClickMouse2(0);
              if WaitOption('ast', 200) then
                begin
                  Inc(GrabbedWines);
                end else
            end else
          end else
        begin
          ClickMouse2(1);
          Inc(GrabbedWines);
        end;
  WriteLn('We have grabbed '+IntToStr(GrabbedWines)+' Wine of Zamorak');
  t:=0
  until(FindChatBoxText('ugh inv', 8, ClBlack));
end;

begin
  SetUpSRL;
  ActivateClient;
  Test;
end.

I worked on it for like 1-2 hours some day, it might still work. Stand next to the table. Also need to have your mage book set up correctly.

If this still works you would just have to add banking.

From: J J
Looks like you've got the idea sorted out already, why not give it a try yourself?

program Test;
{$i srl/srl.simba}

var
  GrabbedWines: integer;

procedure Test;
var
  X, Y, t: integer;

begin
  if not(GameTab(tab_Magic)) then
    begin
      FTab(tab_Magic);
    end else
  Mousebox(608, 217, 631, 240, 1);
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(1.15, 3.53);
  repeat
    Wait(1);
  until(FindColorSpiralTolerance(X, Y, 4876736, MSX1, MSY1, MSX2, MSY2, 3));
  MMouse(X, Y, 1, 1);
  if IsUpText('zam') then
    begin
      ClickMouse2(1);
    end;
  repeat
    MarkTime(t);
    Wait(Random(25000));
    Mousebox(608, 217, 631, 240, 1);
    MMouse(X, Y, 3, 7);
    repeat
      Wait(1);
    until IsUpText('zam') or (TimeFromMark(t) > 30000)
       if (TimeFromMark(t) > 30000) then
        begin
          if FindColorSpiralTolerance(X, Y, 5467834, MSX1, MSY1, MSX2, MSY2, 4) then
            begin
              ClickMouse2(0);
              if WaitOption('ast', 200) then
                begin
                  Inc(GrabbedWines);
                end else
            end else
          end else
        begin
          ClickMouse2(1);
          Inc(GrabbedWines);
        end;
  WriteLn('We have grabbed '+IntToStr(GrabbedWines)+' Wine of Zamorak');
  t:=0
  until(FindChatBoxText('ugh inv', 8, ClBlack));
end;

begin
  SetUpSRL;
  ActivateClient;
  Test;
end.

I worked on it for like 1-2 hours some day, it might still work. Stand next to the table. Also need to have your mage book set up correctly.

If this still works you would just have to add banking.

ty but trust me i have no idea how to script. ive always always wanted to learn how to make scripts. i just never learned anything. if you would teach me how to make them i could make tons

nice rs name xoxo

this would be a great bot if someone could make :D

From: Gator
this would be a great bot if someone could make :D

cant w8 for a release for this

No one on their right mind would release it to public here. Try sythe.

i mean its already been released on pbot/rarebot.