PDA

View Full Version : Draynor Netter v3.0



Pages : [1] 2

Dankness
08-31-2006, 02:39 AM
-=Draynor Netter=-


-=by Dankness.=-

-=Version 3.50.=-


SRL 3.6 REQUIRED



-----------------------------------------------------------------------------------------------------------------------------------------

The Draynor Netter will Net Fish and Bank Shrimps and Anchovys

-----------------------------------------------------------------------------------------------------------------------------------------


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


Version History :


--> v1.25 --> ???????? --> First Public Release
--> v1.50 --> 03.29.06 --> Major Rewrite of 90% of Procedures
--> v2.00 --> 04.02.06 --> Added Lure Fishing in Lumbridge and Many Many Things
--> v2.10 --> 04.15.06 --> Fixed some of the Bugs with Lumbridge Walking
--> v2.25 --> 04.25.06 --> Now Compatble with SRL 1.1
--> v2.50 --> 05.21.06 --> Updated for Compatablity with SRL 2.1
--> v2.51 --> 05.22.06 --> Fixed Problem with Net DTM Not Functioning
--> v2.55 --> 05.29.06 --> Updated for Compatablity with SRL 2.2
--> v2.75 --> 05.31.06 --> Added Extra OpenBank Routines just Incase

--> v3.00 --> 08.14.06 --> Updated Script to work with SRL 3.00

--> v3.00a--> 08.30.06 -->Updated Again, Removed Lumby Luring

--> 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


You May Find the Full Version History at the Bottom of the Script





-----------------------------------------------------------------------------------------------------------------------------------------
A Progress:
-----------------------------------------------------------------------------------------------------------------------------------------




/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.00 Progress Report --> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 6 Hours, 49 Minutes and 9 Seconds
Banked 34 Total Loads[s].
Fished 630 Total Shrimp[s] so far.
Fished 127 Total Anchovie[s] so far.
Gained Aprox. 11380 Total XP so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Logged in : 9 |
| Fight Random[s] : 5 |
| Talking Random[s] : 10 |
| Rick[s] Solved : 2 |
| OldMen Solved : 4 |
| SandWich[es] Missed : 1 |
| Lamp[s] Solved : 2 |
| Frog[s] Missed : 1 |
| Capn Hand[s] Solved : 1 |
| New Box[s] Solved : 3 |
| Whirlpool[s] found : 12 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

-----------------------------------------------------------------------------------------------------------------------------------------
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



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

-----------------------------------------------------------------------------------------------------------------------------------------

Enjoy, and POST PROGRESS!




for history's sake [B]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

WhiteShadow
08-31-2006, 03:44 AM
I'm going to test this for sure. Sweet job <3.

Cheesehunk
08-31-2006, 04:57 AM
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!

WT-Fakawi
08-31-2006, 08:22 AM
!!!

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


!!!

Dankness
08-31-2006, 10:08 AM
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 :(

thebomemaste
09-02-2006, 05:20 PM
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?

emiel
09-03-2006, 05:17 PM
i got the same problem like thebomemaste

Dankness
09-03-2006, 05:27 PM
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;

Sumilion
09-03-2006, 05:29 PM
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:

emiel
09-03-2006, 05:33 PM
thank you it works now now it says loading global stats from data file hop it wil work :)

thebomemaste
09-03-2006, 07:33 PM
Yep it works thanks alot guys. I wish i could help u somehow sumilion. You have been very nice and helpful to me.

Sumilion
09-03-2006, 07:44 PM
:smile: It's what i do :rolleyes:

Nova Phoenix
09-06-2006, 12:20 PM
"[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?

Sumilion
09-06-2006, 01:25 PM
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...

Nova Phoenix
09-06-2006, 02:25 PM
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?

Sumilion
09-06-2006, 04:45 PM
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 ;)

the one t.v
09-06-2006, 07:36 PM
it keeps coming up with loading global stats what that

Rams89
09-07-2006, 01:15 AM
i get that too

Nova Phoenix
09-07-2006, 02:06 AM
So do I! What's the deal with it?

Dankness
09-07-2006, 02:12 AM
"[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

Nova Phoenix
09-07-2006, 05:29 AM
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. :)

Dankness
09-07-2006, 02:19 PM
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.

