Draynor Netter v3.0

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

Try my draynor netter instead.

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

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

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

-Dunceiam

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

Aww...I was getting ready to yell :p

Quote:

---

Originally Posted by belgin fish

m Not Syre But I Get This

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

---

Hehe.

Quote:

---

Originally Posted by Dunceiam

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

Jahiti, here's the script.

Everyone Please Try This Script Before Posting Problems!

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

---

?

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

Code:

---

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

---

ty works well

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

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

:)
-Dunceiam

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

o and ps what do i put for location?

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

Ask if ya need help :)

-Dunceiam

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

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

-Dunceiam

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

Quote:

---

Originally Posted by 3garrett3

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

---

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

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

somehow, i always get this:

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

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

Quote:

---

somehow, i always get this:

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

---

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

Quote:

---

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

---

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

-Dunceiam

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

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

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

-Dunceiam

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

Quote:

---

Originally Posted by Dunceiam

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



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

-Dunceiam

---

Dunceiam, it still doesnt work with old version

What's the error you're getting?

-Dunceiam

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

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

-Dunceiam

ohh ok then thank you very much

No problem :).

That's what I'm here for.

-Dunceiam

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

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

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

So it should look like..

Code:

---

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

---

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

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

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

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

-Dunceiam

just looked at it then looks really good


thanks dank

haxor

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

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

-Dunceiam

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

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

-Dunceiam

i keep get n

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

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

PLEASE READ PREVIOUS POSTS/PAGES

-Dunceiam