Zodia, you need to set a UseGUI to true. Then you will have a box that pops up.
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
}
SRL Member
Originally Posted by p1nky
Posting Permissions
