SRL Archive - RS3 Outdated / Broken Scripts

CURRENTLY OUTDATED. UPDATE IS PLANNED FOR WHEN REFLECTION IS FIXED.


Requirements:

• Most recent SRL OpenDev revision.
• Most recent Reflection revision (public or dev should work).
• SCAR 3.15b, 3.20d, or 3.21 (3.21 is recommended).

Features:

• Auto-updater
• Accurate
• Antiban
• Multiplayer (Untested)
• Attempts to find an empty world
• Choose between teleporting or walking back to Falador
• Takes screenshots when the script messes up (default is off)
• A max run time can be specified for the script, if desired.
• Can play an alert when a player is switched false, or when the script finishes, if so desired.
• Can display the amount of profit you have made, based on the current midprice of both Law Runes and Wines of Zamorak.
• Tracks how many levels you gain.

Setup:

• Have a Staff of Air equipped, and have Law Runes in your inventory.
• Have Water Runes in your inventory if you wish to use Falador Teleport.
• Start in Falador West Bank, the Chaos Temple (where the wines are), or anywhere on the most direct (walkable) path between them.
• Fill in the Declare Players procedure.
• Fill out lines 24-27.
• If you wish for the script to not take screenshots, either comment out line 1 (this is the default state), or remove it.

Known Bugs/Issues:

• Casting is relatively slow. The script will almost always lose to a human.
• Occasionally fails to change worlds. I think this may be caused by lag. Not entirely sure.
• The script attempts to log into a PvP world. This is caused by an outdated worlds.ini. Run the following code to fix the issue:

program new;
{.include SRL\SRL.scar}

begin
  UpdateWorlds;
end.

To Do List (Plans for Future Versions):

• Speed up the casting.
• Add in the ability to sleep.
• Allow players to start with runes and/or equipment in the bank.
• Make pictures for this thread
• Make a color version of the script (this is a plan for way in the future and may never happen)

Change Log:

• Version 1.1d:
• Added in level tracking.
• Version 1.1c:
• Swapped all instances of {$DEFINE SCAR320} to {$DEFINE SCAR320_UP}, allowing the script to run as intended on SCAR 3.21 Alpha. I really should've been using SCAR320_UP to begin with.
• Changed the walking function slightly. Hopefully now it will be a little more robust.
• Added the option to display the amount of profit (based on the current GE midprice for both Law Runes and Wines of Zamorak. It does not take into account any Water Runes spent). Special thanks to N1ke! for posting his GEGetMidPrice function.
• Modified a failsafe that triggers if SRL fails to detect a random so that it will falsely trigger less often.
• Version 1.1b:
• Switched hosts for auto-updater
• Added a check to see if OpenDev is being used
• Modified to work with the newest revisions (SMART changes)
• Some other things that I can't remember right now
• Version 1.1:
• Improved walking (faster and more human-like)
• Improved walking paths
• Sped up banking
• Improved anti-ban

Top Progress Reports:

• [FONT="Courier New"]/-------------------------------------------------------\

| Senrath's | | Wine of Zamorak Telegrabber | |——————————————————-| | Total wines: 610 | | Time running: 8 Hours, 59 Minutes and 46 Seconds | |——————————————————-| | True : **** : 606 wines grabbed. | \——————————————————-/

• [FONT="Courier New"]/-------------------------------------------------------\

| Senrath's | | Wine of Zamorak Telegrabber | |——————————————————-| | Total wines: 546 | | Time running: 7 Hours, 12 Minutes and 46 Seconds | |——————————————————-| | True : **** : 551 wines grabbed. | \——————————————————-/

• [FONT="Courier New"]/-------------------------------------------------------\

| Senrath's | | Wine of Zamorak Telegrabber | |——————————————————-| | Total wines: 497 | | Time running: 6 Hours, 20 Minutes, and 6 Seconds | |——————————————————-| | True : **** : 501 wines grabbed. | \——————————————————-/

Please post proggies!
Also, please sell the wines for mid price or higher.

If it banks runes by accident. Read up on clicking items by id's?

Gj, on script though.

:] gratz on releasing. I tested this before! ^^

From: Zasz
If it banks runes by accident. Read up on clicking items by id's?