Nova Phoenix
09-07-2006, 02:49 PM
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.

WhiteShadow
09-09-2006, 04:45 AM
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

ybwal
09-10-2006, 04:11 AM
Looks like an excellent script, ill be testing it out tonight.

lizhang
09-17-2006, 04:55 AM
so how long does it take to learn to acutally make a rs script?

Sumilion
09-17-2006, 07:52 AM
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 ;)

baby
09-17-2006, 09:56 AM
looks nice man ill try it :)

Emperia
09-17-2006, 08:47 PM
thanks alot i will try this :)

Mjordan
09-18-2006, 12:19 AM
hmm well dont know why but my players always end up in falador somewhere?

lizhang
09-18-2006, 05:55 AM
probably one of the randoms, my character lost the net but the script stil kept on clicking the fishing area.

Kaarosu
09-18-2006, 06:16 AM
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.

hurleybrother11
09-28-2006, 09:31 PM
[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?

bbri06
10-15-2006, 07:35 AM
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

wtf i sp4nk
10-15-2006, 01:13 PM
i got same error to
Line 77: [Error] (15644:11): Duplicate identifier 'FTWAIT' in script C:\Documents

poonmaster
10-17-2006, 03:14 AM
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

M0rtion
10-21-2006, 01:06 AM
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)

wtf i sp4nk
10-22-2006, 11:29 PM
wow tyvm for realising to public ill post my progress report when i get the time to use it

Home
10-27-2006, 03:37 PM
Bahhh!
Error :p

Dosent compile
Duplicate identifier 'NewUser'

lewski
10-31-2006, 05:12 AM
ty man

YoHoJo
10-31-2006, 06:06 AM
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

$anta
10-31-2006, 07:24 AM
Line 77: [Error] (16374:11): Duplicate identifier 'WAIT'
This what I got :(

$anta
10-31-2006, 07:33 AM
Line 11: [Error] (16721:5): Duplicate identifier 'NewUser' in script C:\Program Files\SCAR 2.03\includes\SRL/SRL/Misc/PlayerForm.Scar

YoHoJo
10-31-2006, 09:28 PM
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

spanky2
11-01-2006, 12:54 PM
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

cts45
11-02-2006, 10:36 PM
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?

masquerader
11-03-2006, 03:22 AM
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:

mikev
11-04-2006, 03:49 PM
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.

rangerrocks5
11-08-2006, 06:58 AM
[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

Rory123456
11-10-2006, 08:54 PM
Hello, I'm still getting the new User error, help please

Drunken
11-12-2006, 02:31 AM
6 hours, 34 loads?!?! WTf that must be SLOW

legendaryhero90
11-12-2006, 09:53 AM
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!

Hey321
11-12-2006, 12:01 PM
I think that's because you need the new playerform patch. DownLoad that and try again.

lilgreg12
11-12-2006, 05:33 PM
it says that a line is out of range....what shud i do

wtf i sp4nk
11-13-2006, 02:21 AM
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 :)

Larrylucky
11-14-2006, 12:47 AM
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?

totalpk
11-27-2006, 04:06 AM
ill try it soon.

Santa_Clause
11-30-2006, 09:08 AM
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?

legendaryhero90
12-04-2006, 10:44 PM
i still have a problem with the New User even after the download of the player patch

DRAC2GUNZ
12-13-2006, 12:00 AM
Looks nice. As soon as I go grab a net for my char Ill be testing it :Q

kevii
12-14-2006, 04:17 AM
So whoever had the problem of their net not being detected. How did you fix it?

bs sniper
12-17-2006, 03:08 AM
[Runtime Error] : Out Of Range in line 1336 in script

joshie
12-17-2006, 03:13 AM
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

bs sniper
12-17-2006, 03:34 AM
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:

the scar noob
12-18-2006, 05:23 PM
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 :)

tomtomsparklingstar
12-26-2006, 07:42 AM
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.

RAM
12-26-2006, 08:17 PM
tomtomsparklingstar, Version 360 is out, it should have the playerform fix included in it, try downloading that version, hope that helps, RAM

Wool
12-26-2006, 08:35 PM
Going to give it a try, Ill get back with the Reports :D

Supernova
12-29-2006, 02:18 PM
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

Dankness
12-30-2006, 08:40 PM
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.

