SRL Archive - RS3 Outdated / Broken Scripts

• 1. Stand in SouthMost BankBooth
• 2. Set Variables if Needed
• 3. Start Script Logged Out for Best Results

[php]
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.00 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 6 Hours, 49 Minutes and 9 Seconds
Banked 34 Total Loads.
Fished 630 Total Shrimp so far.
Fished 127 Total Anchovie so far.
Gained Aprox. 11380 Total XP so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
[/php][php]
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 9 |
| Fight Random : 5 |
| Talking Random : 10 |
| Rick Solved : 2 |
| OldMen Solved : 4 |
| SandWich[es] Missed : 1 |
| Lamp Solved : 2 |
| Frog Missed : 1 |
| Capn Hand Solved : 1 |
| New Box Solved : 3 |
| Whirlpool found : 12 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
[/php]

—————————————————————————————————————————————–
Global Progress Report
—————————————————————————————————————————————–

A New Features Iv Been Playing with and Finally released a script that uses it instead of keeping it private is the "Global Progress Report" basicly it will save all your Banks,Runs,Shrimps,Anchovys in a Datafile to be Read at a Later Date or Posted on the Forums heres a Example

[php]
/~~~~~~~~~~~~~~~~~~~~~~~~~\
| Dankness Draynor Netter |
\~~~~~~~~~~~~~~~~~~~~~~~~~/
Total Shrimp=378
Total Anchovy=0
Total Bank=14
Total Runs=1
[/php]

—————————————————————————————————————————————–

Enjoy, and POST PROGRESS!

• for history's sake Draynor Netter v3.00 has been downloaded a total of 185 times.
• for history's sake Draynor Netter v3.35 has been downloaded a total of 285 times.

PS : This Post Format has been Stolen from WT-Fakawi :P Hey Whadda Ya Expect from abunch of Cheaters

I'm going to test this for sure. Sweet job <3.

Good discovery on the Global Progress Report. Simple, yet affective!:smile: Can I ask you how you just stumbled upon getCFGData? I've never heard of it before…

Keep it up Dankness!

!!!

Though still heavily into ores and bars - mode, if there is one script I'd trust my elite with….it's yours Dank!


!!!

From: Cheesehunk
Good discovery on the Global Progress Report. Simple, yet affective!:smile: Can I ask you how you just stumbled upon getCFGData? I've never heard of it before…

Keep it up Dankness!

GetCFGData was wriitten by RSN all it does is search the String for the char = then gets the data directly afterwards, i forgot to credit him for it :(

i keep geting this when i try to run it
[Runtime Error] : Out Of Range in line 129 in script C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Fishing.Scar
I triend to figure it out but i couldnt. Any ideas?

i got the same problem like thebomemaste

Do you have the latest version of SRL i thought i fixed that in it if not do this

Open SRL\SRL\SKILL\Fishing.SCAR with Scar

Change line 14 and 15 to look like this

    FishingItemDTM  : array [1..6] of Integer;
    FishingItemName : array [1..6] of string;

Wow, this error is traced back… to an error in SRL itself :eek: . In the include file SRL/SRL/skill/Fishing.scar on line 14 and 15 it shows :

    FishingItemDTM  : array [1..5] of Integer;
    FishingItemName : array [1..5] of string;

Meaning it has an array with 5 spots in it. While there are 6 FishingItemDTM's and 6 FishingItemNames in the include. So change these two lines to :

    FishingItemDTM  : array [1..6] of Integer;
    FishingItemName : array [1..6] of string;

or

    FishingItemDTM  : array [0..5] of Integer;
    FishingItemName : array [0..5] of string;

whichever you like more :cool: . I tested the first one, but the second one is practically the same :tongue:

thank you it works now now it says loading global stats from data file hop it wil work :)

Yep it works thanks alot guys. I wish i could help u somehow sumilion. You have been very nice and helpful to me.

:smile: It's what i do :rolleyes:

"[Runtime Error] : Exception: Access violation at address 0064FF01 in module 'scar.exe'. Read of address 00000000 in line 911 in script C:\Program Files\SCAR 2.03\Scripts\[SRL]Draynor Netter v3.scar"

How can I fix this please?

Hmm, should work… i gues, but if it really doesnt, try commenting out line 911 with // in front of the line, shouldnt make any difference i gues…

Solved. But then this happened.

[Runtime Error] : Exception: Access violation at address 0064FF01 in module 'scar.exe'. Read of address 00000000 in line 379 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar

This is line 379 on the script:

FindRegularRandoms; (the spaces are included)

What is the deal here?

Hmm… i wouldn't know actually, maybe your SRL is corrupted, or the script is… I'll test the script when your on MSN, in the mean time, let's wait on what dankness has to say about it ;)

it keeps coming up with loading global stats what that

i get that too

So do I! What's the deal with it?

From: Nova Phoenix
"[Runtime Error] : Exception: Access violation at address 0064FF01 in module 'scar.exe'. Read of address 00000000 in line 911 in script C:\Program Files\SCAR 2.03\Scripts\[SRL]Draynor Netter v3.scar"

How can I fix this please?

Set your Player Array NickName, it cant make a bitmap out of nothing sorry …


BTW Its supposed to say Loading Global Stats :P If you look in your Scar Root folder for DanknessDraynornetter.SCAR or something like that you will find a small text file with all the fish, banks and runs you have ever accomlished with this script :P Enjoy

I am enjoying it. It's been working quite good. At least until it tried to talkto the frogs, only they weren't targeting me at the time. Oh well, still does it's job which is good.

If an SRL script can be made to fish for Lobbies, then I'll be very happy. :)

From: Nova Phoenix
I am enjoying it. It's been working quite good. At least until it tried to talkto the frogs, only they weren't targeting me at the time. Oh well, still does it's job which is good.

If an SRL script can be made to fish for Lobbies, then I'll be very happy. :)

If it talkd to the frogs but wasnt targeting u then your Nickname isnt set correctly… Dont use a Nickname that is commonly said like "aka" or "hi" or "ol" or something because then it will constantly find it…

A Lobby fisher could easily be made but it would probably be released in the SRL Members scrit section as it would be to vauble and the more people that use a script the less useful and more detectable they become.

From: Dankness
If it talkd to the frogs but wasnt targeting u then your Nickname isnt set correctly… Dont use a Nickname that is commonly said like "aka" or "hi" or "ol" or something because then it will constantly find it…

A Lobby fisher could easily be made but it would probably be released in the SRL Members scrit section as it would be to vauble and the more people that use a script the less useful and more detectable they become.

Actually, a Lobby Fishing script would be more useful to me at Level 70 something Fishing. Shark fishing is still too slow at my level, but Lobster fishing is pretty good.

Unfortunately, I am unable to access the SRL Members section. But that's okay, I can understand the reason behind this. I of all people, would not want SCAR to become like Aryan: dead and useless! I just wish I knew how to program SCAR, that's all.

From: Nova Phoenix
Actually, a Lobby Fishing script would be more useful to me at Level 70 something Fishing. Shark fishing is still too slow at my level, but Lobster fishing is pretty good.

Unfortunately, I am unable to access the SRL Members section. But that's okay, I can understand the reason behind this. I of all people, would not want SCAR to become like Aryan: dead and useless! I just wish I knew how to program SCAR, that's all.

Then learn, SCAR is probably one of the easiest computer languages. So simplified. Unlike Java where you must have jdk, jre, and mess with environmental variable changes. Better yet if you already know any other languages you'll probably catch on rather quickly!

Btw, Pmg I admire your grammar. haha. xP

Looks like an excellent script, ill be testing it out tonight.

so how long does it take to learn to acutally make a rs script?

Kinda off topic, but i made an Al-Kharid smelter in 1 week. By then it was in it's beta's. It sucked and all, but it worked sometimes ;)

But then again, im a genius *-) <- type this in msn to see what i mean ;)

looks nice man ill try it :)

thanks alot i will try this :)

hmm well dont know why but my players always end up in falador somewhere?

probably one of the randoms, my character lost the net but the script stil kept on clicking the fishing area.

this works great i love it, i too have the same problem as lizhang. After the fish that eats your net and spits it out. it doesn't pick it up it just keeps clicking the fishing area. but that aside, great job.

[Runtime Error] : Exception: Access violation at address 0064FF01 in module 'scar.exe'. Read of address 00000000 in line 911 in script C:\Program Files\SCAR 2.03\Scripts\[srl] draynor netter v3..scar

help me? im new to slr, post here plz.
i read what you said about this error, but everything in the player editor that pops up is filled out, and it's all correct…what is the solution?

i get this
Failed when compiling
Line 77: [Error] (15644:11): Duplicate identifier 'FTWAIT' in script C:\Program Files\SCAR 2.03\Scripts\[SRL] Draynor Netter v3.scar

i got same error to
Line 77: [Error] (15644:11): Duplicate identifier 'FTWAIT' in script C:\Documents

im a noob, when I press play to see the username 0, password 0 etc screen what do I put in for location skill and nickname? When I did fill those in nothing happens in runescape browser after clicking ok

Yo Dark I Go TO Compile It And I Set the user then it hasdown the bottom "loading global stats from data file" and it stays like that… any ideas?

(first time i used it)

wow tyvm for realising to public ill post my progress report when i get the time to use it

Bahhh!
Error :p

Dosent compile
Duplicate identifier 'NewUser'

ty man

damn dnak ur spittin' our scripts faster than some of the noobs can spam and these are all very good quality scripts too. Your amazing!
I love you =p

Line 77: [Error] (16374:11): Duplicate identifier 'WAIT'
This what I got :(

Line 11: [Error] (16721:5): Duplicate identifier 'NewUser' in script C:\Program Files\SCAR 2.03\includes\SRL/SRL/Misc/PlayerForm.Scar

please dont double post on purose (mine was accident)
make sure you have srl 3.5 AND downlose the playerform patch 3.5 in the srl downlaod section

i get this error

[Runtime Error] : Out Of Range in line 1336 in script C:\Program Files\SCAR 2.03\Scripts\SRL Draynor Fisher.scar

Great script, but I am having a bit of an issue with it. For some reason it isn't detecting my net, in the bank or otherwise. Anyone else have this problem?

From: cts45
Great script, but I am having a bit of an issue with it. For some reason it isn't detecting my net, in the bank or otherwise. Anyone else have this problem?

you need to have the detailed net, not the one that looks like a brown square
if you have the wrong one, it usually switches when you get a loading screen

fishing.scar does need to be updated quite a bit
for example, getfishingequipmentcolor overwrites the fishing item text with "small net", which will not find the net if you lose it

i dont think ive ever seen it successfuly pick up a net, even after i fixed it :rolleyes:

theres also a few script-side problems, like it not detecting if you lose a net, or a more major one where if you have antiban on it will randomly click on the screen, preventing the player from timing out

i'll be using this a lot, so i might post an updated version
i need to get a ton of players to high fishing for my next project :wink: :wink:

hmm…doesn't seem to detect my net, like others were saying. In my experience, I checks the inventory and doesn't find anything, so it checks the bank, and finds no nets. my nets are the detailed nets. Maybe I will try on high detail and see if that changes anything. Other than that, I hope I can get this script to work.

[Runtime Error] : Out Of Range in line 1336 in script C:\Documents and Settings\Troy\Desktop\My documents\g\[SRL] Draynor Netter v3[1].35.scar

Hello, I'm still getting the new User error, help please

6 hours, 34 loads?!?! WTf that must be SLOW

Hey Dankness
can you make a different version with no player arrays and only the declare player function
its seems that my fishing player array isnt working for some reason:confused:

Edit:
never mind got that problem out of the way.
now its having a problem with New Users at Line 11
i have SRL 3.5
HELP!

I think that's because you need the new playerform patch. DownLoad that and try again.

it says that a line is out of range….what shud i do

Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1336 in script

Any idea what i can do to fix? but thnx for updating :)

This is what the script does for me when I start out with a small net in first slot of inventory and bank:

Logs me in
Goes to stat tab
goes to inventory tab
right clicks bank
hits bank quickly
sits for a little bit
closes out of bank window
logs out
searchs top right-ish side of login screen
stops.

What the heck is going on?

ill try it soon.

Line 11: [Error] (15987:5) : Duplicate identifier 'NewUser' in script c:/Program Files/Scar 2.03/Includes/SRL/SRL/Misc/PlayerForm.scar

What does this mean?

i still have a problem with the New User even after the download of the player patch

Looks nice. As soon as I go grab a net for my char Ill be testing it :Q

So whoever had the problem of their net not being detected. How did you fix it?

[Runtime Error] : Out Of Range in line 1336 in script

From: mikev
hmm…doesn't seem to detect my net, like others were saying. In my experience, I checks the inventory and doesn't find anything, so it checks the bank, and finds no nets. my nets are the detailed nets. Maybe I will try on high detail and see if that changes anything. Other than that, I hope I can get this script to work.

did you fill in the skill box with "Net" or "Lure"?? of not go do it now=) it's case sesitive i think=p

From: Larrylucky
This is what the script does for me when I start out with a small net in first slot of inventory and bank:

Logs me in
Goes to stat tab
goes to inventory tab
right clicks bank
hits bank quickly
sits for a little bit
closes out of bank window
logs out
searchs top right-ish side of login screen
stops.

What the heck is going on?

Im getting same problem:fiery:

it says:[Runtime Error] : Out Of Range in line 1336 in script
i also don't know were to set the players

plz help me i'm noobish again…
:)

thanks :p ;) =) lol :)

Failed when compiling
Line 11: [Error] (15987:5): Duplicate identifier 'NewUser' in script C:\Documents and Settings\Owner\My Documents\thomas\SCAR 2.03\includes\SRL\SRL\Misc\PlayerForm.Scar

that is the error i get and i have downloaded the SRL v3.5 but i dont think i have the players form, i cant find it plz put up a link.

tomtomsparklingstar, Version 360 is out, it should have the playerform fix included in it, try downloading that version, hope that helps, RAM

Going to give it a try, Ill get back with the Reports :D

From: kevii
So whoever had the problem of their net not being detected. How did you fix it?

Yea i get this error alot ive even tryed running in low detail high detail, with more than 1 net with nets in inventory and had no luck so idk?

i set the net to first slot 1, 1 like it says but idk

Thanks for the script and i hope you can assist me with this bug

This has been updated to v3.50, it should fix the problems with the net not being found. It also is now comptable w/ the Global Stats system and will keep track of randoms solved and what not. You will need to install the Globalstats Patch file for this to work.

i get the error…

Failed when compiling
Line 361: [Error] (18998:1): Unknown identifier 'Report Vars' in script C:\Program Files\Scar 2.03\Scripts\ [SRL] Draynor…

i have scar 2.03 and SRL v3.60

help?

From: Opal Tasty
i get the error…

Failed when compiling
Line 361: [Error] (18998:1): Unknown identifier 'Report Vars' in script C:\Program Files\Scar 2.03\Scripts\ [SRL] Draynor…

i have scar 2.03 and SRL v3.60

help?

You need to either Download and Replace your SRL/SRL/Misc/GlobalStats.Scar file which i have released a patch for this file in Download SRL Forum or you can reinstall SRL with the v3.60a which the only change is this one file.

http://www.villu-reborn.com/showthread.php?t=5453

thanks problem fixed, but now i get this error…

Failed when compiling
Line 1363: [Error] (19850:5): Unknown Identifier 'I' in script C:\Program Files\SCAR 2.30\…

sorry to bother u so much
how do i fix this?

I seem to be having the same problem aswell
Line 1363: [Error] (19850:5): Unknown Identifier 'I' in script C:\Program Files\SCAR 2.30\…

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\Scripts\[SRL] Draynor Netter v3[1].50.scar

idk wat to do i tried almost everything got any idea why its saying this

mm.. same problem with the last 3 post..

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\Scripts\Runescape\[SRL] Draynor Netter v3[2].50.scar

simply change this:

procedure SetUp;
begin
 SetUpSRL;

to this:

procedure SetUp;
var I : Integer;
begin
 SetUpSRL;

hope that helps.

this is the error mess i get when i try to run
Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\Scripts\[SRL] Draynor Netter v3.50.scar

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 1 Hours, 4 Minutes and 23 Seconds
Banked 5 Total Loads.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : ….
Number : 2
Fishing Level : 10
Levels Gained : 3
Banked : 2 times.
Location : At-Fish
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : … = False. - Lvl : 5. - B :2 Times. - : 27 mins. - Loc: At-Fish
1 : … = False. - Lvl : 7. - B :1 Times. - : 12 mins. - Loc: At-Fish
2 : … = True. - Lvl : 10. - B :2 Times. - : 0 mins. - Loc: At-Fish
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

this is my quick one i will post overnight one later

Edit: Nevermind about the error. Now I feel stupid :p

Well I'm running the script now, I'll post a proggy in a bit.

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\James\Local Settings\Temporary Internet Files\Content.IE5\BRJI5RZK\%5BSRL%5D%20Draynor%20Netter%20v3.50[1].scar

im getting this error when trying to run??

hmm….i got this when trying to run.

Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1378 in script C:\Documents and Settings\James\Local Settings\Temporary Internet Files\Content.IE5\BRJI5RZK\%5BSRL%5D%20Draynor%20Netter%20v3.50[1].scar

did you forget to setup the declare players part?

Uhh actually I'm still having the problem where it can't find the net.

It logs in, does a couple things and sets the script up, opens bank, then logs…

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 2 Hours, 10 Minutes and 6 Seconds
Banked 4 Total Loads.
Fished 80 Total Shrimp so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : *****
Number : 1
Fishing Level : 6
Levels Gained : 5
Banked : 2 times.
Location : At-Bank
Shrimp Fished : 27
Exp Gained : 270
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : ***** = False. - Lvl : 6. - B :0 Times. - : 16 mins. - Loc: No GameTab
1 : ***** = True. - Lvl : 6. - B :2 Times. - : 0 mins. - Loc: At-Bank
2 : ***** = False. - Lvl : 4. - B :1 Times. - : 42 mins. - Loc: At-Fish
3 : ***** = False. - Lvl : 4. - B :1 Times. - : 31 mins. - Loc: Sandwich Lady
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

Edit: Sorry about double post. I didn't see the one above.

thx, good job

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\Owner\Desktop\[SRL] Draynor Netter v3.50.scar

Am I doing something wrong Dank?

@ taylor: I think u accidentally edited something, try re-downloading the script, and say if it works.

@julle13, I already have, twice. I tried reinstalling SRL 3.6, but still no luck.

Anyone help please?

Line 1363: [Error] (19851:5): Unknown identifier 'I' in script

i'm really new at this so sry, but what is that and how do i fix it?

i'm having the same problem taylor

From: rscheater13
i'm having the same problem taylor

Ya ima try getting a hold on Dankness, I haven't seen him on in a while.

DANKNESS IF YOU'RE THERE, HELP!, please :)

TaylorV:spot:

ok, taylorv i found someone that already solved the problem, it tells what to fix in about the middle of page 4

nvm, fixed problem, blonde moment

  --> Version 3.25 --> by Dankness <-- 12.29.06
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|          Please Vist The SRL Forum at          |
|           [url]http://www.villu-reborn.com[/url]          |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1379 in script C:\Documents and Settings\Owner\Desktop\[SRL] Draynor Netter v3.50.scar

Any ideas?

I have same error, pm me or post here if u knoe the solution.

Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1378 in script C:\Documents and Settings\User\Desktop\Runescape Hacks\SCAR 2.03\includes\SRL\scripts\[SRL] Draynor Netter v3[1].50.scar

How do i fix this? i tried changing the 14 and 15 lines i had to change

1363 for I := 0 to 19 do
1364 ReportVars := 0; to

1363 for Y := 0 to 19 do
1364 ReportVars[Y] := 0;

just to get it to work then it fails at the problem i just posted

Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1378 in script C:\Documents and Settings\User\Desktop\Runescape Hacks\SCAR 2.03\includes\SRL\scripts\[SRL] Draynor Netter v3[1].50.scar

How do i fix this? i tried changing the 14 and 15 lines i had to change

1363 for I := 0 to 19 do
1364 ReportVars := 0; to

1363 for Y := 0 to 19 do
1364 ReportVars[Y] := 0;

just to get it to work then it fails at the problem i just posted :mad: :( :fiery: :confused:

ok

for this error: Line 1363: [Error] (19851:5): Unknown identifier 'I' in script

at top of script where u see Var's add this:

var
  I : Integer;

for this error:[Runtime Error] : Out Of Range in line 1379 in script C:\Documents and Settings\Owner\Desktop\[SRL] Draynor Netter v3.50.scar

make sure the first time u run the script, inside the section that says Procedure SetupVars; make UseGUI:=true; after u setup your players once u can make it false.

example:

//----------------------------------------------------------------------------//
//  Set Variables Here
//----------------------------------------------------------------------------//
procedure SetUpVars;
begin
 BenMouse        := True;        //**  Use Benlands Spline Mouse
 MouseSpeed      := 15;          //**  Set MouseSpeed
 TripsToDo       := 3;           //**  Amount of Trips to Do + Random 4 Trips before Switching Chars
 RandomPlayer    := True;        //**  Set to True to Pick a Random Player each Player Switch
 UseAntiBan      := True;        //**  Will Chat, Rotate Screen, Check Exp and other humanlike behavors
 ReinCarnate     := True;        //**  Set to True to Attempt Walkback on Death, Works Sometimes :P
 UseGUI          := TRUE;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
 FileName        := 'Fishing';   //**  Filename of Player Array
end;

Unkown identifier "i", script line1363… ???

From: The Miracle
Unkown identifier "i", script line1363… ???

Where are the variables are being defined, add a line that says.

var i :integer

This is a very leet script, good luck with future updating :).

