Log in

View Full Version : Al's LRC Fisher



Pages : 1 [2] 3

illuminatiswag
06-03-2012, 03:49 PM
Interesting! Maybe it doesn't really matter since it is a custom map. I also made it when SPS 2.0 was downloadable on the forums but not pushed out as an update yet. So who knows!

Wait your right its meant for 2.0 best used on 1.0 but it was all buggy then when seen you said was meant for 2.0 just started and its running flawlessly

Bot4Fun
06-03-2012, 03:51 PM
Does it support urns and cavefish?

iBlank
06-03-2012, 04:12 PM
Wait your right its meant for 2.0 best used on 1.0 but it was all buggy then when seen you said was meant for 2.0 just started and its running flawlessly

I think you are saying it is meant for 2.0, and that is correct!


Does it support urns and cavefish?

Don't even know what urns are! It does support Cavefish though.

illuminatiswag
06-03-2012, 04:22 PM
Does it support urns and cavefish?

Yes it does it asks in the settup it ask if you want to fish cavefish or rocktails


I think you are saying it is meant for 2.0, and that is correct!

Yea thats what i meant i used on 1.0 but it wouldnt walk to bank correctly or even other fishing spots

Parallel
06-03-2012, 11:36 PM
Works flawless apart from one or two bugs:

1) Sometimes switches fishing spot when it doesn't need too, I'm not wearing anything brown either (blue colours)

2) Tries to bait cavefish, when I'm wanting to fish rocktails, baiting cavefish needs a different type of bait I believe.

Apart from that, the script is sweet, thanks for this.

Bot4Fun
06-04-2012, 07:33 AM
http://runescape.wikia.com/wiki/Decorated_fishing_urn This is a urn :) But its maybe not so good to use it in LRC since you mostly fish there for the money. So its probably better to use when fishing Barbarian or something.

illuminatiswag
06-04-2012, 02:34 PM
got a 6 hour run last night :)

MaxLevel
06-04-2012, 03:46 PM
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]
can some1 help i wish there was a video on youtube or something bc i ran this script and it does nothing also i have no idea how he poped up smart manager

illuminatiswag
06-04-2012, 06:10 PM
Heres a little over 3 hour run had to stop to get more bait im scared to take alot incase i die does ring of life help down there ?

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 356 fish. That equals 108 fish per hour!
You have gained 135280 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

iBlank
06-04-2012, 08:53 PM
Heres a little over 3 hour run had to stop to get more bait im scared to take alot incase i die does ring of life help down there ?

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 356 fish. That equals 108 fish per hour!
You have gained 135280 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

Well I see that I need to fix the XP per hour display haha. I have never died using this script, but I am also lvl 100. Not sure about the ring of life either. Are you a low lvl?

allanlin
06-04-2012, 09:43 PM
stands at pully and does nothing.. says it can't find Spot 2, etc etc, probably thinks it's already at the fishing spot when it clearly isn't.

iBlank
06-04-2012, 09:47 PM
stands at pully and does nothing.. says it can't find Spot 2, etc etc, probably thinks it's already at the fishing spot when it clearly isn't.

Please read the first post. Under common issues it directly addresses this problem. You have not saved the custom map correctly.

It doesn't think you are fishing. It can't find the coordinates because you do not have the map saved correctly so it does not do the walking to fishing spot procedure and goes directly to the fishing procedure.

This error is on your end, nothing to do with the script.

allanlin
06-04-2012, 09:51 PM
Please read the first post. Under common issues it directly addresses this problem. You have not saved the custom map correctly.

It doesn't think you are fishing. It can't find the coordinates because you do not have the map saved correctly so it does not do the walking to fishing spot procedure and goes directly to the fishing procedure.

This error is on your end, nothing to do with the script.

I have done that lmao...

iBlank
06-04-2012, 09:54 PM
I have done that lmao...

Then I suppose you are out of luck. Your error is directly related to the map or SPS. Not the script.

allanlin
06-04-2012, 09:59 PM
Then I suppose you are out of luck. Your error is directly related to the map or SPS. Not the script.

nvm it started working finally ;) So I can't really die with this script right..? since it runs back to pully if HP is really low..? How long does it stay there? Until it heals over the HP you set for it to run away?

iBlank
06-04-2012, 10:07 PM
nvm it started working finally ;) So I can't really die with this script right..? since it runs back to pully if HP is really low..? How long does it stay there? Until it heals over the HP you set for it to run away?

The way it works is if it detects a fight then it will run to the bank and wait a few seconds. If your HP is below what you have set the variable at then it will rest until it reaches that level plus a random amount between 1-50 then return to fishing. If your HP is above that level when it runs to the bank then it immediately returns to fishing.

You can die if your character can be 5 shotted or less because the fight detection is not instantaneous, because instant detection is about impossible ;)

Eustass
06-04-2012, 11:14 PM
is there any other world suitable for this script? ( which many ppl do fishing it other than w88)

plus how can i change the world from the script to another one if so?

iBlank
06-04-2012, 11:34 PM
is there any other world suitable for this script? ( which many ppl do fishing it other than w88)

plus how can i change the world from the script to another one if so?

Not sure what the unofficial fishing worlds for LRC are but that is easy enough to Google for yourself ;)

As for switching worlds, all you have to do is change the World variable under the constants section.

illuminatiswag
06-05-2012, 01:10 AM
nvm it started working finally ;) So I can't really die with this script right..? since it runs back to pully if HP is really low..? How long does it stay there? Until it heals over the HP you set for it to run away?

Yes you can die i just got back to a 5 hour run but ended up dieing losing like 2k minerals but cant complain have made well more then that and + almost 2 lvls from 92 now almost lvl 94 in what 2 days ?

iBlank
06-05-2012, 01:12 AM
Yes you can die i just got back to a 5 hour run but ended up dieing losing like 2k minerals but cant complain have made well more then that and + almost 2 lvls from 92 now almost lvl 94 in what 2 days ?

What level is your character? What is your max HP and what did you have your WTRA variable set to?

allanlin
06-05-2012, 04:11 AM
Yes you can die i just got back to a 5 hour run but ended up dieing losing like 2k minerals but cant complain have made well more then that and + almost 2 lvls from 92 now almost lvl 94 in what 2 days ?

My account is maxed in melee so I don't think I have that high of a chance at dying :P Script is amazing btw :) worked flawlessly for 6 hours, and SMART manager just restarted it

stonefox001
06-05-2012, 10:26 AM
great script, gonna have 99 in no time anyway here was my run last night (without smart manager) ran for 8 1/2 hours and still running
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 901 fish. That equals 106 fish per hour!
You have gained 342380 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

Just Ganja
06-05-2012, 01:16 PM
If someone can help me i'll love them forever.
http://img689.imageshack.us/img689/7087/lule.png (http://imageshack.us/photo/my-images/689/lule.png/)

Thank you if you help me fix it.

danielyuplyr
06-05-2012, 02:52 PM
lol i fucked up pretty bad with your script. I bought 10k living minerals and forgot to bank most of them, ran the script and ended up dead :(. my fault though completely, it has nothing to do with you.

This script is pretty good sir. Obviously not as responsive as scripts coded for a reflection client, but this is damn near one of the best fishing scripts here at villavu. I've been running this script for a while trying to get the greatest proggie i could, and today I believe I have it :)

http://screensnapr.com/e/PV3l0p.png

keep up the good work sir, this script is truly exceptional for a free script.

EDIT: just hit 8 straight hours with your script.
http://screensnapr.com/e/nmitFj.png

iBlank
06-05-2012, 07:48 PM
lol i fucked up pretty bad with your script. I bought 10k living minerals and forgot to bank most of them, ran the script and ended up dead :(. my fault though completely, it has nothing to do with you.

This script is pretty good sir. Obviously not as responsive as scripts coded for a reflection client, but this is damn near one of the best fishing scripts here at villavu. I've been running this script for a while trying to get the greatest proggie i could, and today I believe I have it :)

Any idea what caused you to die? Like where your character was and what he was doing?

Also, what level is your character and what did you have your WTRA variable set to?

LIM
06-05-2012, 09:38 PM
hey there
i tried running this script, and it doesnt work for me. it says:
[Error] (597:13): Unknown identifier 'runescape_other' at line 596
Compiling failed.
i tried a lot of things, i downgraded sps, i tried to declare the runescape other as variable (only tried it cause it said it on a thread with common scripting errors), obviously that didnt work too, though it didnt get any compiling error then. however, i cant get the script running which is a pity, cause i could rlly use it O.o
any ideas on how i can get it running? i'd really appreciate it :)

edit: oh, and before anyone asks: i did save the picture in the right folder ;)

iBlank
06-05-2012, 09:43 PM
hey there
i tried running this script, and it doesnt work for me. it says:
[Error] (597:13): Unknown identifier 'runescape_other' at line 596
Compiling failed.
i tried a lot of things, i downgraded sps, i tried to declare the runescape other as variable (only tried it cause it said it on a thread with common scripting errors), obviously that didnt work too, though it didnt get any compiling error then. however, i cant get the script running which is a pity, cause i could rlly use it O.o
any ideas on how i can get it running? i'd really appreciate it :)

edit: oh, and before anyone asks: i did save the picture in the right folder ;)

Sounds like you didn't have SPS 2.0 up to date.

jack15
06-05-2012, 10:08 PM
Hmmm im kinda scared to ask but does this bank?

Benny
06-05-2012, 10:10 PM
Hmmm im kinda scared to ask but does this bank?

of course it does :)

LIM
06-05-2012, 10:12 PM
Sounds like you didn't have SPS 2.0 up to date.

well no, actually i downgraded it, because some scripts didnt seem to work. after the downgrade they started working. so you think i should update sps to sps2?

iBlank
06-05-2012, 10:17 PM
well no, actually i downgraded it, because some scripts didnt seem to work. after the downgrade they started working. so you think i should update sps to sps2?

Yes, this script requires SPS 2.0.

LIM
06-05-2012, 10:25 PM
Yes, this script requires SPS 2.0.

ok, ill have to update it then. i've been checking the forum here, but i cant find a way to update it manually. i ticked the automatically > update and check for updated, and even clicked to update, but nothing is happening, it says no update available, even though i downgraded it :/
im sry if this question is stupid, im still trying to understand all this new stuff O.o

edit: nevermind, it works. i dont know why, but now it updated properly. script starts normally now, ima test it right away :)
and thanks for the help, i hope im not annoying, i always have a bit trouble in understanding all this, specially, since im not that good in english :/

Just Ganja
06-06-2012, 12:22 AM
If someone can help me i'll love them forever.
http://img689.imageshack.us/img689/7087/lule.png (http://imageshack.us/photo/my-images/689/lule.png/)
Can nobody fix this......
Thank you if you help me fix it.

LIM
06-06-2012, 07:24 AM
If someone can help me i'll love them forever.
http://img689.imageshack.us/img689/7087/lule.png (http://imageshack.us/photo/my-images/689/lule.png/)
Can nobody fix this......
Thank you if you help me fix it.

Did you even download the correct script? because i seatched in the script for the lines that are marked in yours, but there not even in the lrc script. and the name of yours is rocktail bot, which obviously isnt this one here. if its the wrong one, go back to the first post here and download the image and script.

slimshady202
06-07-2012, 09:35 PM
im trying to start the bot but it just sits still at the bank.and i cant seem to understand the whole picture concept.

Benny
06-07-2012, 10:01 PM
im trying to start the bot but it just sits still at the bank.and i cant seem to understand the whole picture concept.

okay bro you need to click on the picture on front page, when it enlarges you need to save it to your SRl includes folder where there is otehr maps saved.

XxBlackNinja97xX
06-08-2012, 12:34 AM
can u help me plox . i am getting this error. SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);

iBlank
06-08-2012, 12:36 AM
can u help me plox . i am getting this error. SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);

You obviously haven't follow the directions on the first page... Specifically, the part about saving the map in the correct location. If you do not have the Runescape_Other folder then you need to update your SPS to 2.0.

chuggernaut
06-08-2012, 11:44 AM
This script is flawless for me.

XxBlackNinja97xX
06-08-2012, 01:06 PM
thank you alevere and sorry for wasting your time.

suffrage
06-08-2012, 02:47 PM
Error: Exception: Access violation at line 89

-->function IsFKeyDown(FKey : integer) : boolean; <--

bishknight
06-08-2012, 07:00 PM
Does this script support the use of familiars like the ibis or the granite lobster, or any others that help with fishing?

Loca People
06-08-2012, 11:32 PM
You obviously haven't follow the directions on the first page... Specifically, the part about saving the map in the correct location. If you do not have the Runescape_Other folder then you need to update your SPS to 2.0.

dude, honestly, don't help the leechers that don't even read the OP..

illester
06-09-2012, 04:35 AM
I've put the image in rs other and i still get image error? what am i doing wrong?

EDIT: uninstalled simba and reinstalled it. Script worked after that. The problem was that my sps was donwgraded from 2.0 for a script i was using. So if you have a rs_other folder but this script doesnt work then you are probably downgraded and forgot about it.
Working great btw. I'll edit with proggies.
EDIT: First proggie
Stopped at 5:23
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 458 fish. That equals 84 fish per hour!
You have gained 174040 xp. That equals xp per hour!

112arjan112
06-09-2012, 12:13 PM
im loving the script its stable and very sweet i wanne thank you thank you for the nice script keep up the good work!

grz arjan

justiceouest
06-09-2012, 12:21 PM
---

Robot91292
06-09-2012, 08:55 PM
Excellent script! Very talented scripters put a lot of work in this.

TehNeonFishy
06-10-2012, 01:41 PM
Would like to say thanks for 99 fishing, didn't get a screenshot though. :(

MotorMouse
06-10-2012, 03:45 PM
Error: Exception: Access violation at line 305
Help?

iBlank
06-10-2012, 04:00 PM
Error: Exception: Access violation at line 305
Help?

Most likely something is not up to date. Checks for updates under SPS, SRL, and Tools.


Would like to say thanks for 99 fishing, didn't get a screenshot though. :(

Awesome! I will start a 99 list when I get home.

illuminatiswag
06-10-2012, 06:53 PM
95 fishing so far from 92 in like 3-4 days thx for that :) once im 99 ill post scrennie and everything also do you mind if i PM you about a script idea i got ?

iBlank
06-10-2012, 06:56 PM
95 fishing so far from 92 in like 3-4 days thx for that :) once im 99 ill post scrennie and everything also do you mind if i PM you about a script idea i got ?

Awesome! You are more than welcome to PM about anything.

vengeofw71
06-10-2012, 10:30 PM
I also got 99 fishing from 92 with this script. DIdnt screen as well since it was an overnight thing. Thank you as well.

iBlank
06-10-2012, 10:32 PM
I also got 99 fishing from 92 with this script. DIdnt screen as well since it was an overnight thing. Thank you as well.

Good to hear! Will add you to the list as well.

allanlin
06-11-2012, 12:05 AM
Will be hitting 99 soon, about 1M xp away. This script is nearly flawless, except for the fact that it sometimes gets stuck at some spots in the caverns.

allanlin
06-12-2012, 12:50 AM
Somehow wandered off into the North-Western area of the cavern and stood there while being pounded on by a monster, good thing I was babysitting, I almost died @_@. I looked on Simba and it didn't detect any fight.. kinda strange. It usually does and runs away