Opal Tasty
12-30-2006, 09:37 PM
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?

Dankness
12-30-2006, 09:47 PM
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

Opal Tasty
12-30-2006, 10:45 PM
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?

homerunhomer
12-31-2006, 11:18 PM
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\...

i like mauls
01-01-2007, 08:18 AM
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

Kenshin
01-01-2007, 05:13 PM
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

Rick
01-02-2007, 03:08 PM
simply change this:


procedure SetUp;
begin
SetUpSRL;

to this:


procedure SetUp;
var I : Integer;
begin
SetUpSRL;

hope that helps.

phonokin
01-19-2007, 12:30 PM
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

itachi98
01-19-2007, 02:49 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report --> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 1 Hours, 4 Minutes and 23 Seconds
Banked 5 Total Loads[s].
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
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

seaking
01-19-2007, 03:31 PM
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.

Jackboot0
01-19-2007, 04:11 PM
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%20N etter%20v3.50[1].scar

im getting this error when trying to run??

Jackboot0
01-19-2007, 04:14 PM
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%20N etter%20v3.50[1].scar

Bramble
01-19-2007, 09:25 PM
did you forget to setup the declare players part?

seaking
01-20-2007, 12:58 AM
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...

seaking
01-20-2007, 04:00 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report --> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 2 Hours, 10 Minutes and 6 Seconds
Banked 4 Total Loads[s].
Fished 80 Total Shrimp[s] 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.

Kokosing
01-20-2007, 06:08 PM
thx, good job

Taylor
01-22-2007, 01:26 PM
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?

julle13
01-22-2007, 02:59 PM
@ taylor: I think u accidentally edited something, try re-downloading the script, and say if it works.

Taylor
01-22-2007, 08:56 PM
@julle13, I already have, twice. I tried reinstalling SRL 3.6, but still no luck.

Taylor
01-24-2007, 11:36 PM
Anyone help please?

rscheater13
01-24-2007, 11:45 PM
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?

rscheater13
01-24-2007, 11:46 PM
i'm having the same problem taylor

Taylor
01-25-2007, 12:34 AM
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:

rscheater13
01-25-2007, 10:34 PM
ok, taylorv i found someone that already solved the problem, it tells what to fix in about the middle of page 4

rscheater13
01-26-2007, 09:38 PM
nvm, fixed problem, blonde moment

Taylor
01-27-2007, 05:57 PM
--> 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:\Documents and Settings\Owner\Desktop\[SRL] Draynor Netter v3.50.scar
Any ideas?

Jethr0x
01-28-2007, 03:49 AM
I have same error, pm me or post here if u knoe the solution.

ange vashes
01-28-2007, 05:47 AM
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[I] := 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

ange vashes
01-28-2007, 05:48 AM
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[I] := 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:

Bramble
01-28-2007, 05:58 AM
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;

The Miracle
01-28-2007, 07:10 PM
Unkown identifier "i", script line1363... ???

Jethr0x
01-29-2007, 01:30 AM
Unkown identifier "i", script line1363... ???

Where are the variables are being defined, add a line that says.
var i :integer

Macro2much
01-29-2007, 01:31 AM
This is a very leet script, good luck with future updating :).

babybrown
01-29-2007, 11:26 PM
This script works a treat, thanks for sharing it. It sure makes my old P3 PC grunt.

Taylor
02-13-2007, 01:09 PM
Cant fish without a

I have all the tools and everything setup..

Hamish
02-13-2007, 04:28 PM
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.

llib
02-20-2007, 01:58 AM
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
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

jimmy27
02-22-2007, 12:22 PM
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?

macromacro123
02-22-2007, 09:40 PM
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

Rencuz
02-23-2007, 08:38 AM
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.

grandpajones3
02-23-2007, 04:04 PM
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.

jimmy27
02-23-2007, 09:31 PM
Thanks grandpajones, its working a treat now :)

