Simba Code:
{$f-}
type
TMinecraft = record
X, Y, W, H : Integer;
process : TSysProc;
end;
procedure TMinecraft.init();
var
I : Integer;
procArr := getProcesses();
begin
for I := 0 to high(procArr) do
if procArr[I].title = 'Minecraft 1.8' then // Update this
begin
self.process := procArr[I];
break();
end;
if self.process.title = '' then exit();
getClientPosition(self.X, self.Y);
getClientDimensions(self.W, self.H);
setDesktopAsClient();
end;
function locateFishingLine(): TPoint;
begin
findColor(result.X, result.Y, 0, 900, 400, 1400, 600); // Enter searcharea for black fishing line
result.X += 7;
result.Y += 7;
end;
var
minecraft : TMinecraft;
P, M : TPoint;
begin
minecraft.init();
while not isKeyDown(VK_E) do
begin
P := locateFishingLine();
writeLn('Looking at: ', P);
repeat
wait(50);
M := locateFishingLine();
until (M.Y > (P.Y + 5));
writeLn('Caught one! ', M);
getMousePos(M.X, M.Y);
clickMouse(M.X, M.Y, mouse_Right);
wait(100);
clickMouse(M.X, M.Y, mouse_Right);
wait(3000);
end;
end.
{$f+}
This is a script I used to fish in Minecraft on 1920x1080 resolution.
Update the script by entering the updated system process title instead of "Minecraft 1.8" and enter your own dimensions for the black fishing line search area.
As it is currently, the script will run for as long as the button e has not been pressed on the keyboard.