Gj, on script though.

It does click via ID. Or rather, it's supposed to. I still ran into it banking my runes. For this version I threw in an UpText check, so that should fix the issue, but then again, it shouldn't have had that issue to begin with.

Edit:

From: 99_
:] gratz on releasing. I tested this before! ^^

Yup, although the version you tested was a lot more crude than it is at this point. You're also listed in the comments of the script :P

:D Well, if I can get ref to work I'll try this. ^^

probably can't get a long proggy.. I'm tired as poopy </3 and I have to wait another 2 and a half hours before I can get on my laptop :[

Use this, way better accuracy. Give creds?

if(R_BankScreen)then
    begin
      Invs := GetInterface(149, 0);
      for d := 0 to 27 do
      begin
        for i := 0 to high(ssetings.fishids) do
        begin
          ItemsID := SmartGetFieldArrayInt(Invs, InventoryItemIDs, d);
          if(ItemsId = ssetings.fishids[i])then
          begin
            B := InvBox(d + 1);
            MMouse(B.x1+20, B.y1+25, 4, 4);
            Wait(500+ Random(500));
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, False);
            R_ChooseOption('ll');
            wait(600+random(600));
          end;
        end;
      end;
      SmartFreeObject(Invs);

if using an array. If not an array. Just take away

for i := 0 to high(ssetings.fishids) do
        begin

and an end.

and replace

if(ItemsId = ssetings.fishids[i])then
          begin

with

if(ItemsId = 22222)then
          begin

If u use, tell me and ill edit this post. Cause i dont like takin to much post space.

Um, I'm not seeing how that's way better accuracy than what I'm already using. In fact, it looks pretty much the same as what I'm using.

looks pretty different to me lol

From: Zasz
looks pretty different to me lol

Well, yours uses GetInterface(149, 0) and SmartGetFieldArrayInt(Invs, InventoryItemIDs, d), while mine uses GetInvItemInfo, which does the exact same thing. Other than that, it's the same concept.

Edit: Of course, you also use IDs to tell what to click, while I use IDs to tell what NOT to click.

i brought some laws now, just a idea maybe keep this members just so the pirce doesnt crash like newts did a while ago

EDIT: your walking is a bit bottish, try to make it click each tile pretty much as soon as its on the mm, just like a human would do, or click te next tile when the char is a few pixels before the flag instead of waiting for it to dissappear

when telegrabbing it clicks the tile near the table causing the flag to stay on the screen…. meaning the script gets stuck, maybe a simple timefrommark or IfWineExists; function to fix this

EDIT: the last bit only happened once…. dw about it

Well, this can't be abused as badly as newts can (needs 33+ magic level, and there is a very limited number of wine spawns). However, if the price starts to drop too much, I'll shift it to members only (and disable the autoupdating of the old versions).

yea but 33 magic is easy to get, just letting you know the prices may drop by alot

also how long does it take to respawn each wine?

About 30 seconds.

nice…. also maybe add a rest procedure like every 15-20 minutes logout for a random 2-5 minutes, really reduces randoms

and it just tried to log into a pvp world so i need to change my world list it looks like

Yeah, I'm planning on introducing that shortly.

Here, run this to update your world list:

program new;
{.include SRL/SRL.scar}
{.include SRL\SRL\Misc\WorldSwitcher.scar}

begin
  UpdateWorlds;
end.

yea i looked through worldswitcher.scar and found it thanks

also i used this when i made a reflection script ages ago not sure if it works yet, but at the time it walked pretty good

function WalkToPathTile(Tile: TPoint; Randomness: Integer): boolean;
var
  wTile: TPoint;
  t: Integer;
begin
  if not LoggedIn then Exit;
  Tile.X := RandomRange(Tile.X - Randomness, Tile.X + Randomness);
  Tile.Y := RandomRange(Tile.Y - Randomness, Tile.Y + Randomness);
  wTile := TileToMM(Tile);
  while not TileOnMM(Tile) do
    Wait(100 + Random(200));
  if not TileOnMM(Tile) then
  begin
    Result := False;
    Writeln('Tile not on MM!');
    Exit;
  end;
  Result := True;
  Mouse(wTile.x, wTile.y, 0, 0, true);
  t := getsystemtime;
  Result := (GetSystemTime - t) < 60000;
