Simba Code:
program sFisher_fixed;
///////////////////////////////////////////////////////////////////////////
{$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.