Move to a spot you wish to fish and equip your gear (if you have it) Face the water just like you were about to fish Log out of the game correctly! Dont rush it. Let it log you all the way out.... Run the script you created by right clicking on it and going to "Run Script" Go back into FFXI as fast as you can Once your character appears DO NOT TOUCH ANYTHING! I have found that it works better if you dont touch any controls from the time you login till the time you want to stop Here is the code you need to make the script. DO NOT CHANGE ANYTHING! I have spend hours tweaking this to get it to work and it does. If you have problems, let us know!
Sleep(100000);give time to open FFXI $fisha = 2; $event = 0; $bite = 0; $failsafe=0; $nobait = 0; WinWaitActive("FFXiApp");
While $fisha > 1 AutoItSetOption("SendKeyDelay", 40); Send ("!1"); fishing macro $event = 0; $failsafe = 0; $nobait = 0;
Do Sleep(250);
If PixelGetColor(22,994) = 16777215 AND PixelGetColor(108,996) = 16777215 AND PixelGetColor(228,997) = 16777215 Then AutoItSetOption("SendKeyDelay", 40); Sleep(Random(3000,3200)); Send("{ENTER}"); Sleep(5400); EndIf
If PixelGetColor(43,997) = 16777215 AND PixelGetColor(83,998) = 16777215 AND PixelGetColor(175,999) = 16777215 Then Sleep(Random(5100,5400));You lost your catch. Finish and speed things up a little. $event = 1; EndIf
If PixelGetColor(37,1000) = 16777215 AND PixelGetColor(77,1000) = 16777215 AND PixelGetColor(180,998) = 16777215 Then Sleep(Random(5100,5400));You didn't catch anything. Finish and speed things up a little. $event = 1; EndIf
If PixelGetColor(47,1000) = 16777215 AND PixelGetColor(142,999) = 16777215 AND PixelGetColor(330,997) = 16777215 Then $nobait = 1;You ran out of bait so let's get ready to change it. EndIf
If PixelGetColor(43,995) = 16777215 AND PixelGetColor(71,997) = 16777215 AND PixelGetColor(84,995) = 16777215 Then autosort() Sleep(Random(2100,2200)); $event = 1;You caught something so now autosort, sleep a bit, and finish the event. EndIf
$failsafe = $failsafe+1; If $failsafe = 175 Then $event = 1; EndIf
Until $event = 1
sleep(2000);
If $nobait = 1 Then Send("!2");change bait EndIf
WEnd
Func autosort() Sleep(9000); AutoItSetOption("SendKeyDelay", 0235); Send ("!i"); Sleep(0250); Send ("{NUMPADADD}"); Sleep (0250); Send ("{ENTER}"); sleep(0350); Send ( "a" ); sleep(0350); Send ("{ENTER}"); sleep(0250); Send ("{ESCAPE}"); sleep(0250); Send ("{ESCAPE}"); Sleep (0250); EndFunc
|