SRL Archive - RS3 Outdated / Broken Scripts

Dear All,

My first script release of BarbPowerFisher.

/————————————————————\
| Name: BarbPowerFisher by Ruski
| Created: 10 February 2007
| Version: First
| Description: Power fishes at barb for trouts and
| salmon.
| Skills need: Level 15 fishing or more.
| Must have: First four slots filled up, if not change
| the drop point on line 117. Fly fishing rod and feathers
| Edit: Need to edit lines 26 to 31 and 35 to 42. Position your player either on then north or south fishing point, depends what you set it to.
\————————————————————/

Report:

/-----------------------------------------------------\
| ----------->BarbPowerFisher by Ruski<-------------- |
|-----------------------------------------------------|
| Running time: 7 Minutes and 48 Seconds
| Fished: 72
| Estimated Exp: 4320
\-----------------------------------------------------/

Please post comments and things to imrove on.

Future Updates:

• Cooking
• Better Anti Randoms and Anti Bans
• Better Progress Report
• Multiplayer
• More Stable :)

Thanks to

• pwnaz0r

yay im the first post…ill be sure to try this out…

This is only for your benifit not being critical in anyway

Things to update:
~~~~~~~~~~~~~~~~~
1.

Players[0].Nick      := ''; //Anything 2 - 4 characters

^^^ Wrong ^^^ that has to do with finding the name in antirandoms program so it is not Anything 2-4 characters

2.

function IsWirlPool: Boolean;
var IWX, IWY: Integer;
begin
     Result:= FindColorSpiralTolerance(IWX,IWY,WirlPoolColour,250,145,330,180,12);
end;

If you're going to make your own whirlpool function, why not make it a little more reliable like this:

function IsWirlPool(endTolerance : integer): Boolean;
var IWX, IWY, a: Integer;
begin
     A := 0;
     repeat
     wait(900);// It needs some time to wait for the whirlpool to pop up eh?
     A := A + 20;// increasing tolerance?
     Result:= FindColorSpiralTolerance(IWX,IWY,WirlPoolColour,250,145,330,180,a);
     until(result = true) or (a = endtolerance) or (a<endtolerance)
end;

3.

 Writeln('Fishing spot found 11');

^^ whats up with the eleven :p?

From: pwnaz0r
Things to update:
~~~~~~~~~~~~~~~~~
1.

Players[0].Nick      := ''; //Anything 2 - 4 characters

^^^ Wrong ^^^ that has to do with finding the name in antirandoms program so it is not Anything 2-4 characters

Lol ok, i didnt know that.

Thanks Ill do edit it out for next release.

Just trying to help ya make it better :spongebob:

From: pwnaz0r

3.

 Writeln('Fishing spot found 11');

^^ whats up with the eleven :p?

Ignore lol, used for when testing, forgot to remove.

From: pwnaz0r
Just trying to help ya make it better :spongebob:

Nah no problem, im improving it already lol.

Thank you

dont double post…read the rules…

dangy i was also made one, woking on it (a while ago i worked on it because of school :p)

nice script. would be great if you had another version with a banker. but keep up the good work. :D

From: StK Squenc
dont double post…read the rules…

Wtf? lmao, no one double posted..

anyway, nice script, looks halfway decent i'll give her a try :)

The main error i occured, that the script wont type in the login screen. I don't know why (triple dragged the crosshair), but it simply clicks on the username, delays, clicks on the pw and tries to login.

after fleeing from an evil chicken, I got run mode and it wasn't disabled anytime later. Whatever, just a notice.

Also, he missed a security guard (waiting to flee after attack instead of talking) even if i'm mistaken with srl antirandoms.

last report:

| ———–>BarbPowerFisher by Ruski<————– |
|—————————————————–|
| Running time: 13 Minutes and 49 Seconds
| Fished: 72
| Estimated Exp: 4320
\—————————————————–/

ok,i'm going to test it.Do you mind if I use it to make my own script I was about to make an auto fisher then cooks and banks if you want …:p
if you mind just tell it;)

edit:was not succesfully 1=explain the const on a good way plz
like if yo say Colour of your finishing rod to check if you are fishing
well? wich color of the fishing rod? in inventory or when he is fishing
and when he was full he didn't drop… an I also noticed something that is really strange in your script:

procedure WalkToNewSpot;
var rx,ry:Integer;
begin
     if(FishingPoint = 1) then
     begin
          if(FindSymbol(rx,ry, 'fishing spot')) then
          begin
               Writeln('Trying to find fishing spot 2');
               if(ry > 100) then
               begin
                    Mouse(rx, ry, 2, 2, true)
                    FishingPoint := 2;
                    Wait(10000 + Random(299))//you could change to flag; or FFlag;,look in srl
               end else
               begin
                    WalkToNewSpot;//why do you do this ?,to repeat?
               end;
          end;
     end;
     if(FishingPoint = 2) then
     begin
          if(FindSymbol(rx,ry, 'fishing spot')) then
          begin
               Writeln('Trying to find fishing spot 1');
               if(ry < 68) then
               begin
                    Mouse(rx, ry, 2, 2, true)
                    FishingPoint := 1;
                    Wait(10000 + Random(299))
               end else
               begin
                    WalkToNewSpot;//why do you do this ? to repeat or something ?
               end;
          end;
     end;
end;

Ill be looking forward to test this sometime ;)

robeike, it walks to a new spot when there is no more fishes in the current spot, as you should have noticed :)

I didnt add the flag method because I didnt know about it at the time i was creating this script.

hey this script is great,

lol im also working on one have been working on it for 5 hours straight now.. 2 hours of autoing.. i will not release it though.. not yet atleast..

|--------| JuKKa AutoFish |--------|
|Worked  : 1 Hours, 15 Minutes and 12 Seconds.
|Fished  : 312 Fishes.
|Gained  : 20280 Exp.
|Done    : 318 Antibans
|Talked  : 17 Times.
|Changed : 2 Players.
|--------| JuKKa AutoFish |--------|

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]     |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in              :  2  |
| Trade[s] Missed        :  1  |
| Talking Random[s]      :  3  |
| OldMen Solved          :  2  |
| Capn Hand[s] Solved    :  1  |
| New Box[es] Solved     :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Good Fisher, Good Reports, just needs better whirlpool solver, as I've lost 2 rods :(

anyway, onto the report!

/—————————————————–\
| ———–>BarbPowerFisher by Ruski<————– |
|—————————————————–|
| Running time: 1 Hours, 10 Minutes and 35 Seconds
| Fished: 456
| Estimated Exp: 27360
\—————————————————–/


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random : 1 |
| SandWich[es] Solved : 1 |
| New Box[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


And it beats JuKKas (Displayed above) =D Good Job Ruski!

Thanks dude =D

AWESOME! Just 1 thing, could you plz fix the randoms?

I`m sorry to make another post.

Just that could some advanced scripter look at this and find out why it doesn`t detect randoms, cause it RUNS PERFECT besides it! VERY STABLE AND GOOD FISHING PROCEDURE!!!

plz :P