SRL Archive - Outdated / Broken

1. Face directly north or it will break. (Log out and Log back in to ensure true north)
2. Have the fishing level required for at least Sharks.
3. No bank pin, if so make insert it before hand so it doesnt break.
4. Start in the harpoon spot closest to the bank.
5. Make sure to have the camera zoomed all the way out and all the way up.
6. Set Simba's target icon to your SoulSplit Client.
7. This can be pretty buggy from computer to computer, I tested on 3 of my computers and 2/3 worked for 12 hours+
8. Read the stuff in the first lines of the script to adjust setting any probably solve many of your errors

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.