Wewt for updates gunna test this now :p will try out cooker later on though
#########################################################
Draynor Fisher v1.4
Ran for: 1 Hours, 30 Minutes and 18 Seconds
Fights evaded: 0
Nets/Rods picked up/withdrew: 4
#########################################################
Fishing for: Fish
Total fish caught: 454 out of 1000 fish.
Loads banked: 16
#########################################################
NON-SMART :)
////////////////////////////////////////////////////////////////
// //
// ***** ***** ** ** ** *** ** **** ***** //
// ** ** ** ** ** * ** ** **** ** ** ** ** ** //
// ** ** ***** ****** *** ** **** ** ** ***** //
// ** ** ** ** ** ** ** ** *** ** ** ** ** //
// ***** ** ** ** ** ** ** ** **** ** **//
// //
// ***** ** **** ** ** ***** ***** //
// ** ** ** ** ** ** ** ** //
// ***** ** **** ******* ***** ***** //
// ** ** ** ** ** ** ** ** //
// ** ** **** ** ** ***** ** ** //
// //
// ** *** ** ***** //
// ** * **** ** ** ** //
// ****** ** **** ** ** //
// ** ** ** *** ** ** //
// ** ** ** ** ***** //
// //
// ***** ** *** ** ** ** ***** ***** //
// ** ** ** * **** ** ** ** ** ** ** //
// ***** ****** ** **** **** ***** ***** //
// ** ** ** ** ** *** ** ** ** ** ** //
// ***** ** ** ** ** ** ** ***** ** ** //
// //
////////////////////////////////////////////////////////////////
// Description //
////////////////////////////////////////////////////////////////
// //
// This is fisher will catch fish until the inventory is //
// full. After it filled the inventory with fish it will //
// walk to the bank and desposit it all. after that it //
// should cook the fish, when all fish are cooked then it //
// should drop the burned ones. //
// Fishing works for both net and bait fishing. //
// It contains AntiRandom, AntiBan. //
// //
////////////////////////////////////////////////////////////////
// Instructions //
////////////////////////////////////////////////////////////////
// //
// IMPORTANT! //
// Start in Draynor Village... and make sure that the //
// fishinggspot icon appears on the map. //
// //
// Write the data into the procedure of the DeclarePlayers //
// pocedure. further instrunctions out there. //
// //
// CHANGE FISHTYPE TO HOW YOU WANT TO FISH. MAKE SURE YOU //
// HAVE THE RGHT EQUOPMENT IN FIRST/SECOND SLOT. //
// //
// Currently the cooking procedure isnt great i think, but //
// im working on that, if you do not want to cook the fish //
// then leave CookCaughtFish='', if you do want to cook //
// then change to CookCaughtFish='Yes'. this only works //
// for netfishing, for now. //
// //
// IF YOU DO WANT TO COOK THEN MAKE SURE YOU A SHRIMP OR //
// ANCHOVIES IN FIRST/SECOND SLOT OF FIRST ROW FROM BANK. //
// ALSO MAKE SURE THAT YOU A BURNED SHRIMP OR ANCHOVIES IN //
// THE FIRST/SECOND SLOT OF SECOND ROW FROM BANK //
// ALSO MAKE SURE THAT YOU HAVE LOGS AND A THINDERBOX, //
// THAT ARE DIRECTLY ON SIGHT WHEN OPENING THE BANK. //
// //
////////////////////////////////////////////////////////////////
// Script created by: Phoenix13nl and Joelster134 //
////////////////////////////////////////////////////////////////
program DraynorFisherAndBanker;
{.include SRL/SRL.Scar}
{.include srl/srl/skill/fishing.scar}
var
i, x, y, CShrimpDTM, CAnchoviesDTM, CookFish, Ran, EquipmentLost, DFishCount, NetCount, CTotalCount, TotalCount, FishDTM, Fish2DTM, Fish3DTM, CLoadCount, LoadCount, NetDTM, RodDTM, BaitDTM, ThinderDTM, LogDTM, CookMask, LvlUpMask, CantCookMask : integer;
const
FishType = 'Net'; //IMPORTANT! write exactly: 'Net' or 'Bait'
CookCaughtFish = 'No'; //'Yes' = yes, anything else = no.
YourID = 'blah'; // Your stats id here
YourPW = 'extra blah'; //Your stats pw here
procedure DeclarePlayers;
begin
howmanyplayers:=1;
numberofplayers(howmanyplayers);
players[0].name:='Usermame';
players[0].pass:='Password';
players[0].nick:='Nickname'; //Just write 3-4 letters of your username, use correct capitals.
players[0].pin :=''; //Leave blank if no pin.
players[0].Integers[0]:=25;//Amount of fish to catch, change to any number.
players[0].active:=true;
players[0].worked:=0;
end;
procedure Init;
begin
NetDTM := DTMFromString('78DA63B465666078C0C8800A189148206D0D5' +
'47395801A5DA09A2704D47802D5DC25A0C68C0835CE40356F09A8' +
'7107AA798C5F0D0051850803');
RodDTM := DTMFromString('78DA63CC626060E0656440058C4824904E071' +
'25204D44403093122CCE122A0261748B01050530C249809A8C901' +
'1202F8D50000DDDA035A');
BaitDTM := DTMFromString('78DA63EC636060E063644006060A0A601A26C' +
'AD80224C451D5C064E16A26010961026A7A895003328793809A69' +
'986EC650B30048081150D30624F8F1AB0100A7C50592');
FishDTM := DTMFromString('78DA634C676060E86440038C4824900E07127' +
'D04D4240389A904D46403890904D4E403896E026A0A8044230135' +
'6140A215BF1A00AAED06A4');
Fish2DTM := DTMFromString('78DA63DCCBC0C020C8C8800A18914820BD194' +
'8881050B30F48701250731448F01250B31D48881350B30348F0E3' +
'5703005D5F04DC');
Fish3DTM := DTMFromString('78DA63FCCFC0C0309391011530229140FA2B9' +
'0984A40CD5B203187809A2F4062110135CC40562F01351C40D60C' +
'FC6A002AE7078C');
ThinderDTM := DTMFromString('78DA63F4606060B8C08006189148201D0D244' +
'E13501309246E1150E303244E1050E30D246E12501303240E1350' +
'E30624CEE05703005E7807F0');
LogDTM := DTMFromString('78DA63DCC8C0C0B09E010D30229140FA2490D' +
'84340CD76207190809AA34062250135C780C426026AD601892D04' +
'D480FCB417BF1A009C200A27');
CShrimpDTM := DTMFromString('78DA63BCCDC8C0F0800105AC2F1703D38C503' +
'EE30920EB39AA9AAD35E2A86AAE00591F51D5CCCF154151030025' +
'D708DD');
CAnchoviesDTM := DTMFromString('78DA636463626078C08002DCFD6AC1342394C' +
'FF803C87A81AAC6DE350F550D13D09C8FA86AF48C0251D4000095' +
'F7067A');
CookMask := BitmapFromString(150, 21, 'beNrtWEsWhDAI8/6XrjsXloZ' +
'fHcRJVn1VXwOhgBwHQRAEQWCMMYybtazKKb1TO9FR4n4hq1o+HS9g' +
'ecBfp1/aUcG+CjKFtlZwO5+xgFpKwPvzm974nNfi6epx2Cg7ZxcBY' +
'OP81cp7Ln1F5uomcDh+5E0yQB27Ca5ASq4DWVQ1NqkgaKioYF5Bo/' +
'+TCort00YFb0dsceb7FVxdCm+JdGVRowkxBV1xAqpS0smxtVpnjXc' +
'w0OGIRVmsudhvsRbCnsCN+2Emam+WmRXMjgVRVz6C+MDs6M9/1joO' +
'ADm0pIIfFrGLKzpyftoh7SbwHTkTBPFTnKruWdE=');
LvlUpMask := BitmapFromString(167, 22, 'beNrtmNESgzAIBP3/n7Yzfeg' +
'4RfBArIndfVLEknAJ0iwLAAAAADye9Y01iu/qUUj1aHJvLxSBRLeU' +
'J/xAcc8iLgC2+XSrXRSd2t6Y4ZHHM/UH/d5Uj7y8FdG/qtO6wbPEh' +
'c56WuPn1osuRrGDFKvxYdzdKNbuJWo3A97nQB98406PC753HYdTfs' +
'rOvVajCi8qExST0OjWontZ9MNEFUQPknAm0JnVMpTol+50cYMXik8' +
'wF+WIwPP8B9F7m4RU957aqrroQarjgn+p6C2lvuyWPTCp/ZEUu6nA' +
'LZvSuBX0TghTTWOtHImtVCCN96jWsOmzBgAAAACAmXgBkkpT1w==');
CantCookMask := BitmapFromString(207, 23, 'beNrtmMkOwyAMRPP/P01vEaI' +
'Ej82SIN6c2qrCHnvwwnUBAAAAAIAdkVLCwyHmvh9J0/95FO7DCxNf' +
'C9oyf8LRnpqmlUGexCI/9unzgZXtzLJ2O39LbiydjcRGD13MegaXQ' +
's9bBG22e67zw3E7dlBpV7miouZfxWKbMpgn//+u/8Fr0XRDNJG3Ht' +
'NEgEUgAm3W7XBVU6wEM1DizHLnus7t0xrV+0lv/eVad8nMkel8uHf' +
'MC36AizdNgc10LF9lgxsrNl0JpjzCYqsyXSY2vQG5EqGHaGBl6BGb' +
'+eTyotj08UCXx1tiEx80AmJrXyivIZGv3muq1cMVyXCa3qps5nyyr' +
'I12jgRm0jvrZ+Oad86oxTjq2j5EUsouoGxAeoeqHqIwDbDQJfT0bm' +
'/KoG3Fu6fMaMHgtNfFnu0AIDYAUBoAAAAAAABgY/wAe8IlFA==');
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
FindLamp('fishing');
end;
procedure AntiBan;
begin
if(not(LoggedIn))then Exit;
case random(4) of
0: PickUpMouse;
1: RandomMovement;
2: RandomRClick;
3: case random(4) of
0: HoverSkill('Fishing', false);
1: HoverSkill('Cooking', false);
2: HoverSkill('Woodcutting', false);
3: HoverSkill('Firemaking', false);
end;
end;
end;
procedure Angle;
begin
KeyDown(VK_UP);
wait(1500+random(500));
KeyUp(VK_UP);
wait(500+random(500));
writeln('Angle set.');
end;
procedure WalkFish;
begin
if(FindSymbol(x,y, 'water source')) then logout;
if not LoggedIn then exit;
if (InvFull = True) then exit;
MMouse(609,129,4,4);
wait(100+random(50));
Mouse(609,129,1,1,true);
AntiBan;
wait(6000+random(2000));
wait(1500+random(500))
if(FindSymbol(x,y,'fish'))then
begin
SetRun(True)
writeln('Walking to fishing spot.');
AntiRandoms;
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(3000+random(1000))
Antiban;
AntiRandoms;
wait(2000+random(500))
end;
end;
Procedure CatchFish;
begin
if (InvFull = true) or (LoggedIn = false) then exit;
repeat
AntiRandoms;
AntiBan;
repeat
wait(500+random(500));
GameTab(4);
if(FindSymbol(x,y, 'water source')) then logout;
if FishType='Net' then
begin
if not(FindDTM(NetDTM,x,y,550,205,735,255))then
begin
EquipmentLost:= 1;
writeln('Cant find net in inventory.')
if not FindObjCustom(x, y, ['Small', 'all f', 'ng net'], [1053978, 1185564, 1844268], 3) then exit;
wait(1500+random(500));
Mouse(x, y, 1, 1, true);
writeln('Found net on ground.')
if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
writeln('Net sucsesfully picked up.')
inc(NetCount);
end;
end;
if FishType='Bait' then
begin
if not(FindDTM(RodDTM,x,y,550,205,735,255))then
begin
EquipmentLost:= 2;
writeln('Cant find rod in inventory.')
if not FindObjCustom(x, y, ['Fishi', 'ing r', ' rod'], [872297, 671314, 469308], 3) then exit;
wait(1500+random(500));
Mouse(x, y, 1, 1, true);
writeln('Found rod on ground.')
if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
writeln('Rod sucsesfully picked up.')
inc(NetCount);
end;
if FishType='Bait' then
begin
if not(FindDTM(BaitDTM,x,y,550,205,735,255))then
EquipmentLost:= 2;
writeln('Cant find bait in inventory.')
exit;
end;
end;
AntiRandoms;
AntiBan;
wait(100+random(500))
if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
begin
writeln('Fishing spot spotted.');
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(500+random(500))
if FishType='Net' then
begin
if ChooseOption('Net') then
writeln('Fishing...');
end;
if FishType='Bait' then
begin
if ChooseOption('Bait') then
writeln('Fishing...');
end;
wait(5000+random(2500));
if FindFight=true then
begin
RunAway('E',true,1,5000+random(2500));
Ran := Ran + 1;
end;
AntiRandoms;
AntiBan;
if FindFight=true then
begin
RunAway('E',true,1,5000+random(2500));
Ran := Ran + 1;
end;
GameTab(4);
wait(3000+random(2500));
if FindFight=true then
begin
RunAway('E',true,1,5000+random(2500));
Ran := Ran + 1;
end;
end;
until(InvFull = true);
until(InvFull = true);
MMouse(648,57,4,4);
wait(100+random(50));
Mouse(648,57,1,1,true);
wait(2000+random(1000))
end;
procedure WalkBank;
begin
if not LoggedIn then exit;
if not (InvFull = true) then exit;
wait(1000+random(500))
if(FindSymbol(x,y,'bank'))then
begin
Writeln('Bank found.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(5000+random(1000));
AntiBan;
AntiRandoms;
wait(4500+random(1000));
end;
end;
procedure Bank;
begin
if not LoggedIn then exit;
if not (InvFull = true) then exit;
repeat
if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(1000+random(500))
if ChooseOption('se-q') then
begin
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', FishDTM, []);
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish2DTM, []);
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish3DTM, []);
wait(3500+random(500));
deposit(3,28,true);
wait(1500+random(500));
MMouse(489,33,4,4);
wait(100+random(50));
Mouse(489,33,1,1,true);
wait(1500+random(500));
end;
end;
until(InvFull = false)
inc(LoadCount);
end;
procedure WithDrawEquipment;
begin
if not LoggedIn then exit;
MMouse(648,57,4,4);
wait(100+random(50));
Mouse(648,57,1,1,true);
wait(2000+random(1000))
if not(FindSymbol(x,y,'bank'))then exit;
Writeln('Bank found.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(5000+random(1000));
AntiBan;
AntiRandoms;
wait(4500+random(1000));
if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(1000+random(500))
if ChooseOption('se-q') then
begin
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', FishDTM, []);
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish2DTM, []);
TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish3DTM, []);
wait(3500+random(500));
deposit(1,28,true);
wait(1500+random(500));
if (EquipmentLost=1) then
if not FindDTM(NetDTM,x,y,550,205,735,255) then
begin
if FindDTM(NetDTM,x,y,25,85,500,300) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-1');
EquipmentLost:= 0;
end;
end;
if (EquipmentLost=2) then
if not FindDTM(RodDTM,x,y,550,205,735,255) then
begin
if FindDTM(RodDTM,x,y,25,85,500,300) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-1');
EquipmentLost:= 3;
end;
end;
if (EquipmentLost=3) then
if not FindDTM(BaitDTM,x,y,550,205,735,255) then
begin
if FindDTM(BaitDTM,x,y,25,85,500,300) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-al');
EquipmentLost:= 0;
end;
end;
MMouse(489,33,4,4);
wait(100+random(50));
Mouse(489,33,1,1,true);
wait(1500+random(500));
end;
end;
if not EquipmentLost=0 then writeln('Could not find the needed equipment on bank.');
if not EquipmentLost=0 then logout;
MMouse(609,129,4,4);
wait(100+random(50));
Mouse(609,129,1,1,true);
AntiBan;
wait(6000+random(2000));
inc(netcount);
end;
procedure WithdrawFood;
begin
if not LoggedIn then exit;
if FindSymbol(x,y,'bank')then
begin
Writeln('Bank found.');
MMouse(x, y, 5, 5);
wait(100+random(50));
Mouse(x, y, 1, 1, true);
wait(5000+random(1000));
AntiBan;
AntiRandoms;
wait(4500+random(1000));
if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(1000+random(500))
if not ChooseOption('se-q') then exit;
if CTotalCount<TotalCount then
begin
wait(3500+random(500));
deposit(1,28,true);
wait(1500+random(500));
if (FindDTM(ThinderDTM,x,y,25,85,500,300))then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-1');
wait(400+random(100))
if not FindDTM(ThinderDTM,x,y,550,205,735,255) then Writeln('Could not find ThinderBox in Inv.');
end;
if FindDTM(LogDTM,x,y,25,85,500,300) then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-1');
wait(400+random(100))
if not FindDTM(LogDTM,x,y,550,205,735,255) then Writeln('Could not find Logs in Inv.');
end;
repeat
if FindDTM(FishDTM,x,y,25,85,77,125) then
begin
CookFish:= 1;
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-All');
wait(400+random(100));
if not FindDTM(FishDTM,x,y,550,205,735,255) then
begin
if not FindDTM(FishDTM,x,y,25,85,77,125) then writeln ('No more fish found.')
end;
if not (CookFish= 1) then
begin
Writeln('Could not find any fish.');
wait(1000+random(500));
Writeln('Loggin out.');
logout;
end;
end;
until(FindDTM(FishDTM,x,y,630,415,690,465));
if (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
begin
Writeln('All fish should now be cooked, Dropping burnt ones.');
wait(3500+random(500));
deposit(1,28,true);
wait(1500+random(500));
if FindDTM(FishDTM,x,y,24,128,77,175) then
begin
CookFish:= 2;
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,False);
wait(400+random(100))
ChooseOption('draw-All');
wait(400+random(100));
if not FindDTM(FishDTM,x,y,550,205,735,255) then Writeln('Could not find burned fish in Inv.');
end;
if not (CookFish= 2) then
begin
Writeln('Could not find any burned fish.');
wait(1000+random(500));
Writeln('Loggin out.');
logout;
end;
end;
MMouse(489,33,4,4);
wait(100+random(50));
Mouse(489,33,1,1,true);
wait(1500+random(500));
end;
MMouse(655,135,4,4);
wait(100+random(50));
Mouse(655,135,1,1,true);
AntiBan;
wait(6000+random(2000));
end;
end;
end;
Procedure CookTheFish;
begin
GameTab(4);
if not LoggedIn then exit;
wait(750+random(250));
CTotalCount:= CTotalCount + 26
if FindDTM(ThinderDTM,x,y,550,205,735,255)then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,True);
end;
if FindDTM(LogDTM,x,y,550,205,735,255)then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,True);
end;
repeat
wait(500+random(500))
until FindBlackChatMessage('The fire catches and the logs begin to burn.') or FindBitmapMaskTolerance(LvlUpMask,x,y,0,340,520,480,2,2);
begin
if CookFish=1 then
begin
repeat
if FindDTM(FishDTM,x,y,630,415,690,465)then
begin
MMouse(x,y,5,5);
wait(100+random(50));
Mouse(x,y,1,1,True);
wait(100+random(50));
end;
if not FindObjCustom(x, y, ['Fire'], [471356, 2407159], 3) then break;
wait(100+random(50));
Mouse(x,y,1,1,True);
wait(100+random(50));
wait(1200+random(250));
if FindBitmapMaskTolerance(CookMask,x,y,0,340,520,480,2,2) then
begin
MMouse(260,415,5,5);
wait(500+random(250));
Mouse(260,415,1,1,False);
wait(400+random(100));
if ChooseOption('Cook All') then
wait(15000+random(5000));
end;
until FindBlackChatMessage('They heal some health.') or FindBlackChatMessage('You eat the ') or FindBitmapMaskTolerance(CantCookMask,x,y,0,340,520,480,2,2);
end;
end;
AntiRandoms;
AntiBan;
end;
procedure DropTheFish;
begin
if not loggedin then exit;
if CookFish=2 then
begin
for i := 1 to 28 do
DropItem(i);
end;
DFishCount:= DFishCount + 28 - CountItemsIn('inv', 'dtm', FishDTM, []);
end;
procedure ProgressReport;
begin
if FishType='Net' then
Begin
writeLn('#########################################################');
writeLn('Draynor Fisher v1.4 ');
writeLn('Ran for: ' + TimeRunning);
writeLn('Fights evaded: ' + IntToStr(Ran));
writeLn('Nets/Rods picked up/withdrew: ' + IntToStr(NetCount));
writeLn('#########################################################');
writeLn('Fishing for: Fish');
Writeln('Total fish caught: ' + IntToStr(TotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
writeLn('Loads banked: ' + IntToStr(LoadCount));
writeLn('#########################################################');
if CookCaughtFish='Yes' then Writeln('Total fish cooked/Burned: ' + IntToStr(CTotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
if CookCaughtFish='Yes' then writeLn('Loads banked: ' + IntToStr(CLoadCount));
if CookCaughtFish='Yes' then writeLn('Burned fish dropped: ' + IntToStr(DFishCount));
if CookCaughtFish='Yes' then writeLn('#########################################################');
end;
if FishType='Bait' then
Begin
writeLn('#########################################################');
writeLn('Draynor Fisher v1.4 ');
writeLn('Ran for: ' + TimeRunning);
writeLn('Fishing for: Fish');
Writeln('Total fish caught: ' + IntToStr(TotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
writeLn('Loads banked: ' + IntToStr(LoadCount));
writeLn('Fights evaded: ' + IntToStr(Ran));
writeLn('Nets/Rods picked up/withdrew: ' + IntToStr(NetCount));
writeLn('#########################################################');
end;
end;
begin
cleardebug;
init;
setupsrl;
lampskill:='fishing'; //Change into any skill... make sure its written corretly!
declareplayers;
currentplayer:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
Angle;
Repeat
if not loggedin then exit;
WalkFish;
CatchFish;
WalkBank;
Bank;
if EquipmentLost> 0 then
begin
WithdrawEquipment;
end;
if (InvFull = True) then break;
Cleardebug;
ProgressReport;
Until(TotalCount>= Players[CurrentPlayer].Integers[0]);
if FishType='Net' then
begin
if CookCaughtFish='Yes' then
begin
CLoadCount:=0;
repeat
CookFish:=0;
WithDrawFood;
if not (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
begin
CookTheFish;
WalkBank;
end;
if (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
begin
DropTheFish;
end;
CLoadCount:=CLoadCount+1;
Cleardebug;
ProgressReport;
until(false)
end;
end;
logout;
end.