iBlank
06-12-2012, 12:59 AM
Somehow wandered off into the North-Western area of the cavern and stood there while being pounded on by a monster, good thing I was babysitting, I almost died @_@. I looked on Simba and it didn't detect any fight.. kinda strange. It usually does and runs away

Interesting. Wish you could have seen what led up to this.

vengeofw71
06-12-2012, 05:08 AM
Somehow wandered off into the North-Western area of the cavern and stood there while being pounded on by a monster, good thing I was babysitting, I almost died @_@. I looked on Simba and it didn't detect any fight.. kinda strange. It usually does and runs away

You incorrectly downloaded the custom lrc picture and probably tried to start at the fishing spots. So when it was trying to bank, it kept clicking that area on the minimap.

It happened to be before when i incorrectly added the custom_lrc pic.

XxBlackNinja97xX
06-12-2012, 10:19 AM
heyy al, im getting this error now, i have saved it in the runescape other folder like you told me and then when i run it says this SPS_FilterMinimap(Minimap);

Bob The Cat
06-13-2012, 10:03 AM
Gonna try this soon 90-99 fishing!

standby for some epic proggies.

Divus
06-13-2012, 07:13 PM
So i start the script beside the pulley lift, and it just stand there. I put the picture in the proper folder and named it custom_lrc and everything, but its still now working. :/ it just stands there. Then when i stop the script it says The following DTMs were not freed: [2, 3, 4, 5] Help? :(

iBlank
06-14-2012, 04:15 AM
So i start the script beside the pulley lift, and it just stand there. I put the picture in the proper folder and named it custom_lrc and everything, but its still now working. :/ it just stands there. Then when i stop the script it says The following DTMs were not freed: [2, 3, 4, 5] Help? :(

You aren't doing something right with the saving of the custom map. Standing next to the pulley will always be related to that.

Divus
06-14-2012, 06:06 AM
You aren't doing something right with the saving of the custom map. Standing next to the pulley will always be related to that.

What could i have done wrong? its not that hard to save something in a folder and name it custom_lrc lol. Idk where i messed up?

Jointz
06-14-2012, 08:11 AM
What gear do IWear to not die while running?

Tryskelion91
06-14-2012, 02:52 PM
Nice script! Also maybe you could a failsafe that when resting, it will click on at some space like the XP toggle or something so it wouldn't log out from inactivity.

Keep up the good work!

Blackdeath
06-14-2012, 03:50 PM
This is a great bot. Been using it for the past few hours. Here is a proggy after 5 hours.

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 565 fish. That equals 107 fish per hour!
You have gained 214700 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

Few things I saw though, when it goes to spot 2, it sometimes confuses the cave fish spot with the rocktail one and runs off to spot 3. Also the detection of the spot moving is a little slow, is there a way I can speed that up? But all in all its works great :D

Mew
06-14-2012, 05:53 PM
BTW I got 99 from this sexy bot!
Didnt screen cap though :[
It was well I was asleep about 2-3 weeks ago right as this bot got released for free!
Thanks I got cheated out of my bank so I am botting Rocktails for cash! Thanks! <3

Bob The Cat
06-15-2012, 11:21 AM
Oke now i will start using this from 90-99 !

MotorMouse
06-15-2012, 11:30 AM
Amazing script but the randoms are being a bit bitchy.
Could you update the script voor randoms?

xNotorious
06-15-2012, 12:20 PM
Amazing script but the randoms are being a bit bitchy.
Could you update the script voor randoms?

Random solving is done by the client, not individual scripts.

Mew
06-15-2012, 04:16 PM
DAT NEW LONGEST PROGGY!
http://puu.sh/B7vQ

MotorMouse
06-15-2012, 05:12 PM
Last request please,
Could you add anti-leech?
Rocktails are dropping like hell D:

Mew
06-15-2012, 05:18 PM
Last request please,
Could you add anti-leech?
Rocktails are dropping like hell D:

Wait dafuq...
You Joined THIS YEAR >,<

Bob The Cat
06-15-2012, 06:25 PM
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 571 fish. That equals 95 fish per hour!
You have gained 216980 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================


Thanks!

MotorMouse
06-15-2012, 07:50 PM
Wait dafuq...
You Joined THIS YEAR >,<

Whats the problem with that mate?

N3mo
06-16-2012, 12:13 AM
i start the script it stops and this error shows

[Error] (43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.

could you tell me how to fix it or help me through team viewer please?

N3mo
06-16-2012, 03:13 AM
i start it and it just stands there near bank, then i added the img as it says, and then the bot stops with an error as line 42.

iBlank
06-16-2012, 03:51 AM
i start the script it stops and this error shows

[Error] (43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.

could you tell me how to fix it or help me through team viewer please?


i start it and it just stands there near bank, then i added the img as it says, and then the bot stops with an error as line 42.

All I can suggest is make sure everything is up to date and if that doesn't work you could try reinstalling Java and Simba from scratch.

Reinier
06-16-2012, 08:57 AM
Exp/hr?

blinkblink
06-16-2012, 05:04 PM
Last request please,
Could you add anti-leech?
Rocktails are dropping like hell D:

Well its leech free I assume because we don't care about the prices... it makes cooking cheaper / rocktail cheaper for PVM/PVP situations

TrueExpressions
06-17-2012, 01:44 AM
Doesn't work for me :/
How do I put the map in the program?

pker x414
06-17-2012, 01:53 AM
Doesn't work for me :/
How do I put the map in the program?

you have to actually go into the simba files in simba in your desktop browser thing, then follow the instructions. (sorry about my bad explanation)

also

90-95 fishing doing this going for 99

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 262 fish. That equals 93 fish per hour!
You have gained 99560 xp. That equals xp per hour!


not my best proggy but one for the thread, another will be here when i have 99!

ekolan88
06-17-2012, 06:38 AM
Fixed.

Bot4Fun
06-17-2012, 11:28 AM
Nice script.. im almost 90 fishinig now, so will soon catch rocktails! Thank you! :)

ekolan88
06-17-2012, 11:31 AM
Nice script.. im almost 90 fishinig now, so will soon catch rocktails! Thank you! :)

the same place as where you can DL the script, bottom of the very first posts :)

Bot4Fun
06-17-2012, 11:58 AM
the same place as where you can DL the script, bottom of the very first posts :)
Sorry for editing my post.. lol must have done it just before u answered. I found it my self, and then i thought my post was really dumb. :)

Bot4Fun
06-17-2012, 12:05 PM
When i try to run the script, it opens a new tab named "sps" and i get this error,

[Error] C:\Simba\Includes\sps/sps.simba(38:17): Unknown type 'T4DIntegerArray' at line 37
Compiling failed.
[Error] (38:17): Unknown type 'T4DIntegerArray' at line 37
Compiling failed.

It is this script:


*
SPS ~ SRL Positioning System
============================

Concept and original work done by marpis @ SRL-Forums.

*)

{$loadlib sps}

const
// Path where all the SPS files are
SPS_IMG_PATH = IncludePath + 'SPS\img\';
SPS_IMG_FMT = '.png';

// Supported SPS surfaces
RUNESCAPE_SURFACE = 1;
DUNGEON_ESSENCE_MINE = 2;
DWARVEN_MINE = 3;
RUNECRAFTING_ALTARS = 4;
DOMINION_TOWER = 5;

type
TSPSSurface = record
Name, ImagePath: string;
Constant: integer;
FactorX, FactorY: integer; // used in SPS_LocalToGlobal
TileOffsetX, TileOffSetY: extended; // used for tile <-> SPS conversions
Tolerance: extended;
end;

// SPS Global variables
var
SPS_Loaded, SPS_Debug, SPS_Continue: boolean;
SPS_Areas: TStringArray;
SPS_Surface: TSPSSurface;
SPS_Worldmap: T4DIntegerArray;

procedure SPS_DebugStr(msg: string);
begin
if (SPS_Debug) then
Writeln('[SPS] '+msg);
end;

// Should be called in scripts to setup SPS
// Needs to be called each time the surface changes (i.e. from runescape_surface to essence_mine)
procedure SPS_Setup(surface: integer; areas: TStringArray);
begin
SPS_Areas := areas;

case surface of
RUNESCAPE_SURFACE:
with SPS_Surface do
begin
Name := 'Runescape Surface';
ImagePath := SPS_IMG_PATH + 'runescape_surface\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.3;
end;

DUNGEON_ESSENCE_MINE:
with SPS_Surface do
begin
Name := 'Essence Mine';
ImagePath := SPS_IMG_PATH + 'essence_mine\';
FactorX := 400;
FactorY := 1;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.5;
end;

DWARVEN_MINE:
with SPS_Surface do
begin
Name := 'Dwarven Mine';
ImagePath := SPS_IMG_PATH + 'dwarven_mine\';
FactorX := 400;
FactorY := 340;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.35;
end;

RUNECRAFTING_ALTARS:
with SPS_Surface do
begin
Name := 'Runecrafting Altars';
ImagePath := SPS_IMG_PATH + 'runecrafting_altars\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.5;
end;

DOMINION_TOWER:
with SPS_Surface do
begin
Name := 'Dominion Tower';
ImagePath := SPS_IMG_PATH + 'dominion\';
FactorX := 400;
FactorY := 400;
TileOffsetX := -1;
TileOffSetY := -1;
Tolerance := 0.3;
end;
end;

SPS_Surface.Constant := surface;

if (SPS_Debug) then
begin
SPS_DebugStr('[SPS] SPS_Surface: ' + SPS_Surface.Name);
SPS_DebugStr('[SPS] SPS_Areas: ' + toStr(SPS_Areas));
end;

SPS_Loaded := false;
end;

