I have edited the script to make it more reliable and added DTM and Bitmap detection. When it was 3:00am I decided I wanted to fish so I stayed up a few hours and got it working for myself because it wasn't clicking properly at all. Then this morning I edited stuff that I forgot when tired. I am still planning to add more features like Fish/Hr and Inv/Hr. But, currently I added better clicking.
**About 868 Fish/Hr**
Make sure to point exactly north! Log out and log back in and it should automatically point you full north!
The settings are: - Brightness : MAX
- Camera Zoom: 0
Start at the same place as the original script. And make sure to have the camera facing as high and far away as possible.
More instructions and reminders in the Script.
program sFisher;
///////////////////////////////////////////////////////////////////////////
{$i SRL-OSR/SRL.simba} //You may have to change this to: {$i SRL/SRL.simba}
///////////////////////////////////////////////////////////////////////////
var rocktails, shark, manta, x , y , FishCount , FishCountPH ,InvsDone , InvsPH:integer;
//Original Script By: Hexless V2
//Edited By: stocky8
//Settings to use;
//Oldschool, 562 gameframe!
//Brightness MAX
//Camera: 0 || FARTHEST OUT!!
//North || Log out and log back in to make sure its true North
//Max Hieght of Camera
//Version: 1.2
//Start At Rocktails Fishing Spot Closest to the bank.
Procedure FishNShiz;
var x,X2,Y2 , y :integer;
Begin
wait(500);
Mouse(255,258,1,1,false);
MoveMouse(255,258 + 40);
Sleep(180);
ClickMouse2(Mouse_Left);
Writeln('Fishing...');
Sleep(85250);
End;
function checkSharks():boolean;
begin
shark := DTMFromString('mbQAAAHicY2VgYOhnZWDoBOKZQDwViKcB8TtGBobHQPwMiBmYGBi+AulZE/qBHEYUDFSKAZgwVEEBALFCCHU=');
result:= findDTM(shark,x,y,548,260,739,520);
end;
function checkMantas():boolean;
begin
manta := DTMFromString('mbQAAAHicY2VgYHjGysDwBohfAPF1IL4FxOZMDAxaQGwPxAZA7ArEadnTgKoZUTBQKQZgwlAFBQBqvwcf');
result:= findDTM(manta,x,y,548,260,739,520);
end;
function checkRocktails():boolean;
begin
rocktails := DTMFromString('mbQAAAHicY2VgYDjExMBwAoi3APFxIN4OxGcYGRgOAPFtIL4ExX5J/kDVjCiYlQETMGGoggIA6zkI6g==');
result:= findDTM(rocktails,x,y,548,260,739,520);
end;
Procedure BankFish;
var storeAll,openBank: integer;
Begin
storeAll := BitmapFromString(54, 7, 'meJxjYAAB95BYBhjjPxhA2LRAcPO' +
'RrUOTQmbDZTFNoLUL8bgKzYVojvyPBKgliMt8OMDjQrRwRosFNMVo' +
'PkI2H79KXLEMV4bfhXgSA5ERQTDKKIllYkwm0hDMGER2PCUuxBVTZ' +
'LuQAQlQnlMAF4tDIQ==');
openBank := BitmapFromString(69, 6, 'meJylU1sOwCAI43a7wH53/2Mwo4l' +
'hlDZkEj4q8qqgu5vZdT9Dfco+/taRY6axhE/yNB2c0/GvxBA0YpWt' +
'S/CK+WO3yV4GajobR0l2xiiy+NZSduycvYng25xOGk2i1l82HFxJM' +
'9oZl7KQoDMUp5A2UD8aw2XbDLNNY3RWq7FDiFJL2KlyiPXfic4vRe' +
'ks/w==');
wait(1000);
Mouse(588, 113,0,0,true);
Wait(6250);
Mouse(264,200,1,1,false);
Sleep(250);
findBitmapToleranceIn(openBank, x,y,100,100,368,335,145);
wait(100);
mmouse(x, y, 0,0);
ClickMouse(x,y,MOUSE_LEFT);
wait(2500);
freeBitmap(openBank);
//New Bank Sharks
if checkSharks then
begin
findDTM(shark,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Rocktails
if checkRocktails then
begin
findDTM(rocktails,x,y,548,260,739,520);
mmouse(x,y,5,5);
clickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(shark);
wait(1200);
end;
//New Bank Manta Rays
if checkMantas then
begin
findDTM(manta,x,y,548,260,739,520);
mmouse(x,y,5,5);
ClickMouse(x,y,MOUSE_RIGHT);
wait(100);
findBitmapToleranceIn(storeAll, x,y,488,202,746,542,145);
wait(350);
mmouse(x,y,0,0);
clickMouse(x,y,MOUSE_LEFT);
freeDTM(manta);
wait(1200);
end;
InvsDone := InvsDone + 1;
FishCount := FishCount + 27;
freeBitmap(storeAll);
End;
Procedure GoFish;
Begin
wait(250);
Mouse(669, 166,0,0,true);
Writeln('Going To Fishing Spot!');
Wait(6750);
Writeln('At Fishing Spot!');
wait(1000);
End;
Procedure Proggy;
Begin
ClearDebug;
Writeln('Total Time: ' + TimeRunning);
Writeln('Inventorys Fished : ' + IntToStr(InvsDone) + ' (' + IntToStr(InvsPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Fish Caught : ' + IntToStr(FishCount) + ' (' + IntToStr(FishCountPH) + ' Per Hour)'); //Ignore the p/h
Writeln('Please leave any bugs on the thread!');
End;
begin
//SetupSRL; Not required
//ActivateClient; Not Required
mouseSpeed := 25; //Need to set mouse speed or it will take ages to click
//BankFish;
//GoFish;
Repeat
FishNShiz;
BankFish;
GoFish;
Proggy;
Until(false);
end.
If you have any problems or questions with this edit please contact me and I will try my best to fix it!
Thanks for the release Hexless V2!