end;

function WalkPath(Path: TPointArray; FlagDist: Integer): boolean;
var
  i: integer;
begin
  if not LoggedIn then Exit;
  if not WalkToPathTile(Path[i], 2) then
    Exit;
  for i := 0 to High(Path) do
  begin
    if i < High(Path) then
    begin
      while not TileOnMM(Point(Path[i + 1].x, Path[i + 1].y)) do
        Wait(100 + Random(100));
      Wait(200 + Random(700));
      WalkToPathTile(Path[i + 1], 1);
    end
    else
      FFlag(FlagDist);
    Wait(400 + Random(200));
  end;
    result := true;
end;

I'm working on fixing up the walking. It's the way it is right now because it kept messing up before, but I think I know how I can fix it now.

Though I've been using it as is heavily for the past 2 weeks and I haven't been banned yet, so we'll see.

yea thats why i thought you had it like that… use what i posted and see how that goes, you can still make it walk random paths its just how you declare it in loadpaths;

EDIT:

/-------------------------------------------------------\
|                       Senrath's                       |
|              Wine of Zamorak Telegrabber              |
|-------------------------------------------------------|
| Total wines: 270                                      |
| Time running: 3 Hours, 55 Minutes and 28 Seconds      |
|-------------------------------------------------------|
| False : ***: 267 wines grabbed.                    |
\-------------------------------------------------------/
/-------------------------------------------------------\
|                       Senrath's                       |
|              Wine of Zamorak Telegrabber              |
|-------------------------------------------------------|
| Total wines: 270                                      |
| Time running: 3 Hours, 55 Minutes and 33 Seconds      |
|-------------------------------------------------------|
| False : ***: 267 wines grabbed.                    |
\-------------------------------------------------------/

Exp/h this gives?

the proggy i posted is about 3k xp/hour, but im working on a different way of walking which should hopefully speed it up

Ehh, 3k xp/h, ehh no offense but that's really slow …

What about $/h?

Wine Of Zamorak = 887
Law Rune = 283

887 - 283 = 604gp

Wines per hour = 80 ish (?)

604 * 80 = 48320gp

Yeah, it's not the best for either money or experience. But it is good if you want to train magic and make a profit at the same time.

That said, I've made it from 45 to 68 with this script.

Congratulations!
31 left to go until 99.

Version 1.1 released!

48k a hour thats good lol?

Not if you're aiming to make money. But if you're f2p, relatively poor, and want to train magic without losing any money, this is pretty good.

/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 416 |
| Time running: 5 Hours, 1 Minutes and 19 Seconds |
|——————————————————-|
| True : orn2c : 414 wines grabbed. |
\——————————————————-/
/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 416 |
| Time running: 5 Hours, 1 Minutes and 21 Seconds |
|——————————————————-|
| True : ***: 414 wines grabbed. |
\——————————————————-/

looks good, i was using falador tele…. jw how many more wines per hour you get by teleporting compared to walking?

For speeding up the grabbing, you could make it click telegrab and then hover over the spot the wine spawns til it sees UpText 'amorak' or something and then click immediately.

From: Floor66
For speeding up the grabbing, you could make it click telegrab and then hover over the spot the wine spawns til it sees UpText 'amorak' or something and then click immediately.

That's what I'm planning on doing. I'm just waiting 'till I have a bit more free time, since that would require pretty much completely rewriting my grabbing procedure.

/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 494 |
| Time running: 5 Hours, 56 Minutes and 42 Seconds |
|——————————————————-|
| False : wejja : 439 wines grabbed. |
\——————————————————-/
/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 494 |
| Time running: 5 Hours, 56 Minutes and 47 Seconds |
|——————————————————-|
| False : ****: 439 wines grabbed. |
\——————————————————-/

any ideas on the advantages/disadvantages of teleporting??

Advantages:
Loads are faster.
Slightly more experience per load.

Disadvantages:
One less wine per load.
Uses one more law rune per load.

just wondering do you lose much gp teleporting?

