SRL Archive - Outdated / Broken

Pure [Color] Barbarian Power Fisher (Rs Mem Req.)


Pure1993

2009-05-15 17:46:23

Welcome to my first release of a >>usefull<< script! :D

Newest Version: Version 1.1

What does it do?
Well, it fishes leaping trout, leaping salmon, and leaping sturgeon and drops them when the inventory is full. It also has the ability to cut them before dropping. :D

Where can you fish these fishes?


(Stand by the middle spot of the three marked spots)

What are the requirements?
Leaping trout: 48 Fishing, 15 Strength, 15 Agility
Leaping Salmon: 58 Fishing, 30 Strength, 30 Agility
Leaping Sturgeon: 70 Fishing, 45 Strength, 45 Fishing
Also, you must have started the Barbarian Miniquest, and have normal fishing bait and a heavy rod in your inventory (if you want to cut the fish, you also need a knife).
Here is a little guide on how to get the rod, and how tostart/complete the quest: http://runescape.salmoneus.net/ Barbarian Fishing Guide.

Why should I use this fisher instead of a banking fisher?
Well, a single load gives you something around 1800 exp (with 70+ fishing, 50+ agility, and 70+ strength), and it takes my script around 2 minutes and 20 seconds to fish and drop a load with the named stats, which makes it the fastest fishing exp gain in the entire game. Also, you can easily buy a few thousand fishing bait for only 3gp each, which makes it the cheapest power fisher in the game.

Why post it in the members section?
Because it advanced me from fishing 69 to 77 within 2 days, and I plan to get 99 with it, but if I post it in the jr. section, the ban rate will probably increase like hell. Don't want to lose my one and only main, and I bet you don't want to either. ;)

Got any proggies?
Yep:

=======================Progress Report=======================
You have been using: "BarbarianFisher" -By Pure1993
Has run for: 1 Hours, 1 Minutes and 55 Seconds
Completed loads: 23
Total experience-gain: 35420
Total level-gain: 1
=============================================================
Failing reason : random
=======================Progress Report=======================
You have been using: "BarbarianFisher" -By Pure1993
Has run for: 1 Hours, 0 Minutes and 39 Seconds
Completed loads: 25
Total experience-gain: 38250
Total level-gain: 0
=============================================================

Failing reason : random
=======================Progress Report=======================
You have been using: "BarbarianFisher" -By Pure1993
Has run for: 2 Hours, 1 Minutes and 49 Seconds
Completed loads: 49
Total experience-gain: 72350
Total level-gain: 1
=============================================================
Failing reason : random
=======================Progress Report=======================
You have been using: "BarbarianFisher" -By Pure1993
Has run for: 1 Hours, 34 Minutes and 3 Seconds
Completed loads: 35
Total experience-gain: 57040
Total level-gain: 0
=============================================================

Failing reason : manual Stop

=======================Progress Report=======================
You have been using: "BarbarianFisher" -By Pure1993
Has run for: 28 Minutes and 59 Seconds
Completed loads: 11
Total experience-gain: 17290
Total level-gain: 1
=============================================================
Failing reason : manual Stop
=======================Progress Report=======================
You have been using: BarbarianFisher -By Pure1993
Has run for: 28 Minutes and 4 Seconds
Completed loads: 10
Total fishing experience-gain: 16640
Total fishing level-gain: 1
=============================================================

Failing reason : manual Stop to do some editing

=======================Progress Report=======================
You have been using: BarbarianFisher -By Pure1993
Has run for: 1 Hours, 35 Minutes and 11 Seconds
Completed loads: 32
Total fishing experience-gain: 52440
Total fishing level-gain: 0
=============================================================
Failing reason : random
=======================Progress Report=======================
You have been using: BarbarianFisher -By Pure1993
Has run for: 1 Hours, 12 Minutes and 48 Seconds
Completed loads: 28
Total fishing experience-gain: 44470
Total fishing level-gain: 1
=============================================================
Failing reason : an updated function failed

erm, btw, the proggies changed in the developement phase, so that is why they look a bit different. ^^
Also, the loads per hour and exp per hour rate have shiftet so drasticly, because because I used different search and wait functions over the developement. Right now I am using a NoInvChange function in order to detect if we are still fishing or nor, which makes it a lot less detectable. And almsot 100% accurate. :D

Any last things I want to say?
Not really, except the following:
I know that this script was not made to compete with the other scripts in this section (which surpass my script by ages, no doubt about it), but rather to be a tiny addition to them. This is a simple leveling script, nothing more, and nothing less. :)

Enjoy! ^^

Known Bugs:
1.) It sometimes gets lost, because it is moving from one spot to another so far, that it causes to end up in a place which it doesn't expect to be in. (happens once every 213 times it searches for a new spot)
2.) Sometimes it misses an existing fishing spot (happens once every 59 times)
3.) Sometimes it Doesn't find the symbol (should be fixed with the emergency waterwalk, we'll see if it works, haven't had that problem since the fix)
4.) Doesn't detect the dtms or colors (seems to be a scar problem, happens very rarely, if it does, close smart and scar, and re-open them)

Planned updates:
-Auto-responder
-Improved failsafes
-Improved spot finding
-Improved walking
-Be able to use any kind of bait (offcuts, feathers, etc.)



PLEASE, PLEASE, PLEASE, POST FEEDBACK! Thanks and sorry about caps :)