Krispy101
02-24-2007, 05:24 AM
thanks dude, stops working after like 20 minutes with me though =(

3Garrett3
02-25-2007, 02:21 PM
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.?

julle13
02-25-2007, 02:28 PM
It means that line needs semicolon. Maybe post line here?

firedemon
02-25-2007, 05:18 PM
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;

3Garrett3
02-25-2007, 05:36 PM
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?

WinterDream
02-28-2007, 03:21 PM
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;

3Garrett3
02-28-2007, 09:04 PM
About my problem, im such a choob,,, i missed it, i didnt put ; after integer,,, again, T3HN00BL3T=3GARRETT3

pink starburst
03-01-2007, 02:23 AM
awesome, ill test this out. been looking to making a fisher so this will help out alot :p

Dunceiam
03-11-2007, 03:03 AM
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[s].
Fished 274 Total Shrimp[s] so far.
Fished 213 Total Anchovie[s] 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

Commissar
03-11-2007, 04:49 AM
umm just one small problem i get "Line 1363: [Error] (19851:5): Unknown identifier 'I' in script" is this easily fixed?

masterdest
03-11-2007, 05:44 AM
i had the "I" Unknown just add under the variables I:integer;
just have to declare it as a variable hope it helps

Dunceiam
03-11-2007, 01:19 PM
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[s].
Fished 687 Total Shrimp[s] so far.
Fished 262 Total Anchovie[s] 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

cepacol2
03-11-2007, 02:48 PM
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?

Dunceiam
03-11-2007, 05:05 PM
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

Harry
03-13-2007, 02:30 PM
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

Dunceiam
03-13-2007, 08:26 PM
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[I] := 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[s].
Fished 1223 Total Shrimp[s] so far.
Fished 1232 Total Anchovie[s] 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

mynameisjoe
03-15-2007, 01:23 AM
cool man, it works awesome i got soo many fish

Dunceiam
03-15-2007, 01:45 AM
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

lasse
03-16-2007, 02:50 PM
procedure SetUp;
var I: Integer;
begin
SetUpSRL;
LoadSRLFishingBitMaps;
SetUpVars;
for I := 0 to 19 do
ReportVars[I] := 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:

Dunceiam
03-16-2007, 06:50 PM
Just PM me and I'll help you get it sorted out...:)

-Dunceiam

macromacro123
03-17-2007, 04:06 AM
hah i will steal ur procedure fishing :p

Dunceiam
03-17-2007, 04:15 AM
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[s].
Fished 1223 Total Shrimp[s] so far.
Fished 1232 Total Anchovie[s] so far.


Just saying :p
-Dunceiam

Mjordan
03-17-2007, 04:16 AM
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?

legion21
03-17-2007, 04:59 PM
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[I] := 0;


-Dunceiam

ok i put that in the script, but now it says
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| 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:\Documents and Settings\Travis Orr\Desktop\[SRL] Draynor Netter v3.50.scar
how do i get rid of the runtime error?

macromacro123
03-17-2007, 11:31 PM
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

Dunceiam
03-18-2007, 12:09 AM
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

legion21
03-18-2007, 01:06 AM
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 ?

Smartzkid
03-18-2007, 01:07 AM
Maybe try putting in your runescape usernames and passwords? :p

legion21
03-18-2007, 01:23 AM
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.

Dunceiam
03-18-2007, 01:25 AM
Err...? Well, did you even enter your username/password anywhere then?

-Dunceiam

legion21
03-18-2007, 01:44 AM
nvm i fixed it. the problem was i for got to change
useGUI :=false to
useGUI :=true

Dunceiam
03-18-2007, 02:16 AM
Pretty simple, but major problem...:)

-Dunceiam

legion21
03-18-2007, 02:26 AM
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?

Dunceiam
03-18-2007, 02:31 AM
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

legion21
03-18-2007, 02:40 AM
ok thanks i dont know why it gets stuck on "Loading Global Stats from Data File."
i really want to start fishing D:

YamiTim
03-19-2007, 02:03 PM
i got this error
Line 1363: [Error] (19851:6): Identifier expected in script C:\Documents and Settings\

Jason2gs
03-19-2007, 10:52 PM
Awesome :)

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

aran armath
03-19-2007, 11:24 PM
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

aran armath
03-19-2007, 11:30 PM
never mind i think i got it now read an earlier post

seaking
03-20-2007, 01:56 PM
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[s].
Fished 622 Total Shrimp[s] so far.
Fished 298 Total Anchovie[s] so far.
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>

aran armath
03-20-2007, 03:26 PM
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.

Dunceiam
03-20-2007, 07:09 PM
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.


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