procedure SPS_WarnUser(proc, error: string);
begin
if (not SPS_Continue) then
begin
ShowMessage('SPS: ' + error + ' in ' + proc + #10+#13+#10+#13+
'Please run Simba as an administrator by right clicking and ' + #10+#13+
'choosing "Run as administrator." You may also have to restart ' + #10+#13+
'Simba a few times. ' + #10+#13+#10+#13+'Sorry for the inconvenience.');
TerminateScript();
end;
end;

// Gets the map pieces that appear on the minimap
function SPS_GatherMinimap: T3DIntegerArray;
var
bmp: TMufasaBitmap;
c: TClient;
begin
try
bmp := TMufasaBitmap.Create;
bmp.SetSize(100, 100);

c := getTClient;
bmp.CopyClientToBitmap(
c.IOManager, false, 0,0, MMCX-50, MMCY-50, MMCX+50, MMCY+50
);

Result := SPS_BitmapToMap(bmp);
finally
bmp.free;
except
SPS_DebugStr('[ERROR] in SPS_GatherMinimap: '+ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_GatherMinimap', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

procedure SPS_GetAreaCoords(Area: string; var x, y: integer);
var
p: integer;
begin
p := pos('_', Area);
if (p <= 0) then
// raise an exception if Area is of wrong format
RaiseException(erCustomError, 'Invalid Area passed: ' + area);

x := StrToIntDef(copy(Area, 1, p-1), -1);
y := StrToIntDef(copy(Area, p+1, Length(Area)-p), -1);

SPS_DebugStr(format('[SPS] Area coords (%d, %d)', [x, y]));
end;

// Converts a point from a map piece to a point on the entire map
function SPS_LocalToGlobal(Area: string; x, y: integer): TPoint;
var
cx, cy: integer;
begin
SPS_GetAreaCoords(Area, cx, cy);
Result.x := cx * SPS_Surface.FactorX + x;
Result.y := cy * SPS_Surface.FactorY + y;
end;

// Gets SPS ready to be used (this doesn't have to be called in scripts)
procedure SPS_Load;
var
L, i, timer : integer;
img: TMufasaBitmap;
begin
timer := getSystemTime;
L := Length(SPS_Areas);

if (L <= 0) then
begin
SPS_DebugStr('[SPS] WARNING: SPS_Areas hasn''t been set');
exit;
end;

if (SPS_Surface.Name = '') then
begin
SPS_DebugStr('[SPS] WARNING: SPS_Surface isn''t set! Using Runescape Surface as default');
SPS_Setup(RUNESCAPE_SURFACE, SPS_Areas);
end;

// clean up the old one just in case, we do not want copies in wrong places.
SetLength(SPS_WorldMap, 0);
SetLength(SPS_Worldmap, L);

for i := L-1 downto 0 do
begin
try
img := TMufasaBitmap.Create;
img.LoadFromFile(SPS_Surface.ImagePath + SPS_Areas[i] + SPS_IMG_FMT);
SPS_Worldmap[i] := SPS_BitmapToMap(img);
finally
img.free;
except
SPS_DebugStr('[SPS] ERROR: SPS_Load: '+ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_Load', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

SPS_DebugStr('[SPS] Maps loaded in '+ToStr(getSystemTime - timer)+'ms.');
SPS_Loaded := True;
end;

// Returns the SPS position of the player
function SPS_GetMyPos: TPoint;
var
Minimap: T3DIntegerArray;
t, map, ang: integer;
begin
Result := Point(-1, -1);

if not LoggedIn then
Exit;

if not SPS_Loaded then
SPS_Load;

// we should just rotate the minimap according to the minimap angle.
ang := round(rs_GetCompassAngleDegrees());
SPS_DebugStr('[SPS] Compass Angle: '+toStr(ang));

if (inRange(ang, 10, 350)) then
{$IFDEF SRL5}
ClickNorth(SRL_ANGLE_HIGH);
{$ELSE}
ClickNorth(True);
{$ENDIF}

t := getSystemTime;
Minimap := SPS_GatherMinimap;
if (High(Minimap) < 0) then
begin
SPS_DebugStr('[SPS] Did not gather Minimap.');
Exit;
end;

try
map := SPS_FindMapInMapEx(
Result.X, Result.Y, SPS_Worldmap, Minimap, SPS_Surface.Tolerance
);

if ((Result.X > 0) and (Result.Y > 0)) then
begin
Result := SPS_LocalToGlobal(SPS_Areas[map], Result.X, Result.Y);
end;

SPS_DebugStr(format('[SPS] GetMyPos: Finished in %d ms. Location = %s',
[getSystemTime - t, toStr(result)]));

except
SPS_DebugStr('[SPS] ERROR in SPS_GetMyPos: ' + ExceptionToString(ExceptionType, ExceptionParam));
SPS_WarnUser('SPS_GetMyPos', ExceptionToString(ExceptionType, ExceptionParam));
end;
end;

// Converts an SPS pos to a tile
function SPS_PosToTile(pos: TPoint): TPoint;
begin
result := point(-1, -1);

if (SPS_Surface.TileOffsetX = -1) then
begin
SPS_DebugStr('No conversion available for ' + SPS_Surface.Name);
exit;
end;

result.X := round(SPS_Surface.TileOffsetX + (pos.x / 4));
result.Y := round(SPS_Surface.TileOffsetY - (pos.y / 4));
end;

// Converts a tile to and SPS point, or "pos"
function SPS_TileToPos(tile: TPoint): TPoint;
begin
result := point(-1, -1);

if (SPS_Surface.TileOffsetX = -1) then
begin
SPS_DebugStr('No conversion available for ' + SPS_Surface.Name);
exit;
end;

result.X := round((tile.x - SPS_Surface.TileOffsetX) * 4);
result.Y := round((SPS_Surface.TileOffsetY - tile.y) * 4);
end;

// Converts a tile path to an SPS path
function SPS_TilePathToPos(tiles: TPointArray): TPointArray;
var
i: integer;
begin
setLength(result, length(tiles));

for i := 0 to high(result) do
result[i] := SPS_TileToPos(tiles[i]);
end;

// Finds position P in minimap by checking your own location
function SPS_PosToMM(P: TPoint): TPoint;
var
MyPos: TPoint;
begin
if not LoggedIn then Exit;
Result := Point(-1, -1);
MyPos := SPS_GetMyPos;
if Distance(MyPos.X, MyPos.Y, P.X, P.Y) < 72 then
Result := Point(MMCX + P.X - MyPos.X,
MMCY + P.Y - MyPos.Y);
end;

// Walks to position. If walking paths, please use WalkPath.
function SPS_WalkToPos(P: TPoint): boolean;
var
MM: TPoint;
begin
if not LoggedIn then Exit;
MM := SPS_PosToMM(P);

if (MM.X > 0) then
begin
Mouse(MM.X, MM.Y, 0, 0, True);
if WaitFunc(@IsMoving, 1, 3000 + random(500)) then
while IsMoving do
Flag;
Result := True;
end;
end;

// Returns true if the point "Pt" is on the minimap
function SPS_PosOnMM(Pt: TPoint): Boolean;
var
p: TPoint;
begin
p := SPS_PosToMM(Pt);
Result := rs_OnMinimap(p.x, p.y);
end;

// Walks the path "Path"; always walks to the furthest point possible
function SPS_WalkPath(Path: TPointArray): boolean;
var
I, H, T, D: integer;
P, MM: TPoint;
begin
H := High(Path);
T := GetSystemTime + 20000 + Random(5000);
while (not Result) and (GetSystemTime < T) do
begin
RunEnergy(20);
FindNormalRandoms();

P := SPS_GetMyPos;
for I := H downto 0 do
begin
MM.X := MMCX + Path[I].X - P.X;
MM.Y := MMCY + Path[I].Y - P.Y;

D := Distance(MM.X, MM.Y, MMCX, MMCY);

if (D < 10) then
break
else begin
if (D < 70) then
begin
MouseFlag(MM.X, MM.Y, 0, 0, Integer(I<>H)*15);
T := getSystemTime + 20000 + Random(1000);
Break;
end;
end;
end;

Result := (I = H);
end;
end;

ekolan88
06-17-2012, 12:43 PM
Have you read the entire first post regarding the img?
There is a quote that explains about the picture, that seems to be the common problem


Click on the picture to enlarge it, then right click it to download it.
Move it into the proper folder, and hit F5 to refresh.
Restart Simba and it should work

If this had supported familiar's i would had married it and had it's babies.

Plan on running this to 99' will keep you guys updated :)

Bot4Fun
06-17-2012, 01:47 PM
Can see how this problem should have any connection to the picture anyway? It seems to be a problem with my sps?

And i cant "download" the picture, i can only "save picture as?"

allanlin
06-17-2012, 02:01 PM
http://img267.imageshack.us/img267/5286/alslrcstuck.png

Bob The Cat
06-17-2012, 02:35 PM
My account never got stuck and i have been running this script for 48+ hours right now.


Small proggy:


================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 258 fish. That equals 108 fish per hour!
You have gained 98040 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

pker x414
06-17-2012, 05:45 PM
http://img267.imageshack.us/img267/5286/alslrcstuck.png

you get banned?

TehNeonFishy
06-17-2012, 08:31 PM
Would it be possible to have it anti-banning or something while waiting for hp to get back up? It normally logs me out and then doesn't manage to realise that it is logged out. >.<

N3mo
06-17-2012, 11:22 PM
""Quote:
Originally Posted by N3mo
i start the script it stops and this error shows

[Error] (43:35): Unknown identifier 'MMCX' at line 42
Compiling failed.

could you tell me how to fix it or help me through team viewer please?
Quote:
Originally Posted by N3mo
i start it and it just stands there near bank, then i added the img as it says, and then the bot stops with an error as line 42.
All I can suggest is make sure everything is up to date and if that doesn't work you could try reinstalling Java and Simba from scratch.""



Everything is up to date, i've reinstalled java and simba several times still doesnt work.

N3mo
06-17-2012, 11:41 PM
I start the scrip (picture is in place), runescpae loads, my account is logged into world 88, the this error comes up.

Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]

Anybody please help.
$5 donation for your help if it works.

ekolan88
06-18-2012, 02:09 PM
I start the scrip (picture is in place), runescpae loads, my account is logged into world 88, the this error comes up.

Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]

Anybody please help.
$5 donation for your help if it works.

Did you copy paste the script og DL it to Simba?

The most common issues:
Simba SRL / SPS and so on is out of date
-Try to update everything, if not reinstall simba and run updates again

Copy pasted the script into Simba
-Download it instead

The last option could be the picture.
-Remember to left click on the small picture on the first page, when it pops up to the larger version, right click and save it (make sure to check the spelling!)


I had a few problems myself with it since im new to Simba, but doing thoose 3 steps made everything work



Would it be possible to have it anti-banning or something while waiting for hp to get back up? It normally logs me out and then doesn't manage to realise that it is logged out. >.<

Are you using world 88?
If not do that, and just wear some basic armour like granite or so..
36 hours not, and i haven't been hit one time

Carlito
06-18-2012, 02:50 PM
Looks like this script has gotten alot of attention, perhaps on your top post it would be neat to post where it fishes etc, what requirements you need etc.

tonypham49
06-18-2012, 09:50 PM
OMG, Great script running it for 3 hours now.

Iambubbleman
06-18-2012, 09:52 PM
When I first ran this script and it was still very new, I kept getting killed by the orge deals, but now with the LRC miner and this fisher, It's like the old reflection days down there

Thank you so much for this script, I'll try to get a proggy to you ASAP.

Bob The Cat
06-18-2012, 11:39 PM
Once again such an amazing script! and i will keep firing these proggy's at you!

http://img189.imageshack.us/img189/6598/awesomexg.png (http://imageshack.us/photo/my-images/189/awesomexg.png/)



http://img411.imageshack.us/img411/9171/awesome1.png (http://imageshack.us/photo/my-images/411/awesome1.png/)

Wildo
06-19-2012, 06:56 AM
Hey Al, just dropping by to let you know that this script is a masterpiece, :) can run for aslong as 6 hours (The Browser Timeout). I have used this bot from 90-95 fishing so far and it is great. It makes an occasional mistake, but then it loops and fixes itself right back up again. Hopefully ill try to get a screenshot of 99 for you, but I may not be around to see, again thank you for this incredible script!

Athymy
06-19-2012, 11:58 AM
Could someone please explain to me how you're supposed to add the picture correctly? I can't even find Simba/Includes/...

ekolan88
06-19-2012, 03:05 PM
Could someone please explain to me how you're supposed to add the picture correctly? I can't even find Simba/Includes/...

Should be in your "C drive" aka the harddisk, open that by "my computer"
There's a simba case, and just follow the directions from there on.

If not reinstall simba and make sure you know where it's installed

ekolan88
06-19-2012, 06:59 PM
Just experienced something new:
When there's still fish at fishing spot 1, it runs to fishing spot 2 for no reason?

Wildo
06-20-2012, 04:16 AM
Eko, I have experianced this aswell. This is really no biggie at all the script still runs fine its probably just a failsafe incase the spot were to dissapear and also to stop you from going inactive and getting auto logged out by Runescape.

Bob The Cat
06-20-2012, 06:16 AM
Lol i died with 4,2k minerals i dont blame you! just come here to warn the people that to not take all the minerals with you, you might die.

vengeofw71
06-20-2012, 08:36 AM
Lol i died with 4,2k minerals i dont blame you! just come here to warn the people that to not take all the minerals with you, you might die.

I haven't died once, also if you dont feel safe, bring a ring of life.

Bob The Cat
06-20-2012, 09:01 AM
I haven't died once, also if you dont feel safe, bring a ring of life.

I do feel save but currently not taking more then 2k minerals with me.


E: Still love this script.

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 383 fish. That equals 101 fish per hour!
You have gained 145540 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

Cujjoz
06-20-2012, 07:02 PM
My script just runs to one cavefishing shoal, fishes it until the shoal dissappears, then the bot just stands there. It wont walk to any other cavefish shoals.

iBlank
06-20-2012, 07:14 PM
My script just runs to one cavefishing shoal, fishes it until the shoal dissappears, then the bot just stands there. It wont walk to any other cavefish shoals.

Are you starting it at the bank pulley?

xNotorious
06-20-2012, 07:16 PM
Awesome script man. So far has gotten me 91-98 fishing, at this rate i'll be 99 in the next couple of days :)

Jointz
06-20-2012, 09:49 PM
Compiling failed.
[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600

Edit: Fixed that line, but the bot used to work for me, now it just stands at the bank. Eventually saying moving to spot 2... But never left bank lol

Cujjoz
06-21-2012, 01:06 AM
Are you starting it at the bank pulley?

Yep.

Jointz
06-21-2012, 09:33 AM
Exception in Script: Plugin(libsmart32) has not been found

What does this mean?

Ok so I fixed the plugin issue wasn't easy I had to try and figure it out before realising I just needed to manually update it. Anyways Now the script will actually start up, an I start at the pulleys I have the thumbnail in the correct place. I used the script then I got messed it up somehow so I have reinstalled simba. Now I start at the pulley an it tilts the screen up has the Good luck mesage. But it never moves to the fishingspots. Im in fixed min setting max brightness. If I manually move it to fish spot one it will do its job until full inv. Then It will click far west to fishing spot 3 by the wall and click the rocktail over an over trying to use it on something? lol Help please

Edit: So I just figured it out. Thank god no one ever replies to my post =p. Thanks anyways

kozak94
06-21-2012, 06:06 PM
Hey guys! I keep getting the:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600

I'm running win xp and my picture is saved in C:\Simba\Includes\SPS\img\RUNESCAPE_OTHER and picture is named: "custom_lrc". I run the script and I keep getting this error. I'm pretty sure I'm not an idiot. What am I doing wrong?

ekolan88
06-21-2012, 06:55 PM
Hey guys! I keep getting the:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600

I'm running win xp and my picture is saved in C:\Simba\Includes\SPS\img\RUNESCAPE_OTHER and picture is named: "custom_lrc". I run the script and I keep getting this error. I'm pretty sure I'm not an idiot. What am I doing wrong?

Did you enlarge en img before downloading it?
If yes, try removing Simba and update everything again. :)

basebalguys
06-22-2012, 06:06 AM
SPS_GetArea ERROR: Exception: Error while reading stream: File "C:\Simba\Includes\SPS\img\runescape_other\custom_l rc.png" does not exist
Current player: Tjmacgregor
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]

what do i do..??

iBlank
06-22-2012, 06:52 AM
SPS_GetArea ERROR: Exception: Error while reading stream: File "C:\Simba\Includes\SPS\img\runescape_other\custom_l rc.png" does not exist
Current player: Tjmacgregor
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]

what do i do..??

Probably wouldn't hurt to read the very first post.

ekolan88
06-22-2012, 02:03 PM
For the first time i also died tonight for some reason, but that's about the only problem i've had with it :)
But one death and i've gotten from 90-94 flawlessly so far, can't complain :D

pker x414
06-22-2012, 06:29 PM
Download the picture to your desktop (fullsize)
Then type C:\Simba into your documents file in the address bar at the top.
It will open and then follow the rest of the insstructions on the forum.

For everyone still struggling, just hit 98 fishing will post at 99!

iBlank
06-22-2012, 09:58 PM
Download the picture to your desktop (fullsize)
Then type C:\Simba into your documents file in the address bar at the top.
It will open and then follow the rest of the insstructions on the forum.

For everyone still struggling, just hit 98 fishing will post at 99!

Adding this to the first post as well! Thanks for helping people out.

Bob The Cat
06-22-2012, 10:30 PM
================================================== ===============
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 316 fish. That equals 95 fish per hour!
You have gained 120080 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================


Omg 90-95 so far awesome script!!!

Ashihtaka
06-23-2012, 07:35 AM
Download the picture to your desktop (fullsize)
Then type C:\Simba into your documents file in the address bar at the top.
It will open and then follow the rest of the insstructions on the forum.

For everyone still struggling, just hit 98 fishing will post at 99!

I've actually done this and it still has the debug lines:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600
Compiling failed.

I'm using SPS 1.0, is it only compatible with 2.0?

MaxLevel
06-23-2012, 12:50 PM
there is not a runescape_other folder could u add me on msn or make a vid showing how to get this script to work
rsmaxlevels@hotmail.com

rocktail fisher

putonajonny
06-23-2012, 12:52 PM
there is not a runescape_other folder could u add me on msn or make a vid showing how to get this script to work

Have you downgraded SPS at any point? if not I don't think you have followed the bot setup procedure properly

MotorMouse
06-23-2012, 01:03 PM
Its a really, really good script man.
But just take a look of what you have done:
http://www.uploadplaatjes.nl/img/n/611461/
That is the price for living mineral, you can only buy it for 600gp+
Could you also please, or someone else create a creature miner script?
So the prices gets a bit lower?

ekolan88
06-23-2012, 01:43 PM
Gonna try again:
Reinstall Simba, update everything and read the last 3 pages of this Thread.

Ashihtaka
06-23-2012, 05:25 PM
Its a really, really good script man.
But just take a look of what you have done:
http://www.uploadplaatjes.nl/img/n/611461/
That is the price for living mineral, you can only buy it for 600gp+
Could you also please, or someone else create a creature miner script?
So the prices gets a bit lower?

I believe they've just crashed.

iBlank
06-23-2012, 05:36 PM
I've actually done this and it still has the debug lines:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600
Compiling failed.

I'm using SPS 1.0, is it only compatible with 2.0?


there is not a runescape_other folder could u add me on msn or make a vid showing how to get this script to work
rsmaxlevels@hotmail.com

rocktail fisher

Both of you need to upgrade to SPS 2.0. Should be easy to find a thread on how to do it somewhere here on the forums!


Its a really, really good script man.
But just take a look of what you have done:
http://www.uploadplaatjes.nl/img/n/611461/
That is the price for living mineral, you can only buy it for 600gp+
Could you also please, or someone else create a creature miner script?
So the prices gets a bit lower?

Price swings are unfortunately a side effect of releasing a heavily desired public script here on Villavu. I personally don't have time to make a mineral miner but maybe someone on here will. Sorry!

mayx
06-23-2012, 08:53 PM
Hey,

Just a quick question, are you able to put summoning support in later?
Like ibis, granite lobster etc. that invisible boost really helps ^_^.

Very nice script by the way!

~Mayx

iBlank
06-23-2012, 09:26 PM
Hey,

Just a quick question, are you able to put summoning support in later?
Like ibis, granite lobster etc. that invisible boost really helps ^_^.

Very nice script by the way!

~Mayx

