You need a program called "Simba" also install their SRL for more information -
Setting up Simba and SRL -
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.
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!');
Code:
If (Vangst = True) then Begin WriteLn('Gevangen!'); Inc(Gevangen) WriteLn('We have ' + ToStr(Floor(Gevangen)) + ' caught fish!');