Script lets fish

Hello, this is a really basic Script that does the fishing for you in Let's Fish (Spinning/Seafishing only)

You need a program called "Simba" also install their SRL for more information - [Only registered and activated users can see links. Click Here To Register...]

Setting up Simba and SRL - [Only registered and activated users can see links. Click Here To Register...]

Requirements

*Simba (With SRL check link)
*Desktop Resolution 1920x1080
*Flashacking Project (Let's Fish)
*Spinner of Sea Fisher
*Game must be full screen!

How to run

1. Open Simba
2. Copy and Paste the Script
3. Play Let's Fish on Facebook with the Flashacking Project hack enabled!
4. Go full screen
5. Press Ctrl + Alt + R to run the Script and Ctril + Alt + S to stop.

Code:

program new;

{$I SRL/SRL.Simba}

var x, y, Loop, Gevangen:Integer;



//FS = First Screen
//SS = Second Screen etc

const

Gooi = 2175822;
HaalBinnen = 3757168;
Vis = 8368849;


function FS : boolean;
begin
result := false;
If FindColorTolerance(x, y, Gooi, 928, 824-20, 959, 856-20, 5)
then result := true
end;

function SS : boolean;
begin
result := false;
If FindColorTolerance(x, y, HaalBinnen, 1337, 858-20, 1394, 891-20, 5)
then result := true
end;

function Vangst : boolean;
begin
result := false;
If FindColorTolerance(x, y, Vis, 777, 652-20, 968, 695-20, 5)
then result := true
end;

Procedure Uitgooien;
Begin
If (FS = True) then
 Begin
  Mouse(973, 849-20, 0, 0, True);
 End;
End;

Procedure Trek;
Begin
MarkTime(Loop);
If (SS = True) then
 Begin
  GetMousePos(x, y);
  MMouse(x, y, 20, 20);
  HoldMouse(x, y, 1);
   Begin
    Repeat
    Wait(50);
    Until (Vangst = True) or (TimeFromMark(Loop) > 20000)
   End;
  End;
  ReleaseMouse(x, y, 1);
End;

Procedure Randoms;
Begin
Mouse(1217, 262-20, 0, 0, True); //Grootste Vis
Mouse(1216, 306-20, 0, 0, True); //Bevrijde vis
Mouse(1209, 192-20, 0, 0, True); //Level up
Mouse(1215, 213-20, 0, 0, True) //Beschikbaar op nieuw level
End;

begin
SetupSRL;
MarkTime(Loop);
MouseSpeed := 50;

Repeat

ClearDebug;

Begin
WriteLn('Wachten tot we de hengel kunnen uitgooien');
 Repeat
  Wait(50);
 Until (FS = True) or (TimeFromMark(Loop) > 20000);
End;

If (FS = True) then
 Begin
  WriteLn('We kunnen de hengel uitgooien');
  UitGooien;
  Wait(300);
 End;

Begin
MarkTime(Loop);
 Repeat
  Wait(50);
 Until (SS = True) or (TimeFromMark(Loop) > 20000);
End;

If (SS = True) then
 Begin
  WriteLn('We gaan trekken');
  Trek;
  Wait(300);
 End;

If (Vangst = True) then
   Begin
    WriteLn('Gevangen!');
    Inc(Gevangen)
    WriteLn('We hebben ' + ToStr(Floor(Gevangen)) + ' vissen gevangen!');
    Mouse(1488, 124-20, 0, 0, True);
    Wait(300);
    Randoms;
   End;

Until False;

end.

Script is re-written, enjoy!

Edit yes the text is Dutch in the Script I added a function that counts how many fish is caught.

Code:

If (Vangst = True) then
   Begin
    WriteLn('Gevangen!');
    Inc(Gevangen)
    WriteLn('We hebben ' + ToStr(Floor(Gevangen)) + ' vissen gevangen!');

If you prefer English or your own language on how many are caught do this

Code:

If (Vangst = True) then
   Begin
    WriteLn('Gevangen!');
    Inc(Gevangen)
    WriteLn('We have ' + ToStr(Floor(Gevangen)) + ' caught fish!');