/-------------------------------------------------------\
|                       Senrath's                       |
|              Wine of Zamorak Telegrabber              |
|-------------------------------------------------------|
| Total wines: 416                                      |
| Time running: 5 Hours, 1 Minutes and 30 Seconds       |
|-------------------------------------------------------|
| True  : ***: 415 wines grabbed.                    |
\-------------------------------------------------------/
/-------------------------------------------------------\
|                       Senrath's                       |
|              Wine of Zamorak Telegrabber              |
|-------------------------------------------------------|
| Total wines: 416                                      |
| Time running: 5 Hours, 1 Minutes and 33 Seconds       |
|-------------------------------------------------------|
| True  : ***: 415 wines grabbed.                    |
\-------------------------------------------------------/

good script, nothing i can think of adding to it… only rests every now and then, take a look at nose smashers cockroach soldier and how the script rests, also when it finds the bank it walks into it ant takes like a minute to open the bank just make that a bit quicker

EDIT: i think im the only one using this

You don't really lose much by teleporting.

And yeah, I think you are the only one who's using this other than me. Oh, well. I'll be keeping this updated as long as I continue to be using it myself. Thanks for using it.

grewat script will post proggy as soon as done

Wouldn't work for me. Just kept switching worlds. Even if they were empty! >…<

08/05/2009: The newest version of SCAR, 3.20d has been released! Be
sure to upgrade if you're using an older variant of 3.20, this new
version has important bugfixes added. http://freddy1990.com/scar.php
(Forums: http://freddy1990.com/forums)
(IRC: irc.moparisthebest.com #freddy1990)
(Donate: http://freddy1990.com/donate.php)
Loaded all chars. (NPCChars, TradeChars, SmallChars, StatChars, UpChars)
Successfully compiled (9907 ms)
Line 148: [Warning] (25186:15): Calculation always evaluates to False in script C:\Documents and Settings\Robert\Desktop\WineTelegrabber.1.1.scar
Script is up to date!
SRL Compiled in 485 msec
Welcome to Runescape.
****
Creating the NickTPA.
/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 0 |
| Time running: 56 Seconds |
|——————————————————-|
| True : **** : 0 wines grabbed. |
| True : **** : 0 wines grabbed. |
\——————————————————-/
Successfully executed
Successfully compiled (8156 ms)
Line 148: [Warning] (25186:15): Calculation always evaluates to False in script C:\Documents and Settings\Robert\Desktop\WineTelegrabber.1.1.scar
Script is up to date!
SRL Compiled in 32 msec
****
Creating the NickTPA.
Changing worlds.
World: 118, Players: 458, Members: False, PvP: False
****
Changing worlds.
World: 107, Players: 469, Members: False, PvP: False
****
Changing worlds.
World: 105, Players: 562, Members: False, PvP: False
****
Changing worlds.
World: 3, Players: 1974, Members: False, PvP: False
****
Successfully compiled (6172 ms)
Line 148: [Warning] (25186:15): Calculation always evaluates to False in script C:\Documents and Settings\Robert\Desktop\WineTelegrabber.1.1.scar
Script is up to date!
SRL Compiled in 16 msec
****
Creating the NickTPA.
Changing worlds.
World: 87, Players: 558, Members: False, PvP: False
****
Changing worlds.
Failed to find World 155!
Changing worlds.
World: 50, Players: 868, Members: False, PvP: False
****
Changing worlds.
World: 29, Players: 557, Members: False, PvP: False
****
Changing worlds.
World: 43, Players: 569, Members: False, PvP: False
****
Changing worlds.
World: 85, Players: 567, Members: False, PvP: False
****
Changing worlds.
World: 19, Players: 565, Members: False, PvP: False
****
Changing worlds.
World: 96, Players: 1144, Members: False, PvP: False
****
Changing worlds.
World: 152, Players: 482, Members: False, PvP: False
****
Changing worlds.
World: 19, Players: 564, Members: False, PvP: False
****
Changing worlds.
World: 87, Players: 573, Members: False, PvP: False
****
Changing worlds.
World: 107, Players: 484, Members: False, PvP: False
****
Changing worlds.
World: 165, Players: 493, Members: False, PvP: False
****
Changing worlds.
World: 105, Players: 679, Members: False, PvP: False
****
Changing worlds.
World: 61, Players: 585, Members: False, PvP: False
****
Changing worlds.
World: 73, Players: 586, Members: False, PvP: False
****
Changing worlds.
World: 118, Players: 480, Members: False, PvP: False
****
Changing worlds.
World: 127, Players: 589, Members: False, PvP: False
****
Changing worlds.
World: 161, Players: 1147, Members: False, PvP: False
****
Changing worlds.

That is really odd. I've never had that problem before. I'll see what I can do to fix that up.

I made a Pickup procedure for the wine too =)..
Its about 1-2 ms fast : ).

I used Colors and FindColorTolerance, since SpiralColor is too slow.
It might be detectable xD.. but its fast as hell =).