aran armath
03-20-2007, 08:27 PM
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

zertoyah
03-20-2007, 08:50 PM
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

rjbk1989
03-21-2007, 03:25 PM
it wont find my net even thow i have 1 in my inventory and another in my bank help plz

Mjordan
03-21-2007, 06:13 PM
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 ;)

Dunceiam
03-21-2007, 08:42 PM
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

zertoyah
03-22-2007, 04:41 PM
Hmm it seems that I have a diffuclt error to fix, nonody knows how to fix it :(
... shit happens welcome to earth :p

Dunceiam
03-22-2007, 07:12 PM
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

zertoyah
03-23-2007, 11:49 AM
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.

Dunceiam
03-23-2007, 07:00 PM
Can you post exactly what it said in your debug box?

-Dunceiam

nathan1456
03-24-2007, 01:12 PM
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

Dunceiam
03-24-2007, 01:26 PM
Read Above Posts!

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

-Dunceiam

ammo2006
03-26-2007, 04:10 AM
Ill Try it, see what i get. :) Hopfully I wont find any bug, give u some good news :P

zertoyah
03-26-2007, 03:43 PM
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.

Dunceiam
03-26-2007, 06:53 PM
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

the scar noob
03-27-2007, 04:01 PM
theres an unknown identifier in it, you guys also have got that problem??
I made it, but you guys have got that problem to??

zertoyah
03-27-2007, 06:11 PM
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.

Dunceiam
03-27-2007, 07:27 PM
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
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

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

-Dunceiam

zertoyah
03-27-2007, 07:36 PM
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..

Dunceiam
03-27-2007, 07:39 PM
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

zertoyah
03-27-2007, 09:15 PM
Dunceiam , thanks for helping me out. I have given you credits for this.
Thanks again.

Dunceiam
03-27-2007, 09:19 PM
No problem. :)

-Dunceiam

Kingofptw
03-29-2007, 12:18 PM
[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...

Dunceiam
03-29-2007, 07:04 PM
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

Kingofptw
03-29-2007, 09:54 PM
And where do i setup the players?Which line?

Dunceiam
03-29-2007, 10:00 PM
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

cutter667
03-29-2007, 10:54 PM
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.

Kingofptw
03-29-2007, 10:59 PM
Thanks +rep for you :D

Kingofptw
03-29-2007, 11:09 PM
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...

cutter667
03-29-2007, 11:15 PM
Ok I got it nevermind. Sorry for that.

baracoudaking
03-31-2007, 05:33 PM
:( 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

Dunceiam
03-31-2007, 06:02 PM
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

baracoudaking
03-31-2007, 06:18 PM
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

Dunceiam
03-31-2007, 06:18 PM
Try putting your net in your inventory instead of bank.

-Dunceiam

baracoudaking
03-31-2007, 06:28 PM
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 .

demig0d
04-08-2007, 04:16 AM
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

Xerticle
04-08-2007, 08:47 AM
Same error as dude above me

Dunceiam
04-08-2007, 01:17 PM
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

Harry
04-13-2007, 02:13 PM
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

WiLkKo
04-17-2007, 09:28 PM
Failed when compiling
Line 1363: [Error] (19525:5): Unknown identifier 'I' in script

I dont understand what this means...

cooldude132
04-20-2007, 11:45 AM
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 :(

Zodia
04-21-2007, 11:41 PM
I'll test out. Do you want me to post a proggy?

Zodia
04-22-2007, 03:02 AM
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?

Dunceiam
04-22-2007, 02:39 PM
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

cooldude132
04-22-2007, 06:53 PM
Hey, does anyone know what to put for the location? Thanks for anyone that can help

Dunceiam
04-22-2007, 07:03 PM
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

cooldude132
04-22-2007, 08:27 PM
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. ^_^

Dunceiam
04-22-2007, 08:46 PM
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

cooldude132
04-22-2007, 08:50 PM
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?

Zodia
04-22-2007, 11:06 PM
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

Dunceiam
04-22-2007, 11:14 PM
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

Zodia
04-22-2007, 11:16 PM
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.

cooldude132
04-22-2007, 11:50 PM
No, i have a good internet connection..I don't know why...:( thanks for your help anyways.

Zodia
04-23-2007, 12:28 AM
I still don't know how to get the box.

jahiti
04-23-2007, 06:15 PM
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[I] := 0;

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

nathan1456
04-23-2007, 09:14 PM
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| Draynor Netter v3.50 Progress Report --> by Dankness |
<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
Worked for 42 Minutes and 24 Seconds
Banked 5 Total Loads[s].
Fished 60 Total Shrimp[s] so far.
Fished 43 Total Anchovie[s] 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[s] : 2 |
| OldMen Solved : 1 |
| Frog[s] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

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

Dunceiam
04-24-2007, 12:40 AM
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' +
'347536747605B34DCD8D8D0DDCCC9DCDCC0D5DC96313439A5 B9A1' +
'91B3A434800B13D1D24');

DB1 := DTMFromString('78DA636C67626008664001FFFFFF67F80FA 41' +
'921ECFF8CB54035DEA86AFEFC61621081AA0101C63A4C73B0 AA09' +

'C7AF06000153117B');
DB2 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA 41' +
'921ECFF8C3540353EA86AFEFC61621081AA0101C63AA09A10 22D4' +
'44E057030001B5117D');

DB3 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA 41' +
'921ECFF8CF540359EA86AFEFC61621081AA0101C63AA09A40 026A' +
'6A816A42F1AB010000781176');