I have honestly never even used a single summoning skill :redface: I have gotten to level 48 summoning by using all exp lamps and random rewards I get on the skill. I might eventually add support for it, but that is not any time soon.

Mew
06-23-2012, 11:40 PM
I have honestly never even used a single summoning skill :redface: I have gotten to level 48 summoning by using all exp lamps and random rewards I get on the skill. I might eventually add support for it, but that is not any time soon.

Thanks dude, I love you. I had a 32 hour proggy but my computer gave me the blue screen >,<

I still have like so many minerals left! :D
http://puu.sh/DbvS

Bob The Cat
06-24-2012, 12:15 AM
To be honest, we're not really the ones causing the prices to crash, There way more injection botters at LRC.

iBlank
06-24-2012, 12:21 AM
To be honest, we're not really the ones causing the prices to crash, There way more injection botters at LRC.

Oh, I wasn't aware there was any public injection bots for LRC. I just know I have seen a slow, but constant decrease in raw rocktail prices since I made this public. I hadn't even thought to look at mineral prices, but clearly they have been on the rise as well haha.

Had I been smarter, I would have bought up minerals before I made it public then sold them now ;)

Bob The Cat
06-24-2012, 12:33 AM
Oh, I wasn't aware there was any public injection bots for LRC. I just know I have seen a slow, but constant decrease in raw rocktail prices since I made this public. I hadn't even thought to look at mineral prices, but clearly they have been on the rise as well haha.

Had I been smarter, I would have bought up minerals before I made it public then sold them now ;)

Haha i see your a merchanter :P just write another script as in high demand as this and go ahead. I challenge you :D

pker x414
06-24-2012, 12:35 AM
I bought all the living minerals to get me 99 at the start!
When they were 350gp! 500k xp to 99 :)!

mayx
06-24-2012, 11:15 AM
I have honestly never even used a single summoning skill :redface: I have gotten to level 48 summoning by using all exp lamps and random rewards I get on the skill. I might eventually add support for it, but that is not any time soon.


Ahh no worries hehe, at the moment I just summon manually and it keeps on fishing even with the pouches in my inventory :smile:.

About the minerals, I'm sure it's not only your script that has crashed the rocktail prices and risen the minerals prices, as someone said there's injection bot too.
And the minerals are really easy to get with a combat of about 100+, it's even a new money making way ;).

~Mayx

Bot4Fun
06-24-2012, 02:16 PM
I have just updated to sps2 but still gets this error:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600
Compiling failed.

And i am pretty sure i saved it the right place.


http://i47.tinypic.com/11j55y9.png

Is this the right place? Right dimensions? Right size?

ekolan88
06-24-2012, 02:42 PM
Did you enlarge it before download?
We can't tell if it's the right size from that picture you uploaded :)
If you did try closing everything and open it again

Bot4Fun
06-24-2012, 03:34 PM
it says in the bottom of the uploaded pic its 500x500?

yes, i clicked the picture.

My computer is on another language, so i dont see any "download" button. Only a save picture as? In my language "Gem billede som"

http://i47.tinypic.com/b3js74.png

Bob The Cat
06-24-2012, 03:50 PM
9K+ minerals to go then im 99 fishing thanks to this script :D



E: 500K to 97!

Batman
06-26-2012, 10:38 AM
Proggy, epic script!
http://i1190.photobucket.com/albums/z450/ANinjaPeanut/ScreenShot2012-06-26at113631.png

AusKingdom
06-28-2012, 05:18 AM
I deleted simba and reinstalled it to fix a problem for another script. Now, i have problems with this script which was working before.

http://puu.sh/Eeqn

Could someone help me? :o

badkid
06-28-2012, 01:19 PM
making a steady 200k+ an hour great script :D

P.S. it is definately worthwhile to babysit the script a little bit and see if you can loot off of other dead bots when they get owned by the living rocks, gotten about 3.5k living minerals this way

ekolan88
06-28-2012, 02:15 PM
I have just updated to sps2 but still gets this error:

[Error] (601:13): Unknown identifier 'RUNESCAPE_OTHER' at line 600
Compiling failed.

And i am pretty sure i saved it the right place.


http://i47.tinypic.com/11j55y9.png

Is this the right place? Right dimensions? Right size?

Havde ikke set du var dansk :)
Men jeg ved ikke meget om scripts, men hvis du har afinstalleret Simba også geninstalleret det. Opdateret alt igen.
Derefter ser det ud til du har gjort det rigtigt med billedet, både størrelse og location.
Har du sat dine game grafik til minimum med maksimum lys?
Står du ved "pully"/banken når du starter scriptet?

ekolan88
06-28-2012, 02:19 PM
I deleted simba and reinstalled it to fix a problem for another script. Now, i have problems with this script which was working before.

http://puu.sh/Eeqn

Could someone help me? :o

Have you tried to read the last 3-4 forum pages?
Would be neat if you could do that and see what error's people got, and what helped the others.

But:
If you updated everything (including simba?)
Then made sure the map is enlarged before you right clicked and saved it?
Checked the file name and location
Checked if you filled everything out right, or downloaded the script again incase you messed something up?

I don't know jack-peep out scripts, but i can only tell what 9/10 error's is caused by

Bob The Cat
06-28-2012, 02:23 PM
300k to 98 fishing !!!

Hazzah
06-30-2012, 02:56 AM
Might try this to get myself 20m Fishing xp, but fishing is easy enough to legit at LRC.

ekolan88
06-30-2012, 08:27 PM
Thanks for getting me 99 from 90 with this script. Forgot screen though ^^

jlukis1
07-02-2012, 03:47 PM
The cavefish fishing is really, really buggy. I know this isn't a major concern for you as not many people use it, but it would certainly be a great help if you fixed it.

bslaya
07-03-2012, 04:47 PM
this doesnt bank for me? it goes to the deposit box and just clicks the minimap infinitely until I fix it..

iBlank
07-03-2012, 04:58 PM
this doesnt bank for me? it goes to the deposit box and just clicks the minimap infinitely until I fix it..

It isn't finding the deposit box so it is clicking on the bank symbol then looking for it again so it just stays in that loop. If your settings are correct then the deposit box colors may have changed. I will look into it this evening. If it is working for anyone else please let me know!

bslaya
07-03-2012, 05:23 PM
It isn't finding the deposit box so it is clicking on the bank symbol then looking for it again so it just stays in that loop. If your settings are correct then the deposit box colors may have changed. I will look into it this evening. If it is working for anyone else please let me know!

My settings are definitely correct, it fishes fine but I receive the error above.

iBlank
07-03-2012, 05:26 PM
My settings are definitely correct, it fishes fine but I receive the error above.

Sounds like the deposit box colors have changed. I'll look into it this evening.

illester
07-03-2012, 08:36 PM
Have been using this script a while, got my main from 90-98 so far. I started also lvling my pure with this scrip but it murders my cpu usuage due to having two simbas opened. Can you help me add multiplayer support for one more char. I tried it but came up with all sorts of compiling errors.

AusKingdom
07-04-2012, 01:12 AM
http://puu.sh/FH9d

Can someone tell me what i'm doing wrong? This script use to work for me before i deleted simba and reinstalled it. I enlarged the image beforehand and saved it in the correect folder. Am i missing anything?

rsplayer001
07-04-2012, 03:02 AM
I had the same issue as you before. Apparently this is what you have to do.

First you click on the pic on the first page to enlarge it. Then you dl it and move it to the folder that he specified. Otherwise the picture in the png will appear small and your char wont move L

Oh hell, I was trying to figure this out for about a week and I couldn't figure out. Your advice was perfect! thanks for posting it.

bottingisforcoolpeople
07-04-2012, 12:01 PM
SPS_GetArea ERROR: Exception: Error while reading stream: File "C:\Simba\Includes\SPS\img\runescape_other\custom_l rc.png" does not exist
Current player: *********@Gmail.Com
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]
I got this error, i blocked out the email :o
What do i do?

Batman
07-05-2012, 06:14 AM
SPS_GetArea ERROR: Exception: Error while reading stream: File "C:\Simba\Includes\SPS\img\runescape_other\custom_l rc.png" does not exist
Current player: *********@Gmail.Com
Error: Exception: Access violation at line 305
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, 4]
I got this error, i blocked out the email :o
What do i do?

Read the OP and follow the instructions?
Seriously, read the error code as well, the problem's in plain sight ._.

bottingisforcoolpeople
07-05-2012, 12:45 PM
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 468 fish. That equals 92 fish per hour!
You have gained 177840 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
:P nice script

MotorMouse
07-05-2012, 04:53 PM
I've deleted java7 because the pop-up problem is really annoying
Then i've randomly got this problem: Error: Exception: Access violation at line 101 at SMART
What?

iBlank
07-05-2012, 05:19 PM
I've deleted java7 because the pop-up problem is really annoying
Then i've randomly got this problem: Error: Exception: Access violation at line 101 at SMART
What?

That is a Java related error. You said you deleted 7, I assume you still have an older version right?

Roflme
07-05-2012, 10:22 PM
Great script!

Although when it looks for the bank it always hovers over the stack of bags(? I haven't looked closely at them, I just go down rope and start up the bot, lol). Besides that great script! Could run it forever if I didn't get randoms :p

Mew
07-06-2012, 03:49 AM
Bot is broken right now.
I updated to 0.99 and now its not working
Please fix!

Edit: NVM: It just started working!

EDIT 2: Seems to be a SMART manager problem!

illester
07-08-2012, 08:13 AM
Thank You Sir!

http://i.imgur.com/cDOLr.png
http://i.imgur.com/y8NG2.png

suffrage
07-09-2012, 02:57 PM
Anyone know how to fix it?:fiery::fiery:http://villavu.com/forum/attachment.php?attachmentid=16795&thumb=1&d=1341845818

serexcety
07-09-2012, 11:41 PM
good thing i know how to read. fixed my own problem. thanks.

iBlank
07-11-2012, 04:57 AM
Anyone know how to fix it?:fiery::fiery:http://villavu.com/forum/attachment.php?attachmentid=16795&thumb=1&d=1341845818

Have you solved this issue yet? Would love for you to post it if you have. Would help others out if they experience the same problem.

chuckyb0y
07-11-2012, 06:02 AM
I set up mine like the ts suggested

i copyed the image to runescape_other,
when i start it at deposit box or at fishing spot it does nothing.
no debug nothing.. any idea?

iBlank
07-11-2012, 08:16 PM
I set up mine like the ts suggested

i copyed the image to runescape_other,
when i start it at deposit box or at fishing spot it does nothing.
no debug nothing.. any idea?

Sounds like the map is saved incorrectly or your SPS is not up to date.

rsplayer001
07-12-2012, 01:19 PM
Man I stop running this script for a few days and when I try it's not running for me. The script compiles without any issues but then it just sits at the login screen forever. I see the red dot slightly above the login line. Eventually it puts in the name but not the password. when I look in the console I get the following

formWriteln: 'One minute has passed... Debug: 932'
SMART Disabled
Replacing Canvas Drawing Surface
Disabeling Events
Starting Image Transfer
SMART Enabled
Transfer Thread Entered

If I manually log in the script will write my name and attempt to write my password on screen.

BTW I still think that this script is great! ! For everyone that's talking about how expensive lving minerals are getting just remember that the rockfish still sell for a lot more so you are still positive on the cash flow.

Bennigan
07-12-2012, 02:52 PM
SMART is done for the time being because of update.
http://villavu.com/forum/showthread.php?t=86107&page=11

iBlank
07-12-2012, 06:03 PM
Man I stop running this script for a few days and when I try it's not running for me. The script compiles without any issues but then it just sits at the login screen forever. I see the red dot slightly above the login line. Eventually it puts in the name but not the password. when I look in the console I get the following

formWriteln: 'One minute has passed... Debug: 932'
SMART Disabled
Replacing Canvas Drawing Surface
Disabeling Events
Starting Image Transfer
SMART Enabled
Transfer Thread Entered

If I manually log in the script will write my name and attempt to write my password on screen.

BTW I still think that this script is great! ! For everyone that's talking about how expensive lving minerals are getting just remember that the rockfish still sell for a lot more so you are still positive on the cash flow.


SMART is done for the time being because of update.
http://villavu.com/forum/showthread.php?t=86107&page=11

Yep. The last update has messed up Smart for the time being. You can scroll through the thread that Bennigan posted and see that many people are working hard to get a fix out for the community. If you get the chance, stop by the thread and give them a big thank you!

Mew
07-14-2012, 10:07 PM
Yep. The last update has messed up Smart for the time being. You can scroll through the thread that Bennigan posted and see that many people are working hard to get a fix out for the community. If you get the chance, stop by the thread and give them a big thank you!

First of all the script is broken for SMARTManager on .99

Can you try to see if you can fix that?

suffrage
07-15-2012, 04:35 PM
I think I will test it after the smart has been updated back. I still not figure my problem yet.
The script has stopped automatically after clicking on "bait rocktail".

andrewb
07-30-2012, 04:53 PM
Latest Simba with up to date SRL/SPS etc..

There's two problems with the paintsmart function


procedure SMART_SetupDebug();
begin
SmartSetDebug(True);
SMART_Canvas := TBitmap.Create;
SMART_Canvas.canvas.handle := SmartGetDebugDC;
SMART_DebugSetup := true;
end;

[Error] C:\Simba\Includes\SRL/SRL/misc/paintsmart.simba(41:33): Unknown identifier 'SmartGetDebugDC' at line 40
Compiling failed.

--


procedure SMART_ClearMS;
begin
SMART_ClearCanvasArea(MSBox);
end;


[Error] C:\Simba\Includes\SRL\SRL\misc\paintsmart.simba(13 5:25): Unknown identifier 'MSBox' at line 134
Compiling failed.


This one leads to drawboxMS & drawline issues further down the line

shams1485
08-04-2012, 06:26 PM
I'm having the same exact problem :/
would love it if someone could help...

iBlank
08-05-2012, 12:29 AM
I'm having the same exact problem :/
would love it if someone could help...

Getting moved back into my apartment for college so I have been a little busier with that and just the social aspect of being back in a college town. I think I should have the time to get this working with the newest Simba and Smart sometime tomorrow. Thanks for being patient guys.

Austin
08-05-2012, 01:53 AM
Getting moved back into my apartment for college so I have been a little busier with that and just the social aspect of being back in a college town. I think I should have the time to get this working with the newest Simba and Smart sometime tomorrow. Thanks for being patient guys.
Take your time, I'm still 80 fishing ;), gonna be using this script by the time I reach 90 though, so you better have it ready by then! Jk lol. I can probably fix it myself anyways

shams1485
08-06-2012, 08:38 PM
thanks iBlank. I appreciate your efforts to help the community :D

blinkblink
08-10-2012, 01:21 AM
decided to look over the code on what needs fixing to work...

Beginning of the code changed to this:
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$I SRL/SRL/MISC/SMARTGRAPHICS.SIMBA}

And the beginning of the mainloop(ending of the coding) to this:
Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
SetupSRL;

Then in the middle of the coding, where its the Canvas part this:

{ Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);}
I had saw earlier when they had done the fixing, the canvas coding can be commented out, it shouldn't affect the running script - but if you want it fixed you can see Brandons post which explains how to do it: http://villavu.com/forum/showthread.php?t=84334

