Draynor Netter v3.0

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

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

-Dunceiam

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

I also got this new error!

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

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

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

-Dunceiam

Quote:

---

Originally Posted by Dunceiam

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

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

-Dunceiam

---

Sadly no I am not getting the box.

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

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

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

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| 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!

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!

Code:

---

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

program DraynorNetFisher;

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

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

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

var
  bmpBridge : Integer;

var
  ShrimpDTM, AnchovieDTM, SalmonDTM, TroutDTM : Integer;

var
  FishingWaitTime, FishColor, Trips, TripstoDo : Integer;

var
  TotalShrimp, TotalAnchovies, TotalSalmons, TotalTrouts : Integer;

var
  GlobalShrimp, GlobalAnchovie, GlobalSalmon, GlobalTrout : Integer;

var
  GlobalBanks, GlobalRuns : Integer;

var
  CalibrateTimer, FindFastRandomsTime : Integer;

var
  SST1, SST2, FindNormalRandomsTime : Integer;

var
  UseGUI, UseAntiBan : Boolean;

var
  dFile, FishingText : string;

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

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

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

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

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

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

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

var EvilChicken, EvilChickens : Integer;

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

end;

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

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

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

  except

    begin
      Wait ( Time );
      FindTalk;
    end;

  end;

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

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

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

  end;
end;

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

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

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

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

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

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

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

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

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

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

end;

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

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

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

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

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

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

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

  GlobalRuns    := GlobalRuns + 1;

  CloseFile(aFile);
end;

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

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

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

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure FindRegularRandoms;
begin
  FindNormalRandoms;
end;

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

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

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

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

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

    Flag;
    SetRun ( False );

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

  end;

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

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

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

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

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

procedure WalkLumbridgetoDraynor;
var R : Integer;
begin

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

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

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

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

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

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end;

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

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

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

procedure Bank;
begin
 WalkToBanker;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end;

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

 ScriptID      := '6';

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


begin
 SaveGlobalStats;
 SetUp;
 repeat
  CheckStuff;

  if ( LoggedIn ) then
    if WeAreAtBank then WalkToFish;

  FindRandoms;

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

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

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

  until ( DoneFishing );

  if ( LoggedIn ) then
    if WeAreAtFish then WalktoBank;

  if ( LoggedIn ) then
    Bank;

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

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

end.


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

---

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

Cooldude, just try this script.

-Dunceiam

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

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

:)
-Dunceiam

sweet script, im gonna try it out right now!

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

also i have problems

this please help

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

Code:

---

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

---

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

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

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

-Dunceiam

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

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

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

-Dunceiam

Noticed a few bugs, ONLY 1 RUN!!!

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

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

wdf ??? what does this mean


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

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

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

-Dunceiam

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

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

-Dunceiam

yo dunc i like ur version it pwnz

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

And...?

Quote:

---

hey dun i aint seenu post on this script ;)

---

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

-Dunceiam

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

Probably your computer, how much RAM does it have?

-Dunceiam

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

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

Quote:

---

Originally Posted by p1nky

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

---

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

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

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

Quote:

---

Originally Posted by p1nky

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

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

---

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

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

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

man im confuzed =(...

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

-Dunceiam

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

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

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

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

p1nky, did it work?

-Dunceiam

umm everything is installed correctly, and I can run setupSRL

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

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

-Dunceiam