jakeyboy29

2009-05-15 21:23:25

erm, im geting questing.

ShowerThoughts

2009-05-16 00:02:34

Amazing I talked to you while your were making it, IMO this is the fatest way of getting exp!
Good job!

footballjds

2009-05-16 01:00:49

Nice def gunna test this on my cousins main!!!(cb lvl 105 with three 99 stats ;)

Pure1993

2009-05-16 01:04:52

Just be carefull then, I don't want to be responsible for a lost acc with those stats… Even though as long as a random doesn't occure, it really isn't able to fail and hard to detect… but wonders happen, good ones as well as bad ones :D
Good luck, and please be so kind to post any problems or the proggy ;)

ShowerThoughts

2009-05-16 01:51:36

Get me p2p and I will test it A lot for that ;).

Pure1993

2009-05-16 14:04:35

Updated to Version 1.1
Features:
-The Fishing Rod dtm tolerance has been increased in order to evade any possible problems concerning the equipment check
-Got rid of an unused function
-shortened the walking function, which also should make it more secure
-Added more information to the proggy
-Made the proggy more random… now it doesn't check the fishing skill exp/level after every drop
-Shortened the NoInvChange time from 9 seconds to 6 seconds
-Decreased the tolerance in the spot finding function

footballjds

2009-05-26 00:44:22

k, i am going to test this out.
i hope you are still willing to update this :rolleyes:

ur dropping procedure is bannable…
you "hover" ur mouse over each item to check the uptext. u could just as easily do this:

for I := 0 to 28 do
begin
if FindDTM(in this invspot) then
dropItem(i);
end;

know what i mean?



It sometimes gets in a loop where it clicks on one mm symbol then another trying to find a fishing spot…
the reason it never finds a fishing spot is because it was at the lowest angle ;)

You NEVER free ur dtms etc…
BIG memory leak…

instead of just checking if ur inv hasn't changed u should also check if it is full ;)

Pure1993

2009-05-26 14:54:28

Thanks for the suggestions footballjds, I'll update this if anyone is using this at all… oh well, I'll update it just for you then :p

well, since it only loads those DTMs once, you don't really need a free DTM feature, okay, loading them as global vars may be a bit slower than to get them locally, but it never affected the speed or the usage in any noteable way for me… I will consider changing it though.

Now, the checking of all inv slots worked very well for me, cause I only had 2 items in the first two spots, so I would have had to move them over those spots anyway. But, I am going to make an option for the search. Thing is, it would have to search for 3 dtms in every spot, which is "relatively" slow. But I guess it really would decrease the rate of randoms and such.

Also, a BIG thanks for the never finding anything… it never occured to my that the angle may have something to do with it, because technically, the colors shouldn't change… my bad :D

Thanks a lot for the testing and the hints on how to improve it, I don't have the time today to update it, but I think I'll be able to make a better version out tomorrow.

footballjds

2009-05-26 17:17:20

here is a small hint on searching 3 dtms in each spot ;)
it actually is a kinda BIG hint :rolleyes:


function FishDTM(num: integer): string;
begin
case num of
0: result := 'string';//fakeDTM in string format
1: result := 'string';//fakeDTM in string format
2: result := 'string';//fakeDTM in string format
end;
end;

procedure DropItemm(i : integer);
var IBx : Tbox;
begin
GetInvItemBounds(i, Ibx);
MouseBox(Ibx.x1, Ibx.y1, Ibx.x2, Ibx.y2, 2);
wait(32 + random(21));
ChooseOption('Drop');
Wait(34 + random(75));
end;

function FindDTMItem(item : integer) : boolean;
var
itemBox: TBox;
DTM1, DTM2, DTM3: integer;
begin
itemBox := InvBox(item);
DTM1 := DTMFromString(FishDTM(0));
DTM2 := DTMFromString(FishDTM(1));
DTM3 := DTMFromString(FishDTM(2));
Result := FindDTM(DTM1, x, y, ItemBox.x1, itemBox.y1, ItemBox.x2, ItemBox.y2);
if not(result) then
Result := FindDTM(DTM2, x, y, ItemBox.x1, itemBox.y1, ItemBox.x2, ItemBox.y2);
if not(result) then
Result := FindDTM(DTM3, x, y, ItemBox.x1, itemBox.y1, ItemBox.x2, ItemBox.y2);
FreeDTM(DTM1);
FreeDTM(DTM2);
FreeDTM(DTM3);
end;

procedure DropOre;
var
DropItems : array[1..28] of boolean;
i, d : integer;
begin
d := MouseSpeed;
MouseSpeed := 40 + Random(3);
for i := 1 to 28 do
DropItems[i] := FindDTMItem(i);
for i := 1 to 28 do
if DropItems[i] then DropItemm(i);
MouseSpeed := d;
MineRock2;
end;

Pure1993

2009-05-26 18:51:35

ROFL! I accuse you of boosting my lazyness! Curse you! :rolleyes:
Anyway, I already had this idea laid out while working on my homework, i was simply too busy to write it onto scar… well, now I'll simply copy paste yours, add credits, and modify it a tiny bit to fit into my script… thanks man. :D

footballjds

2009-05-26 21:01:40

rofl, np ;)

weequ

2009-05-26 21:48:41

Didnt this give strenght xp too?

Pure1993

2009-05-26 21:50:00

jup