This script works a treat, thanks for sharing it. It sure makes my old P3 PC grunt.

Cant fish without a

I have all the tools and everything setup..

From: Jethr0x
Where are the variables are being defined, add a line that says.

var i :integer

I also have that error what line should I put the var i integer thingy?
I made an extra line before line 1363 and put in that stuff but that then makes an error
Identifier expected in script please I really want to use this script.

<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : ********
Number : 0
Fishing Level : **
Banked : 8 times.
Location : New Box
Shrimp Fished : 89
Anchovys Fished : 84
Exp Gained : 4250

^
Thanks for the nice script

Thanks for the awsome script.
But theres just one slight problem.

Cant Fish Without a

It seems to be unable to detect the nets in my bank and logs out.
I have the nets in bank slot 1 and I have tried to figure it out for myself but I failed.

Any suggestions?

lol are u kiding? seriously…rofl the script doesnt even run it clicks in bank and log out wtf.

for a srl developper i think ur scripts are a bit shitty, i mean aint u supposed to be a scripter?:D

If u mean Dankness this script is pretty old only last update was for SRl stats,dont flame if u havent seen her any other scripts,BTW he made good edge flyfisher,draynor woodcutter.

to fix the problem when it says "cannot fish without a" and logs out, this is how I fixed it.

when you run the script and the window pops up so you can type in your user info, the last line says skill, i think, the skill is not the genie (as I thought so i put in woodcutting) it is either lure, or net

so type in lure or net in lowercase and I think you have to have it in your bank

i also had the error that it was an unknown identifier or watever "I" But they have already explained this error before this comment.


this script is awesome once I got it working but I think that Dankness could have explained it a little better, for noobs like me.

Thanks grandpajones, its working a treat now :)

thanks dude, stops working after like 20 minutes with me though =(

Line 66: [Error] (18554:1): Semicolon (';') expected in script C:\Program Files\SCAR 2.03\Scripts\downloaded\[SRL] Draynor Netter v3[1].50.scar

What does this mean. After i put the integer i thing it said this.?

It means that line needs semicolon. Maybe post line here?

   ReportVars[I] := 0;

erm… How can i fix this on line 1364
Ill also post the Variables section(If it is)

procedure SetUpVars;
begin
 BenMouse        := True;        //**  Use Benlands Spline Mouse
 MouseSpeed      := 15;          //**  Set MouseSpeed
 TripsToDo       := 3;           //**  Amount of Trips to Do + Random 4 Trips before Switching Chars
 RandomPlayer    := True;        //**  Set to True to Pick a Random Player each Player Switch
 UseAntiBan      := True;        //**  Will Chat, Rotate Screen, Check Exp and other humanlike behavors
 ReinCarnate     := True;        //**  Set to True to Attempt Walkback on Death, Works Sometimes :P
 UseGUI          := false;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
 FileName        := 'Fishing';   //**  Filename of Player Array
end;

procedure SetUpVars;
begin
BenMouse := True; //** Use Benlands Spline Mouse
MouseSpeed := 15; //** Set MouseSpeed
TripsToDo := 3; //** Amount of Trips to Do + Random 4 Trips before Switching Chars
RandomPlayer := True; //** Set to True to Pick a Random Player each Player Switch
UseAntiBan := True; //** Will Chat, Rotate Screen, Check Exp and other humanlike behavors
ReinCarnate := True; //** Set to True to Attempt Walkback on Death, Works Sometimes :P
UseGUI := false; //** Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
FileName := 'Fishing'; //** Filename of Player Array
end;

The thing has a semi colon in it! its the very beggining set up vars thing. PS: how do i get this kind of quote to look like the guys above me?

From: Hamish
I also have that error what line should I put the var i integer thingy?
I made an extra line before line 1363 and put in that stuff but that then makes an error
Identifier expected in script please I really want to use this script.

make a new line between Line 28 and 62 and put this
var i :integer;

About my problem, im such a choob,,, i missed it, i didnt put ; after integer,,, again, T3HN00BL3T=3GARRETT3

awesome, ill test this out. been looking to making a fisher so this will help out alot :p

Well, one thing I recommend is to improve the progress reports a bit.
Last time I ran it my debug had 28,756 lines of

"FindFastRandoms took:172 msec
FindFastRandoms."

So it took a while to find my progress report, but here it is.

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 2 Hours, 29 Minutes and 57 Seconds
Banked 18 Total Loads.
Fished 274 Total Shrimp so far.
Fished 213 Total Anchovie so far.

Also, this isn't very accurate, since I ran the script for 5 hours, and got close to 3k shrimps/anchovies on my 4 accounts. Otherwise it worked great. I'll be running it overnight today, so I may have a long proggy tomorrow…:)

-Dunceiam

umm just one small problem i get "Line 1363: [Error] (19851:5): Unknown identifier 'I' in script" is this easily fixed?

i had the "I" Unknown just add under the variables I:integer;
just have to declare it as a variable hope it helps

Masterdest is right, just put var I : Integer; where you declare the variables.

Ran it overnight, heres the proggy.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 6 Hours, 39 Minutes and 31 Seconds
Banked 39 Total Loads.
Fished 687 Total Shrimp so far.
Fished 262 Total Anchovie so far.


Works great, but I believe the old man stopped it, something strange was on the last line of my debug.

******** FOUND TALKING RANDOM TEXT********: Talk-to Mysterious Old Ma
FindNorMalRandoms.
Found a box, solving…
Question is:
What number is the Square
[Runtime Error] : Exception: Access violation at address 02003B0C in module 'BoxPlugin.dll'. Write of address 6979A14C in line 195 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\Box.scar

-Dunceiam

I get Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\Extra\Desktop\[SRL] Draynor Netter v3.50(2).scar

Y?

I explained how to fix that one post above yours. Please read other posts before you post.

Just put var I : Integer; where you declare your variables.

-Dunceiam

OMG I RUN DIS SCRIPT AND IT HAS AN ERROR:

Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\Scripts\Working\SRL\Test\[SRL] Draynor Netter v3.50.scar

Is there a way to fix it? Thanks.

EDIT: Um… I don;t understand where to put var I : Integer; What line? :( me script retarded

Put it between lines 1358 and 1359. So it should look like this…

procedure SetUp;
var I: Integer;
begin
SetUpSRL;
LoadSRLFishingBitMaps;
SetUpVars;
for I := 0 to 19 do
ReportVars := 0;

Everyone please read above posts before posting, to see whether your question has been answered or not already…:)

Edit–

I ran the script again, and this time it ran for 10 hours…Right now my brothers on that computer, so I'll get the proggy soon…

Alright! Here's the proggy!

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 10 Hours, 17 Minutes and 22 Seconds
Banked 85 Total Loads.
Fished 1223 Total Shrimp so far.
Fished 1232 Total Anchovie so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : ******
Number : 4
Fishing Level : 39
Levels Gained : 7
Worked for : 104 minutes.
Banked : 26 times.
Location : At-Fish
Shrimp Fished : 398
Anchovys Fished : 429
Exp Gained : 21140
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : ****** = False. - Lvl : 19. - B :4 Times. - : 38 mins. - Loc: Bank - No Small Fishing Net
1 : ******** = False. - Lvl : 33. - B :30 Times. - : 230 mins. - Loc: At-Fish
2 : ****** = False. - Lvl : 40. - B :10 Times. - : 67 mins. - Loc: No GameTab
3 : ******* = False. - Lvl : 31. - B :15 Times. - : 112 mins. - Loc: At-Fish
4 : ****** = True. - Lvl : 39. - B :26 Times. - : 104 mins. - Loc: At-Fish

Great Script…:) And if you guys didn't notice, I only used 5 players.

-Dunceiam

cool man, it works awesome i got soo many fish

mynameisjoe. The scripters like the feedback, so they can fix any bugs. So thanks for actually posting how the script worked, :). But also for the next script you test out, there's normally a Progress Report in the Debug Box. So just post that as well in the future. :p

But as the saying goes, "Better something then nothing" So thanks for replying on how it works. :)

-Dunceiam

From: Dunceiam

procedure SetUp;
var I: Integer;
begin
SetUpSRL;
LoadSRLFishingBitMaps;
SetUpVars;
for I := 0 to 19 do
ReportVars := 0;

I put this on the lines you said and it says that :

Line 1453: [Error] (19941:4): Identifier expected in script…..

What to do?:confused:

Just PM me and I'll help you get it sorted out…:)

-Dunceiam

hah i will steal ur procedure fishing :p

Dankness, not sure if you still read this topic.:) But, I've gotten a longer proggy then the one in the first post. If you want to put a longer one in, here you are…

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 10 Hours, 17 Minutes and 22 Seconds
Banked 85 Total Loads.
Fished 1223 Total Shrimp so far.
Fished 1232 Total Anchovie so far.


Just saying :p
-Dunceiam

so is this working good for you Dunceiam? because i remember i tried it, and it didnt work that well a while ago. Did you edit the script any?

From: Dunceiam
Put it between lines 1358 and 1359. So it should look like this…

procedure SetUp;
var I: Integer;
begin
SetUpSRL;
LoadSRLFishingBitMaps;
SetUpVars;
for I := 0 to 19 do
ReportVars := 0;


-Dunceiam

ok i put that in the script, but now it says

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|          Please Vist The SRL Forum at          |
|           [url]http://www.villu-reborn.com[/url]          |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1379 in script C:\Documents and Settings\Travis Orr\Desktop\[SRL] Draynor Netter v3.50.scar

how do i get rid of the runtime error?

doesnt work. it go in bank laggs close bank log out. and my fishing equip were in 1st bank slot.

ps. this isnt a autocolor script it doesnt even get the colors. nice try anyways

From: mjordan
so is this working good for you Dunceiam? because i remember i tried it, and it didnt work that well a while ago. Did you edit the script any?

@mjordan, working great for me. I have around 5k shrimps/anchovies each on all 5 of my fishing accounts. Only problems are with the randoms, and also logging back in, when I check in with the script, it's almost always at the log-in page. And in the debug it has "Logging in to Next Player" Although it never does. Oh, and I haven't edited the script a bit.
—————————————————————————————–
@Macromacro13, maybe it's a human error rather then an error in the script? For when you're setting up your players, and it says to choose your skill. You think it's the Lamp Skill right? You're wrong. :) You should either put "net" there or "fly" (Not sure on the specific word for fly-fishing). Since that's almost exactly what happened to me when I tried to start it up thinking your "Skill" was the Lamp Random.
—————————————————————————————-
@legion21, line 1379 is where, "Screen name for FIRST player in case of already logged in" It looks like NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

Also, from your post,
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Please Vist The SRL Forum at |
| <a href="http://www.villu-reborn.com" target="_blank">http://www.villu-reborn.com</a> |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users

You've set your players up wrong, since it isn't loading them, which is why you're getting the runtime error. :) You get a box to enter your players in when you run the script right?

-Dunceiam

umm when i try it run the script no box pops up telling me to put my characters in. Is there something i have to do for that ?

Maybe try putting in your runescape usernames and passwords? :p

sorry i may seem retarded but. The script says a box is suppose to come up for your usernames passwords. But no box comes up. Also like other scripts there is no place to enter your user name and password in the script so i am confused right now.

Err…? Well, did you even enter your username/password anywhere then?

-Dunceiam

nvm i fixed it. the problem was i for got to change
useGUI :=false to
useGUI :=true

Pretty simple, but major problem…:)

-Dunceiam

either this script is very vauge in directions or im just stupid. But now im having a problem where the script gets stuck "loading global stats from data file" Sorry for bothering you so much tonight but have any idea how to fix it? Also for the Location and Skill in the player set up. Do i put bank and net in those slots? Or is there something else that should go in?

Hmmm…"Loading Global Stats from Data File." I can't help you with that one, you'll have to ask a scripter for help. :) And as for the Location and skill, you can put in bank, and net. But no caps. :)

-Dunceiam

ok thanks i dont know why it gets stuck on "Loading Global Stats from Data File."
i really want to start fishing D:

i got this error
Line 1363: [Error] (19851:6): Identifier expected in script C:\Documents and Settings\

Awesome :)

Guess I'll make some fishers, run the script for a night, and test out my autocooker :p

I am receiving this error

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\[SRL] Draynor Netter v3.50.scar

here is line 1363

for I := 0 to 19 do

any help would greatly be appreciated

never mind i think i got it now read an earlier post

I ran this for a couple of nights and everything ran smoothly, but now when I run it my char just stands there and the mouse moves the lower left corner until logged out, then repeats it with the next char.

There was an update this morning, and it seems like the fish sign isn't in the view while in the bank, even when in the most southern bank slot.

=S

Otherwise great script I've gotten like 10k shrimps over the course of using this (I have used it on about four computers)

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 5 Hours, 31 Minutes and 37 Seconds
Banked 35 Total Loads.
Fished 622 Total Shrimp so far.
Fished 298 Total Anchovie so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

I know this might be a stupid question but does this script solve mysterious boxes? and if it does when does it solve them? because i have gotten 10 of them in my inventory after coming back to check on the program after 30 min.

From: seaking
I ran this for a couple of nights and everything ran smoothly, but now when I run it my char just stands there and the mouse moves the lower left corner until logged out, then repeats it with the next char.

There was an update this morning, and it seems like the fish sign isn't in the view while in the bank, even when in the most southern bank slot.

I don't think that would affect the scripts effectiveness since it first clicks on the rock near the fishing spots, then it clicks on the fishing spot. So as long as the rock is still visible, it'll work.

From: aran armath
I know this might be a stupid question but does this script solve mysterious boxes? and if it does when does it solve them? because i have gotten 10 of them in my inventory after coming back to check on the program after 30 min.

Well, it should solve them, the only thing I can think of would be when you were settling up SRL, there were options, "Solve RandomBox?" and you may have put False for those…?


-Dunceiam

I got another stupid question is there a way to set this script up to log out when it cant find the fishing spot or the bank symbol that sort of thing and then log in another account

I am getting this error

[Runtime Error] : Out Of Range in line 1379 in script C:\Program Files\SCAR 2.03\Scripts\runescape\[SRL] Draynor Netter v3.50.scar

Can somebody Give me some information how to fix this?

thanks in advance.

~zertoyah

it wont find my net even thow i have 1 in my inventory and another in my bank help plz

From: rjbk1989
it wont find my net even thow i have 1 in my inventory and another in my bank help plz

whats the script say? we need more info if you want help ;)

When you set-up your players, and it asks for your "skill" either type in "net" or "lure" Net is to net fish in draynor, while lure is to walk to the goblins and fish trout and salmon…

-Dunceiam

Hmm it seems that I have a diffuclt error to fix, nonody knows how to fix it :(
… shit happens welcome to earth :p

These are lines 1378-1388.

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.
SymbolAccuracy:= 0.6;
SetColorsHere;
MarkTime ( CalibrateTimer );
MarkTime ( SST1 );
MarkTime ( SST2 );
LoginPlayer;
FindRS;
ActivateClient;
SetColorsIfNeeded;
end;

This is where it used your player info I believe. So you must have done something wrong when stting up your players…Either that, or try downloading the script again.

-Dunceiam

I dint, I just downloaded it again and repaired the "I"bug or something with adding var I: Integer; to the script behind line 1358. besides to this I dint do a thing.

Can you post exactly what it said in your debug box?

-Dunceiam

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\Nathan 2\Desktop\[SRL] Draynor Netter v3.50(2).scar

Read Above Posts!

I've explained how to fix that almost 6 times. Go to Page 7-8

-Dunceiam

Ill Try it, see what i get. :) Hopfully I wont find any bug, give u some good news :P

This is my bug report