Then the rest, if something is off when clicking(as in not clicking where it needs to) then that means every single "Y" coordinate in the code needs to be changed with +50 pixels. Sorry I didn't ran the script (it did compile successfully) to see if it works but this is my assumption on how it needs to be to work.

PvP THC
08-10-2012, 03:32 AM
I'm trying to use this script but it keeps opening up another tab when i hit run and the tabs name is "paintsmart" and it keeps showing this

[Error] C:\Simba\Includes\SRL\SRL\misc\paintsmart.simba(41 :3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.

Help please, i have 17m in living minerals...kinda need to fish lol

hurbar
08-10-2012, 09:22 AM
Blinkblink I am Finding it hard to understand were you are saying to put the 2nd bit of text are you able to put it in the code and reupload or put it in a way i can understand :/ sorry

Austin
08-10-2012, 12:07 PM
I'm trying to use this script but it keeps opening up another tab when i hit run and the tabs name is "paintsmart" and it keeps showing this

[Error] C:\Simba\Includes\SRL\SRL\misc\paintsmart.simba(41 :3): Unknown identifier 'SmartSetDebug' at line 40
Compiling failed.

Help please, i have 17m in living minerals...kinda need to fish lol
Err, did you even read any of this thread at all? Specifically the post right above yours..

If you for some reason can't follow that post, then here's the link to the main script updating thread:

http://villavu.com/forum/showthread.php?t=84334

kevin33
08-12-2012, 05:03 AM
Ok to save people from getting pm's and to save the thread from unnecessary questions I will post the script in compiled form Note** it may not work you will have to test it yourselves but it will compiile....

I have recieved Als permission to post so yea. Here it is as it is a popular script and Al will updae it completely in a bit:)

Program Als_LRC_Fisher;
{$DEFINE SRL5}
{$DEFINE SMART} // Edit this line out to rn the script in your browser.
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$I SRL/SRL/Misc/SmartGraphics.Simba}

//////////////////////// Fill The Variables Below In \\\\\\\\\\\\\\\\\\\\\\\\\\\

Const
WTRA = 550; // Enter how low health can go before resting. Must be at least 50 below your maximum health.
FishTimer = 5000; // Do NOT touch this variable.
World = 88; // Enter world you want to fish in.
PP = ''; // Enter your pin here.
OnScreenProg = 0; // 0 for an On Screen Report or 1 for no On Screen Report.
FishValue = 2235; // Enter current price of the fish you are catching.
FishType = 0; // 0 to catch Rock Tails and 1 to catch Cave Fish.
Crashing = True; // True if you are using SMART Manager or Crash Smart. False if not.

SRLStats_User = ''; /// SRL Stats Username.
SRLStats_Password = ''; /// SRL Stats Password.


/////////////////////////////// NO Touchy \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Var
x,y,RFish,CFish,bankbox,FC,Fish_Caught,Fish_XP,XP, FPH,TimeGone,P: Integer;
fshield,fdamage,fvalue: Integer;
FishCaught,FishXP,Info1,Info2,Info3,Info4,XPPH2,FP H2,FFC,FVN: String;
ToFish,ToBankBox,FSpot1,FSpot2,FSpot3,Restart,RunA wayN: TPointArray;

////////////////////////// Fill In Log In Info \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Enter your username here.
Players[0].Pass :=''; // Enter your password here.
Players[0].Nick :=''; // Enter nickname for progres report.
Players[0].Active:=True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
Players[0].WorldInfo := [False, World];
End;

////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////DO NOT TOUCH ANYTHING PAST HERE \\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure AntiBan;
Begin
Case Random(500) Of
100: SleepAndMoveMouse(500);
200: PickUpMouse;
300: RandomMovement;
400: HoverSkill('Fishing',False);
500: CompassMovement(45,90,true);
End;
End;

Procedure IfRandoms;
Begin
FindNormalRandoms;
AntiBan;
End;

Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
Var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
Begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360,71,'me');
TPH := High(TP);
For I := 0 To TPH Do
Begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
For B := 0 To High(TTP) Do
Begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
End;
End;
Canvas := TCANVAS.Create;
//Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;

Procedure OnScreenUpdate;
Begin
Begin
SRLRandomsReport;
Stats_Commit;
IncEx(Fish_Caught, FC);
IncEx(Fish_XP, XP);
TimeGone := (GetTimeRunning/1000);
FishCaught := IntToStr(Fish_Caught);
FishXP := IntToStr(Fish_XP);
FValue := (Fish_Caught*FishValue);
FVN := IntToStr(FValue)
FPH := (3600*(Fish_Caught))/((TimeGone));
FPH2 := IntToStr(FPH);
Info1 := ('Fish Caught = ' + FishCaught)
Info2 := ('Fising XP = ' + FishXP)
Info3 := ('Fish Per Hr = ' + FPH2)
Info4 := ('Money Made = ' + FVN)
End;

If (OnScreenProg=0) Then
Begin
PrintOnSmart(['Last banked at '+(TheTime)],Point(15,210),296906);
PrintOnSmart([('Time script has run ')+MsToTime(GetTimeRunning,Time_Bare)],Point(15,240),296906);
PrintOnSmart([Info1+' so '+Info3],Point(15,270),296906);
PrintOnSmart([Info2+' and '+Info4],Point(15,300),296906);
End;

Begin
Writeln('');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('You have caught ' + FishCaught + ' fish. That equals ' + FPH2 + ' fish per hour!');
Writeln('You have gained ' + FishXP + ' xp. That equals ' + XPPH2 + ' xp per hour!');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('');
End;
End;

Procedure SetDTMs;
Begin
RFish := DTMFromString('mrAAAAHic42BgYMhmYmDIBOJCIK4C4iIgzg HiRCCOBeLnQDV3gfgWlH4LxJ+B+AMQvwBij2APIMmEE3MBSXyY kQCGAQD1rAvw');
CFish := DTMFromString('mrAAAAHic42BgYLBlYmCwAmJXIPYHYg8gdg JiCyC2B2IORqAiKGYGYm4gFgJiFiD+BxRevLwASDLhxPwM+AEj AQwDAIoYBTU=');
BankBox := DTMFromString('mggAAAHicY2NgYDgJxKeheA8QbwPie0C8AI hboGJNQLwTiGcAcU91HENyuDNDWbITQ060LUNRggNDYqgjAz9Q DhtmxIEhAABB1g9T');
FShield := DTMFromString('mrAAAAHic42BgYOAFYgEg5gdiHiBmB2I+IG aBijECMRMQs0LlQOJcUBqkl9XUCS8mBBgJYBgAAK0nBH8=');
FDamage := DTMFromString('mbQAAAHicY2VgYNBmhGAdINYDYn0glgZiBS BWBmI5IJYA4nQ2NoYEPj4wns3DA6a5gPrRMSMWDAYAIPEEVA== ');
End;

Procedure FreeDTMSet;
Begin
FreeDTM(RFish);
FreeDTM(CFish);
FreeDTM(BankBox);
FreeDTM(FShield);
FreeDTM(FDamage);
End;

Function HPLevel: Integer;
Var
ColourString: String;
Begin
Result:= GetMMLevels('HP', ColourString);
End;

Procedure AllMyPaths;
Begin
ToFish := [Point(303, 303), Point(307, 323), Point(279, 363), Point(249, 404)];
ToBankBox := [Point(147, 379), Point(191, 379), Point(231, 387), Point(279, 379), Point(303, 335), Point(307, 299), Point(287, 287)];
RunAwayN := [Point(185, 385), Point(235, 385), Point(275, 370), Point(305, 330), Point(288, 287)];
FSpot1 := [Point(247, 407)];
FSpot2 := [Point(183, 400)];
FSpot3 := [Point(150, 380)];
Restart := [Point(180, 395), Point(220, 395), Point(251, 395)];
End;

Procedure HealthCheck;
Begin
If HPLevel < (WTRA) Then
Begin
If (Not FindSymbolIn(x,y,'Bank',600,60,640,100)) Then SPS_WalkPath(ToBankBox);
Writeln('Resting until hp gets back up!');
setrest;
Repeat;
If (Not LoggedIn) Then LoginPlayer;
wait(randomrange(1500,2500));
AntiBan;
Until HPLevel > (WTRA + random(49));
End;
End;

Procedure ToFishing;
Begin
HealthCheck;
SetRun(True);
MakeCompass('n');
SPS_WalkPath(ToFish);
While isMoving Do
wait(100+random(50));
IfRandoms;
End;

Function FindPulley(x, y: Integer): Boolean;
Var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.18);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6521492, MSX1, MSY1, MSX2, MSY2, 3);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 60, 60);

For I := 0 To High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 0, 0);
If(WaitUpTextMulti(['dep','osit','pul','ull','ley','lif','ift'],500)) Then
Begin
Result := True;
GetMousePos(x, y);
Break;
End;
End;
End;

