Jump to content

Trying to run script and gives me an error. Please help. Probably simple!


Recommended Posts

I found this script on the forum that I'm trying to use but it says "Unkown function name" for line 1. The person who wrote it said it work. I have AutoV3. What am I doing wrong?

CODE
$Timer50Minutes = TimerStart()

AdLibEnable("timers", 500);call the timers function to check for various times

Sleep(60000);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);

AutoItSetOption("SendKeyDownDelay", 0100);

Send ("!i");

Sleep(0250);

Send ("{NUMPADADD}");

Sleep (0250);

Send ("{ENTER}");

sleep(0350);

Send ("{UP}");

sleep(0350);

Send ("{ENTER}");

sleep(0250);

Send ("{ESCAPE}");

sleep(0250);

Send ("{ESCAPE}");

Sleep (0250);

EndFunc

Func timers()

If TimerStop($Timer50Minutes)> 1000 * 3000 Then

Adlibdisable ()

Sleep(30000);wait 30 seconds for rod to reel in

Send("/logout")

Send("{ENTER}")

Sleep(35000);wait 35 seconds before continuing

Send("{ENTER}");

Sleep(7000);wait 7 seconds

Send("{ENTER}");

Sleep(7000);wait 7 seconds

Send("{ENTER}");

Sleep(7000);wait 7 seconds

Send("{ENTER}");

Sleep(20000);wait 20 seconds and then start script again

$Timer50Minutes = TimerStart()

EndIf

EndFunc

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...