FishSpotDTM := DTMFromstring('78DA63FCC4C0C070910105CC38F086410E4 83' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E35 00EE' +
'831204');

AnchovieDTM := DTMFromString('78DA632C64626078CA800232329A1944803 42' +
'394CF580E547317554D71F10454354540356F51D5F4F46E42 5593' +
'0154F398805D5540358F18D000238A1A00484D0D11');

ShrimpDTM := DTMFromString('78DA632C606260E062644006299E160C224 01' +
'A26CA980154C389AA665E671DAA9A6AA01A665435CB26B4A0 AA29' +
'04AA114455737EFF361435003AE608D8');

SalmonDTM := DTMFromString('78DA639CCDC4C0F08C0105CC4E0E671001D 28' +
'C503EE30CA09A57A86A0ED7E6A3AA590854F31455CDFEAA1C 5435' +
'73806A1EA1AA4977B242510300BD7E0BF4');

TroutDTM := DTMFromString('78DA632C626260E0616440067B366D62100 1D' +
'23051C61CA01A7E543547F7ED4355530E54C381AA66DDA245 A86A' +
'4076B1A3AAA92C2C4051030009CD0A03');

FeatherDTM := DTMFromString('78DA632C65626078CC800276AC5BCB2002A 41' +
'9A17CC642A09A67A86A0EEFDE85AAA61CA8E61EAA1A060D06 4C73' +
'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,Tro utCount,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

jahiti
04-24-2007, 07:41 PM
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

Dunceiam
04-24-2007, 07:44 PM
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

Homeburger
04-24-2007, 08:50 PM
sweet script, im gonna try it out right now!

NiCbaZ
04-25-2007, 03:26 AM
suggestion a fly fisher power or bank would be more usefull than this beacuse alot more xp

NiCbaZ
04-25-2007, 04:00 AM
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

mx1000
04-25-2007, 05:55 AM
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?

Dunceiam
04-25-2007, 10:42 AM
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

jahiti
04-25-2007, 05:05 PM
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..

Dunceiam
04-25-2007, 07:02 PM
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

PwNZoRNooB
04-25-2007, 07:22 PM
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

P1nky
04-29-2007, 11:16 PM
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%20N etter%20v3[1].50.scar
Downloading SRL plugins.

Dunceiam
04-30-2007, 01:15 AM
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

P1nky
04-30-2007, 01:37 AM
sorry dude but i coudnt find the pages.. can u please tell me what page should i look at ty =D

Dunceiam
04-30-2007, 01:44 AM
Page 11 in the middle I posted the revised script :).

-Dunceiam

RudeBoiAlex
04-30-2007, 05:38 PM
yo dunc i like ur version it pwnz

Dunceiam
04-30-2007, 06:53 PM
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

P1nky
04-30-2007, 11:42 PM
ok it works BUT ITS FRIGGING LAGGING LIKE HELL (CONN LOST) AND REASTABLISH IS IT MY COMP THATS WHY THIS SHIT HAPPENING?