It Setups with Telegrab, so it just has to click.

Than i made a function that checks the yellow dots on the map, and if there are none ( If players killed all npc's, than its directly picks the wine, until magic is down to 37, or life is lower than 5.

Just some Suggestions to make it faster and more efficient ;). Cause its pretty slow now :D.

~caused

//Edit: Oh.. Good job for the Rest btw :D. Seems to be quite stable.
And another Suggestion: Use "Randomworld(false,false)" For the Smart World =).

Yeah, I'm making quite a few changes for version 1.2. Anyway, I'll be releasing version 1.1b shortly (hopefully by tomorrow) which will have some stability improvements. It will also take advantage of some of the new things in SRL.

Yeah, and with a faster Picking you can also remove the is world empty function :).

/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 156 |
| Time running: 2 Hours, 21 Minutes and 19 Seconds |
|——————————————————-|
| True : umie : 155 wines grabbed. |
\——————————————————-/

Okay, version 1.1b has been released! Either redownload from the first post, or simply run your old version.

Anyway, I'll be working on 1.2 when I get the chance, which will have a completely redone grabbing function.

Might use this, how much are wine of zammy avg. sale price?

Wine of zamorak
Wine of zamorak An evil wine that is often found in chaos temples.

Current market price range:
Minimum price: 919
Market price: 967
Maximum price: 1,015

Okay, I have released version 1.1c. Changelog is in the first post. Either run the script again, or download the new version from the first post.

Version 1.2 is being delayed indefinitely, as it requires a complete rewrite of the GrabTheWine function, and Calculus is taking up most of my time.

/——————————————————-\
| Senrath's |
| Wine of Zamorak Telegrabber |
|——————————————————-|
| Total wines: 234 |
| Time running: 2 Hours, 57 Minutes and 0 Seconds |
| Total profit: 147420 g |
|——————————————————-|
| True : las : 228 wines grabbed. |
\——————————————————-/

still works grat people P__P

Glad to know it. Once school starts up again and things settle down, I'll start working on the next version of this.

First, version 1.1d is released. All this does is add in the function of tracking your level ups. Otherwise it is identical to version 1.1c.

Second, my apologies to anyone who tried to run the script in the last week or so. My previous host removed my account because it wasn't getting enough activity, and then when I switched to the new host, I changed the version file but forgot to upload the new version of the script.

it walked up to temple, and then it just walked up beside the wine and said "Wine not found"
why? =(

I'm really not sure. I'll take a look at it this weekend.

This actually makes more money than a yew cutter :'D…

One Problem:
It tends to stay in front of the church very often, trying to telegrab there…

Another Problem:
The grabbing is VERY slow. Maybe only scan a smal area around the char for the wine, or use colors.

I altered the grabbing a bit for me, to select telegrab before it finds the wine, and than just clicks it.

~caused

Heh, the scanning isn't the slow part, per se. Anyway, I'm in the middle of a rewrite.

EDIT: Heres my Proggy, i made the grabbing function a bit more efficient than the one below :3

|                       Senrath's                       |
|              Wine of Zamorak Telegrabber              |
|-------------------------------------------------------|
| Total wines: 297                                      |
| Time running: 2 Hours, 53 Minutes and 53 Seconds      |
| Total profit: 184437 g  

ah alright :'D..

I' ll use my colorgrab function till you're done than :)

Function FindTable:TBOX;
var
 fires,fires2 : TpointArray;