User specified a new RS window
Successfully compiled
Line 174: [Hint] (201:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar
SRL Compiled in 968msec.
Total Runs : 1
________
\______ \____________ ___.__. ____ ___________
| | \_ __ \__ \< | |/ \ / _ \_ __ \
| ` \ | \// __ \\___ | | ( <_> ) | \/
/_______ /__| (____ / ____|___| /\____/|__|
\/ \/\/ \/
_______ __ __
\ \ _____/ |__/ |_ ___________
/ | \_/ __ \ __\ __\/ __ \_ __ \
/ | \ ___/| | | | \ ___/| | \/
\____|__ /\___ >__| |__| \___ >__|
\/ \/ \/
–> Version 3.25 –> by Dankness <– 12.29.06
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Please Vist The SRL Forum at |
| http://www.villu-reborn.com |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users
[Runtime Error] : Out Of Range in line 1379 in script C:\Program Files\SCAR 2.03\Scripts\runescape\[SRL] Draynor Netter v3.50.scar

Only thing I changed to the script is fixing the "I" error.

You didn't fill out your player forms correctly, hence…

"Loaded 0 users from Fishing.srl
Wrote 0 users to Fishing.srl
There is 0 active users"

-Dunceiam

theres an unknown identifier in it, you guys also have got that problem??
I made it, but you guys have got that problem to??

You didn't fill out your player forms correctly, hence…

The player information screen isnt coming, I get this error before that! so I cannot give player information. And I dont see where I need to pum y name in the script.

From: zertoyah
The player information screen isnt coming, I get this error before that! so I cannot give player information. And I dont see where I need to pum y name in the script.

I remember this problem before, you want to turn "UseGui" to true.

BenMouse        := True;        //**  Use Benlands Spline Mouse
 MouseSpeed      := 15;          //**  Set MouseSpeed
 TripsToDo       := 35;           //**  Amount of Trips to Do + Random 4 Trips before Switching Chars
 RandomPlayer    := True;        //**  Set to True to Pick a Random Player each Player Switch
 UseAntiBan      := True;        //**  Will Chat, Rotate Screen, Check Exp and other humanlike behavors
 ReinCarnate     := True;        //**  Set to True to Attempt Walkback on Death, Works Sometimes :P
 [B]UseGUI          := True;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File[/B] FileName        := 'Fishing';   //**  Filename of Player Array

And the scar noob, do you mean the I:integer problem?

-Dunceiam

Oke done that, I get the player screen now.

But I enter my user name password and nickname, location I did Bank ? and skill Fishing.

And then pressed OK but nothing happens..

You did your skill wrong. If you want to net you put "net" as your skill. If you want to fly-fish you put, "lure"

-Dunceiam

Dunceiam , thanks for helping me out. I have given you credits for this.
Thanks again.

No problem. :)

-Dunceiam

[Runtime Error] : Out Of Range in line 1379 in script C:\Program Files\SCAR 2.03\Scripts\[SRL] Draynor Netter v3.50.scar

WTF,this don't work for me…

Well, take a look at line 1379.

NickNameBMP   := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.

Even if you have no scripting knowledge, you can still figure it out.

Hmmmm, so even you can figure out that it's using your Player Info. So have you said, "true" to UseGui? And have you even entered in your players? :)

I believe I answered this a couple pages earlier. Please try to skim the thread before posting your problems.

-Dunceiam

And where do i setup the players?Which line?

If you turn "UseGui" to "true". Then when you press Play on the script, a window should pop up asking you for your Player Set-up.

Note: When it asks for your skill, "net" is to net fish, and "lure" is to walk to Lumbridge to fly fish.

-Dunceiam

Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Program Files\SCAR 2.03\Scripts\[SRL] Draynor Netter v3.50.scar

Not sure how to fix that.

Thanks +rep for you :D

This stucks after it did the first movement:Here is the debug box:

Loaded 2 users from Fishing.srl
Wrote 2 users to Fishing.srl
There is 2 active users
Finding Road Color…
Finding Water Color…
Finding Rock Color…
Road Color MM : 4803152
Water Color MM : 10844002
Rock Color MM : 3619628
Finding Bank Color…
Bank Color MM : 5035503
Fishing Equipment Color : 3356736
Fishing Equipment Name : net
FindNorMalRandoms.
FindNorMalRandoms took:203 msec
FindFastRandoms.
FindFastRandoms took:328 msec
FindFastRandoms.
FindFastRandoms took:172 msec
FindFastRandoms.
FindFastRandoms took:188 msec
FindFastRandoms.
FindFastRandoms took:359 msec
FindFastRandoms.
FindFastRandoms took:172 msec
FindNorMalRandoms.
FindNorMalRandoms took:1484 msec
FindFastRandoms.
FindFastRandoms took:375 msec
FindFastRandoms.
FindFastRandoms took:344 msec
FindFastRandoms.
FindFastRandoms took:172 msec
FindFastRandoms.
FindFastRandoms took:172 msec
FindNorMalRandoms.
FindNorMalRandoms took:4360 msec
FindFastRandoms.
FindFastRandoms took:172 msec
Successfully executed

Why does it do that?I'm not stabbed by any random…

Ok I got it nevermind. Sorry for that.

:( i have the same problem the script starts and log in and i puted my fishing net in the first slot but he dont pick it up can any one help please

Bara, when you set your skill, either say, "net" or "lure".

And kingofptw, it says that because it's checking for randoms. I guess trying it in a different world, as it may have not gotten the rock color/water collor correct.

Cutter, it's okay. Just be sure to read other posts before posting…:)

-Dunceiam

yes ive already doned this but nothing he dont get my net out of the bank ill try it again please if there is a solution or any tip for it

Try putting your net in your inventory instead of bank.

-Dunceiam

it finally works ty man but if he lose the net he will stuck again ????? and have he a full antirandom??????


30min after trying:
when he go back to bank he open the bank both and then he wait a while then he try to click on the inventory icon ….and he keep trying…. i stopped the script goes back to scar i found a messege saying :
couldnt find the bank. Exiting
please help

3hours after:
ohh the problem is solved now , he didnt wont to work because i was using a client but now it works great he has only one problem he dont go back from lumbridge on dead.

second day trying:
lvl 23 fishing :
trying to fish trout problem he dont get feathers out of bank if some one can help he has any problem with me now only the feathers problem the walk a²nd walk back are great .

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\DOCUME~1\Mike\LOCALS~1\Temp\[SRL] Draynor Netter v3.50-1.scar
whats this

Same error as dude above me

Guys, I've explained how to fix this error about 10 times. Please read previous posts before posting!

Simply change this:

procedure SetUp;
begin
 SetUpSRL;

To this:

procedure SetUp;
var I : Integer;
begin
 SetUpSRL;

So just put var i :integer; between procedure SetUp; and begin

-Dunceiam

Dang… fixed that other error and now look at this error!
[Runtime Error] : Out Of Range in line 1379 in script
I am sending you my script Dunceiam, hopefully you could fix any noob mistake I made =/

-Harry

Failed when compiling
Line 1363: [Error] (19525:5): Unknown identifier 'I' in script

I dont understand what this means…

I get this problem…Can someone help me plz?

[Runtime Error] : Out Of Range in line 1379 in script C:\Program Files\SCAR 3.0\Scripts\[SRL] Draynor Netter v3.50.scar

Thanks…sorry i'm new to this..So i wouldn't know how 2 fix :(

I'll test out. Do you want me to post a proggy?

I get this error.

Failed when compiling
Line 1363: [Error] (19525:5): Unknown identifier 'I' in script C:\Documents and Settings\Unknown Rawr\Desktop\[SRL] Draynor Netter v3.50.scar

How fix?

I've answered this problem many times…Pleast read the last page or the one before it, or the one before that to get the solutions to your problems. As for the Runtime Error, I suggest redownloading the script, as I never get that problem.

-Dunceiam

Hey, does anyone know what to put for the location? Thanks for anyone that can help

Bank would probably work…:)

Hey dunceiam can you help me? When i log in with my account it serches for fishing eqipment by opening the bank…Once opended it has an error cant find bank…Then it does that over and over… This is debug box:

Try starting with your character at the Southern-most booth. If it says that it can't find fishing equipment, then when you enter in your "Skill" say either lure or net.

-Dunceiam

Hey dunceiam,

I am sorry for all the questions but i am a noob at this and i need all the help i can get. I got the auto to fish a whole load but when it goes to the bank it opens it but says "error can't find bank". If you could tell me how to fix this that would be great. This auto looks very nice and i've set up 10 characters to use it. Kudos for helping everyone. I appreciate and i hope everyone else appreciates it too. Thanks again for your time and help. By the way i am using eliteswitch if that has anything to do with the problem please tell me. ^_^

No problem, thats what I'm here to do :).

I would suggest trying it without EliteSwitch. Since I've never gotten that problem, and I've never used EliteSwitch. I've sent you my script, which should work. Also, are you using SCAR 2.03, or SCAR Divi?

-Dunceiam

I'm using scar 2.03..i have all divi version's tho….Also i am using your script…I have 5 level 3's…the first character i use always ges a fighting random and dies..It never runs away..And the character doesn't log out (from what i've seen) I don't know why :( am i doingsomething wrong?

I also got this new error!

[Runtime Error] : Out Of Range in line 1379 in script C:\Documents and Settings\Unknown Rawr\Desktop\[SRL] Draynor Netter v3.50.scar

Zodia, are you getting the box that you set-up your players popping up?

cooldude, I don't know…It should run away with randoms, and it should log out. Is your computer lagging?

-Dunceiam

From: Dunceiam
Zodia, are you getting the box that you set-up your players popping up?

cooldude, I don't know…It should run away with randoms, and it should log out. Is your computer lagging?

-Dunceiam

Sadly no I am not getting the box.

No, i have a good internet connection..I don't know why…:( thanks for your help anyways.

I still don't know how to get the box.

this aint workin right for me here is the error code =
Successfully executed
Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script
and here is the lines = //—————————————————————————-//
// Main Loop
//—————————————————————————-//
procedure SetUp;
begin
SetUpSRL;
LoadSRLFishingBitMaps;
SetUpVars;
for I := 0 to 19 do
ReportVars := 0;

ScriptID := '6';
i hope someone can help me?
ok i read earlier posts now ^^ but can u just post edited version that works?

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report –> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 42 Minutes and 24 Seconds
Banked 5 Total Loads.
Fished 60 Total Shrimp so far.
Fished 43 Total Anchovie so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Name : XXXXXXXXXXX
Number : 0
Fishing Level : 32
Levels Gained : 2
Banked : 5 times.
Location : Lost
Shrimp Fished : 60
Anchovys Fished : 43
Exp Gained : 2320
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
0 : XXXXXXXXXX = True. - Lvl : 32. - B :5 Times. - : 0 mins. - Loc: Lost
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random : 2 |
| OldMen Solved : 1 |
| Frog Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Not Bad It Might Be Better If I Pick My Own Colours Ill Try But A Very Nice Script!

Zodia, you need to set a UseGUI to true. Then you will have a box that pops up.

Jahiti, here's the script.

Everyone Please Try This Script Before Posting Problems!

//----------------------------------------------------------------------------//
//---> Ultimate Draynor Netter
//--->              by Dankness
//----------------------------------------------------------------------------//
//---> Instructions
//--->   1)  Start Script at Draynor Bank
//--->   2)  Start Script Logged Out
//--->   3)  Adjust Setup in Lines 66-73
//--->   4)  Press Start and SetUp Player Array
//----------------------------------------------------------------------------//
//--->   a)  Make Sure you have Fishing Equipment in Bank Slot 1,1
//--->   b)  if Feather Fishing Keep feathers on First Bank Page
//----------------------------------------------------------------------------//
//---> Credits to
//--->   WT-Fawaki     -> Thanks for your Ideas and Help
//--->   SRL Dev Team  -> Thanks for Helping SRL become the Best Include
//----------------------------------------------------------------------------//

program DraynorNetFisher;

{.include SRL\SRL.Scar}
{.include SRL\SRL\Skill\Fishing.Scar}
{.include SRL\SRL\Misc\DraynorColorFinder.Scar}
{.include SRL\SRL\Misc\PlayerForm.Scar}

//----------------------------------------------------------------------------//

var
  FishSpotDTM, NetDTM, FeatherDTM, DB1, DB2, DB3 : Integer;

var
  bmpBridge : Integer;

var
  ShrimpDTM, AnchovieDTM, SalmonDTM, TroutDTM : Integer;

var
  FishingWaitTime, FishColor, Trips, TripstoDo : Integer;

var
  TotalShrimp, TotalAnchovies, TotalSalmons, TotalTrouts : Integer;

var
  GlobalShrimp, GlobalAnchovie, GlobalSalmon, GlobalTrout : Integer;

var
  GlobalBanks, GlobalRuns : Integer;

var
  CalibrateTimer, FindFastRandomsTime : Integer;

var
  SST1, SST2, FindNormalRandomsTime : Integer;

var
  UseGUI, UseAntiBan : Boolean;

var
  dFile, FishingText : string;

//----------------------------------------------------------------------------//
//  Set Variables Here
//----------------------------------------------------------------------------//
procedure SetUpVars;
begin
 BenMouse        := True;        //**  Use Benlands Spline Mouse
 MouseSpeed      := 15;          //**  Set MouseSpeed
 TripsToDo       := 35;           //**  Amount of Trips to Do + Random 4 Trips before Switching Chars
 RandomPlayer    := True;        //**  Set to True to Pick a Random Player each Player Switch
 UseAntiBan      := True;        //**  Will Chat, Rotate Screen, Check Exp and other humanlike behavors
 ReinCarnate     := True;        //**  Set to True to Attempt Walkback on Death, Works Sometimes :P
 UseGUI          := True;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
 FileName        := 'Fishing';   //**  Filename of Player Array
end;

//----------------------------------------------------------------------------//
//  Set Colors Here if Having Problems With AutoColor Picker
//----------------------------------------------------------------------------//

procedure SetColorsHere;
begin
 BankColor       := 0;           //**  Bank Color on MiniMap             ** Leave at Zero to Autoset
 FishColor       := 0;           //**  Color of the Fish Logo on Minimap ** Leave at Zero to autoset
 RockColor       := 0;           //**  Color of the Rock on Minimap      ** Leave at Zero to autoset
 WaterColor      := 0;           //**  Color of the Water on Minimap     ** Leave at Zero to autoset
 RoadColor       := 0;           //**  Color of the Road on Minimap      ** Leave at Zero to autoset
end;

//----------------------------------------------------------------------------//

procedure DankDebug ( S : string );
begin
  writeln ( S );
end;

//----------------------------------------------------------------------------//

//----------------------------------------------------------------------------//
//---> AntiRandom Procedures
//----------------------------------------------------------------------------//

var EvilChicken, EvilChickens : Integer;

function FindEvilChicken: Boolean;
var CX, CY : Integer;
begin
  if ( EvilChicken = 0 ) then
    EvilChicken := CreateBitmapMaskFromText('egone,', UpChars);
  if FindName then
   if FindBitmapMaskTolerance( EvilChicken, CX, CY, 3, 3, 515, 336, 0, 40) then
   begin
     Result := True;
     EvilChickens := EvilChickens + 1;
     DankDebug('******** FOUND EVIL CHICKEN RANDOM ********');
     WriteFileString(TheFile, '******** FOUND EVIL CHICKEN RANDOM ********' +chr(13))
   end;

end;

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8:  if FindEvilChicken then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'FindEvilChicken';
             RunAwayDirection('n');
             repeat
               wait(1000+random(2000));
               Logout;
             until not (loggedin);
             Exit;
           end;
     9: begin
           if InBlack then
           begin
             if ( SolveFrog ) then Exit;
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
    end;
    wait(1);
  end;
end;

//----------------------------------------------------------------------------//
//---> Waits while Checking for Randoms;
//----------------------------------------------------------------------------//
procedure DankFTWait ( Time : Integer );
var T, I : integer;
begin
  try

    T := Time div 3;
    for I := 1 to 3 do
    begin
      Wait ( T );
      FindTalk;
    end

  except

    begin
      Wait ( Time );
      FindTalk;
    end;

  end;

  FindFastRandoms;
  MarkTime(FindNorMalRandomsTime);
  if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
  begin
    DankDebug('FindNorMalRandoms.');
    FindNorMalRandoms;
    MarkTime(SST1);
    DankDebug('FindNorMalRandoms took:'+IntToStr(SST1-FindNorMalRandomsTime)+' msec');
  end;

  MarkTime(FindFastRandomsTime);
  if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
  begin
    DankDebug('FindFastRandoms.');
    FindFastRandoms;
    MarkTime(SST2);
    DankDebug('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
  end;
end;

//----------------------------------------------------------------------------//
//  DTMs and General Variables
//----------------------------------------------------------------------------//
procedure SetFishingStyle;
begin
 case LowerCase ( Players[CurrentPlayer].Skill ) of
    'net' : begin
              FishingText     := 'Net';
              FishingWaitTime := 3500;
              NetDTM          := FishingItemDTM[1];
            end;
   'lure' : begin
              FishingText     := 'Lure';
              FishingWaitTime := 7000;
              NetDTM          := FishingItemDTM[3];
            end;

  end;
end;

procedure LoadDTMs;
begin
  bmpBridge := BitmapFromString(2, 11, 'z78DA737574B5703335B7' +
       '347536747605B34DCD8D8D0DDCCC9DCDCC0D5DC96313439A5B9A1' +
       '91B3A434800B13D1D24');

  DB1 := DTMFromString('78DA636C67626008664001FFFFFF67F80FA41' +
       '921ECFF8CB54035DEA86AFEFC61621081AA0101C63A4C73B0AA09' +

       'C7AF06000153117B');
  DB2 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8C3540353EA86AFEFC61621081AA0101C63AA09A1022D4' +
       '44E057030001B5117D');

  DB3 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8CF540359EA86AFEFC61621081AA0101C63AA09A40026A' +
       '6A816A42F1AB010000781176');

  FishSpotDTM :=  DTMFromstring('78DA63FCC4C0C070910105CC38F086410E483'  +
       '342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE'  +
       '831204');

  AnchovieDTM := DTMFromString('78DA632C64626078CA800232329A194480342' +
       '394CF580E547317554D71F10454354540356F51D5F4F46E425593' +
       '0154F398805D5540358F18D000238A1A00484D0D11');

  ShrimpDTM := DTMFromString('78DA632C606260E062644006299E160C22401' +
       'A26CA980154C389AA665E671DAA9A6AA01A665435CB26B4A0AA29' +
       '04AA114455737EFF361435003AE608D8');

  SalmonDTM := DTMFromString('78DA639CCDC4C0F08C0105CC4E0E671001D28' +
       'C503EE30CA09A57A86A0ED7E6A3AA590854F31455CDFEAA1C5435' +
       '73806A1EA1AA4977B242510300BD7E0BF4');

  TroutDTM := DTMFromString('78DA632C626260E0616440067B366D621001D' +
       '23051C61CA01A7E543547F7ED4355530E54C381AA66DDA245A86A' +
       '4076B1A3AAA92C2C4051030009CD0A03');

  FeatherDTM := DTMFromString('78DA632C65626078CC800276AC5BCB2002A41' +
       '9A17CC642A09A67A86A0EEFDE85AAA61CA8E61EAA1A060D064C73' +
       '9E1350530654F304BF7B0074B60DDD');

end;

const Ver     = 'v3.50';
const VerDate = '12.29.06';

//----------------------------------------------------------------------------//
//---> Reads Data from CFG File based on procedure by RSN
//----------------------------------------------------------------------------//

function getCFGData(dName : String): String;
var
  tString: String;
begin
  Result := '';
  tString := dName + '=';
  if(Pos(tString, dFile) = 0)then
    Exit;
  Result := dFile;
  Delete(Result, 1, Pos(tString, dFile));
  Result := Copy(Result, Length(tString), Pos(Chr(13), Result) - Length(tString));
end;

//----------------------------------------------------------------------------//
//--->  Loads Global Stats from DataFile
//----------------------------------------------------------------------------//

procedure LoadGlobalStats;
var aFile : Integer;
begin
  Status ( 'Loading Global Stats from Data File');
  aFile := OpenFile ( AppPath + 'DanknessDraynorNetter.DAT', False);
  if(aFile < 0)then
    Exit;

  ReadFileString(aFile, dFile, FileSize(aFile));

  GlobalShrimp   := StrToInt ( getCFGData ( 'Total Shrimp' ));
  GlobalAnchovie := StrToInt ( getCFGData ( 'Total Anchovy' ));
  GlobalTrout   := StrToInt ( getCFGData ( 'Total Trout' ));
  GlobalSalmon  := StrToInt ( getCFGData ( 'Total Salmon' ));
  GlobalBanks    := StrToInt ( getCFGData ( 'Total Bank' ));
  GlobalRuns     := StrToInt ( getCFGData ( 'Total Runs' ));

  GlobalRuns     := GlobalRuns + 1;

  CloseFile(aFile);
end;

//----------------------------------------------------------------------------//
//--->  Saves Global Progress Report Stats
//----------------------------------------------------------------------------//

procedure SaveGlobalStats;
var aFile : Integer;
begin
  Status ('Saving Progress Report Stats to Stat Data File');
  aFile := ReWriteFile ( AppPath + 'DanknessDraynorNetter.DAT', False);
  if(aFile < 0)then
    Exit;
  WriteFileString(aFile,'/~~~~~~~~~~~~~~~~~~~~~~~~~\' + Chr ( 13 ));
  WriteFileString(aFile,'| Dankness Draynor Netter |' + Chr ( 13 ));
  WriteFileString(aFile,'\~~~~~~~~~~~~~~~~~~~~~~~~~/' + Chr ( 13 ));
  WriteFileString(aFile, 'Total Shrimp='  + IntToStr( GlobalShrimp + TotalShrimp ) + Chr(13));
  WriteFileString(aFile, 'Total Anchovy='  + IntToStr( GlobalAnchovie + TotalAnchovies ) + Chr(13));
  WriteFileString(aFile, 'Total Trout='  + IntToStr( GlobalTrout + TotalTrouts ) + Chr(13));
  WriteFileString(aFile, 'Total Salmon='  + IntToStr( GlobalSalmon + TotalSalmons ) + Chr(13));

  WriteFileString(aFile, 'Total Bank='  + IntToStr( GlobalBanks ) + Chr(13));
  WriteFileString(aFile, 'Total Runs='  + IntToStr( GlobalRuns ) + Chr(13));
  CloseFile(aFile);

end;

//----------------------------------------------------------------------------//
//   Title Screen
//----------------------------------------------------------------------------//

procedure Intro;
var a:string; i:integer;
begin
  LoadGlobalStats;
  ReportVars[10] := ReportVars[10] + 1;
  Writeln('                                    Total Runs : ' + IntToStr ( GlobalRuns ));
  WriteLn ( '________' );
  WriteLn ( '\______ \____________  ___.__. ____   ___________' );
  WriteLn ( ' |    |  \_  __ \__  \<   |  |/    \ /  _ \_  __ \' );
  WriteLn ( ' |    `   \  | \// __ \\___  |   |  (  <_> )  | \/' );
  WriteLn ( '/_______  /__|  (____  / ____|___|  /\____/|__|' );
  WriteLn ( '        \/           \/\/         \/' );
  WriteLn ( ' _______          __    __' );
  WriteLn ( ' \      \   _____/  |__/  |_  ___________' );
  WriteLn ( ' /   |   \_/ __ \   __\   __\/ __ \_  __ \' );
  WriteLn ( '/    |    \  ___/|  |  |  | \  ___/|  | \/' );
  WriteLn ( '\____|__  /\___  >__|  |__|  \___  >__|' );
  WriteLn ( '        \/     \/                \/' );
  WriteLn ('  --> Version 3.25 --> by Dankness <-- '+VerDate);
  A := '/';
  for I := 1 to 48 do A := A + '~';
  A := A + '\';
  writeln(a);
  a:='|';
   for I := 1 to 10 do A := A + ' ';
  A := A + 'Please Vist The SRL Forum at';
  for I := 1 to 10 do A := A + ' ';
  A := A + '|';
  writeln(a);
  WriteLn ('|           http://www.villu-reborn.com          |');
  a:='\';
  for I := 1 to 48 do A := A + '~';
  A := A + '/';
  Writeln ( A );
  Wait( 500 + Random (500));
end;

//----------------------------------------------------------------------------//
//   Auto Color Detection Procedures
//----------------------------------------------------------------------------//

procedure CouldNotFindColors;
begin
  WriteLn ('ERROR, script could not find colors, please run the script again'
  +' or set your own colors.');
  TerminateScript;
end;

procedure SetColorsIfNeeded;
var C : Integer;
begin
// PerfectNorth;
 if ( ReinCarnate ) then
  begin
   Dankdebug ('Finding Road Color...');
   repeat
      C:=C+1;
      wait(100);
      FindDraynorRoadColor(588,39,617,71);
   until (C>100) or (RoadColor<>0);

   Dankdebug ('Finding Water Color...');
   C:=0;
   repeat
      C:=C+1;
      wait(100);
      FindDraynorWaterColor;
   until (C>100) or (WaterColor<>0);

   Dankdebug ('Finding Rock Color...');
   C:=0;
   repeat
      C:=C+1;
      wait(100);
      FindDraynorRockColor;
   until (C>100) or (RockColor<>0);
   writeln('Road Color MM           : '+inttostr(RoadColor));
   writeln('Water Color MM          : '+inttostr(WaterColor));
   writeln('Rock Color MM           : '+inttostr(RockColor));
   if (( RoadColor = 0 ) or ( WaterColor = 0 ) or ( RockColor = 0)) then
     begin
       ReinCarnate := False;
       WriteLn ('Could Not Find Colors for WalkBack Please Stand at Lowest Bank Slot and Align MiniMap to North and Restart Script/Change Worlds');
       WriteLn (' Script will Work Without Walkback Function.');
   end;
 end;

 Dankdebug ('Finding Bank Color...');
 if ( BankColor = 0 )then begin
  Status ( 'Finding bank color please Wait...');
  while ( BankColor = 0 ) do
   begin
    C := C + 1;
    if ( BankColor = 0 )then BankColor := GetSymbolColor ( x, y, 'bank');
    if (  C > 20 ) then CouldNotFindColors;
    Wait ( Random ( 50 ) + 500);
   end;
  end;
 WriteLn ( 'Bank Color MM           : ' + IntToStr ( BankColor));
end;

procedure SetFishColorIfNeeded;
var C : Integer;
begin
 if ( FishColor = 0 )then begin
  Status('Finding Fish Logo color please Wait...');
  while ( FishColor = 0 )do
   begin
    C := C + 1;
    if( FishColor = 0 )then FishColor := GetSymbolColor ( x, y, 'fish');
    if ( C > 20 ) then Couldnotfindcolors;
    Wait( Random ( 50 ) + 500 );
   end;
  WriteLn ('Fish Color MM           : '+ IntToStr ( Fishcolor ));
 end;
end;

//----------------------------------------------------------------------------//

Function FindLumbridgeRoadColor: Integer;
var CastleFloor, FX, FY, d: Integer;
var Found: Boolean;
begin
  CastleFloor  := BitmapFromString(8, 8, 'z78DA333334753475341B2507' +
       '880400B5B154C1');
  if ( not ( LoggedIn )) then Exit;
  while (D < 85)  do
     begin
      D := D + 5;
     If FindBitMapToleranceIn(CastleFloor, FX, FY, 580, 50, 600, 80, D) then
        begin
        RoadColor:=GetColor(FX, FY);
        Writeln('FindLumbridgeRoadColor Road Color : ' + inttostr(RoadColor));
        Found := True;
        Result := RoadColor;
        break;
        end
     end
  FreeBitMap ( CastleFloor );
end;

//----------------------------------------------------------------------------//

Function FindFurnaceRoadColor: Integer;
var bmpRoad, FX, FY, d: Integer;
var Found: Boolean;
begin
  bmpRoad := BitmapFromString(8, 8, 'z78DA333334B53475341B250' +
       '788040035A252C1');
  if ( not ( LoggedIn )) then Exit;
  while (D < 85)  do
     begin
      D := D + 5;
     If FindBitMapToleranceIn(bmpRoad, FX, FY, 580, 50, 600, 80, D) then
        begin
        RoadColor:=GetColor(FX, FY);
        Writeln('FindLumbridgeRoadColor Road Color : ' + inttostr(RoadColor));
        Found := True;
        Result := RoadColor;
        break;
        end
     end
  FreeBitMap ( bmpRoad );
end;
//----------------------------------------------------------------------------//
//**  Location Functions
//----------------------------------------------------------------------------//

function WeAreAtBank : Boolean;
begin
  if ( FindSymbol ( x, y, 'bank' )) or ( FindMMColor ( x, y, BankColor )) then
   begin
     Players[CurrentPlayer].Loc := 'Draynor Bank';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreAtFish : Boolean;
begin
  if ( FindSymbol ( x, y, 'fish' )) or ( FindMMColor ( x, y, FishColor )) then
   begin
     Players[CurrentPlayer].Loc := 'At-Fish';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreInLumbridgeCastle: Boolean;
var WX, WY:integer;
begin
if ( (FindSymbol(x,  y,  'water'))  and  (not FindColor(WX, WY, WaterColor, MMX1, MMY1, MMX2, MMY2)) ) then
   begin
     Players[CurrentPlayer].Loc := 'Lumbridge';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreAtFurnace : Boolean;
begin
 if ( FindSymbol ( x, y, 'furnace') ) then Result := True;
end;

//----------------------------------------------------------------------------//

procedure FindRegularRandoms;
begin
  FindNormalRandoms;
end;

//----------------------------------------------------------------------------//
//  Walkback From Lumbridge procedures Based On WT-Fawkis Procedures
//----------------------------------------------------------------------------//
procedure WalkLumbridgeFishtoDraynor;
var RX, RY : Integer;
begin
   PerfectNorth;
   SetRun ( False );
   if ( not ( LoggedIn )) then Exit;

   if ( WeAreAtFish ) then begin
     if ( FindMMColor ( X, Y, FishColor )) then
       Mouse( X, Y , 4, 4, True );
     Flag;

     MarkTime ( Mark );
     repeat
//       AngleWalker ( 0, 10 );
       MouseFlag ( MMCX + Random ( 5 ), MMCY - 15, 1, 1);
       Flag;
       DankFTWait ( 100 );
       FindRegularRandoms;
       if(TimeFromMark(Mark) > 60000) then begin Logout; Exit; end;
       if ( not ( LoggedIn )) then Exit;
     until ( WeAreAtFurnace );

     SetRun ( True );
     if ( WeAreAtFurnace ) then
       MouseFindFlag ( X + Random ( 5 ), Y - ( 35 - Random ( 5 )), 1, -1 );

     DankFTWait ( 2000 + Random ( 500 ));
     repeat
       DankFTWait ( 100 );
       if ( not ( LoggedIn )) then
         Exit;
     until ( FlagPresent );

     Flag;
     SetRun ( False );

     if ( not ( FindColor ( RX, RY, RoadColor, MMX1, MMY1, MMCX, MMY2 ))) then
       if ( FindFurnaceRoadColor = 0 ) then
       begin
         Players[CurrentPlayer].Loc := 'NoRoadColor';
         LogOut;
         Exit;
       end;

   end;

   Dankdebug ('Walking to First Rock');
   MarkTime(Mark);
   Repeat
      if not(Loggedin) then Exit;
      if(TimeFromMark(Mark) > 60000) then begin Logout; Exit; end;
      RadialRoadWalk(RoadColor, 360, 260, 40, 1, 1);
      FindRegularRandoms;
//   Until FindColor(RX, RY, RockColor, MMX1+10, MMY1+10, MMX2-10, MMY2-10);
   Until ( FindSymbol ( RX, RY, 'quest' ) or FindSymbol ( RX, RY, 'water' ) or FindSymbol ( RX, RY, 'churn' ));
   MarkTime(Mark);
   SetRun(True);
   Dankdebug ('2 Runs Past the Chicken Pen');
   RadialRoadWalk(RoadColor,200,300,60,-1,1);
   RadialRoadWalk(RoadColor,200,300,60,-1,1);
   Dankdebug ('Walking to Second Rock');
   Repeat
      if not(Loggedin) then Exit;
      if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
      RadialRoadWalk(RoadColor,200,350,40,1,-1);
      FindRegularRandoms;
   Until FindColor(RX,RY,RockColor,MMX1+30,MMY1+30,MMX2-30,MMY2-30);

   Dankdebug ('Walking to 200-350 Degrees');
   SetRun(False);
   RadialRoadWalk(RoadColor,200,350,60,1,-1);

   Dankdebug ('Walking to BankColor');
   MarkTime(Mark);
   Repeat
      if not(Loggedin) then break;
      if(TimeFromMark(Mark)>900000) then begin Logout; Exit; end;
      FindRegularRandoms;
      RadialRoadWalk(RoadColor,120,320,40,-1,1);
   Until FindColor ( x, y, BankColor, MMX1, MMY1, MMX2, MMY2 );
   Flag;

   Mouse (X, Y, 3, 3, True);
   if (not(loggedin)) then exit;
end;

//----------------------------------------------------------------------------//

procedure WalkLumbridgetoDraynor;
var R : Integer;
begin

  MakeCompass ('N');
  MarkTime ( Mark );

  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
  Until WeAreInLumbridgeCastle;

  RoadColor := 0;
  if ( FindLumbridgeRoadColor = 0 ) then
  begin
    Writeln(' Could Not Find RoadColor');
    Players[CurrentPlayer].Loc := 'Lumbridge';
    LogOut;
    Exit;
  end;

  if ( WeAreInLumbridgeCastle ) then
    begin
      if ( FindLumbridgeRoadColor = 0 ) then
      begin
        LogOut;
        Players[CurrentPlayer].Loc := 'Lumbridge';
        Exit;
      end;

      PerfectNorth;
      LinearRoadWalk(RoadColor, 90, 80, -1, 0);
      Flag;
      RadialRoadWalk(RoadColor, 370, 220, 72, 0, 1);
      for R := 1 to 2 do
        RadialRoadWalk(RoadColor, 370, 220, 60, 0, 1);
    end;

end;

//----------------------------------------------------------------------------//

Procedure WalkDraynorToLumbridge;
var RX,RY:integer;
Begin
  Players[CurrentPlayer].Loc:='DraynorToLum';

  if ( not ( FindColor ( RX, RY, RoadColor,  MMX1, MMY1, MMX2, MMY2 ))) then
    FindDraynorRoadColor(588,39,617,71);

  RadialWalk(RoadColor,430,320,65,-1,-1);
  CountFlag ( 10 );
  DankDebug ('Walking to Rock Color');
  MarkTime ( Mark );
  Repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialWalk(RoadColor,430,0,40,1,-1);

    CountFlag ( 10 );
    FindRegularRandoms;
  Until FindColor(RX,RY,RockColor,MMX1+30,MMY1+30,MMX2-30,MMY2-30);
  FFlag(10);

{  MarkTime(Mark);
  DankDebug ('Walking to Quest Symbol');
  Repeat
    if not ( Loggedin ) then Break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialRoadWalk(RoadColor,430,320,60,-1,-1);
    FindRegularRandoms;
  Until FindSymbol ( RX, RY, 'quest' );
  Wait ( 500 + Random ( 400 ));
  Flag;

  MarkTime(Mark);
  DankDebug ('Walking Away from Quest Symbol');

  Repeat
    if not ( Loggedin ) then Break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialRoadWalk(RoadColor,430,320,60,-1,-1);
    FindRegularRandoms;
  Until (not FindSymbol ( RX, RY, 'quest' ));
  FFlag(10);
}

  MarkTime(Mark);
  DankDebug ('Walking to Lumbridge River');
  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
    if FindColor(x,y,WaterColor,680,65,701,71) then Break;
    RadialRoadWalk(RoadColor,170,30,50,-1,-1);
    FindRegularRandoms;
  until FindColor(x,y,WaterColor,640,10,722,61);

  DankDebug ('Walking to Deformed bmpBridge');
  MarkTime(Mark);
  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
    RadialRoadWalk(RoadColor,80,180,40,0,-1);
  until ( FindSymbol ( RX, RY, 'furnace' ));
  Flag;

  repeat
    DankFTWait ( 100 );
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
  until ( FindSymbol ( RX, RY, 'furnace' ));

  MouseFindFlag ( RX + Random ( 5 ), RY - 35 + Random ( 5 ), -1, -1 );
  Flag;
//  until ( FindDeformed ( X, Y, bmpBridge, MMCX, MMCY - 40, MMX2, MMY2 ));

  if ( not ( FindSymbol ( RX, RY, 'fish' ))) then
  begin
    MouseFindFlag ( MMCX + 30, MMCY, 1, 1 );
//    AngleWalker ( 90, 30 );
    Flag;
  end;

  SetFishColorIfNeeded;
  If ( WeAreAtFish ) then
    Mouse ( X, Y, 3, 3, True );
  FFlag ( 10 );
  if ( FindColor ( X, Y, FishColor, MMX1, MMCY + 20, MMX2, MMY2 )) then
    Mouse ( X, Y, 3, 3, True );
  FFlag ( 10 );
end;

//----------------------------------------------------------------------------//
//  Walking Procedures for Draynor Net Fishing
//----------------------------------------------------------------------------//

procedure WalkDraynortoBank;
begin
  MakeCompass ('N');
  Status ( 'Walking to Bank' );
  if ( not ( LoggedIn )) then Exit;
  Mouse( 665, 43, 5, 2, True);
  Flag;
  Players[CurrentPlayer].Loc  :='Walk-Bank';
  if ( FindMMColor ( X, Y, BankColor )) then
    Mouse ( X, Y, 3, 3, True );
  Flag;
end;

procedure WalkDraynorBankToFish;
var RR : Integer;
begin
  MakeCompass ('N');
  Status ( 'Walking to Fish' );
  RR := Random ( 11 );
  if ( RR = 3 ) or ( RR = 5 ) or ( RR = 8 ) then
    SetRun ( True );
  if ( not ( LoggedIn )) then Exit;
  Players[CurrentPlayer].Loc  :='Walk-Fish';
  MakeCompass ( 'N' );
  Mouse( 649, 123, 5, 5, True);
  FFlag ( 10 );
  SetFishColorIfNeeded;
  MarkTime ( Mark );
  Repeat
    if not ( Loggedin ) then Exit;
    if(TimeFromMark(Mark)>240000) then begin Logout; Exit; end;
    DankFTWait ( 100 + Random ( 100 ));
  Until ( FindMMColor ( x, y, FishColor ));
  Mouse( x, y, 4, 4, True);
  FFlag ( 10 );
  Players[CurrentPlayer].Loc  :='At-Fish';
end;

//----------------------------------------------------------------------------//
procedure WalkToBanker;
begin
 MarkTime ( Mark );
 repeat
   DankFTWait ( 100 );
   if ( TimeFromMark ( Mark ) > 90000 ) then
   begin
     Players[CurrentPlayer].Loc :='Lost';
     LogOut;
     Exit;
   end;
 until ( DTM3Flag ( DB1, DB2, DB3, True ));
 Flag;
end;

//----------------------------------------------------------------------------//
//  FindRandoms Procedure
//----------------------------------------------------------------------------//

procedure PlayDead;
begin
  if (GetColor(30, 418) = 0) and (GetColor(72, 429) = 0) then
  begin
    Deaths:=Deaths+1;
    if Reincarnate then
      WalkLumbridgetoDraynor
        else
      begin
        Players[CurrentPlayer].Loc  := 'Died';
        Players[CurrentPlayer].Active := False;
        Logout;
      end;
  end;
end;

//----------------------------------------------------------------------------//

procedure Callibrate;
var CX, CY : integer;
begin
  if ( TimeFromMark ( CalibrateTimer ) >= 900000 + Random ( 45000 ) ) then
  begin
    PerfectNorth;
    MarkTime ( CalibrateTimer );
    CX := MMCX;  CY := MMCY;
    if ( FindColorSpiral ( CX, CY, FishColor, MMX1, MMY1, MMX2, MMY2 )) then
      Mouse ( CX, CY, 5, 5, True );
    Flag;
  end;
end;

//----------------------------------------------------------------------------//

function LostNetText : Boolean;
begin
  Result := FindNpcChatText ( 'need a Net' );
end;

//----------------------------------------------------------------------------//
//---> Basic AntiBan Protection Stolen from Fawkis Rats
//----------------------------------------------------------------------------//

Procedure AntiBanStuff;
 var
 DBanMe : Integer;
  begin
   DBanMe:= Random(50);
    case DBanMe of
     1: RandomRClickEvery(2 + Random(8));
     2: HoverSkill('random', false);
     3: RandomChatEvery(10 + Random(5));
     4: RotateEvery(20 + Random(10));
     5: LeaveScreenEvery(5 + Random(5));
     6: HoverEvery(15 + Random(5),'fishing');
     8: PickUpMouse;
     9: BoredEvery(9 + Random(24));
     10: DragItem(2, 1+Random(18));
     11: GameTab(1 + Random(12));
     12: DoEmote(1 + Random(20));
   end;
   FindTalk;
end;
//----------------------------------------------------------------------------//

procedure FindRandoms;
begin
  if ( not ( LoggedIn )) then Exit;
  if LostNetText then FindFishingEquipment;
  FindRegularRandoms;
  PlayDead;
  Callibrate;
  HoverEvery ( 20 + Random ( 10 ), 'fishing');
  if (UseAntiBan) then
    AntiBanStuff;
  if ( FindFight ) then begin
    SetRun ( True );
    RunTo ( 'E' , False );
    DankFTWait ( 5000 + Random ( 3000 ));
    if ( not ( FindMMColor ( x,y, FishColor ))) then RunTo ( 'W', False );
    if ( FindMMColor ( x, y, FishColor )) then Mouse ( x, y, 5, 5, True );
    FFlag ( 10 );
  end;
  if ( NoGameTab or InBlack or FindNewBox ) then LogOut;
end;

//----------------------------------------------------------------------------//
//  Walking Procedures
//----------------------------------------------------------------------------//

procedure WalkToBank;
begin
  case ( LowerCase ( Players[CurrentPlayer].Skill )) of
    'net'  : WalkDraynortoBank;
    'lure' : WalkLumbridgeFishtoDraynor;
  end;
  if ( not ( LoggedIn )) then Exit;
  WalkToBanker;
end;

//----------------------------------------------------------------------------//

procedure WalkToFish;
begin
  case ( LowerCase ( Players[CurrentPlayer].Skill )) of
    'net'  : WalkDraynorBankToFish;
    'lure' : WalkDraynorToLumbridge;
  end;
end;
//----------------------------------------------------------------------------//
//  Fishing Procedures
//----------------------------------------------------------------------------//

function CheckFeathers : Boolean;
begin
 if ( LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' ) and
    ( not ( FindInvDTM ( X, Y,  FeatherDTM ))) then Result := True;
end;

//----------------------------------------------------------------------------//

function DoneFishing : Boolean;
begin
 if ( InventoryFull ) then Result := True;
 if ( not ( LoggedIn )) then Result := True;
 if ( not (FindFishingEquipment )) then Result := True;
 if ( CheckFeathers ) then Result := True;
end;

//----------------------------------------------------------------------------//

function FindFish : Boolean;
var CX, CY : Integer;
begin
 if ( LoggedIn ) then Begin
   Result:= False;
   If ( FindDtmIn ( CX, CY, FishSpotDTM, 12, 12, MSX2, MSY2 )) then
      MMouse ( CX, CY, 5, 5);
   Result := Option2( FishingText );
   Mouse ( CX, CY, 5, 5, True );
 end;
end;

procedure FindFishingSpot;
begin
 if ( LoggedIn ) then Begin
    if ( DoneFishing ) then Exit;
    MarkTime ( Mark );
    repeat
      Status('Waiting Until Fishing Spot Appears');
      DankFTWait ( 300 + Random ( 300 ));
      FindRandoms;
      HoverEvery ( 3 + Random ( 3 ), 'fishing' );
      if ( DoneFishing ) then
        Exit;
      if ( TimeFromMark ( Mark ) > 900000 ) then Logout;
      if ( not ( LoggedIn )) then
        Exit;
    until ( FindFish ) or ( DoneFishing );
  end;
end;

//----------------------------------------------------------------------------//
//  Banking Procedures
//----------------------------------------------------------------------------//

procedure WithdrawFeathers;
begin
  if ( FindMsDTM ( X, Y, FeatherDTM ) ) then
  begin
    Mouse ( x, y, 5, 5, False );
    ChooseOption ( x, y, 'Withdraw X' );
    MarkTime ( Mark );
    repeat
      Wait ( 100 + Random ( 250 ) );
      if ( TimeFromMark ( Mark ) > 60000 ) then
      begin
        LogOut;
        Players[CurrentPlayer].Loc := 'Bank Timeout';
        Exit;
      end;
    until ( not ( GetColor ( 145, 434 ) = 0 ) );
    Wait ( 250 + Random ( 100) );
    TypeSend ( '26' + Chr ( 13 ) );
  end;
end;

//----------------------------------------------------------------------------//

procedure WithdrawNet;
begin
  if ( BankScreen ) and ( not ( FindInvDTM ( X, Y,  NetDTM ))) then
    begin
      if ( FindMsDTM ( X, Y,  NetDTM )) then Mouse ( x, y, 5, 5, True );
      Wait ( 500 + Random ( 500 ));
      CloseBank;
    end;
end;

procedure DepositFish;
var TempCounter,TempCount,ShrimpCount,AnchovyCount,TroutCount,SalmonCount : Integer;
begin

 if ( FindInvDTM ( X, Y,  ShrimpDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse (x, y, 5, 5, False);
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  Shrimpcount := TempCount - TempCounter;
  TotalShrimp := TotalShrimp + ShrimpCount;
  ReportVars[0] := ReportVars[0] + ShrimpCount;
  Players[CurrentPlayer].Level[6] := Players[CurrentPlayer].Level[6] + ShrimpCount;
  Status('Caught ' + IntToStr ( TotalShrimp ) + ' Shrimp[s] so far.');
 end;

 if ( FindInvDTM ( X, Y,  AnchovieDTM ) ) then
 begin
  TempCount := InventoryCount;
  Mouse ( x, y, 5, 5, False );
  Wait ( 250 + Random ( 100));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  AnchovyCount := TempCount - TempCounter;
  TotalAnchovies := TotalAnchovies + AnchovyCount;
  ReportVars[1] := ReportVars[1] + AnchovyCount;
  Players[CurrentPlayer].Level[12] := Players[CurrentPlayer].Level[12] + AnchovyCount;
  Status ('Caught ' + IntToStr ( TotalAnchovies ) + ' Anchovy[s] so far.');
 end;
 if ( FindInvDTM ( X, Y,  SalmonDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse (x, y, 5, 5, False);
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  ReportVars[2] := ReportVars[2] + SalmonCount;
  Salmoncount := TempCount - TempCounter;
  TotalSalmons := TotalSalmons + SalmonCount;
  Players[CurrentPlayer].Level[2] := Players[CurrentPlayer].Level[2] + SalmonCount;
  Status('Caught ' + IntToStr ( Players[CurrentPlayer].Level[2] ) + ' Salmon[s] so far.');
 end;
 if ( FindInvDTM ( X, Y,  TroutDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse ( x, y, 5, 5, False );
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  ReportVars[3] := ReportVars[3] + TroutCount;
  TroutCount := TempCount - TempCounter;
  TotalTrouts := TotalTrouts + TroutCount;
  Players[CurrentPlayer].Level[3] := Players[CurrentPlayer].Level[3] + TroutCount;
  Status ('Caught ' + IntToStr ( Players[CurrentPlayer].Level[3] ) + ' Trout[s] so far.');
 end;

end;

//----------------------------------------------------------------------------//

Function SimpleBank:Boolean; // Stolen from Fawki's Lumby Miner
var sx,sy,dx,dy,Mark2,Tries:integer;
begin
  SX:=MSCX-20; SY:=MSCY;
  repeat
    sx:=Sx-3;
    sy:=sy-10+Random(10);
    MMouse(sx, sy, 0, 0);
    if IsUpTextMulti('e Bank','Booth','ooth') then
    begin
      GetMousePos(Dx, Dy);
      Mouse(Dx, Dy, 0, 0, False);
      if ChooseOption(Dx, Dy, 'uickly')  then
      begin
        MarkTime(Mark2);
        repeat
          Wait(10);
          if TimeFromMark(Mark2) > 20000 then
           begin
             writeln('couldnt find the bank. Exiting');
             Exit;
           end;
        until BankScreen;
      end;
    Result := True;
    Exit;
    end;
    wait(1);
    Tries:=Tries+1;
  until(tries >6)
end;

//----------------------------------------------------------------------------//

procedure Bank;
begin
 WalkToBanker;

 Flag;
 DankFTWait ( 500 + Random ( 500 ));

 if not SimpleBank then
 begin
   MarkTime(Mark);
   repeat
     if (not(Loggedin)) then  break;
     OpenBankQuiet( 'db' );
     SendArrowSilentWait( ((Random(2) * 2) + 1), 30 + Random(20) );
   until(BankScreen or (TimeFromMark(Mark) > 120000));
 end;

 Flag;
 Wait ( 500 + Random ( 500 ));
 if  ( BankScreen ) then begin
  FixBank;
  Players[CurrentPlayer].Loc  :='At-Bank';
  Status('Depositing Fishes');
  DepositFish;
  Deposit( 2, 28, 2);
  if ( not ( FindInvDTM ( X, Y,  NetDTM ))) then
    begin
      Deposit( 1, 28, 2);
      WithdrawNet;
    end;
  Wait ( 400 + Random ( 200 ));
  if LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' then
    withdraw(2,1,26);
//    WithdrawFeathers;
  Wait ( 1000 + Random ( 500 ));
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  Banks  := Banks + 1;
  Trips  := Trips + 1;
  GlobalBanks := GlobalBanks + 1;

  SaveGlobalStats;
  CloseBank;
  Wait ( 500 + Random ( 500 ));
  CloseBank;
  FindTalk;
  Gametab ( 2 );
  Wait ( 200 + Random ( 100 ));
  Players[CurrentPlayer].Level[17] := GetSkillLevel ( 'fishing' );
  GameTab ( 4 );
  Wait ( 500 + Random ( 500 ));
  if LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' then
    if ( not( FindInvDTM ( X, Y,  FeatherDTM ) ) ) then
    begin
      Writeln('Cant fish without feathers');
      Players[CurrentPlayer].Loc  :='No-Feathers';
      Logout;
      Exit;
    end;

  if not ( FindFishingEquipmentColor ) then
    begin
      Writeln(Players[CurrentPlayer].Name + ' is Out of Nets');
      Players[CurrentPlayer].Loc  :='No-Nets';
      Logout;
      Exit;
    end;
 end else begin
  Writeln(Players[CurrentPlayer].Name + ' is Lost to Bank Booth');
  Players[CurrentPlayer].Loc  :='Lost';
  logout;
  exit;
 end;
end;

//----------------------------------------------------------------------------//
//  Progress Reports
//----------------------------------------------------------------------------//

procedure PlayerStats;
var Active: string;
var I : Integer;
begin
  I := ( ( Players[CurrentPlayer].Level[12] * 40 ) + ( Players[CurrentPlayer].Level[6] * 10 ));
  I := I + (( Players[CurrentPlayer].Level[3] * 50 ) + ( Players[CurrentPlayer].Level[2] * 70 ));

  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn ('  Name            : '+ Players[CurrentPlayer].Name);
  WriteLn ('  Number          : '+ IntToStr (CurrentPlayer));
  WriteLn ('  Fishing Level   : '+ IntToStr (Players[CurrentPlayer].Level[17]));
  if (Players[CurrentPlayer].Level[17] > Players[CurrentPlayer].Level[1]) then
    WriteLn ('  Levels Gained   : '+ IntToStr (Players[CurrentPlayer].Level[17] - Players[CurrentPlayer].Level[1]) );
  if (Players[CurrentPlayer].Worked > 0 ) then
    WriteLn ('  Worked for      : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
  WriteLn ('  Banked          : '+ IntToStr (Players[CurrentPlayer].Banked) + ' times.');
  WriteLn ('  Location        : '+ Players[CurrentPlayer].loc);
  if ( Players[CurrentPlayer].Level[6] > 0 ) then
    WriteLn ('  Shrimp Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[6] ));
  if ( Players[CurrentPlayer].Level[12] > 0 ) then
    WriteLn ('  Anchovys Fished : '+ IntToStr ( Players[CurrentPlayer].Level[12] ));
  if ( Players[CurrentPlayer].Level[2] > 0 ) then
    WriteLn ('  Salmon Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[2] ));
  if ( Players[CurrentPlayer].Level[3] > 0 ) then
    WriteLn ('  Trout  Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[3] ));
  if ( I > 0 ) then
    WriteLn ('  Exp Gained      : '+ IntToStr ( I ));

  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  for i := 0 to HowManyPlayers-1 do
   begin
     if Players[I].Active=True then Active := 'True' else Active := 'False';

     WriteLn ( ( IntToStr ( I )) + ' : '+ Players[I].Name + ' = ' + Active + '. - Lvl : ' + IntToStr ( Players[I].Level[17])+
        '. - B :'+IntToStr (Players[i].Banked)+' Times.'+
        ' -  : '+IntToStr (Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
   end;
  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;

procedure ProgressReport;
begin
  WriteLn ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  Writeln ('|      Draynor Netter '+ Ver +' Progress Report                --> by Dankness     |');
  Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn ('  Worked for '+ TimeRunning);
  WriteLn ('  Banked '+IntToStr ( Banks ) + ' Total Loads[s].');
  if ( TotalShrimp > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalShrimp ) + ' Total Shrimp[s] so far.');
  if ( TotalAnchovies > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalAnchovies ) + ' Total Anchovie[s] so far.');
  if ( TotalSalmons > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalSalmons ) + ' Total Salmon[s] so far.');
  if ( TotalTrouts > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalTrouts ) + ' Total Trout[s] so far.');
  if ( EvilChickens > 0 ) then
    writeln('  Evil Chickens '+inttostr(EvilChickens));
  SRLRandomsReport;
  PlayerStats;
end;

//----------------------------------------------------------------------------//
procedure CheckStuff;
var FishingItemText : String;
begin

// MakeCompass('n');
 SetFishingStyle;
 Gametab( 2 );

 if Players[CurrentPlayer].Level[1] = 0 then Players[CurrentPlayer].Level[1]:=GetSkillLevel ('fishing');
 Players[CurrentPlayer].Level[17] := GetSkillLevel ('fishing');

 if ( Players[CurrentPlayer].Skill = 'lure' ) and ( Players[CurrentPlayer].Level[17] < 20 ) then
 begin
   WriteLn ( Players[CurrentPlayer].Name + ' Needs Atleast 20 Fishing to Fly Fish');
   Logout;
   Exit;
 end;

 Status ( 'Checking for Fishing Equipment');
 GameTab ( 4 );

 if ( FindInvDTM ( X, Y,  NetDTM )) then
    FindFishingEquipmentColor
  else
    Begin
      if not SimpleBank then OpenBankQuiet ('db');
      Flag;
      Wait ( 1000 );
      if ( not ( BankScreen )) then
      begin
        MarkTime(Mark);
        repeat
          if not ( Loggedin ) then Exit;
          if(TimeFromMark(Mark)>60000) then begin Logout; Exit; end;
          OpenBankQuiet ('db');
        until (BankScreen);
      end;

      Wait ( 1500 + Random ( 500 ));
      FixBank;
      WithDrawNet;
      if ( Players[CurrentPlayer].Skill = 'net'  ) then FishingItemText := 'Small Fishing Net';
      if ( Players[CurrentPlayer].Skill = 'lure' ) then FishingItemText := 'Fly Fishing Rod';
      if ( FindInvDTM ( X, Y,  NetDTM )) then
        if (FindFishingEquipmentColor) then Exit;
      Players[CurrentPlayer].Loc := 'Bank - No '+FishingItemText;
      WriteLn ('Cant fish without a '+FishingItemText);
      Logout;
      Exit;
   end;

end;

//----------------------------------------------------------------------------//
//  Main Loop
//----------------------------------------------------------------------------//
procedure SetUp;
var i :integer;
begin
 SetUpSRL;
 LoadSRLFishingBitMaps;
 SetUpVars;
 for I := 0 to 19 do
   ReportVars[I] := 0;

 ScriptID       := '6';

 Intro;
 LoadDtms;
 if ( UseGUI) then
   SetupPlayers
  else
   begin
     LoadSettings;
     SaveSettings;
     HowManyPlayers := GetArrayLength ( Players );
   end;
 NickNameBMP   := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.
 SymbolAccuracy:= 0.6;
 SetColorsHere;
 MarkTime ( CalibrateTimer );
 MarkTime ( SST1 );
 MarkTime ( SST2 );
 LoginPlayer;
 FindRS;
 ActivateClient;
 SetColorsIfNeeded;
end;


begin
 SaveGlobalStats;
 SetUp;
 repeat
  CheckStuff;

  if ( LoggedIn ) then
    if WeAreAtBank then WalkToFish;

  FindRandoms;

  repeat
       if ( DoneFishing ) then Break;
       FindFishingSpot;
       MarkTime ( Mark );
       if ( DoneFishing ) then Break;

       repeat
        FindRandoms;
        if ( DoneFishing ) then Break;
        Status( 'Fishing' );
        if ( DoneFishing ) then Break;
        DankFTWait ( 500 + Random ( 1000 ));
        HandleWhirlPool;
       until ( TimeFromMark ( Mark ) > FishingWaitTime + Random ( FishingWaitTime / 2 ));

       if ( not( LoggedIn )) then Break;
       DankFTWait ( 500 + Random ( 500 ));

   until ( DoneFishing );

  if ( LoggedIn ) then
    if WeAreAtFish then WalktoBank;

  if ( LoggedIn ) then
    Bank;

  ProgressReport;
  if ( Trips >= TripsToDo + Random ( 3 ) + 1) then begin
    Status ( Players[CurrentPlayer].Name + ' has Completed '+IntToStr ( Trips ) + ' Trips Now Switching Players.');
    repeat
      DankFTWait ( 1000 );
      FindRandoms;
    until ( not ( LoggedIn ));
    Trips := 0;
    NextPlayer ( true );

    repeat
      DankFTWait ( 2000 );
    until ( LoggedIn );
  end;
  if ( not ( LoggedIn )) then
    NextPlayer ( False );
 until ( False);

end.


{-----> Version History <------
--> v1.25 --> ???????? --> First Public Release
--> v1.50 --> 03.29.06 --> Major Rewrite of 90% of Procedures
                           Added Check for Net After Bank
                           Fixed Bug with Not Banking after FullInventory
                           Added Skill Level Counters to Progress Report
                           Added Masquraders PlayerForm
                           Added Total Shrimp,Anchovy Counter and Exp Gained to Report
--> v2.00 --> 04.02.06 --> Added Lure Fishing in Lumbridge and Many Many Things
                           Should be 95% Bug Free Now
--> v2.10 --> 04.15.06 --> Fixed some of the Bugs with Lumbridge Walking
--> v2.25 --> 04.25.06 --> Now Compatble with SRL 1.1
                           Fixed Some Bugs Fawki Found.
--> v2.50 --> 05.21.06 --> Updated for Compatablity with SRL 2.1
                           Lumbridge Lurer will probably not work with new RS Color Update
--> v2.51 --> 05.22.06 --> Fixed Problem with Net DTM Not Functioning
                           Fixed Problem with not Finding fishing Spot
                           Fixed Problem with BoredHuman running to often
--> v2.55 --> 05.29.06 --> Updated for Compatablity with SRL 2.2
                           Fixed Banking Bug with Fawki's Updated SimpleBank and OpenBankQuiet
                           Updated Lumbridge Luring Pathing with Fawki's RadialRoadWalk should fix the Lumbridge Pathing Problems?
--> v2.75 --> 05.31.06 --> Added Extra OpenBank Routines just Incase the Other 2 Dont Work
--> v3.00 --> 08.14.06 --> Updated Script to work with SRL 3.00 and to work with Jagexs Latest updates
--> v3.00a--> 08.30.06 --> Removed Lumbridge Lurer because RadialRoadWalk is giving to many errors will release a Barbarian Power fisher soon for Lurer
                           Added Global Progress Report look in Scar Folder and File DanknessDraynorNetter.Dat :P
--> v3.25 --> 09.05.06 --> Restored Lumbridge Luring with Updating Pathing
--> v3.35 --> 10.25.06 --> Updated for Comptability with SRL v3.50, not sure if Lumby Luring still works.
--> v3.50 --> 12.29.06 --> Updated for SRL v3.6 and Added GlobalStats Comptability
                           }

That should work, post problems if it doesn't.

Cooldude, just try this script.

-Dunceiam

ok this time it logs in but well i let u see (have net in first inv slot,and in first slot at bank) but its good it even logs in and checks colors now.. Testing to start at fishpoint.trying to solve this problem.
Loaded 1 users from Fishing.srl
Wrote 1 users to Fishing.srl
There is 1 active users
my name
Finding Road Color…
Finding Water Color…
Finding Rock Color…
Road Color MM : 7236982
Water Color MM : 12161406
Rock Color MM : 3246711
Finding Bank Color…
Bank Color MM : 4247273
Cant fish without a
Successfully executed

Alright, this is a common problem :). You're setting your "Skill" wrong. If you want to net fish in draynor, put "net" there. If you want to fly fish in Lumbridge put "lure".

:)
-Dunceiam

sweet script, im gonna try it out right now!

suggestion a fly fisher power or bank would be more usefull than this beacuse alot more xp

also i have problems

this please help

Failed when compiling
Line 1363: [Error] (19525:5): Unknown identifier 'I' in script C:\Documents and Settings\Pat\My Documents\[SRL] Draynor Netter v3[1].50.scar

 Worked for 1 Hours, 18 Minutes and 19 Seconds
  Banked 5 Total Loads[s].
  Fished 106 Total Shrimp[s] so far.
  Fished 27 Total Anchovie[s] so far.

logged out bank, fishing net was at first spot but should matter?

nicbaz, use my script that I posted earlier please! It has that fixed.

mx1000, I don't think it matters where, just as long as you can see it on the first page of your bank.

-Dunceiam

Thanks Dunceiam it works very well now but i noticed a bug if it is but..
áfter like 5 rounds it said in bank Location : Lost and logged out. lure works better for me :S but i like barbarian fishers more..

No problem guys, +rep button is the right of the post :p.

jahiti, it may have just been a small error, run it again and see what happens.

-Dunceiam

Noticed a few bugs, ONLY 1 RUN!!!

1. Can't always find the net ( 1 of 10 times )
2. It can't sometimes run from the mage NPC's and die ( using 4x lvl 10 to test this)

But I'll try to run this again tomorrow, let's hope that it was temporary :p

wdf ??? what does this mean


Line 1363: [Error] (19372:5): Unknown identifier 'I' in script C:\Documents and Settings\hussa\Local Settings\Temporary Internet Files\Content.IE5\T1A0YW6M\%5BSRL%5D%20Draynor%20Netter%20v3[1].50.scar
Downloading SRL plugins.

p1nky, please read previous pages! I've explained this error almost 15 times.

Okay? I've even posted the script (Working) on the last page!

-Dunceiam

sorry dude but i coudnt find the pages.. can u please tell me what page should i look at ty =D

Page 11 in the middle I posted the revised script :).

-Dunceiam

yo dunc i like ur version it pwnz

Lol, it's the same thing, just I fixed all of the errors. :)

And…?

hey dun i aint seenu post on this script ;)

Hehe, I posted a lot of proggies on pages 1-5ish. Then I just started telling people how to fix the errors.

-Dunceiam

ok it works BUT ITS FRIGGING LAGGING LIKE HELL (CONN LOST) AND REASTABLISH IS IT MY COMP THATS WHY THIS SHIT HAPPENING?

Probably your computer, how much RAM does it have?

-Dunceiam

HOW DO I LOOK FOR THE RAM LOL? IM A NOOB LOL AND WHAT DOES THIS MEAN? NEW ERROR FOR ME M8 =(

Line 59: [Error] (14427:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.03\includes\SRL\SRL\Skill\Fishing.Scar

From: p1nky
HOW DO I LOOK FOR THE RAM LOL? IM A NOOB LOL AND WHAT DOES THIS MEAN? NEW ERROR FOR ME M8 =(

Go to My Computer –> right click –> properties. And it will say down at the bottom.

k ty man my RAM is 576 MB <that good? for this script ? btw what does this ERROR MEAN

Line 59: [Error] (14427:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.03\includes\SRL\SRL\Skill\Fishing.Scar

From: p1nky
k ty man my RAM is 576 MB <that good? for this script ? btw what does this ERROR MEAN

Line 59: [Error] (14427:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.03\includes\SRL\SRL\Skill\Fishing.Scar

Oh yeah thats more then enough RAM. Lol my computer only has 384MB RAM.

And you most likely didn't install SRL correctly. Does any other script work for you?

yes they do i tink =o this 1 worked not too long ago too do i need 3.05 scar?\\this script dead. lol?

man im confuzed =(…

Do you have SCAR 2.03…? Since I don't think that this script is compatible with Divi. But it does work on SCAR 2.03. :)

-Dunceiam

ok ill d/l it on 2.03 =D and give u the situation if its ok k +D

I'm gettin this error with both scripts, even the modified one…

(14831:10): Unknown identifier 'FindItemColor' in script D:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Fishing.Scar

Well, I see that you're using SCAR 2.03… So I'm guessing that you have SRL installed wrong? Since I personally have never gotten that error. As Mjordan said, does any other script work for you?

p1nky, did it work?

-Dunceiam

umm everything is installed correctly, and I can run setupSRL

I've tried some other draynor netters and they give me the same error…

Try any other script and see if it works. Such as Goblin Scheduler or something.

-Dunceiam

I tried some other scripts but I got some Unknown Identifiers again, someone in a thread said they switched back to SRL3.60 and it worked. could you upload SRL3.60 for me? :)

Try my draynor netter instead.

Line 1363: [Error] (19525:5): Unknown identifier 'I'
i tried to fix that but i cant =\

Please check the last pages. I have posted the script with everything fixed in the middle of that page.

And yes, try using Wizzups Draynor Netter as well :).

-Dunceiam

Great Script i Really apreciate you puting effort into making a great one :) i will be posting a proggy shortly

Aww…I was getting ready to yell :p

From: belgin fish
m Not Syre But I Get This

Line 1363: [Error] (19851:5): Unknown identifier 'I' in script

Hehe.

From: Dunceiam
Zodia, you need to set a UseGUI to true. Then you will have a box that pops up.

Jahiti, here's the script.

Everyone Please Try This Script Before Posting Problems!

//----------------------------------------------------------------------------//
//---> Ultimate Draynor Netter
//--->              by Dankness
//----------------------------------------------------------------------------//
//---> Instructions
//--->   1)  Start Script at Draynor Bank
//--->   2)  Start Script Logged Out
//--->   3)  Adjust Setup in Lines 66-73
//--->   4)  Press Start and SetUp Player Array
//----------------------------------------------------------------------------//
//--->   a)  Make Sure you have Fishing Equipment in Bank Slot 1,1
//--->   b)  if Feather Fishing Keep feathers on First Bank Page
//----------------------------------------------------------------------------//
//---> Credits to
//--->   WT-Fawaki     -> Thanks for your Ideas and Help
//--->   SRL Dev Team  -> Thanks for Helping SRL become the Best Include
//----------------------------------------------------------------------------//

program DraynorNetFisher;

{.include SRL\SRL.Scar}
{.include SRL\SRL\Skill\Fishing.Scar}
{.include SRL\SRL\Misc\DraynorColorFinder.Scar}
{.include SRL\SRL\Misc\PlayerForm.Scar}

//----------------------------------------------------------------------------//

var
  FishSpotDTM, NetDTM, FeatherDTM, DB1, DB2, DB3 : Integer;

var
  bmpBridge : Integer;

var
  ShrimpDTM, AnchovieDTM, SalmonDTM, TroutDTM : Integer;

var
  FishingWaitTime, FishColor, Trips, TripstoDo : Integer;

var
  TotalShrimp, TotalAnchovies, TotalSalmons, TotalTrouts : Integer;

var
  GlobalShrimp, GlobalAnchovie, GlobalSalmon, GlobalTrout : Integer;

var
  GlobalBanks, GlobalRuns : Integer;

var
  CalibrateTimer, FindFastRandomsTime : Integer;

var
  SST1, SST2, FindNormalRandomsTime : Integer;

var
  UseGUI, UseAntiBan : Boolean;

var
  dFile, FishingText : string;

//----------------------------------------------------------------------------//
//  Set Variables Here
//----------------------------------------------------------------------------//
procedure SetUpVars;
begin
 BenMouse        := True;        //**  Use Benlands Spline Mouse
 MouseSpeed      := 15;          //**  Set MouseSpeed
 TripsToDo       := 35;           //**  Amount of Trips to Do + Random 4 Trips before Switching Chars
 RandomPlayer    := True;        //**  Set to True to Pick a Random Player each Player Switch
 UseAntiBan      := True;        //**  Will Chat, Rotate Screen, Check Exp and other humanlike behavors
 ReinCarnate     := True;        //**  Set to True to Attempt Walkback on Death, Works Sometimes :P
 UseGUI          := True;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
 FileName        := 'Fishing';   //**  Filename of Player Array
end;

//----------------------------------------------------------------------------//
//  Set Colors Here if Having Problems With AutoColor Picker
//----------------------------------------------------------------------------//

procedure SetColorsHere;
begin
 BankColor       := 0;           //**  Bank Color on MiniMap             ** Leave at Zero to Autoset
 FishColor       := 0;           //**  Color of the Fish Logo on Minimap ** Leave at Zero to autoset
 RockColor       := 0;           //**  Color of the Rock on Minimap      ** Leave at Zero to autoset
 WaterColor      := 0;           //**  Color of the Water on Minimap     ** Leave at Zero to autoset
 RoadColor       := 0;           //**  Color of the Road on Minimap      ** Leave at Zero to autoset
end;

//----------------------------------------------------------------------------//

procedure DankDebug ( S : string );
begin
  writeln ( S );
end;

//----------------------------------------------------------------------------//

//----------------------------------------------------------------------------//
//---> AntiRandom Procedures
//----------------------------------------------------------------------------//

var EvilChicken, EvilChickens : Integer;

function FindEvilChicken: Boolean;
var CX, CY : Integer;
begin
  if ( EvilChicken = 0 ) then
    EvilChicken := CreateBitmapMaskFromText('egone,', UpChars);
  if FindName then
   if FindBitmapMaskTolerance( EvilChicken, CX, CY, 3, 3, 515, 336, 0, 40) then
   begin
     Result := True;
     EvilChickens := EvilChickens + 1;
     DankDebug('******** FOUND EVIL CHICKEN RANDOM ********');
     WriteFileString(TheFile, '******** FOUND EVIL CHICKEN RANDOM ********' +chr(13))
   end;

end;

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 9 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     8:  if FindEvilChicken then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'FindEvilChicken';
             RunAwayDirection('n');
             repeat
               wait(1000+random(2000));
               Logout;
             until not (loggedin);
             Exit;
           end;
     9: begin
           if InBlack then
           begin
             if ( SolveFrog ) then Exit;
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
    end;
    wait(1);
  end;
end;

//----------------------------------------------------------------------------//
//---> Waits while Checking for Randoms;
//----------------------------------------------------------------------------//
procedure DankFTWait ( Time : Integer );
var T, I : integer;
begin
  try

    T := Time div 3;
    for I := 1 to 3 do
    begin
      Wait ( T );
      FindTalk;
    end

  except

    begin
      Wait ( Time );
      FindTalk;
    end;

  end;

  FindFastRandoms;
  MarkTime(FindNorMalRandomsTime);
  if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
  begin
    DankDebug('FindNorMalRandoms.');
    FindNorMalRandoms;
    MarkTime(SST1);
    DankDebug('FindNorMalRandoms took:'+IntToStr(SST1-FindNorMalRandomsTime)+' msec');
  end;

  MarkTime(FindFastRandomsTime);
  if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
  begin
    DankDebug('FindFastRandoms.');
    FindFastRandoms;
    MarkTime(SST2);
    DankDebug('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
  end;
end;

//----------------------------------------------------------------------------//
//  DTMs and General Variables
//----------------------------------------------------------------------------//
procedure SetFishingStyle;
begin
 case LowerCase ( Players[CurrentPlayer].Skill ) of
    'net' : begin
              FishingText     := 'Net';
              FishingWaitTime := 3500;
              NetDTM          := FishingItemDTM[1];
            end;
   'lure' : begin
              FishingText     := 'Lure';
              FishingWaitTime := 7000;
              NetDTM          := FishingItemDTM[3];
            end;

  end;
end;

procedure LoadDTMs;
begin
  bmpBridge := BitmapFromString(2, 11, 'z78DA737574B5703335B7' +
       '347536747605B34DCD8D8D0DDCCC9DCDCC0D5DC96313439A5B9A1' +
       '91B3A434800B13D1D24');

  DB1 := DTMFromString('78DA636C67626008664001FFFFFF67F80FA41' +
       '921ECFF8CB54035DEA86AFEFC61621081AA0101C63A4C73B0AA09' +

       'C7AF06000153117B');
  DB2 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8C3540353EA86AFEFC61621081AA0101C63AA09A1022D4' +
       '44E057030001B5117D');

  DB3 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA41' +
       '921ECFF8CF540359EA86AFEFC61621081AA0101C63AA09A40026A' +
       '6A816A42F1AB010000781176');

  FishSpotDTM :=  DTMFromstring('78DA63FCC4C0C070910105CC38F086410E483'  +
       '342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE'  +
       '831204');

  AnchovieDTM := DTMFromString('78DA632C64626078CA800232329A194480342' +
       '394CF580E547317554D71F10454354540356F51D5F4F46E425593' +
       '0154F398805D5540358F18D000238A1A00484D0D11');

  ShrimpDTM := DTMFromString('78DA632C606260E062644006299E160C22401' +
       'A26CA980154C389AA665E671DAA9A6AA01A665435CB26B4A0AA29' +
       '04AA114455737EFF361435003AE608D8');

  SalmonDTM := DTMFromString('78DA639CCDC4C0F08C0105CC4E0E671001D28' +
       'C503EE30CA09A57A86A0ED7E6A3AA590854F31455CDFEAA1C5435' +
       '73806A1EA1AA4977B242510300BD7E0BF4');

  TroutDTM := DTMFromString('78DA632C626260E0616440067B366D621001D' +
       '23051C61CA01A7E543547F7ED4355530E54C381AA66DDA245A86A' +
       '4076B1A3AAA92C2C4051030009CD0A03');

  FeatherDTM := DTMFromString('78DA632C65626078CC800276AC5BCB2002A41' +
       '9A17CC642A09A67A86A0EEFDE85AAA61CA8E61EAA1A060D064C73' +
       '9E1350530654F304BF7B0074B60DDD');

end;

const Ver     = 'v3.50';
const VerDate = '12.29.06';

//----------------------------------------------------------------------------//
//---> Reads Data from CFG File based on procedure by RSN
//----------------------------------------------------------------------------//

function getCFGData(dName : String): String;
var
  tString: String;
begin
  Result := '';
  tString := dName + '=';
  if(Pos(tString, dFile) = 0)then
    Exit;
  Result := dFile;
  Delete(Result, 1, Pos(tString, dFile));
  Result := Copy(Result, Length(tString), Pos(Chr(13), Result) - Length(tString));
end;

//----------------------------------------------------------------------------//
//--->  Loads Global Stats from DataFile
//----------------------------------------------------------------------------//

procedure LoadGlobalStats;
var aFile : Integer;
begin
  Status ( 'Loading Global Stats from Data File');
  aFile := OpenFile ( AppPath + 'DanknessDraynorNetter.DAT', False);
  if(aFile < 0)then
    Exit;

  ReadFileString(aFile, dFile, FileSize(aFile));

  GlobalShrimp   := StrToInt ( getCFGData ( 'Total Shrimp' ));
  GlobalAnchovie := StrToInt ( getCFGData ( 'Total Anchovy' ));
  GlobalTrout   := StrToInt ( getCFGData ( 'Total Trout' ));
  GlobalSalmon  := StrToInt ( getCFGData ( 'Total Salmon' ));
  GlobalBanks    := StrToInt ( getCFGData ( 'Total Bank' ));
  GlobalRuns     := StrToInt ( getCFGData ( 'Total Runs' ));

  GlobalRuns     := GlobalRuns + 1;

  CloseFile(aFile);
end;

//----------------------------------------------------------------------------//
//--->  Saves Global Progress Report Stats
//----------------------------------------------------------------------------//

procedure SaveGlobalStats;
var aFile : Integer;
begin
  Status ('Saving Progress Report Stats to Stat Data File');
  aFile := ReWriteFile ( AppPath + 'DanknessDraynorNetter.DAT', False);
  if(aFile < 0)then
    Exit;
  WriteFileString(aFile,'/~~~~~~~~~~~~~~~~~~~~~~~~~\' + Chr ( 13 ));
  WriteFileString(aFile,'| Dankness Draynor Netter |' + Chr ( 13 ));
  WriteFileString(aFile,'\~~~~~~~~~~~~~~~~~~~~~~~~~/' + Chr ( 13 ));
  WriteFileString(aFile, 'Total Shrimp='  + IntToStr( GlobalShrimp + TotalShrimp ) + Chr(13));
  WriteFileString(aFile, 'Total Anchovy='  + IntToStr( GlobalAnchovie + TotalAnchovies ) + Chr(13));
  WriteFileString(aFile, 'Total Trout='  + IntToStr( GlobalTrout + TotalTrouts ) + Chr(13));
  WriteFileString(aFile, 'Total Salmon='  + IntToStr( GlobalSalmon + TotalSalmons ) + Chr(13));

  WriteFileString(aFile, 'Total Bank='  + IntToStr( GlobalBanks ) + Chr(13));
  WriteFileString(aFile, 'Total Runs='  + IntToStr( GlobalRuns ) + Chr(13));
  CloseFile(aFile);

end;

//----------------------------------------------------------------------------//
//   Title Screen
//----------------------------------------------------------------------------//

procedure Intro;
var a:string; i:integer;
begin
  LoadGlobalStats;
  ReportVars[10] := ReportVars[10] + 1;
  Writeln('                                    Total Runs : ' + IntToStr ( GlobalRuns ));
  WriteLn ( '________' );
  WriteLn ( '\______ \____________  ___.__. ____   ___________' );
  WriteLn ( ' |    |  \_  __ \__  \<   |  |/    \ /  _ \_  __ \' );
  WriteLn ( ' |    `   \  | \// __ \\___  |   |  (  <_> )  | \/' );
  WriteLn ( '/_______  /__|  (____  / ____|___|  /\____/|__|' );
  WriteLn ( '        \/           \/\/         \/' );
  WriteLn ( ' _______          __    __' );
  WriteLn ( ' \      \   _____/  |__/  |_  ___________' );
  WriteLn ( ' /   |   \_/ __ \   __\   __\/ __ \_  __ \' );
  WriteLn ( '/    |    \  ___/|  |  |  | \  ___/|  | \/' );
  WriteLn ( '\____|__  /\___  >__|  |__|  \___  >__|' );
  WriteLn ( '        \/     \/                \/' );
  WriteLn ('  --> Version 3.25 --> by Dankness <-- '+VerDate);
  A := '/';
  for I := 1 to 48 do A := A + '~';
  A := A + '\';
  writeln(a);
  a:='|';
   for I := 1 to 10 do A := A + ' ';
  A := A + 'Please Vist The SRL Forum at';
  for I := 1 to 10 do A := A + ' ';
  A := A + '|';
  writeln(a);
  WriteLn ('|           http://www.villu-reborn.com          |');
  a:='\';
  for I := 1 to 48 do A := A + '~';
  A := A + '/';
  Writeln ( A );
  Wait( 500 + Random (500));
end;

//----------------------------------------------------------------------------//
//   Auto Color Detection Procedures
//----------------------------------------------------------------------------//

procedure CouldNotFindColors;
begin
  WriteLn ('ERROR, script could not find colors, please run the script again'
  +' or set your own colors.');
  TerminateScript;
end;

procedure SetColorsIfNeeded;
var C : Integer;
begin
// PerfectNorth;
 if ( ReinCarnate ) then
  begin
   Dankdebug ('Finding Road Color...');
   repeat
      C:=C+1;
      wait(100);
      FindDraynorRoadColor(588,39,617,71);
   until (C>100) or (RoadColor<>0);

   Dankdebug ('Finding Water Color...');
   C:=0;
   repeat
      C:=C+1;
      wait(100);
      FindDraynorWaterColor;
   until (C>100) or (WaterColor<>0);

   Dankdebug ('Finding Rock Color...');
   C:=0;
   repeat
      C:=C+1;
      wait(100);
      FindDraynorRockColor;
   until (C>100) or (RockColor<>0);
   writeln('Road Color MM           : '+inttostr(RoadColor));
   writeln('Water Color MM          : '+inttostr(WaterColor));
   writeln('Rock Color MM           : '+inttostr(RockColor));
   if (( RoadColor = 0 ) or ( WaterColor = 0 ) or ( RockColor = 0)) then
     begin
       ReinCarnate := False;
       WriteLn ('Could Not Find Colors for WalkBack Please Stand at Lowest Bank Slot and Align MiniMap to North and Restart Script/Change Worlds');
       WriteLn (' Script will Work Without Walkback Function.');
   end;
 end;

 Dankdebug ('Finding Bank Color...');
 if ( BankColor = 0 )then begin
  Status ( 'Finding bank color please Wait...');
  while ( BankColor = 0 ) do
   begin
    C := C + 1;
    if ( BankColor = 0 )then BankColor := GetSymbolColor ( x, y, 'bank');
    if (  C > 20 ) then CouldNotFindColors;
    Wait ( Random ( 50 ) + 500);
   end;
  end;
 WriteLn ( 'Bank Color MM           : ' + IntToStr ( BankColor));
end;

procedure SetFishColorIfNeeded;
var C : Integer;
begin
 if ( FishColor = 0 )then begin
  Status('Finding Fish Logo color please Wait...');
  while ( FishColor = 0 )do
   begin
    C := C + 1;
    if( FishColor = 0 )then FishColor := GetSymbolColor ( x, y, 'fish');
    if ( C > 20 ) then Couldnotfindcolors;
    Wait( Random ( 50 ) + 500 );
   end;
  WriteLn ('Fish Color MM           : '+ IntToStr ( Fishcolor ));
 end;
end;

//----------------------------------------------------------------------------//

Function FindLumbridgeRoadColor: Integer;
var CastleFloor, FX, FY, d: Integer;
var Found: Boolean;
begin
  CastleFloor  := BitmapFromString(8, 8, 'z78DA333334753475341B2507' +
       '880400B5B154C1');
  if ( not ( LoggedIn )) then Exit;
  while (D < 85)  do
     begin
      D := D + 5;
     If FindBitMapToleranceIn(CastleFloor, FX, FY, 580, 50, 600, 80, D) then
        begin
        RoadColor:=GetColor(FX, FY);
        Writeln('FindLumbridgeRoadColor Road Color : ' + inttostr(RoadColor));
        Found := True;
        Result := RoadColor;
        break;
        end
     end
  FreeBitMap ( CastleFloor );
end;

//----------------------------------------------------------------------------//

Function FindFurnaceRoadColor: Integer;
var bmpRoad, FX, FY, d: Integer;
var Found: Boolean;
begin
  bmpRoad := BitmapFromString(8, 8, 'z78DA333334B53475341B250' +
       '788040035A252C1');
  if ( not ( LoggedIn )) then Exit;
  while (D < 85)  do
     begin
      D := D + 5;
     If FindBitMapToleranceIn(bmpRoad, FX, FY, 580, 50, 600, 80, D) then
        begin
        RoadColor:=GetColor(FX, FY);
        Writeln('FindLumbridgeRoadColor Road Color : ' + inttostr(RoadColor));
        Found := True;
        Result := RoadColor;
        break;
        end
     end
  FreeBitMap ( bmpRoad );
end;
//----------------------------------------------------------------------------//
//**  Location Functions
//----------------------------------------------------------------------------//

function WeAreAtBank : Boolean;
begin
  if ( FindSymbol ( x, y, 'bank' )) or ( FindMMColor ( x, y, BankColor )) then
   begin
     Players[CurrentPlayer].Loc := 'Draynor Bank';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreAtFish : Boolean;
begin
  if ( FindSymbol ( x, y, 'fish' )) or ( FindMMColor ( x, y, FishColor )) then
   begin
     Players[CurrentPlayer].Loc := 'At-Fish';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreInLumbridgeCastle: Boolean;
var WX, WY:integer;
begin
if ( (FindSymbol(x,  y,  'water'))  and  (not FindColor(WX, WY, WaterColor, MMX1, MMY1, MMX2, MMY2)) ) then
   begin
     Players[CurrentPlayer].Loc := 'Lumbridge';
     Result := True;
   end;
end;

//----------------------------------------------------------------------------//

function WeAreAtFurnace : Boolean;
begin
 if ( FindSymbol ( x, y, 'furnace') ) then Result := True;
end;

//----------------------------------------------------------------------------//

procedure FindRegularRandoms;
begin
  FindNormalRandoms;
end;

//----------------------------------------------------------------------------//
//  Walkback From Lumbridge procedures Based On WT-Fawkis Procedures
//----------------------------------------------------------------------------//
procedure WalkLumbridgeFishtoDraynor;
var RX, RY : Integer;
begin
   PerfectNorth;
   SetRun ( False );
   if ( not ( LoggedIn )) then Exit;

   if ( WeAreAtFish ) then begin
     if ( FindMMColor ( X, Y, FishColor )) then
       Mouse( X, Y , 4, 4, True );
     Flag;

     MarkTime ( Mark );
     repeat
//       AngleWalker ( 0, 10 );
       MouseFlag ( MMCX + Random ( 5 ), MMCY - 15, 1, 1);
       Flag;
       DankFTWait ( 100 );
       FindRegularRandoms;
       if(TimeFromMark(Mark) > 60000) then begin Logout; Exit; end;
       if ( not ( LoggedIn )) then Exit;
     until ( WeAreAtFurnace );

     SetRun ( True );
     if ( WeAreAtFurnace ) then
       MouseFindFlag ( X + Random ( 5 ), Y - ( 35 - Random ( 5 )), 1, -1 );

     DankFTWait ( 2000 + Random ( 500 ));
     repeat
       DankFTWait ( 100 );
       if ( not ( LoggedIn )) then
         Exit;
     until ( FlagPresent );

     Flag;
     SetRun ( False );

     if ( not ( FindColor ( RX, RY, RoadColor, MMX1, MMY1, MMCX, MMY2 ))) then
       if ( FindFurnaceRoadColor = 0 ) then
       begin
         Players[CurrentPlayer].Loc := 'NoRoadColor';
         LogOut;
         Exit;
       end;

   end;

   Dankdebug ('Walking to First Rock');
   MarkTime(Mark);
   Repeat
      if not(Loggedin) then Exit;
      if(TimeFromMark(Mark) > 60000) then begin Logout; Exit; end;
      RadialRoadWalk(RoadColor, 360, 260, 40, 1, 1);
      FindRegularRandoms;
//   Until FindColor(RX, RY, RockColor, MMX1+10, MMY1+10, MMX2-10, MMY2-10);
   Until ( FindSymbol ( RX, RY, 'quest' ) or FindSymbol ( RX, RY, 'water' ) or FindSymbol ( RX, RY, 'churn' ));
   MarkTime(Mark);
   SetRun(True);
   Dankdebug ('2 Runs Past the Chicken Pen');
   RadialRoadWalk(RoadColor,200,300,60,-1,1);
   RadialRoadWalk(RoadColor,200,300,60,-1,1);
   Dankdebug ('Walking to Second Rock');
   Repeat
      if not(Loggedin) then Exit;
      if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
      RadialRoadWalk(RoadColor,200,350,40,1,-1);
      FindRegularRandoms;
   Until FindColor(RX,RY,RockColor,MMX1+30,MMY1+30,MMX2-30,MMY2-30);

   Dankdebug ('Walking to 200-350 Degrees');
   SetRun(False);
   RadialRoadWalk(RoadColor,200,350,60,1,-1);

   Dankdebug ('Walking to BankColor');
   MarkTime(Mark);
   Repeat
      if not(Loggedin) then break;
      if(TimeFromMark(Mark)>900000) then begin Logout; Exit; end;
      FindRegularRandoms;
      RadialRoadWalk(RoadColor,120,320,40,-1,1);
   Until FindColor ( x, y, BankColor, MMX1, MMY1, MMX2, MMY2 );
   Flag;

   Mouse (X, Y, 3, 3, True);
   if (not(loggedin)) then exit;
end;

//----------------------------------------------------------------------------//

procedure WalkLumbridgetoDraynor;
var R : Integer;
begin

  MakeCompass ('N');
  MarkTime ( Mark );

  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
  Until WeAreInLumbridgeCastle;

  RoadColor := 0;
  if ( FindLumbridgeRoadColor = 0 ) then
  begin
    Writeln(' Could Not Find RoadColor');
    Players[CurrentPlayer].Loc := 'Lumbridge';
    LogOut;
    Exit;
  end;

  if ( WeAreInLumbridgeCastle ) then
    begin
      if ( FindLumbridgeRoadColor = 0 ) then
      begin
        LogOut;
        Players[CurrentPlayer].Loc := 'Lumbridge';
        Exit;
      end;

      PerfectNorth;
      LinearRoadWalk(RoadColor, 90, 80, -1, 0);
      Flag;
      RadialRoadWalk(RoadColor, 370, 220, 72, 0, 1);
      for R := 1 to 2 do
        RadialRoadWalk(RoadColor, 370, 220, 60, 0, 1);
    end;

end;

//----------------------------------------------------------------------------//

Procedure WalkDraynorToLumbridge;
var RX,RY:integer;
Begin
  Players[CurrentPlayer].Loc:='DraynorToLum';

  if ( not ( FindColor ( RX, RY, RoadColor,  MMX1, MMY1, MMX2, MMY2 ))) then
    FindDraynorRoadColor(588,39,617,71);

  RadialWalk(RoadColor,430,320,65,-1,-1);
  CountFlag ( 10 );
  DankDebug ('Walking to Rock Color');
  MarkTime ( Mark );
  Repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialWalk(RoadColor,430,0,40,1,-1);

    CountFlag ( 10 );
    FindRegularRandoms;
  Until FindColor(RX,RY,RockColor,MMX1+30,MMY1+30,MMX2-30,MMY2-30);
  FFlag(10);

{  MarkTime(Mark);
  DankDebug ('Walking to Quest Symbol');
  Repeat
    if not ( Loggedin ) then Break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialRoadWalk(RoadColor,430,320,60,-1,-1);
    FindRegularRandoms;
  Until FindSymbol ( RX, RY, 'quest' );
  Wait ( 500 + Random ( 400 ));
  Flag;

  MarkTime(Mark);
  DankDebug ('Walking Away from Quest Symbol');

  Repeat
    if not ( Loggedin ) then Break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    RadialRoadWalk(RoadColor,430,320,60,-1,-1);
    FindRegularRandoms;
  Until (not FindSymbol ( RX, RY, 'quest' ));
  FFlag(10);
}

  MarkTime(Mark);
  DankDebug ('Walking to Lumbridge River');
  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
    if FindColor(x,y,WaterColor,680,65,701,71) then Break;
    RadialRoadWalk(RoadColor,170,30,50,-1,-1);
    FindRegularRandoms;
  until FindColor(x,y,WaterColor,640,10,722,61);

  DankDebug ('Walking to Deformed bmpBridge');
  MarkTime(Mark);
  repeat
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
    FindRegularRandoms;
    RadialRoadWalk(RoadColor,80,180,40,0,-1);
  until ( FindSymbol ( RX, RY, 'furnace' ));
  Flag;

  repeat
    DankFTWait ( 100 );
    if not(Loggedin) then break;
    if(TimeFromMark(Mark)>600000) then begin Logout; Exit; end;
  until ( FindSymbol ( RX, RY, 'furnace' ));

  MouseFindFlag ( RX + Random ( 5 ), RY - 35 + Random ( 5 ), -1, -1 );
  Flag;
//  until ( FindDeformed ( X, Y, bmpBridge, MMCX, MMCY - 40, MMX2, MMY2 ));

  if ( not ( FindSymbol ( RX, RY, 'fish' ))) then
  begin
    MouseFindFlag ( MMCX + 30, MMCY, 1, 1 );
//    AngleWalker ( 90, 30 );
    Flag;
  end;

  SetFishColorIfNeeded;
  If ( WeAreAtFish ) then
    Mouse ( X, Y, 3, 3, True );
  FFlag ( 10 );
  if ( FindColor ( X, Y, FishColor, MMX1, MMCY + 20, MMX2, MMY2 )) then
    Mouse ( X, Y, 3, 3, True );
  FFlag ( 10 );
end;

//----------------------------------------------------------------------------//
//  Walking Procedures for Draynor Net Fishing
//----------------------------------------------------------------------------//

procedure WalkDraynortoBank;
begin
  MakeCompass ('N');
  Status ( 'Walking to Bank' );
  if ( not ( LoggedIn )) then Exit;
  Mouse( 665, 43, 5, 2, True);
  Flag;
  Players[CurrentPlayer].Loc  :='Walk-Bank';
  if ( FindMMColor ( X, Y, BankColor )) then
    Mouse ( X, Y, 3, 3, True );
  Flag;
end;

procedure WalkDraynorBankToFish;
var RR : Integer;
begin
  MakeCompass ('N');
  Status ( 'Walking to Fish' );
  RR := Random ( 11 );
  if ( RR = 3 ) or ( RR = 5 ) or ( RR = 8 ) then
    SetRun ( True );
  if ( not ( LoggedIn )) then Exit;
  Players[CurrentPlayer].Loc  :='Walk-Fish';
  MakeCompass ( 'N' );
  Mouse( 649, 123, 5, 5, True);
  FFlag ( 10 );
  SetFishColorIfNeeded;
  MarkTime ( Mark );
  Repeat
    if not ( Loggedin ) then Exit;
    if(TimeFromMark(Mark)>240000) then begin Logout; Exit; end;
    DankFTWait ( 100 + Random ( 100 ));
  Until ( FindMMColor ( x, y, FishColor ));
  Mouse( x, y, 4, 4, True);
  FFlag ( 10 );
  Players[CurrentPlayer].Loc  :='At-Fish';
end;

//----------------------------------------------------------------------------//
procedure WalkToBanker;
begin
 MarkTime ( Mark );
 repeat
   DankFTWait ( 100 );
   if ( TimeFromMark ( Mark ) > 90000 ) then
   begin
     Players[CurrentPlayer].Loc :='Lost';
     LogOut;
     Exit;
   end;
 until ( DTM3Flag ( DB1, DB2, DB3, True ));
 Flag;
end;

//----------------------------------------------------------------------------//
//  FindRandoms Procedure
//----------------------------------------------------------------------------//

procedure PlayDead;
begin
  if (GetColor(30, 418) = 0) and (GetColor(72, 429) = 0) then
  begin
    Deaths:=Deaths+1;
    if Reincarnate then
      WalkLumbridgetoDraynor
        else
      begin
        Players[CurrentPlayer].Loc  := 'Died';
        Players[CurrentPlayer].Active := False;
        Logout;
      end;
  end;
end;

//----------------------------------------------------------------------------//

procedure Callibrate;
var CX, CY : integer;
begin
  if ( TimeFromMark ( CalibrateTimer ) >= 900000 + Random ( 45000 ) ) then
  begin
    PerfectNorth;
    MarkTime ( CalibrateTimer );
    CX := MMCX;  CY := MMCY;
    if ( FindColorSpiral ( CX, CY, FishColor, MMX1, MMY1, MMX2, MMY2 )) then
      Mouse ( CX, CY, 5, 5, True );
    Flag;
  end;
end;

//----------------------------------------------------------------------------//

function LostNetText : Boolean;
begin
  Result := FindNpcChatText ( 'need a Net' );
end;

//----------------------------------------------------------------------------//
//---> Basic AntiBan Protection Stolen from Fawkis Rats
//----------------------------------------------------------------------------//

Procedure AntiBanStuff;
 var
 DBanMe : Integer;
  begin
   DBanMe:= Random(50);
    case DBanMe of
     1: RandomRClickEvery(2 + Random(8));
     2: HoverSkill('random', false);
     3: RandomChatEvery(10 + Random(5));
     4: RotateEvery(20 + Random(10));
     5: LeaveScreenEvery(5 + Random(5));
     6: HoverEvery(15 + Random(5),'fishing');
     8: PickUpMouse;
     9: BoredEvery(9 + Random(24));
     10: DragItem(2, 1+Random(18));
     11: GameTab(1 + Random(12));
     12: DoEmote(1 + Random(20));
   end;
   FindTalk;
end;
//----------------------------------------------------------------------------//

procedure FindRandoms;
begin
  if ( not ( LoggedIn )) then Exit;
  if LostNetText then FindFishingEquipment;
  FindRegularRandoms;
  PlayDead;
  Callibrate;
  HoverEvery ( 20 + Random ( 10 ), 'fishing');
  if (UseAntiBan) then
    AntiBanStuff;
  if ( FindFight ) then begin
    SetRun ( True );
    RunTo ( 'E' , False );
    DankFTWait ( 5000 + Random ( 3000 ));
    if ( not ( FindMMColor ( x,y, FishColor ))) then RunTo ( 'W', False );
    if ( FindMMColor ( x, y, FishColor )) then Mouse ( x, y, 5, 5, True );
    FFlag ( 10 );
  end;
  if ( NoGameTab or InBlack or FindNewBox ) then LogOut;
end;

//----------------------------------------------------------------------------//
//  Walking Procedures
//----------------------------------------------------------------------------//

procedure WalkToBank;
begin
  case ( LowerCase ( Players[CurrentPlayer].Skill )) of
    'net'  : WalkDraynortoBank;
    'lure' : WalkLumbridgeFishtoDraynor;
  end;
  if ( not ( LoggedIn )) then Exit;
  WalkToBanker;
end;

//----------------------------------------------------------------------------//

procedure WalkToFish;
begin
  case ( LowerCase ( Players[CurrentPlayer].Skill )) of
    'net'  : WalkDraynorBankToFish;
    'lure' : WalkDraynorToLumbridge;
  end;
end;
//----------------------------------------------------------------------------//
//  Fishing Procedures
//----------------------------------------------------------------------------//

function CheckFeathers : Boolean;
begin
 if ( LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' ) and
    ( not ( FindInvDTM ( X, Y,  FeatherDTM ))) then Result := True;
end;

//----------------------------------------------------------------------------//

function DoneFishing : Boolean;
begin
 if ( InventoryFull ) then Result := True;
 if ( not ( LoggedIn )) then Result := True;
 if ( not (FindFishingEquipment )) then Result := True;
 if ( CheckFeathers ) then Result := True;
end;

//----------------------------------------------------------------------------//

function FindFish : Boolean;
var CX, CY : Integer;
begin
 if ( LoggedIn ) then Begin
   Result:= False;
   If ( FindDtmIn ( CX, CY, FishSpotDTM, 12, 12, MSX2, MSY2 )) then
      MMouse ( CX, CY, 5, 5);
   Result := Option2( FishingText );
   Mouse ( CX, CY, 5, 5, True );
 end;
end;

procedure FindFishingSpot;
begin
 if ( LoggedIn ) then Begin
    if ( DoneFishing ) then Exit;
    MarkTime ( Mark );
    repeat
      Status('Waiting Until Fishing Spot Appears');
      DankFTWait ( 300 + Random ( 300 ));
      FindRandoms;
      HoverEvery ( 3 + Random ( 3 ), 'fishing' );
      if ( DoneFishing ) then
        Exit;
      if ( TimeFromMark ( Mark ) > 900000 ) then Logout;
      if ( not ( LoggedIn )) then
        Exit;
    until ( FindFish ) or ( DoneFishing );
  end;
end;

//----------------------------------------------------------------------------//
//  Banking Procedures
//----------------------------------------------------------------------------//

procedure WithdrawFeathers;
begin
  if ( FindMsDTM ( X, Y, FeatherDTM ) ) then
  begin
    Mouse ( x, y, 5, 5, False );
    ChooseOption ( x, y, 'Withdraw X' );
    MarkTime ( Mark );
    repeat
      Wait ( 100 + Random ( 250 ) );
      if ( TimeFromMark ( Mark ) > 60000 ) then
      begin
        LogOut;
        Players[CurrentPlayer].Loc := 'Bank Timeout';
        Exit;
      end;
    until ( not ( GetColor ( 145, 434 ) = 0 ) );
    Wait ( 250 + Random ( 100) );
    TypeSend ( '26' + Chr ( 13 ) );
  end;
end;

//----------------------------------------------------------------------------//

procedure WithdrawNet;
begin
  if ( BankScreen ) and ( not ( FindInvDTM ( X, Y,  NetDTM ))) then
    begin
      if ( FindMsDTM ( X, Y,  NetDTM )) then Mouse ( x, y, 5, 5, True );
      Wait ( 500 + Random ( 500 ));
      CloseBank;
    end;
end;

procedure DepositFish;
var TempCounter,TempCount,ShrimpCount,AnchovyCount,TroutCount,SalmonCount : Integer;
begin

 if ( FindInvDTM ( X, Y,  ShrimpDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse (x, y, 5, 5, False);
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  Shrimpcount := TempCount - TempCounter;
  TotalShrimp := TotalShrimp + ShrimpCount;
  ReportVars[0] := ReportVars[0] + ShrimpCount;
  Players[CurrentPlayer].Level[6] := Players[CurrentPlayer].Level[6] + ShrimpCount;
  Status('Caught ' + IntToStr ( TotalShrimp ) + ' Shrimp[s] so far.');
 end;

 if ( FindInvDTM ( X, Y,  AnchovieDTM ) ) then
 begin
  TempCount := InventoryCount;
  Mouse ( x, y, 5, 5, False );
  Wait ( 250 + Random ( 100));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  AnchovyCount := TempCount - TempCounter;
  TotalAnchovies := TotalAnchovies + AnchovyCount;
  ReportVars[1] := ReportVars[1] + AnchovyCount;
  Players[CurrentPlayer].Level[12] := Players[CurrentPlayer].Level[12] + AnchovyCount;
  Status ('Caught ' + IntToStr ( TotalAnchovies ) + ' Anchovy[s] so far.');
 end;
 if ( FindInvDTM ( X, Y,  SalmonDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse (x, y, 5, 5, False);
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  ReportVars[2] := ReportVars[2] + SalmonCount;
  Salmoncount := TempCount - TempCounter;
  TotalSalmons := TotalSalmons + SalmonCount;
  Players[CurrentPlayer].Level[2] := Players[CurrentPlayer].Level[2] + SalmonCount;
  Status('Caught ' + IntToStr ( Players[CurrentPlayer].Level[2] ) + ' Salmon[s] so far.');
 end;
 if ( FindInvDTM ( X, Y,  TroutDTM ) ) then
 begin
  TempCount := InventoryCount;
  Wait ( 250 + Random ( 100 ));
  Mouse ( x, y, 5, 5, False );
  Wait ( 250 + Random ( 100 ));
  ChooseOption ( x, y, 'Store All' );
  Wait ( 1000 + Random ( 400 ));
  TempCounter := InventoryCount;
  ReportVars[3] := ReportVars[3] + TroutCount;
  TroutCount := TempCount - TempCounter;
  TotalTrouts := TotalTrouts + TroutCount;
  Players[CurrentPlayer].Level[3] := Players[CurrentPlayer].Level[3] + TroutCount;
  Status ('Caught ' + IntToStr ( Players[CurrentPlayer].Level[3] ) + ' Trout[s] so far.');
 end;

end;

//----------------------------------------------------------------------------//

Function SimpleBank:Boolean; // Stolen from Fawki's Lumby Miner
var sx,sy,dx,dy,Mark2,Tries:integer;
begin
  SX:=MSCX-20; SY:=MSCY;
  repeat
    sx:=Sx-3;
    sy:=sy-10+Random(10);
    MMouse(sx, sy, 0, 0);
    if IsUpTextMulti('e Bank','Booth','ooth') then
    begin
      GetMousePos(Dx, Dy);
      Mouse(Dx, Dy, 0, 0, False);
      if ChooseOption(Dx, Dy, 'uickly')  then
      begin
        MarkTime(Mark2);
        repeat
          Wait(10);
          if TimeFromMark(Mark2) > 20000 then
           begin
             writeln('couldnt find the bank. Exiting');
             Exit;
           end;
        until BankScreen;
      end;
    Result := True;
    Exit;
    end;
    wait(1);
    Tries:=Tries+1;
  until(tries >6)
end;

//----------------------------------------------------------------------------//

procedure Bank;
begin
 WalkToBanker;

 Flag;
 DankFTWait ( 500 + Random ( 500 ));

 if not SimpleBank then
 begin
   MarkTime(Mark);
   repeat
     if (not(Loggedin)) then  break;
     OpenBankQuiet( 'db' );
     SendArrowSilentWait( ((Random(2) * 2) + 1), 30 + Random(20) );
   until(BankScreen or (TimeFromMark(Mark) > 120000));
 end;

 Flag;
 Wait ( 500 + Random ( 500 ));
 if  ( BankScreen ) then begin
  FixBank;
  Players[CurrentPlayer].Loc  :='At-Bank';
  Status('Depositing Fishes');
  DepositFish;
  Deposit( 2, 28, 2);
  if ( not ( FindInvDTM ( X, Y,  NetDTM ))) then
    begin
      Deposit( 1, 28, 2);
      WithdrawNet;
    end;
  Wait ( 400 + Random ( 200 ));
  if LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' then
    withdraw(2,1,26);
//    WithdrawFeathers;
  Wait ( 1000 + Random ( 500 ));
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  Banks  := Banks + 1;
  Trips  := Trips + 1;
  GlobalBanks := GlobalBanks + 1;

  SaveGlobalStats;
  CloseBank;
  Wait ( 500 + Random ( 500 ));
  CloseBank;
  FindTalk;
  Gametab ( 2 );
  Wait ( 200 + Random ( 100 ));
  Players[CurrentPlayer].Level[17] := GetSkillLevel ( 'fishing' );
  GameTab ( 4 );
  Wait ( 500 + Random ( 500 ));
  if LowerCase ( Players[CurrentPlayer].Skill ) = 'lure' then
    if ( not( FindInvDTM ( X, Y,  FeatherDTM ) ) ) then
    begin
      Writeln('Cant fish without feathers');
      Players[CurrentPlayer].Loc  :='No-Feathers';
      Logout;
      Exit;
    end;

  if not ( FindFishingEquipmentColor ) then
    begin
      Writeln(Players[CurrentPlayer].Name + ' is Out of Nets');
      Players[CurrentPlayer].Loc  :='No-Nets';
      Logout;
      Exit;
    end;
 end else begin
  Writeln(Players[CurrentPlayer].Name + ' is Lost to Bank Booth');
  Players[CurrentPlayer].Loc  :='Lost';
  logout;
  exit;
 end;
end;

//----------------------------------------------------------------------------//
//  Progress Reports
//----------------------------------------------------------------------------//

procedure PlayerStats;
var Active: string;
var I : Integer;
begin
  I := ( ( Players[CurrentPlayer].Level[12] * 40 ) + ( Players[CurrentPlayer].Level[6] * 10 ));
  I := I + (( Players[CurrentPlayer].Level[3] * 50 ) + ( Players[CurrentPlayer].Level[2] * 70 ));

  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn ('  Name            : '+ Players[CurrentPlayer].Name);
  WriteLn ('  Number          : '+ IntToStr (CurrentPlayer));
  WriteLn ('  Fishing Level   : '+ IntToStr (Players[CurrentPlayer].Level[17]));
  if (Players[CurrentPlayer].Level[17] > Players[CurrentPlayer].Level[1]) then
    WriteLn ('  Levels Gained   : '+ IntToStr (Players[CurrentPlayer].Level[17] - Players[CurrentPlayer].Level[1]) );
  if (Players[CurrentPlayer].Worked > 0 ) then
    WriteLn ('  Worked for      : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
  WriteLn ('  Banked          : '+ IntToStr (Players[CurrentPlayer].Banked) + ' times.');
  WriteLn ('  Location        : '+ Players[CurrentPlayer].loc);
  if ( Players[CurrentPlayer].Level[6] > 0 ) then
    WriteLn ('  Shrimp Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[6] ));
  if ( Players[CurrentPlayer].Level[12] > 0 ) then
    WriteLn ('  Anchovys Fished : '+ IntToStr ( Players[CurrentPlayer].Level[12] ));
  if ( Players[CurrentPlayer].Level[2] > 0 ) then
    WriteLn ('  Salmon Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[2] ));
  if ( Players[CurrentPlayer].Level[3] > 0 ) then
    WriteLn ('  Trout  Fished   : '+ IntToStr ( Players[CurrentPlayer].Level[3] ));
  if ( I > 0 ) then
    WriteLn ('  Exp Gained      : '+ IntToStr ( I ));

  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  for i := 0 to HowManyPlayers-1 do
   begin
     if Players[I].Active=True then Active := 'True' else Active := 'False';

     WriteLn ( ( IntToStr ( I )) + ' : '+ Players[I].Name + ' = ' + Active + '. - Lvl : ' + IntToStr ( Players[I].Level[17])+
        '. - B :'+IntToStr (Players[i].Banked)+' Times.'+
        ' -  : '+IntToStr (Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
   end;
  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;

procedure ProgressReport;
begin
  WriteLn ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
  Writeln ('|      Draynor Netter '+ Ver +' Progress Report                --> by Dankness     |');
  Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn ('  Worked for '+ TimeRunning);
  WriteLn ('  Banked '+IntToStr ( Banks ) + ' Total Loads[s].');
  if ( TotalShrimp > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalShrimp ) + ' Total Shrimp[s] so far.');
  if ( TotalAnchovies > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalAnchovies ) + ' Total Anchovie[s] so far.');
  if ( TotalSalmons > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalSalmons ) + ' Total Salmon[s] so far.');
  if ( TotalTrouts > 0 ) then
    WriteLn ('  Fished ' + InttoStr ( TotalTrouts ) + ' Total Trout[s] so far.');
  if ( EvilChickens > 0 ) then
    writeln('  Evil Chickens '+inttostr(EvilChickens));
  SRLRandomsReport;
  PlayerStats;
end;

//----------------------------------------------------------------------------//
procedure CheckStuff;
var FishingItemText : String;
begin

// MakeCompass('n');
 SetFishingStyle;
 Gametab( 2 );

 if Players[CurrentPlayer].Level[1] = 0 then Players[CurrentPlayer].Level[1]:=GetSkillLevel ('fishing');
 Players[CurrentPlayer].Level[17] := GetSkillLevel ('fishing');

 if ( Players[CurrentPlayer].Skill = 'lure' ) and ( Players[CurrentPlayer].Level[17] < 20 ) then
 begin
   WriteLn ( Players[CurrentPlayer].Name + ' Needs Atleast 20 Fishing to Fly Fish');
   Logout;
   Exit;
 end;

 Status ( 'Checking for Fishing Equipment');
 GameTab ( 4 );

 if ( FindInvDTM ( X, Y,  NetDTM )) then
    FindFishingEquipmentColor
  else
    Begin
      if not SimpleBank then OpenBankQuiet ('db');
      Flag;
      Wait ( 1000 );
      if ( not ( BankScreen )) then
      begin
        MarkTime(Mark);
        repeat
          if not ( Loggedin ) then Exit;
          if(TimeFromMark(Mark)>60000) then begin Logout; Exit; end;
          OpenBankQuiet ('db');
        until (BankScreen);
      end;

      Wait ( 1500 + Random ( 500 ));
      FixBank;
      WithDrawNet;
      if ( Players[CurrentPlayer].Skill = 'net'  ) then FishingItemText := 'Small Fishing Net';
      if ( Players[CurrentPlayer].Skill = 'lure' ) then FishingItemText := 'Fly Fishing Rod';
      if ( FindInvDTM ( X, Y,  NetDTM )) then
        if (FindFishingEquipmentColor) then Exit;
      Players[CurrentPlayer].Loc := 'Bank - No '+FishingItemText;
      WriteLn ('Cant fish without a '+FishingItemText);
      Logout;
      Exit;
   end;

end;

//----------------------------------------------------------------------------//
//  Main Loop
//----------------------------------------------------------------------------//
procedure SetUp;
var i :integer;
begin
 SetUpSRL;
 LoadSRLFishingBitMaps;
 SetUpVars;
 for I := 0 to 19 do
   ReportVars[I] := 0;

 ScriptID       := '6';

 Intro;
 LoadDtms;
 if ( UseGUI) then
   SetupPlayers
  else
   begin
     LoadSettings;
     SaveSettings;
     HowManyPlayers := GetArrayLength ( Players );
   end;
 NickNameBMP   := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); // Screenname for FIRST Player in case of already loggedin.
 SymbolAccuracy:= 0.6;
 SetColorsHere;
 MarkTime ( CalibrateTimer );
 MarkTime ( SST1 );
 MarkTime ( SST2 );
 LoginPlayer;
 FindRS;
 ActivateClient;
 SetColorsIfNeeded;
end;


begin
 SaveGlobalStats;
 SetUp;
 repeat
  CheckStuff;

  if ( LoggedIn ) then
    if WeAreAtBank then WalkToFish;

  FindRandoms;

  repeat
       if ( DoneFishing ) then Break;
       FindFishingSpot;
       MarkTime ( Mark );
       if ( DoneFishing ) then Break;

       repeat
        FindRandoms;
        if ( DoneFishing ) then Break;
        Status( 'Fishing' );
        if ( DoneFishing ) then Break;
        DankFTWait ( 500 + Random ( 1000 ));
        HandleWhirlPool;
       until ( TimeFromMark ( Mark ) > FishingWaitTime + Random ( FishingWaitTime / 2 ));

       if ( not( LoggedIn )) then Break;
       DankFTWait ( 500 + Random ( 500 ));

   until ( DoneFishing );

  if ( LoggedIn ) then
    if WeAreAtFish then WalktoBank;

  if ( LoggedIn ) then
    Bank;

  ProgressReport;
  if ( Trips >= TripsToDo + Random ( 3 ) + 1) then begin
    Status ( Players[CurrentPlayer].Name + ' has Completed '+IntToStr ( Trips ) + ' Trips Now Switching Players.');
    repeat
      DankFTWait ( 1000 );
      FindRandoms;
    until ( not ( LoggedIn ));
    Trips := 0;
    NextPlayer ( true );

    repeat
      DankFTWait ( 2000 );
    until ( LoggedIn );
  end;
  if ( not ( LoggedIn )) then
    NextPlayer ( False );
 until ( False);

end.


{-----> Version History <------
--> v1.25 --> ???????? --> First Public Release
--> v1.50 --> 03.29.06 --> Major Rewrite of 90% of Procedures
                           Added Check for Net After Bank
                           Fixed Bug with Not Banking after FullInventory
                           Added Skill Level Counters to Progress Report
                           Added Masquraders PlayerForm
                           Added Total Shrimp,Anchovy Counter and Exp Gained to Report
--> v2.00 --> 04.02.06 --> Added Lure Fishing in Lumbridge and Many Many Things
                           Should be 95% Bug Free Now
--> v2.10 --> 04.15.06 --> Fixed some of the Bugs with Lumbridge Walking
--> v2.25 --> 04.25.06 --> Now Compatble with SRL 1.1
                           Fixed Some Bugs Fawki Found.
--> v2.50 --> 05.21.06 --> Updated for Compatablity with SRL 2.1
                           Lumbridge Lurer will probably not work with new RS Color Update
--> v2.51 --> 05.22.06 --> Fixed Problem with Net DTM Not Functioning
                           Fixed Problem with not Finding fishing Spot
                           Fixed Problem with BoredHuman running to often
--> v2.55 --> 05.29.06 --> Updated for Compatablity with SRL 2.2
                           Fixed Banking Bug with Fawki's Updated SimpleBank and OpenBankQuiet
                           Updated Lumbridge Luring Pathing with Fawki's RadialRoadWalk should fix the Lumbridge Pathing Problems?
--> v2.75 --> 05.31.06 --> Added Extra OpenBank Routines just Incase the Other 2 Dont Work
--> v3.00 --> 08.14.06 --> Updated Script to work with SRL 3.00 and to work with Jagexs Latest updates
--> v3.00a--> 08.30.06 --> Removed Lumbridge Lurer because RadialRoadWalk is giving to many errors will release a Barbarian Power fisher soon for Lurer
                           Added Global Progress Report look in Scar Folder and File DanknessDraynorNetter.Dat :P
--> v3.25 --> 09.05.06 --> Restored Lumbridge Luring with Updating Pathing
--> v3.35 --> 10.25.06 --> Updated for Comptability with SRL v3.50, not sure if Lumby Luring still works.
--> v3.50 --> 12.29.06 --> Updated for SRL v3.6 and Added GlobalStats Comptability
                           }

That should work, post problems if it doesn't.

Cooldude, just try this script.

-Dunceiam

?

That is the script that has all the errors fixed…

For your problem, in the constants there's UseGui. You want to set that to true.

So it should look like…

UseGUI          := True;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File

ty works well

Werll, for some reason i have my net in first inventory slot and more in first bank slot at the beggining it opens bank says there is no fishing equipement or whatever and trys to log out but forgets the close the bank… i wonder whats wrong

belgin for your "skill" for each character. Either put "net" or "lure".

:)
-Dunceiam

Ok thanks alot man! im sorry for being such a noob Dunceiam im just beggining scripting :) thanks for the help :)

o and ps what do i put for location?

Lol, it's fine. I always just put "Bank' for location.

Ask if ya need help :)

-Dunceiam

i keep getting this error
Line 59: [Error] (14428:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Sca

Mate, that has something to do with the SRL you are using not the script. Use SCAR 2.03 and the oldest SRL.
I think at least.

-Dunceiam

Hey Dank, everyone got lost "looking" for the bank, they were standing in it, but they didnt open it? Was the reason, the fact that the bankscreen changed with the update? MJordan gave me a fix on wizzys fisher, because i thought it was just yours. So will your work now that i have fixed the bankscreen thing?

From: 3garrett3
Hey Dank, everyone got lost "looking" for the bank, they were standing in it, but they didnt open it? Was the reason, the fact that the bankscreen changed with the update? MJordan gave me a fix on wizzys fisher, because i thought it was just yours. So will your work now that i have fixed the bankscreen thing?

Yeah it didn't bank because of the changed bankscreen. So if you fixed it, then it should work now.

[Error] (14428:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar

somehow, i always get this:

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\*******\&#26700;&#38754;\[SRL] Draynor Netter v3[1].50.scar
^
(I use a chinese windows, it means the same as deskstop)

you need to read, in order to fix it. just look through the thread

somehow, i always get this:

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script C:\Documents and Settings\*******\&#26700;&#38754;\[SRL] Draynor Netter v3[1].50.scar
^
(I use a chinese windows, it means the same as deskstop)

I've posted the script with this error fixed on page 13. Please review that page before posting again :).

[Error] (14428:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar

This isn't compatible with the latest SCAR/SRL use the oldest versions and it will work.

-Dunceiam

wow dunce, no wonder you have the helper bear, i wish i could be like you, all membery ( even though i couldnt find any scripts made by you, respond to my pm) and helpery, and patiency, you have so much patients for all the kids that dont like reading. and you even got ur first kiss, this must be a great last 3 days for you eh?

Hehe, take that you double-poster!! :D

(Sorry for all the spam people….:p)

-Dunceiam

ya, well im done with all this spam, and now neither of us looks like double posters… i need you to test out my script that i might apply with, so that i can make sure its a winner. so get online quick, and read my pm that i am sending off right after i type this…

From: Dunceiam
I've posted the script with this error fixed on page 13. Please review that page before posting again :).



This isn't compatible with the latest SCAR/SRL use the oldest versions and it will work.

-Dunceiam

Dunceiam, it still doesnt work with old version

What's the error you're getting?

-Dunceiam

Line 59: [Error] (14483:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar
i cant seem to see and fix this error

That has to do with your SRL/SCAR versions. Try the older version cause this script hasn't been updated.

-Dunceiam

ohh ok then thank you very much

No problem :).

That's what I'm here for.

-Dunceiam

Well, I used the script on page 11… It worked for the login, for the setup players I put, the username and password, by skill it means level right? Well, I put in the skill level… Then when it said location, I put bank… It worked, I loaded it.. It logged me in, then it opened the bank… then tried to click on the inventory icon, and tried to log out, but it couldn't because it was still on the bank window… I used 1 player. Any help please? :confused: :D :spongebob:

dude, is there a player array, how do i start logged out if theres no player array. do i start logged in? if someone can help me start this script please private message me or post. thx:confused:

Nooby noobster, change line 72 to True to get the player array.

So it should look like..

UseGUI          := True;       //**  Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File

Krisval, when it says skill, it means what type of fishing you want to do.

Put "net" for your skill if you want to net the shrimp in draynor. If you want to fly-fish put "lure".

(When you change that, it shouldn't have a problem)

I've explained both of these errors on previous pages, please review those pages before posting questions.

-Dunceiam

just looked at it then looks really good


thanks dank

haxor

i get an error in line 59 it says unknown identifier "finditemcolor" in script c:\\program files\scar 2.03\includes\SRL/SRL/skill/fishing.scar also said failed while compiling

Has to do with the SRL you're using. I've explained what to do multiple times, please read previous pages.

-Dunceiam

I got a problem,when the script start,he opens the bank and he close and after he log out my guy, why?

Because you haven't set your skill, please read previous pages for how to solve your problem.

-Dunceiam

i keep get n

Failed when compiling
Line 59: [Error] (14831:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Fishing.Scar

Please read previous posts. There are 14 pages of me answering the same questions over and over again. So lemme make this nice and bold.

PLEASE READ PREVIOUS POSTS/PAGES

-Dunceiam

SRL fishing.scar has issues

Line 59: [Error] (14483:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar

and no SMP doesnt program in SCAR lol

Line 92: [Error] (1742:24): Unknown identifier 'Degrees' in script C:\SCAR 2.03\includes\srl\srl\core\Math.scar

I decided to make a nice and big signature to make it bold :D.

(Intrusion, thats your SRL redownload/try a different one)

-Dunceiam

wtf…. i was looking for something to badmouth but Dank…. you are a god XD

SMP nvr made anything for runescape this good… heheehehehe ill have to buckle down on my branch -.-. Keep up the good work :)

EDIT:: or maybe ur just a king :O dont use fishing.scar its evil…. and errored make ur own stuff cause they didnt put any identifier for FindItemColor

Line 59: [Error] (14483:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar

Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.Scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Fishing.Scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Misc\DraynorColorFinder.Scar does not exist.
Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Misc\PlayerForm.Scar does not exist.
Failed when compiling

any1 got a clue wat i to do?

You need to download SRL. Use the "Search" button.

-Dunceiam

Hey, i have re downloaded 3.50, but i still get the same error over and over again!

Line 59: [Error] (14483:10): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar

I get this error:

Failed when compiling
Line 1363: [Error] (19851:5): Unknown identifier 'I' in script

mithblaz3, this script has not been updated to work with 3.50. You need to use older versions for it to work.

peterspliid, please read previous pages. I've told people the fix to that problem many times. I've even posted the fixed script.

-Dunceiam

How Do U Set Players Names And Pass?

Press play and a screen will pop up. Called a form.

-Dunceiam

ty…. but it don't work =(
do i need to download that "form"
because at other scripts its works fine..

I have a problem when running the script..
Everything runs smoothly
log in
open bank
but then the mouse cursor stops moving once in the bank.
it could be due to todays update.. i fixed the log in screen thing.

here is my prog

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Please Vist The SRL Forum at |
| http://www.villu-reborn.com |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
Loaded 1 users from Fishing.srl
Wrote 1 users to Fishing.srl
There is 1 active users
Finding Road Color…
Finding Water Color…
Finding Rock Color…
Road Color MM : 6514026
Water Color MM : 12161406
Rock Color MM : 4600893
Finding Bank Color…
Bank Color MM : 5425128
couldnt find the bank. Exiting

I don't think it can find my banks screen here is my core/bank.scar script

function BankScreen: Boolean;
begin
Result := IsTextAtEx(184, 34, 'The Bank', 30, upchars, True, False, 0, 0,
-1);
end;


———————————————–

Oh and RS master
Go to the top of the scripts and change
UseGUI := false;
To
UseGUI := True;

Rs master, he/she's right. You need to change UseGUI := False to true.

kj369kj, did it say anything about "cannot find fishing equipment"? If so, that's due to the skill you set.

Try, again, it may have something to do with your computer, and not the actual script. If you've already done the bank fix, it should work. I haven't run this script for a few months now, so I'm not sure if the banking problem is for all of us, or just you :).

Oh, and you may want to remove your name from that proggy. You never know who's browsing these forums, possibly a Jagex mod?

-Dunceiam

oh yea ooppps….
well i changed my skill to lure
i dont get any equipment missing messages
so ehh..
ill proble just go legit
oh and one more thing
it didn't seem to detect my fishing lvl. Said it was below 20
when it was say over
I just changed required lvl in script to 0

thanks for the help anyways

Ok I've been tryin' to work this script for 3 days now and it is still saying,

Failed when compiling
Line 64: [Error] (14497:5): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\Skill\Fishing.Scar
Failed when compiling
Line 57: [Error] (57:1): Unknown identifier 'GameTab' in script C:\Program Files\SCAR 3.06\includes\SRL\SRL\skill\Fishing.scar

someone tell me how to fix this PLZZZZZZZZZZZZZZZ!

sry for double post read first one please

unknows identifier in line 57 "gametab"? wut i put there?

thats happening to me to

also unknown identifyer "find item color" and its really pissing me off its happens with every fishing script with me im so mad:mad:

Look, people, I'm on vacation in Australia. I don't want to keep having to come to this thread with dial-up. Every problem that you guys have been having is due to your SCAR/SRL. This script is old, it has not been updated to suit the new SRL due to the, "gametab" and , "find item color" errors. Use older versions of SRL/SCAR for this script.

Thanks :).
-Dunceiam

verry nice job keep up the good work:)

great scripts!

lalaji, rember me? You have been posting up on lots of yopics now just sayign thanks and stuff. You haven't even tried thisout, or you would relaize that it DOESN'T WORK ANYMORE !!!

Line 1363: [Error] (19857:5): Unknown identifier 'I' in script C:\Documents and Settings\l\Local Settings\Temporary Internet Files\Content.IE5\OHQRSDU7\%5BSRL%5D%20Draynor%20Netter%20v3.50[1].scar

What can i do?

Line 63: [Error] (14535:5): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\Skill\Fishing.Scar

Can I edit it to KYAB?

Can I edit it to KYAB?

Dankness hasn't been on this thread for about 10 pages :p.

Line 63: [Error] (14535:5): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\Skill\Fishing.Scar

Use older versions of SCAR/SRL. Please read previous posts.

Line 1363: [Error] (19857:5): Unknown identifier 'I' in script C:\Documents and Settings\l\Local Settings\Temporary Internet Files\Content.IE5\OHQRSDU7\%5BSRL%5D%20Draynor%20N etter%20v3.50[1].scar

What can i do?

There's a fix a couple pages back. Please read previous pages :).

-Dunceiam

Another problem when i start it up it just sits at the thing that shows up right as u log in. It doesnt move or nothing

Which SCAR/SRL are you using?

-Dunce

From: Dankness
GetCFGData was wriitten by RSN all it does is search the String for the char = then gets the data directly afterwards, i forgot to credit him for it :(

I have this bug i dont know if its because of this script or what but when i go to run it, it saids Line 63: [Error] (14561:5): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/skill/fishing.scar


Can anyone help me out on what to do with this

From: Dunceiam
Which SCAR/SRL are you using?

-Dunce

I think 2.03 with 3.6. if i need diff tel me plx :)

What did i do wrong?


//—————————————————————————-//
//—> Ultimate Draynor Netter
//—> by Dankness
//—————————————————————————-//
//—> Instructions
//—> 1) Start Script at Draynor Bank
//—> 2) Start Script Logged Out
//—> 3) Adjust Setup in Lines 66-73
//—> 4) Press Start and SetUp Player Array
//—————————————————————————-//
//—> a) Make Sure you have Fishing Equipment in Bank Slot 1,1
//—> b) if Feather Fishing Keep feathers on First Bank Page
//—————————————————————————-//
/FishingItemDTM : array [1..6] of Integer;
FishingItemName : array [1..6] of string;
//—> SRL Dev Team -> Thanks for Helping SRL become the Best Include
//—————————————————————————-//

program DraynorNetFisher;

{.include SRL\SRL.Scar}
{.include SRL\SRL\Skill\Fishing.Scar}
{.include SRL\SRL\Misc\DraynorColorFinder.Scar}
{.include SRL\SRL\Misc\PlayerForm.Scar}

//—————————————————————————-//

var
FishSpotDTM, NetDTM, FeatherDTM, DB1, DB2, DB3 : Integer;

var
bmpBridge : Integer;

var
ShrimpDTM, AnchovieDTM, SalmonDTM, TroutDTM : Integer;

var
FishingWaitTime, FishColor, Trips, TripstoDo : Integer;

var
TotalShrimp, TotalAnchovies, TotalSalmons, TotalTrouts : Integer;

var
GlobalShrimp, GlobalAnchovie, GlobalSalmon, GlobalTrout : Integer;

var
GlobalBanks, GlobalRuns : Integer;

var
CalibrateTimer, FindFastRandomsTime : Integer;

var
SST1, SST2, FindNormalRandomsTime : Integer;

var
UseGUI, UseAntiBan : Boolean;

var
dFile, FishingText : string;

//—————————————————————————-//
// Set Variables Here
//—————————————————————————-//
procedure SetUpVars;
begin
BenMouse := True; //** Use Benlands Spline Mouse
MouseSpeed := 15; //** Set MouseSpeed
TripsToDo := 3; //** Amount of Trips to Do + Random 4 Trips before Switching Chars
RandomPlayer := True; //** Set to True to Pick a Random Player each Player Switch
UseAntiBan := True; //** Will Chat, Rotate Screen, Check Exp and other humanlike behavors
ReinCarnate := True; //** Set to True to Attempt Walkback on Death, Works Sometimes :P
UseGUI := false; //** Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File
FileName := 'Fishing'; //** Filename of Player Array
end;

//—————————————————————————-//
// Set Colors Here if Having Problems With AutoColor Picker
//—————————————————————————-//

procedure SetColorsHere;
begin
BankColor := 0;7566715 at (650, 161) //** Bank Color on MiniMap ** Leave at Zero to Autoset
FishColor := 0;16777215 at (652, 165) //** Color of the Fish Logo on Minimap ** Leave at Zero to autoset
RockColor := 0;4869458 at (324, 273) //** Color of the Rock on Minimap ** Leave at Zero to autoset
WaterColor := 0;12423803 at (599, 148) //** Color of the Water on Minimap ** Leave at Zero to autoset
RoadColor := 0;7566715 at (658, 155) //** Color of the Road on Minimap ** Leave at Zero to autoset
end;

//—————————————————————————-//

UseGUI := false; //** Must Use GUI Atleast Once to Setup Chars Data File, Afterwards it will Load Players from File

Change UseGUI to true..

I think 2.03 with 3.6. if i need diff tel me plx

Use the oldest versions possible :).

-Dunceiam

Did anyone fix the bank problem? Because when it logs in it doesnt do anything.

Read teh big purple text at the top of the forum..

im gettin error
Line 1363: [Error] (19857:5): Unknown identifier 'I' in script C:\DOCUME~1\Devil\LOCALS~1\Temp\[SRL] Draynor Netter v3.50.scar

help me..?

Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\PlayerForm.Scar does not exist.
Failed when compiling

From: Punkgi
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\PlayerForm.Scar does not exist.
Failed when compiling

dude this is like 3 years old

[ADMIN]
Punkgi Please read the first and last posts of a thread before posting in it.
The last post in this thread was made 2 YEARS ago and this script was made 3 years ago.
Please DO NOT gavedig![/ADMIN]