Dunceiam
04-30-2007, 11:43 PM
Probably your computer, how much RAM does it have?

-Dunceiam

P1nky
04-30-2007, 11:46 PM
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

Mjordan
05-01-2007, 12:00 AM
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.

P1nky
05-01-2007, 12:02 AM
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

Mjordan
05-01-2007, 12:06 AM
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?

P1nky
05-01-2007, 12:13 AM
yes they do i tink =o this 1 worked not too long ago too do i need 3.05 scar?\\this script dead. lol?

P1nky
05-01-2007, 12:24 AM
man im confuzed =(...

Dunceiam
05-01-2007, 12:31 AM
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

P1nky
05-01-2007, 12:34 AM
ok ill d/l it on 2.03 =D and give u the situation if its ok k +D

NightBlade
05-03-2007, 11:55 PM
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

Dunceiam
05-04-2007, 12:06 AM
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

NightBlade
05-04-2007, 01:29 AM
umm everything is installed correctly, and I can run setupSRL

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

Dunceiam
05-04-2007, 01:49 AM
Try any other script and see if it works. Such as Goblin Scheduler or something.

-Dunceiam

NightBlade
05-04-2007, 01:56 AM
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? :)

Wizzup?
05-04-2007, 07:52 AM
Try my draynor netter instead.

lxbrianxl
05-06-2007, 02:28 AM
Line 1363: [Error] (19525:5): Unknown identifier 'I'
i tried to fix that but i cant =\

Dunceiam
05-06-2007, 02:39 AM
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

belgin fish
05-06-2007, 01:29 PM
Great Script i Really apreciate you puting effort into making a great one :) i will be posting a proggy shortly

Dunceiam
05-06-2007, 05:48 PM
Aww...I was getting ready to yell :p


m Not Syre But I Get This

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

Hehe.

Zodia
05-06-2007, 08:01 PM
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' +
'347536747605B34DCD8D8D0DDCCC9DCDCC0D5DC96313439A5 B9A1' +
'91B3A434800B13D1D24');

DB1 := DTMFromString('78DA636C67626008664001FFFFFF67F80FA 41' +
'921ECFF8CB54035DEA86AFEFC61621081AA0101C63A4C73B0 AA09' +

'C7AF06000153117B');
DB2 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA 41' +
'921ECFF8C3540353EA86AFEFC61621081AA0101C63AA09A10 22D4' +
'44E057030001B5117D');

DB3 := DTMFromString('78DA63EC60626008624001FFFFFF67F80FA 41' +
'921ECFF8CF540359EA86AFEFC61621081AA0101C63AA09A40 026A' +
'6A816A42F1AB010000781176');

FishSpotDTM := DTMFromstring('78DA63FCC4C0C070910105CC38F086410E4 83' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E35 00EE' +
'831204');

AnchovieDTM := DTMFromString('78DA632C64626078CA800232329A1944803 42' +
'394CF580E547317554D71F10454354540356F51D5F4F46E42 5593' +
'0154F398805D5540358F18D000238A1A00484D0D11');

ShrimpDTM := DTMFromString('78DA632C606260E062644006299E160C224 01' +
'A26CA980154C389AA665E671DAA9A6AA01A665435CB26B4A0 AA29' +
'04AA114455737EFF361435003AE608D8');

SalmonDTM := DTMFromString('78DA639CCDC4C0F08C0105CC4E0E671001D 28' +
'C503EE30CA09A57A86A0ED7E6A3AA590854F31455CDFEAA1C 5435' +
'73806A1EA1AA4977B242510300BD7E0BF4');

TroutDTM := DTMFromString('78DA632C626260E0616440067B366D62100 1D' +
'23051C61CA01A7E543547F7ED4355530E54C381AA66DDA245 A86A' +
'4076B1A3AAA92C2C4051030009CD0A03');

FeatherDTM := DTMFromString('78DA632C65626078CC800276AC5BCB2002A 41' +
'9A17CC642A09A67A86A0EEFDE85AAA61CA8E61EAA1A060D06 4C73' +
'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,Tro utCount,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

?

Dunceiam
05-06-2007, 08:07 PM
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

Shockwave
05-07-2007, 06:02 PM
ty works well

belgin fish
05-08-2007, 09:04 PM
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