FilteredFires : T2DPointArray;
x,y,i,timer : integer;
begin
FindColorsTolerance(fires,1519421,22,22,509,333,11);
FindColorsTolerance(fires2,1387575,22,22,509,333,11);

fires := CombineTPA(fires,fires2);

FilteredFires := SplitTpaex(fires,2,2);//TpaToAtpaEx(fires,50,50);

x:= 627;
y:= 659;

FilteredFires:=Killboxes(filteredfires,10,40,40,70);

SortATPASize(FilteredFires,TRUE);

If high(filteredfires) >0 then
result := GetTPABounds(filteredfires[0]);

end;


function GrabTheWine: Boolean;
var
  MyPos: TPoint;
  x, y, invWineCount,i: Integer;
  winecols : Array[0..4] of Integer;
  grabtable : TBox;
begin
//  if not R_LoggedIn then Exit;

  grabtable := FindTable;
  WriteLn('Grabtable location');
  WriteLn(grabtable.x1);
  WriteLn(grabtable.x2);
  WriteLn(grabtable.y1);
  WriteLn(grabtable.y2);
  WriteLn('==================');

  winecols[0] := 3620248;
  winecols[1] := 5592412;
  winecols[2] := 6447978;
  winecols[3] := 7632253;
  winecols[4] := 3686299;

//   telgrabon := FALSE;
  invWineCount := R_CountItems(246);
  Disguise('Telegrabbing');
  Status('Telegrabbing...');
  MyPos := GetMyPos;

  if  (MyPos.X <> 2931)  or (MyPos.Y <> 3514) then
    if not WalkToTile(Point(2931, 3514), 0, 6) then
    begin
      Writeln('Error, not in temple.');
      Status('Not in temple...');
      {$ifDef debug}
      s_TakeScreenshot;
      {$endIf}
      Inc(Players[CurrentPlayer].Integers[5]);
    end;


    WriteLn('Setting Up Telegrab');
    Mouse(742,184,5,5,True);
    wait(300);
    Mouse(718,277,5,5,True);

  //  telgrabon := TRUE;

             //telgrabon
  MouseSpeed := 40;
  if true then
  begin

  for i := 0 to high(winecols)-1 do
  begin
  x:= 253;
  y:= 204;
  if FindColorTolerance(x,y,winecols[i],grabtable.x1,grabtable.y1,grabtable.x2,grabtable.y2,11) then
    begin
      MMouse(x,y,0,0);
      GetMousePos(x, y);
      wait(300);
      If Pos('ine of', RS_GetUpText) > 0 then
      begin
        Mouse(x,y, 0, 0,True);

     // telgrabon := FALSE;

      if R_CountItems(246) > invWineCount then
        Inc(Players[CurrentPlayer].Integers[2]);

        Result := True;
        Exit;
       end;

    end;

  end;


end;
end;

It finds the table and than finds the wine on it.

My Proggy is on the other pc :D.. gotta post the next one i get with the altered grabbing function.

~caused

//Edit: Oh, and i altered the walking to use running.

33k per inventory.
Great profit but takes a while.
This is why you would need a script.
Line 321: [Error] (29779:29): Invalid number of parameters in script C:\Documents and Settings\wa\Desktop\WineTelegrabber.1.1d.scar

I got an error

SRL #4 Rev:38
Open Developement Rev: 276
Scar 3.21

On your script.

dude, dont double post, edit your first one.

second, outdated. use a non reflection script, as reflection is broken atm :p

I'm using a mac and i downloaded the wine telegrabber but i do not know which application to open the download with. Please help

first off welcome. but huge grave dig. please in the future try to avoid that.

if you havent downloaded simba, then you need to start off there. get that because any scar/simba script works with simba (correct me if im wrong)use the search bar and look up simba. from there you can then download and install that.

next you look up what script you want. if its something like this and there arent any working ones, then learn to script and make one, or request in the request section for one

Also, if you're running mac os x you should help us get it working. :) That'd be cool.

Anyway, bolshak, Simba can run *most* SCAR scripts, and it's easily able to run all with a few changes.

This script is outdated.

Ah… outdated and gravedigged… nvm sorry.