Procedure Banking;
Begin
If (FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Or FindDTM(CFish,x,y,MIX1,MIY1,MIX2,MIY2)) Then
Begin
If (FindPulley(X,Y)) Then
Begin
If FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Then FC := CountItems('dtm', RFish, []) Else FC := CountItems('dtm', CFish, []);
XP := (FC*380);
FFC := IntToStr(FC);
Writeln('Trying to bank ' + FFC + ' fish!');
OnScreenUpdate;
ClickMouse2(True);
Wait(RandomRange(2250,2750));
If PinScreen Then InPin(PP);
Wait(RandomRange(1000,1250));
If (FindDTM(RFish, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(CFish, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
Mouse(x,y,3,3,False);
Wait(RandomRange(700,850));
ChooseOption('ll');
ToFishing;
End Else ToFishing;
End Else
Begin
SymbolAccuracy := 0.35
FindSymbol(x,y,'bank');
Mouse(x,y,0,0,true);
Wait(RandomRange(1000,1300));
SymbolAccuracy := 0.80
Banking;
End;
End Else ToFishing;
End;

Procedure ToBank;
Begin
SetRun(True);
MakeCompass('N');
SPS_WalkPath(ToBankBox);
While isMoving Do wait(100+random(50));
IfRandoms;
Banking;
End;

Procedure RunAwayNow;
Begin
SetRun(True);
MakeCompass('n');
Writeln('Fight detected. To the bank!');
SPS_WalkPath(RunAwayN);
While isMoving Do wait(100+random(50));
Writeln('Banking, then returning to fish!');
Banking;
IfRandoms;
End;

/// Credits to putonajonny ///
Procedure CheckFight;
Var
i: integer;
Begin
If Not InFight Then Exit;
WriteLn('Checking for fight....');
For i := 0 To 7 Do
Begin
If (FindDTM(FShield, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(FDamage, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
RunAwayNow;
Exit;
End;
Wait(200+Random(50));
End;
WriteLn('No fight detected.');
End;

Function PColor: Integer;
Var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 1.00);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 859691, MSX1, MSY1, MSX2, MSY2, 2);
If (Length(arP) = 0) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

For i := 0 to arL Do
Begin
ColorToXYZ(arC[i], X, Y, Z);

If (X >= 1.12) And (X <= 2.02) And (Y >= 1.07) And (Y <= 1.93) And (Z >= 0.45) And (Z <= 0.74) Then
Begin
Result := arC[i];
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Function IsFishing: Boolean;
Var
CTS: Integer;
TPA: TPointArray;
Begin
CTS := GetColorToleranceSpeed;
Begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07, 0.75);
FindColorsSpiralTolerance(x, y, TPA, PColor, 245, 130, 285, 195, 3);
ColorToleranceSpeed(CTS);
result := (Length(TPA) > 0);
If result Then
Exit;
End;
End;

Procedure FishingWait;
Var
T: Integer;
Begin
Marktime(T);
Repeat
CheckFight;
If IsFishing Then
Marktime(T);
If (InvCount=28) or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;
AntiBan;
IfRandoms;
Until(TimeFromMark(T) >= (FishTimer+(RandomRange(300,600))));
Exit;
End;

Function FindFishingSpot(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 to arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('ockt', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
Exit;
End;

GetMousePos(fx, fy);
End;

Function FindFishingSpotC(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 To arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('vefis', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
//Writeln('No Rocktail spot found. Relocating....');
Exit;
End;

GetMousePos(fx, fy);
end;

Procedure StartFishing;
Var
X,Y: Integer;
Begin;
CheckFight;

If (Not FindSymbol(x,y,'fish')) Then ToFishing;

If (FishType=0) Then
Begin;
If (FindFishingSpot(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;
If Not (FindFishingSpot(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

If (FishType=1) Then
Begin;
If (FindFishingSpotC(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;

If Not (FindFishingSpotC(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

IfRandoms;
End;

Procedure Relocate;
Begin;

SymbolAccuracy := 0.40;
MarkTime(P);
Repeat;
If InvFull or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;

If FindSymbolIn(x,y,'Fish',620,30,750,120) Then
Begin
HealthCheck;
WriteLn('Moving to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Fish',575,85,635,125) Then
Begin
HealthCheck;
WriteLn('Moving to spot 3...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot3);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Mine',605,60,640,90) Then
Begin
HealthCheck;
WriteLn('Back to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
If (FindFishingSpot(X, Y)) Then
Begin
SymbolAccuracy := 0.80;
StartFishing;
End Else
Begin
HealthCheck;
Writeln('Back to spot 1...');
SPS_WalkPath(FSpot1);
SymbolAccuracy := 0.80;
StartFishing;
End;
End;
Until (TimeFromMark(P) >= 5000)

IfRandoms;
End;

Procedure MainLoop;
Begin
If Not (LoggedIn) Then Exit;
SetDTMs;
MakeCompass('n');
SetAngle(0);
ToFishing;
StartFishing;
Relocate;
FreeDTMSet;
End;

Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
{$IFDEF SIMBAMAJOR980}//<--- THIS
Smart_Server := 0;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}//<--- THIS
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
{$ENDIF}
SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);
SetupSRLStats(1135, SRLStats_User, SRLStats_Password);
ActivateClient;
DeclarePlayers;
LoginPlayer;
SMART_ClearCanvas;
wait(1000);
PrintOnSmart(['A progress report will appear after banking. Good luck!'],Point(15,300),65674);
AllMyPaths;
If (Crashing = True) Then
Begin
SPS_WalkPath(ToBankBox);
Wait(500+Random(500));
Flag;
End;
Repeat;
Mainloop;
Until(AllPlayersInactive);
SMART_ClearCanvas;
OnScreenUpdate;
End.

pickles1486
08-14-2012, 01:47 PM
for anyone getting that error, just wait until al updates the script, or do what the people above told u to

iBlank
08-15-2012, 07:02 PM
Ok to save people from getting pm's and to save the thread from unnecessary questions I will post the script in compiled form Note** it may not work you will have to test it yourselves but it will compiile....

I have recieved Als permission to post so yea. Here it is as it is a popular script and Al will updae it completely in a bit:)

Program Als_LRC_Fisher;
{$DEFINE SRL5}
{$DEFINE SMART} // Edit this line out to rn the script in your browser.
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$I SRL/SRL/Misc/SmartGraphics.Simba}

//////////////////////// Fill The Variables Below In \\\\\\\\\\\\\\\\\\\\\\\\\\\

Const
WTRA = 550; // Enter how low health can go before resting. Must be at least 50 below your maximum health.
FishTimer = 5000; // Do NOT touch this variable.
World = 88; // Enter world you want to fish in.
PP = ''; // Enter your pin here.
OnScreenProg = 0; // 0 for an On Screen Report or 1 for no On Screen Report.
FishValue = 2235; // Enter current price of the fish you are catching.
FishType = 0; // 0 to catch Rock Tails and 1 to catch Cave Fish.
Crashing = True; // True if you are using SMART Manager or Crash Smart. False if not.

SRLStats_User = ''; /// SRL Stats Username.
SRLStats_Password = ''; /// SRL Stats Password.


/////////////////////////////// NO Touchy \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Var
x,y,RFish,CFish,bankbox,FC,Fish_Caught,Fish_XP,XP, FPH,TimeGone,P: Integer;
fshield,fdamage,fvalue: Integer;
FishCaught,FishXP,Info1,Info2,Info3,Info4,XPPH2,FP H2,FFC,FVN: String;
ToFish,ToBankBox,FSpot1,FSpot2,FSpot3,Restart,RunA wayN: TPointArray;

////////////////////////// Fill In Log In Info \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Enter your username here.
Players[0].Pass :=''; // Enter your password here.
Players[0].Nick :=''; // Enter nickname for progres report.
Players[0].Active:=True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
Players[0].WorldInfo := [False, World];
End;

////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////DO NOT TOUCH ANYTHING PAST HERE \\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure AntiBan;
Begin
Case Random(500) Of
100: SleepAndMoveMouse(500);
200: PickUpMouse;
300: RandomMovement;
400: HoverSkill('Fishing',False);
500: CompassMovement(45,90,true);
End;
End;

Procedure IfRandoms;
Begin
FindNormalRandoms;
AntiBan;
End;

Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
Var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
Begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360,71,'me');
TPH := High(TP);
For I := 0 To TPH Do
Begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
For B := 0 To High(TTP) Do
Begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
End;
End;
Canvas := TCANVAS.Create;
//Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;

Procedure OnScreenUpdate;
Begin
Begin
SRLRandomsReport;
Stats_Commit;
IncEx(Fish_Caught, FC);
IncEx(Fish_XP, XP);
TimeGone := (GetTimeRunning/1000);
FishCaught := IntToStr(Fish_Caught);
FishXP := IntToStr(Fish_XP);
FValue := (Fish_Caught*FishValue);
FVN := IntToStr(FValue)
FPH := (3600*(Fish_Caught))/((TimeGone));
FPH2 := IntToStr(FPH);
Info1 := ('Fish Caught = ' + FishCaught)
Info2 := ('Fising XP = ' + FishXP)
Info3 := ('Fish Per Hr = ' + FPH2)
Info4 := ('Money Made = ' + FVN)
End;

If (OnScreenProg=0) Then
Begin
PrintOnSmart(['Last banked at '+(TheTime)],Point(15,210),296906);
PrintOnSmart([('Time script has run ')+MsToTime(GetTimeRunning,Time_Bare)],Point(15,240),296906);
PrintOnSmart([Info1+' so '+Info3],Point(15,270),296906);
PrintOnSmart([Info2+' and '+Info4],Point(15,300),296906);
End;

Begin
Writeln('');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('You have caught ' + FishCaught + ' fish. That equals ' + FPH2 + ' fish per hour!');
Writeln('You have gained ' + FishXP + ' xp. That equals ' + XPPH2 + ' xp per hour!');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('');
End;
End;

Procedure SetDTMs;
Begin
RFish := DTMFromString('mrAAAAHic42BgYMhmYmDIBOJCIK4C4iIgzg HiRCCOBeLnQDV3gfgWlH4LxJ+B+AMQvwBij2APIMmEE3MBSXyY kQCGAQD1rAvw');
CFish := DTMFromString('mrAAAAHic42BgYLBlYmCwAmJXIPYHYg8gdg JiCyC2B2IORqAiKGYGYm4gFgJiFiD+BxRevLwASDLhxPwM+AEj AQwDAIoYBTU=');
BankBox := DTMFromString('mggAAAHicY2NgYDgJxKeheA8QbwPie0C8AI hboGJNQLwTiGcAcU91HENyuDNDWbITQ060LUNRggNDYqgjAz9Q DhtmxIEhAABB1g9T');
FShield := DTMFromString('mrAAAAHic42BgYOAFYgEg5gdiHiBmB2I+IG aBijECMRMQs0LlQOJcUBqkl9XUCS8mBBgJYBgAAK0nBH8=');
FDamage := DTMFromString('mbQAAAHicY2VgYNBmhGAdINYDYn0glgZiBS BWBmI5IJYA4nQ2NoYEPj4wns3DA6a5gPrRMSMWDAYAIPEEVA== ');
End;

Procedure FreeDTMSet;
Begin
FreeDTM(RFish);
FreeDTM(CFish);
FreeDTM(BankBox);
FreeDTM(FShield);
FreeDTM(FDamage);
End;

Function HPLevel: Integer;
Var
ColourString: String;
Begin
Result:= GetMMLevels('HP', ColourString);
End;

Procedure AllMyPaths;
Begin
ToFish := [Point(303, 303), Point(307, 323), Point(279, 363), Point(249, 404)];
ToBankBox := [Point(147, 379), Point(191, 379), Point(231, 387), Point(279, 379), Point(303, 335), Point(307, 299), Point(287, 287)];
RunAwayN := [Point(185, 385), Point(235, 385), Point(275, 370), Point(305, 330), Point(288, 287)];
FSpot1 := [Point(247, 407)];
FSpot2 := [Point(183, 400)];
FSpot3 := [Point(150, 380)];
Restart := [Point(180, 395), Point(220, 395), Point(251, 395)];
End;

Procedure HealthCheck;
Begin
If HPLevel < (WTRA) Then
Begin
If (Not FindSymbolIn(x,y,'Bank',600,60,640,100)) Then SPS_WalkPath(ToBankBox);
Writeln('Resting until hp gets back up!');
setrest;
Repeat;
If (Not LoggedIn) Then LoginPlayer;
wait(randomrange(1500,2500));
AntiBan;
Until HPLevel > (WTRA + random(49));
End;
End;

Procedure ToFishing;
Begin
HealthCheck;
SetRun(True);
MakeCompass('n');
SPS_WalkPath(ToFish);
While isMoving Do
wait(100+random(50));
IfRandoms;
End;

Function FindPulley(x, y: Integer): Boolean;
Var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.18);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6521492, MSX1, MSY1, MSX2, MSY2, 3);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 60, 60);

For I := 0 To High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 0, 0);
If(WaitUpTextMulti(['dep','osit','pul','ull','ley','lif','ift'],500)) Then
Begin
Result := True;
GetMousePos(x, y);
Break;
End;
End;
End;

Procedure Banking;
Begin
If (FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Or FindDTM(CFish,x,y,MIX1,MIY1,MIX2,MIY2)) Then
Begin
If (FindPulley(X,Y)) Then
Begin
If FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Then FC := CountItems('dtm', RFish, []) Else FC := CountItems('dtm', CFish, []);
XP := (FC*380);
FFC := IntToStr(FC);
Writeln('Trying to bank ' + FFC + ' fish!');
OnScreenUpdate;
ClickMouse2(True);
Wait(RandomRange(2250,2750));
If PinScreen Then InPin(PP);
Wait(RandomRange(1000,1250));
If (FindDTM(RFish, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(CFish, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
Mouse(x,y,3,3,False);
Wait(RandomRange(700,850));
ChooseOption('ll');
ToFishing;
End Else ToFishing;
End Else
Begin
SymbolAccuracy := 0.35
FindSymbol(x,y,'bank');
Mouse(x,y,0,0,true);
Wait(RandomRange(1000,1300));
SymbolAccuracy := 0.80
Banking;
End;
End Else ToFishing;
End;

Procedure ToBank;
Begin
SetRun(True);
MakeCompass('N');
SPS_WalkPath(ToBankBox);
While isMoving Do wait(100+random(50));
IfRandoms;
Banking;
End;

Procedure RunAwayNow;
Begin
SetRun(True);
MakeCompass('n');
Writeln('Fight detected. To the bank!');
SPS_WalkPath(RunAwayN);
While isMoving Do wait(100+random(50));
Writeln('Banking, then returning to fish!');
Banking;
IfRandoms;
End;

/// Credits to putonajonny ///
Procedure CheckFight;
Var
i: integer;
Begin
If Not InFight Then Exit;
WriteLn('Checking for fight....');
For i := 0 To 7 Do
Begin
If (FindDTM(FShield, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(FDamage, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
RunAwayNow;
Exit;
End;
Wait(200+Random(50));
End;
WriteLn('No fight detected.');
End;

Function PColor: Integer;
Var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 1.00);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 859691, MSX1, MSY1, MSX2, MSY2, 2);
If (Length(arP) = 0) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

For i := 0 to arL Do
Begin
ColorToXYZ(arC[i], X, Y, Z);

If (X >= 1.12) And (X <= 2.02) And (Y >= 1.07) And (Y <= 1.93) And (Z >= 0.45) And (Z <= 0.74) Then
Begin
Result := arC[i];
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Function IsFishing: Boolean;
Var
CTS: Integer;
TPA: TPointArray;
Begin
CTS := GetColorToleranceSpeed;
Begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07, 0.75);
FindColorsSpiralTolerance(x, y, TPA, PColor, 245, 130, 285, 195, 3);
ColorToleranceSpeed(CTS);
result := (Length(TPA) > 0);
If result Then
Exit;
End;
End;

Procedure FishingWait;
Var
T: Integer;
Begin
Marktime(T);
Repeat
CheckFight;
If IsFishing Then
Marktime(T);
If (InvCount=28) or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;
AntiBan;
IfRandoms;
Until(TimeFromMark(T) >= (FishTimer+(RandomRange(300,600))));
Exit;
End;

Function FindFishingSpot(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 to arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('ockt', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
Exit;
End;

GetMousePos(fx, fy);
End;

Function FindFishingSpotC(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 To arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('vefis', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
//Writeln('No Rocktail spot found. Relocating....');
Exit;
End;

GetMousePos(fx, fy);
end;

Procedure StartFishing;
Var
X,Y: Integer;
Begin;
CheckFight;

If (Not FindSymbol(x,y,'fish')) Then ToFishing;

If (FishType=0) Then
Begin;
If (FindFishingSpot(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;
If Not (FindFishingSpot(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

If (FishType=1) Then
Begin;
If (FindFishingSpotC(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;

If Not (FindFishingSpotC(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

IfRandoms;
End;

Procedure Relocate;
Begin;

SymbolAccuracy := 0.40;
MarkTime(P);
Repeat;
If InvFull or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;

If FindSymbolIn(x,y,'Fish',620,30,750,120) Then
Begin
HealthCheck;
WriteLn('Moving to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Fish',575,85,635,125) Then
Begin
HealthCheck;
WriteLn('Moving to spot 3...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot3);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Mine',605,60,640,90) Then
Begin
HealthCheck;
WriteLn('Back to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
If (FindFishingSpot(X, Y)) Then
Begin
SymbolAccuracy := 0.80;
StartFishing;
End Else
Begin
HealthCheck;
Writeln('Back to spot 1...');
SPS_WalkPath(FSpot1);
SymbolAccuracy := 0.80;
StartFishing;
End;
End;
Until (TimeFromMark(P) >= 5000)

IfRandoms;
End;

Procedure MainLoop;
Begin
If Not (LoggedIn) Then Exit;
SetDTMs;
MakeCompass('n');
SetAngle(0);
ToFishing;
StartFishing;
Relocate;
FreeDTMSet;
End;

Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
{$IFDEF SIMBAMAJOR980}//<--- THIS
Smart_Server := 0;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}//<--- THIS
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
{$ENDIF}
SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);
SetupSRLStats(1135, SRLStats_User, SRLStats_Password);
ActivateClient;
DeclarePlayers;
LoginPlayer;
SMART_ClearCanvas;
wait(1000);
PrintOnSmart(['A progress report will appear after banking. Good luck!'],Point(15,300),65674);
AllMyPaths;
If (Crashing = True) Then
Begin
SPS_WalkPath(ToBankBox);
Wait(500+Random(500));
Flag;
End;
Repeat;
Mainloop;
Until(AllPlayersInactive);
SMART_ClearCanvas;
OnScreenUpdate;
End.

Have many people gotten the chance to test this version that compiles and see what does and does not work? I have let my Runescape membership run out and I am not sure when I will re-up it and get back to working on scripts for Simba.

If anyone would like to post a version that works, not just compiles, then I will be more than happy to put it in the main post and give you credit for the fixes. I hope someone can get it up and running for the community!

Austin
08-15-2012, 08:32 PM
Have many people gotten the chance to test this version that compiles and see what does and does not work? I have let my Runescape membership run out and I am not sure when I will re-up it and get back to working on scripts for Simba.

If anyone would like to post a version that works, not just compiles, then I will be more than happy to put it in the main post and give you credit for the fixes. I hope someone can get it up and running for the community!


I tried kevin's version and pressed play and got this error (and yes I put the minimap picture in the OP in the right area):



Error: Exception: The bitmap[0] does not exist at line 551

The "global" tab is the one that popped up. I'm not sure what went wrong, but I'd just thought I'd let kevin and you know.

kevin33
08-15-2012, 09:52 PM
@iBlank Idk you would have to ask them. I cannot use the script cuz I cantfish rocktails on my main yet nor can I use it as I am on vacation.

@Austin: Are you using the latest version of Smart, SRL, SPS, and MSI? Try updating them all even forcing an update of each in order to try the script again and see if the error re appears. Also try to re load the script a few times as it may just be an issue that occurs once in a while during compiling.

Austin
08-15-2012, 10:02 PM
@iBlank Idk you would have to ask them. I cannot use the script cuz I cantfish rocktails on my main yet nor can I use it as I am on vacation.

@Austin: Are you using the latest version of Smart, SRL, SPS, and MSI? Try updating them all even forcing an update of each in order to try the script again and see if the error re appears. Also try to re load the script a few times as it may just be an issue that occurs once in a while during compiling.
Nope, tried what you just said. Still has the same error. I've exited and re-opened the script at least 10 times and force updated everything (which just resulted in a SmartParams error which I had to fix again). So idk what the problem is :(

kevin33
08-16-2012, 01:22 AM
Hmm wish I could look more into this but the internet at my resort sucks. It will be another week before I can do much of anything. Someone else with an idea feel free to share. May be a problem we need pushed because it covers a broader range like an issue in globals itself. If need be we can wait another day and make a seperate thread on the issue. I will continue to slowly try different things out and respond here if I come up with anything.

pickles1486
08-17-2012, 04:31 PM
I'm still getting this error:/

(41:33): Unknown identifier 'SmartGetDebugDC' at line 40
Compiling failed.

MagicClty
08-18-2012, 04:02 PM
This compiles fine but when I run it in LRC, I receive this error.

Error: Exception: The bitmap[0] does not exist at line 551

It is refering to this...


(*
GetFightBarTPA
~~~~~~~~~~~

.. code-block:: pascal

Function GetFightBarTPA(SearchArea: TBox): TPointArray;

Used in various fighting functions, including srl_InFight

.. note::

by Narcle

Example:
// This blank line is line 551 where the error occurs, it is highlighted in orange.
.. code-block:: pascal


*)
Function GetFightBarTPA(SearchArea: TBox): TPointArray;
var
T: TPoint;
H, I: integer;
Colors: TIntegerArray;
ATPA: T2DPointArray;
begin
Colors := [HP_BAR_COLOR1, HP_BAR_COLOR2];
H := High(Colors);
SetArrayLength(ATPA, H+1);
T := point((MFBox.x2+MFBox.x1) div 2,(MFBox.y2+MFBox.y1) div 2);
for i := 0 to H do
with SearchArea do
FindColorsSpiralTolerance(T.x, T.y, ATPA[i], Colors[i], X1, Y1, X2, Y2, 2);
Result := MergeATPA(ATPA);
end;

TheJudge
08-24-2012, 08:38 PM
Can't seem to get it working..


[Hint] C:\Program Files\Simba\Includes\SRL/SRL/core/antirandoms\randomtool.simba(215:3): Variable 'T' never used at line 214
[Error] C:\Program Files\Simba\Includes\SRL/SRL/misc/paintsmart.simba(42:33): Unknown identifier 'SmartGetDebugDC' at line 41
Compiling failed.

Note: I am a complete noob in this area.

vacacow1
08-26-2012, 02:06 PM
This compiles fine but when I run it in LRC, I receive this error.


It is refering to this...


You are not including the SetupSRL in the main loop

It should look like this


Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
{$IFDEF SIMBAMAJOR980}//<--- THIS
Smart_Server := 0;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}//<--- THIS
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
{$ENDIF}
SetupSRL();
SetupSRLStats(1135, SRLStats_User, SRLStats_Password);
SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);
ActivateClient;
DeclarePlayers;
LoginPlayer;
SMART_ClearCanvas;
wait(1000);
PrintOnSmart(['A progress report will appear after banking. Good luck!'],Point(15,300),65674);
AllMyPaths;
If (Crashing = True) Then
Begin
SPS_WalkPath(ToBankBox);
Wait(500+Random(500));
Flag;
End;
Repeat;
Mainloop;
Until(AllPlayersInactive);
SMART_ClearCanvas;
OnScreenUpdate;
End.

putonajonny
08-28-2012, 03:33 PM
So glad you used my function :)
Fixed this up, if you want a working version pm me...

aus tom
09-03-2012, 07:58 AM
wow ty guys i got mine to work
pretty much combine Kevin33 and vacacow1's edits and it works

Austin
09-03-2012, 11:36 PM
Just started using this today, here's a proggy:

================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
You have caught 399 fish. That equals 78 fish per hour!
You have gained 151620 xp. That equals 29642 xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================

that's @ lvl 90 fishing. Great script!

aus tom
09-04-2012, 10:27 AM
howd u get it to work mine says some shit about nav bar =(

aus tom
09-04-2012, 10:28 AM
Error: Exception: Canvas does not allow drawing at line 92
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, 4, 5, 6]

Solar
09-04-2012, 10:49 AM
howd u get it to work mine says some shit about nav bar =(

Error: Exception: Canvas does not allow drawing at line 92
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, 4, 5, 6]

Firstly, swearing is not allowed on these forums, please don't do it.
Secondly, check you have everything fully updated, and then have a look at what previous posters have said. Maybe there is already a solution.

aus tom
09-04-2012, 12:06 PM
sorry about swearing you can remove that or something i was kinda angry at the time
And I've checked all the solutions and they have the same problem

aus tom
09-04-2012, 12:10 PM
This is where the problem is

DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);

Footy
09-04-2012, 12:11 PM
I looked up your can't paint error, apparently its a bug in your simba installation. Try to force an update or reinstall, then fully update everything. If it still doesn't work, just comment out the painting procedures, they aren't necessary.
E: Double posting is also not allowed here. I suggest you look up the rules to prevent future infractions.

aus tom
09-06-2012, 06:06 AM
If anyone is able to help please help this is the error I get.


Error: Exception: Canvas does not allow drawing at line 92
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, 4, 5, 6]

print
09-06-2012, 01:49 PM
this script dont work for me for some reson

aus tom
09-08-2012, 11:42 AM
Can anyone help fix this script?

Solar
09-08-2012, 11:55 AM
Program Als_LRC_Fisher;
{$DEFINE SRL5}
{$DEFINE SMART} // Edit this line out to rn the script in your browser.
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$i SRL/SRL/misc/smartgraphics.simba}

//////////////////////// Fill The Variables Below In \\\\\\\\\\\\\\\\\\\\\\\\\\\

Const
WTRA = 550; // Enter how low health can go before resting. Must be at least 50 below your maximum health.
FishTimer = 5000; // Do NOT touch this variable.
World = 88; // Enter world you want to fish in.
PP = ''; // Enter your pin here.
OnScreenProg = 0; // 0 for an On Screen Report or 1 for no On Screen Report.
FishValue = 2235; // Enter current price of the fish you are catching.
FishType = 0; // 0 to catch Rock Tails and 1 to catch Cave Fish.
Crashing = True; // True if you are using SMART Manager or Crash Smart. False if not.

SRLStats_User = ''; /// SRL Stats Username.
SRLStats_Password = ''; /// SRL Stats Password.


/////////////////////////////// NO Touchy \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Var
x,y,RFish,CFish,bankbox,FC,Fish_Caught,Fish_XP,XP, FPH,TimeGone,P: Integer;
fshield,fdamage,fvalue: Integer;
FishCaught,FishXP,Info1,Info2,Info3,Info4,XPPH2,FP H2,FFC,FVN: String;
ToFish,ToBankBox,FSpot1,FSpot2,FSpot3,Restart,RunA wayN: TPointArray;

////////////////////////// Fill In Log In Info \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; // Enter your username here.
Players[0].Pass :=''; // Enter your password here.
Players[0].Nick :=''; // Enter nickname for progres report.
Players[0].Active:=True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins'];
Players[0].WorldInfo := [False, World];
End;

////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////DO NOT TOUCH ANYTHING PAST HERE \\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Procedure AntiBan;
Begin
Case Random(500) Of
100: SleepAndMoveMouse(500);
200: PickUpMouse;
300: RandomMovement;
400: HoverSkill('Fishing',False);
500: CompassMovement(45,90,true);
End;
End;

Procedure IfRandoms;
Begin
FindNormalRandoms;
AntiBan;
End;

Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
Var
mx, my, Pic, Pic2, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
Begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
Pic2 := BitmapFromString(360,71,'me');
TPH := High(TP);
For I := 0 To TPH Do
Begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
For B := 0 To High(TTP) Do
Begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
End;
End;
Canvas := TCANVAS.Create;
Canvas.Handle := GetDebugBitmap;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);
end;

Procedure OnScreenUpdate;
Begin
Begin
SRLRandomsReport;
Stats_Commit;
IncEx(Fish_Caught, FC);
IncEx(Fish_XP, XP);
TimeGone := (GetTimeRunning/1000);
FishCaught := IntToStr(Fish_Caught);
FishXP := IntToStr(Fish_XP);
FValue := (Fish_Caught*FishValue);
FVN := IntToStr(FValue)
FPH := (3600*(Fish_Caught))/((TimeGone));
FPH2 := IntToStr(FPH);
Info1 := ('Fish Caught = ' + FishCaught)
Info2 := ('Fising XP = ' + FishXP)
Info3 := ('Fish Per Hr = ' + FPH2)
Info4 := ('Money Made = ' + FVN)
End;

If (OnScreenProg=0) Then
Begin
PrintOnSmart(['Last banked at '+(TheTime)],Point(15,210),296906);
PrintOnSmart([('Time script has run ')+MsToTime(GetTimeRunning,Time_Bare)],Point(15,240),296906);
PrintOnSmart([Info1+' so '+Info3],Point(15,270),296906);
PrintOnSmart([Info2+' and '+Info4],Point(15,300),296906);
End;

Begin
Writeln('');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('You have caught ' + FishCaught + ' fish. That equals ' + FPH2 + ' fish per hour!');
Writeln('You have gained ' + FishXP + ' xp. That equals ' + XPPH2 + ' xp per hour!');
Writeln('========================================= ===========================');
Writeln('************************ Als LRC Fisher ****************************');
Writeln('========================================= ===========================');
Writeln('');
End;
End;

Procedure SetDTMs;
Begin
RFish := DTMFromString('mrAAAAHic42BgYMhmYmDIBOJCIK4C4iIgzg HiRCCOBeLnQDV3gfgWlH4LxJ+B+AMQvwBij2APIMmEE3MBSXyY kQCGAQD1rAvw');
CFish := DTMFromString('mrAAAAHic42BgYLBlYmCwAmJXIPYHYg8gdg JiCyC2B2IORqAiKGYGYm4gFgJiFiD+BxRevLwASDLhxPwM+AEj AQwDAIoYBTU=');
BankBox := DTMFromString('mggAAAHicY2NgYDgJxKeheA8QbwPie0C8AI hboGJNQLwTiGcAcU91HENyuDNDWbITQ060LUNRggNDYqgjAz9Q DhtmxIEhAABB1g9T');
FShield := DTMFromString('mrAAAAHic42BgYOAFYgEg5gdiHiBmB2I+IG aBijECMRMQs0LlQOJcUBqkl9XUCS8mBBgJYBgAAK0nBH8=');
FDamage := DTMFromString('mbQAAAHicY2VgYNBmhGAdINYDYn0glgZiBS BWBmI5IJYA4nQ2NoYEPj4wns3DA6a5gPrRMSMWDAYAIPEEVA== ');
End;

Procedure FreeDTMSet;
Begin
FreeDTM(RFish);
FreeDTM(CFish);
FreeDTM(BankBox);
FreeDTM(FShield);
FreeDTM(FDamage);
End;

Function HPLevel: Integer;
Var
ColourString: String;
Begin
Result:= GetMMLevels('HP', ColourString);
End;

Procedure AllMyPaths;
Begin
ToFish := [Point(303, 303), Point(307, 323), Point(279, 363), Point(249, 404)];
ToBankBox := [Point(147, 379), Point(191, 379), Point(231, 387), Point(279, 379), Point(303, 335), Point(307, 299), Point(287, 287)];
RunAwayN := [Point(185, 385), Point(235, 385), Point(275, 370), Point(305, 330), Point(288, 287)];
FSpot1 := [Point(247, 407)];
FSpot2 := [Point(183, 400)];
FSpot3 := [Point(150, 380)];
Restart := [Point(180, 395), Point(220, 395), Point(251, 395)];
End;

Procedure HealthCheck;
Begin
If HPLevel < (WTRA) Then
Begin
If (Not FindSymbolIn(x,y,'Bank',600,60,640,100)) Then SPS_WalkPath(ToBankBox);
Writeln('Resting until hp gets back up!');
setrest;
Repeat;
If (Not LoggedIn) Then LoginPlayer;
wait(randomrange(1500,2500));
AntiBan;
Until HPLevel > (WTRA + random(49));
End;
End;

Procedure ToFishing;
Begin
HealthCheck;
SetRun(True);
MakeCompass('n');
SPS_WalkPath(ToFish);
While isMoving Do
wait(100+random(50));
IfRandoms;
End;

Function FindPulley(x, y: Integer): Boolean;
Var
CTS, I: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.18);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6521492, MSX1, MSY1, MSX2, MSY2, 3);
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPA, 60, 60);

For I := 0 To High(ATPA) Do
Begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x, y, 0, 0);
If(WaitUpTextMulti(['dep','osit','pul','ull','ley','lif','ift'],500)) Then
Begin
Result := True;
GetMousePos(x, y);
Break;
End;
End;
End;

Procedure Banking;
Begin
If (FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Or FindDTM(CFish,x,y,MIX1,MIY1,MIX2,MIY2)) Then
Begin
If (FindPulley(X,Y)) Then
Begin
If FindDTM(RFish,x,y,MIX1,MIY1,MIX2,MIY2) Then FC := CountItems('dtm', RFish, []) Else FC := CountItems('dtm', CFish, []);
XP := (FC*380);
FFC := IntToStr(FC);
Writeln('Trying to bank ' + FFC + ' fish!');
OnScreenUpdate;
ClickMouse2(True);
Wait(RandomRange(2250,2750));
If PinScreen Then InPin(PP);
Wait(RandomRange(1000,1250));
If (FindDTM(RFish, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(CFish, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
Mouse(x,y,3,3,False);
Wait(RandomRange(700,850));
ChooseOption('ll');
ToFishing;
End Else ToFishing;
End Else
Begin
SymbolAccuracy := 0.35
FindSymbol(x,y,'bank');
Mouse(x,y,0,0,true);
Wait(RandomRange(1000,1300));
SymbolAccuracy := 0.80
Banking;
End;
End Else ToFishing;
End;

Procedure ToBank;
Begin
SetRun(True);
MakeCompass('N');
SPS_WalkPath(ToBankBox);
While isMoving Do wait(100+random(50));
IfRandoms;
Banking;
End;

Procedure RunAwayNow;
Begin
SetRun(True);
MakeCompass('n');
Writeln('Fight detected. To the bank!');
SPS_WalkPath(RunAwayN);
While isMoving Do wait(100+random(50));
Writeln('Banking, then returning to fish!');
Banking;
IfRandoms;
End;

/// Credits to putonajonny ///
Procedure CheckFight;
Var
i: integer;
Begin
If Not InFight Then Exit;
WriteLn('Checking for fight....');
For i := 0 To 7 Do
Begin
If (FindDTM(FShield, x, y, MSX1, MSY1, MSX2, MSY2) Or FindDTM(FDamage, x, y, MSX1, MSY1, MSX2, MSY2)) Then
Begin
RunAwayNow;
Exit;
End;
Wait(200+Random(50));
End;
WriteLn('No fight detected.');
End;

Function PColor: Integer;
Var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 1.00);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 859691, MSX1, MSY1, MSX2, MSY2, 2);
If (Length(arP) = 0) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

For i := 0 to arL Do
Begin
ColorToXYZ(arC[i], X, Y, Z);

If (X >= 1.12) And (X <= 2.02) And (Y >= 1.07) And (Y <= 1.93) And (Z >= 0.45) And (Z <= 0.74) Then
Begin
Result := arC[i];
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
End;

Function IsFishing: Boolean;
Var
CTS: Integer;
TPA: TPointArray;
Begin
CTS := GetColorToleranceSpeed;
Begin
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.07, 0.75);
FindColorsSpiralTolerance(x, y, TPA, PColor, 245, 130, 285, 195, 3);
ColorToleranceSpeed(CTS);
result := (Length(TPA) > 0);
If result Then
Exit;
End;
End;

Procedure FishingWait;
Var
T: Integer;
Begin
Marktime(T);
Repeat
CheckFight;
If IsFishing Then
Marktime(T);
If (InvCount=28) or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;
AntiBan;
IfRandoms;
Until(TimeFromMark(T) >= (FishTimer+(RandomRange(300,600))));
Exit;
End;

Function FindFishingSpot(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 to arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('ockt', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
Exit;
End;

GetMousePos(fx, fy);
End;

Function FindFishingSpotC(var fx, fy: Integer): Boolean;
Var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
Begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.10, 0.40);

If Not(FindColorsTolerance(arP, 11971492, MSX1, MSY1, MSX2, MSY2, 10)) Then
Begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
End;

SortTPAFrom(arP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arP, 10, 10);
arL := High(ararP);

For i := 0 To arL Do
Begin
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
If (waituptext('vefis', 1000)) Then
Begin;
Result := True;
Break;
End;
End;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

If (i = arL + 1) Then
Begin
//Writeln('No Rocktail spot found. Relocating....');
Exit;
End;

GetMousePos(fx, fy);
end;

Procedure StartFishing;
Var
X,Y: Integer;
Begin;
CheckFight;

If (Not FindSymbol(x,y,'fish')) Then ToFishing;

If (FishType=0) Then
Begin;
If (FindFishingSpot(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;
If Not (FindFishingSpot(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

If (FishType=1) Then
Begin;
If (FindFishingSpotC(X, Y)) Then
Begin;
wait(300+randomrange(200,400));
ClickMouse2(True);
While isMoving Do
wait(100+random(50));
Writeln('Starting to fish!');
FishingWait;
End;

If Not (FindFishingSpotC(X, Y)) Then
Begin;
Writeln('No spot found, relocating...');
End;
End;

IfRandoms;
End;

Procedure Relocate;
Begin;

SymbolAccuracy := 0.40;
MarkTime(P);
Repeat;
If InvFull or (FindNPCChatText('carry',Nothing)) Then
Begin
WriteLn('All full. Time to bank the fish!');
ToBank;
End;

If FindSymbolIn(x,y,'Fish',620,30,750,120) Then
Begin
HealthCheck;
WriteLn('Moving to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Fish',575,85,635,125) Then
Begin
HealthCheck;
WriteLn('Moving to spot 3...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot3);
While isMoving Do
wait(100+random(50));
IfRandoms;
SymbolAccuracy := 0.80;
StartFishing;
End;

If FindSymbolIn(x,y,'Mine',605,60,640,90) Then
Begin
HealthCheck;
WriteLn('Back to spot 2...');
SetRun(True);
MakeCompass('n');
SPS_WalkPath(FSpot2);
While isMoving Do
wait(100+random(50));
If (FindFishingSpot(X, Y)) Then
Begin
SymbolAccuracy := 0.80;
StartFishing;
End Else
Begin
HealthCheck;
Writeln('Back to spot 1...');
SPS_WalkPath(FSpot1);
SymbolAccuracy := 0.80;
StartFishing;
End;
End;
Until (TimeFromMark(P) >= 5000)

IfRandoms;
End;

Procedure MainLoop;
Begin
If Not (LoggedIn) Then Exit;
SetDTMs;
MakeCompass('n');
SetAngle(0);
ToFishing;
StartFishing;
Relocate;
FreeDTMSet;
End;

Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
Smart_FixSpeed := True;
SRL_SixHourFix := True;
SetupSRL;
SPS_Setup(RUNESCAPE_OTHER,['custom_lrc']);
SetupSRLStats(1135, SRLStats_User, SRLStats_Password);
ActivateClient;
DeclarePlayers;
LoginPlayer;
SMART_ClearCanvas;
wait(1000);
PrintOnSmart(['A progress report will appear after banking. Good luck!'],Point(15,300),65674);
AllMyPaths;
If (Crashing = True) Then
Begin
SPS_WalkPath(ToBankBox);
Wait(500+Random(500));
Flag;
End;
Repeat;
Mainloop;
Until(AllPlayersInactive);
SMART_ClearCanvas;
OnScreenUpdate;
End.
All compiled using http://villavu.com/forum/showthread.php?t=88578

HayHay89
09-08-2012, 12:13 PM
^ Should of just the leechers use the search button.

aus tom
09-08-2012, 12:48 PM
Thanks man for fixing I tried with that and I failed lol
brb 99 fish :D

print
09-08-2012, 04:12 PM
the top fix doesntwork something wrong with sps or soimethin

Valeyard
09-08-2012, 05:36 PM
the top fix doesntwork something wrong with sps or soimethin

Try going to Simba toolbar --> SPS --> Check for updates

rayyanurul
09-11-2012, 02:05 PM
Any one help me?whats this???

[Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms\randomtool.simba(215:3): Variable 'T' never used at line 214
[Error] C:\Simba\Includes\SRL/SRL/misc/paintsmart.simba(42:33): Unknown identifier 'SmartGetDebugDC' at line 41
Compiling failed.
[Error] C:\Simba\Includes\SRL\SRL\misc\paintsmart.simba(15 3:25): Invalid number of parameters at line 152
Compiling failed.

Austin
09-15-2012, 12:14 AM
Hey I was just using a fixed version of this script, but I tried using to day and it doesn't work now for some reason. The mouse is acting weird, like when I start it at the pulley, It clicks on the mini map, but then clicks on the black crevice near the pulley really quick, then repeats. Any ideas to why it's doing this?

EDIT: Hmm, I just noticed that I have a similar mouse issue with other scripts, like it tries to click on something put then veers to the side and clicks on something else.. idk what the issue is.

EDIT2: disregard this post, the problem is now solved

ryneslave1
09-15-2012, 07:45 AM
can any one help me with getting this to run the fishing guild spot? it loads everything ands all my skills, but it says it cant find my location ext. then goes up and just logs me out. im not sure at all how to fix.

Austin
09-15-2012, 11:26 AM
can any one help me with getting this to run the fishing guild spot? it loads everything ands all my skills, but it says it cant find my location ext. then goes up and just logs me out. im not sure at all how to fix.
Spamming is not permitted here and this script isn't meant to run at the fishing guild... actually read the thread before posting next time please. :duh:

dukenukem3d
09-16-2012, 10:38 AM
I remember paying money for this script. ty for making it public -.-

US Marine
09-16-2012, 11:52 AM
Hmm.. Im kind of curious to how much exp/h this is? Does it beat out fly-fishing?

Austin
09-16-2012, 03:37 PM
Hmm.. Im kind of curious to how much exp/h this is? Does it beat out fly-fishing?
It's about 40k xp per hour, so only a little less than fly fishing. Plus you get about 225k gp an hour

Anubis89
09-16-2012, 07:46 PM
Shit wrong thread...

Ignore what I said!

supersayian2224
09-18-2012, 02:44 PM
what's the suggested armor to wear to prevent dying?

Benny
09-18-2012, 02:48 PM
try barrows or rune

supersayian2224
09-18-2012, 05:19 PM
anyone have problems clicking the fishspot? sometimes it hovers over but doesn't click.

also, sometimes it's already fishing and it moves to a new spot.

Austin
09-18-2012, 07:02 PM
what's the suggested armor to wear to prevent dying?
Barrows if you can, rune/dragon makes you look more like a bot =/

aus tom
09-19-2012, 12:31 PM
I wear rune and have ring of life just incase
+ this script is a beast and detects being attacks unlike powerbot's LRC fisher
Thankyou for this script

krazytamalez
09-19-2012, 04:51 PM
This is great man might test it out soon :D

iBlank
09-20-2012, 12:45 AM
Make sure to read the original post! I just adding something about someone maintaining this while I am not active. Thanks!

Firestarmc
11-25-2012, 09:53 AM
is this script still able to run?

GuthixBoss1
01-08-2013, 10:06 AM
Thanks for this script. Had to spend quite a while to update to new API & SMART8, but well worth it. :D

Edit: Oh and sped up detection etc., improving clicking.

shams1485
01-12-2013, 06:05 PM
Guthixboss1 you should definately update the current script with your new one if it's truly live and running :D

iBlank
01-15-2013, 05:36 PM
Thanks for this script. Had to spend quite a while to update to new API & SMART8, but well worth it. :D

Edit: Oh and sped up detection etc., improving clicking.

It would be great if you wanted to talk to me and we could get your updated version put up. Credit can be given to you wherever you would like!


Guthixboss1 you should definately update the current script with your new one if it's truly live and running :D

I am planning on updating this soon myself if Guthix doesn't want to put his version up. Might take me a little time to make sure Simba hasn't changed too much with the updates, same goes for Runescape, but I imagine it shouldn't take me too long!

Austin
01-15-2013, 08:12 PM
It would be great if you wanted to talk to me and we could get your updated version put up. Credit can be given to you wherever you would like!



I am planning on updating this soon myself if Guthix doesn't want to put his version up. Might take me a little time to make sure Simba hasn't changed too much with the updates, same goes for Runescape, but I imagine it shouldn't take me too long!


Basically the only thing that needs to be updated are the combat related parts. I just removed them for myself (I wear good armour and have a rol ). It still sometimes logged out (I'm not quite sure why), but it would get good occasional 5-6 hour runs in. I havent used it since the LRC bans have been coming around. I'll be looking forward to a good update ;). You could look at Brandon/Ashaman 's LRC miner for some combat functions if you want. Make sure to be careful when testing though and not get banned ;).

bottertom
02-24-2013, 10:28 PM
Hey, I updated this to work with new libraries, and made a few minor changes. I know I am new to the forum, but have just returned after a few years away. If you want I can gladly share some of my changes. The biggest change is fight detection, where I look at the minimaps hitpoints and compare them to determine if I am actually in a fight. New function for that is:



Procedure CheckFight;
Var
currentHP : integer;

Begin
If Not InFight Then Exit;
currentHP := GetMMLevels('hp', tempstr);
if (currentHP<lastHP) then
Begin
lastHP := currentHP;
RunAwayNow;
Exit;
End;
Wait(200+Random(50));
lastHP := currentHP;
WriteLn('No fight detected.');
End;


And this line at your mainloop repeat block


lastHP := GetMMLevels('hp', tempstr);
Repeat;
Mainloop;
Until(AllPlayersInactive);


Finally declare the lastHP and tempstr vars at the top.

elfiik
02-28-2013, 07:38 AM
how can i fix it ?

Exception in Script: Unable to find file 'ObjectDTM\ObjDTMInclude.simba' used from 'C:\Simba\Bud's Guild Fisher ver 2.0.simba'

Ashaman88
02-28-2013, 12:02 PM
how can i fix it ?

Exception in Script: Unable to find file 'ObjectDTM\ObjDTMInclude.simba' used from 'C:\Simba\Bud's Guild Fisher ver 2.0.simba'

wrong thread

elfiik
03-01-2013, 05:06 PM
this will script wrote , when i wanna start that script

KarlLovellMusic
03-17-2013, 10:25 AM
If You Do Exactly As Instructed To Here...
You'll Be Alllllright!

Or If Your In A Rush, DL The Fixed File From The Attachments.

*WESTSIDE*
:cartman:
A Thank You Personally To BlinkBlink

decided to look over the code on what needs fixing to work...

Beginning of the code changed to this:
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/fighting.simba}
{$I SRL/SRL/MISC/SMARTGRAPHICS.SIMBA}

And the beginning of the mainloop(ending of the coding) to this:
Begin;
ClearDebug
MouseSpeed := RandomRange(18,23);
SRL_SIXHOURFIX := TRUE;
SMART_FIXSPEED := TRUE;
SetupSRL;

Then in the middle of the coding, where its the Canvas part this:

{ Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
DrawBitmap(Pic2, Canvas, 100,10);
FreeBitmap(Pic);
FreeBitmap(Pic2);}
I had saw earlier when they had done the fixing, the canvas coding can be commented out, it shouldn't affect the running script - but if you want it fixed you can see Brandons post which explains how to do it: http://villavu.com/forum/showthread.php?t=84334

Then the rest, if something is off when clicking(as in not clicking where it needs to) then that means every single "Y" coordinate in the code needs to be changed with +50 pixels. Sorry I didn't ran the script (it did compile successfully) to see if it works but this is my assumption on how it needs to be to work.

Heterodox
03-29-2013, 02:39 PM
Any idea on how to get fight detection working properly? Currently it detects ANY fight, regardless of if the player is involved or not. I could not get bottertom's fix to work; how does the application of the tempstr work?

dzpliu
03-30-2013, 07:51 AM
Any idea on how to get fight detection working properly? Currently it detects ANY fight, regardless of if the player is involved or not. I could not get bottertom's fix to work; how does the application of the tempstr work?

tempstr is a string. do not declare it as a integer.

Bunnywithagun
04-26-2013, 05:56 PM
Error: Exception: Access violation at line 376
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, SRL - Options Bitmap, 5, 6, 7, 8]

Any tips on how to fix this error?

Austin
04-29-2013, 12:11 PM
Got 99 with this a week ago :)

iBlank
05-03-2013, 01:15 AM
Got 99 with this a week ago :)

Glad to hear it. Summer is here, maybe I can get back into scripting!

chief herb
05-14-2013, 05:54 AM
Glad to hear it. Summer is here, maybe I can get back into scripting! itd be nice as im trying to go from 91 to 99 with my main. the script just needs some basic updates it functions alright. that i dont know how to do and have tried to learn
but stay up player

nBabicz
05-30-2013, 07:41 AM
This is one of the scripts that make me wish I had more scripting knowledge to fix it up so it could run. Something a lot of people would use, but seems to be a little out of date.

Peanuts
06-02-2013, 08:56 AM
This is one of the scripts that make me wish I had more scripting knowledge to fix it up so it could run. Something a lot of people would use, but seems to be a little out of date.

Read the last page before posting..

Someones posted a temp fix.

darkfire23
06-03-2013, 10:44 PM
Anybody been updating this?

Ive been having some problems with the amount of time it will sit there and fish. It finds spot 1 and caches 3-4 fish then checks amount of xp and then wanders to spot 2 when spot 1 is still there.
Im sure it isn't a major fix, but is quite annoying.
Itll also make me run away when a fight is near and im not even the one being attacked.

Any help would be greatly appreciated!

EDIT: Ran it a second time and worked pretty good for 2 hours. It kept getting confused on spot 2 and banking with only 1 fish in the inventory.

Run 3: Spot finding issue fixed. The only major bug is the fighting being too sensitive. Would also like to incorporate summoning/ familiars into this script

You have caught 57 fish. That equals 75 fish per hour!
You have gained 21660 xp. That equals xp per hour!

Run 4:
You have caught 138 fish. That equals 105 fish per hour!
You have gained 52440 xp. That equals xp per hour!
================================================== ==================
************************ Als LRC Fisher ****************************
================================================== ==================
much better without auto fighter, still workin on it

darkfire23
06-03-2013, 11:58 PM
didnt mean to post again.. lol

riannabill
06-16-2013, 05:28 PM
so it stops jumping from spot to spot if you remove autofighter?

austic
06-18-2013, 05:40 PM
I get this error:

SRL Compiled in 16 msec
SPS_GetArea ERROR: Exception: Error while reading stream: File "C:\Simba\Includes\SPS\img\runescape_other\custom_l rc.png" does not exist

What is this and could you help me fix it?

Thanatos
06-18-2013, 05:45 PM
Follow the instructions in the original post.

Put the image that is attached in Simba/Includes/SPS/img/runescape_other and name it custom_lrc

The link for the image is at the bottom of the first post. You simply need to place it in the folder described and you should be good to go.