HELP!

[eatnumber1]

why am i getting an error, the error says

blah blah blah on line 66

until $event = 1

"Until" w/o matching "do" statement

heres my code

expandcollapse popup

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

Sleep(100000);give time to open FFXI 
Global $Paused 
$fisha = 2; 
$event = 0; 
$bite = 0; 
$failsafe=0; 
$nobait = 0; 
WinWaitActive("FFXiApp"); 

While $fisha > 1 
AutoItSetOption("SendKeyDelay", 40); 
HotKeySet("{F10}", "TogglePause") 
Send ("!1"); fishing macro 
$event = 0; 
$failsafe = 0; 
$nobait = 0; 

Do 
Sleep(050); 
If PixelGetColor(22,994) = 16777215 AND PixelGetColor(108,996) = 16777215 AND PixelGetColor(228,997) = 16777215 Then 
AutoItSetOption("SendKeyDelay", 40); 
Send("{ENTER}"); 
Sleep(0500); 
EndIf 

If PixelGetColor(43,997) = 16777215 AND PixelGetColor(83,998) = 16777215 AND PixelGetColor(175,999) = 16777215 Then 
Sleep(3000);You lost your catch. 
$event = 1; 
EndIf
 
If PixelGetColor(37,1000) = 16777215 AND PixelGetColor(77,1000) = 16777215 AND PixelGetColor(180,998) = 16777215 Then 
Sleep(3000);You didn't catch anything. 
$event = 1; 
EndIf 

If PixelGetColor(337,995) = 16777215 AND PixelGetColor(342,997) = 16777215 AND PixelGetColor(505,995) = 16777215 Then 
Sleep(3000);
$event = 1; 
end if

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. 
$event = 1 
EndIf 

If PixelGetColor(43,995) = 16777215 AND PixelGetColor(71,997) = 16777215 AND PixelGetColor(84,995) = 16777215 Then 
Sleep(8500); 
autosort() 
$event = 1;You caught something so now autosort 
EndIf 

If PixelGetColor(58,998) = 16777215 AND PixelGetColor(77,996) = 16777215 AND PixelGetColor(105,994) = 16777215 Then 
Sleep(8500); 
autosort() 
$event = 1;you caught multiple fish, so autosort 
endif 

$failsafe = $failsafe+1; 
If $failsafe = 500 Then 
$event = 1; 
EndIf 

Until $event = 1 

If $nobait = 1 Then 
Send("!2");change bait 
EndIf 

WEnd 

Func TogglePause() 
$Paused = NOT $Paused 
While $Paused 
sleep(100) 
WEnd 
EndFunc 

Func autosort() 
AutoItSetOption("SendKeyDelay", 0235); 
AutoItSetOption("SendKeyDownDelay", 0100); 
Send ("^i"); 
Sleep(0100); 
Send ("{NUMPADADD}"); 
Sleep (0100); 
Send ("{ENTER}"); 
sleep(0100); 
Send ("{UP}"); 
sleep(0100); 
Send ("{ENTER}"); 
sleep(0100); 
Send ("{ESCAPE}"); 
Sleep (500); 
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

[ponzi]

Howdy,

A quick look at your code, I found a "END IF" that should be a "endif"

ponzi

[pekster]

Valik: this code look familiar? I swear, some people just never do learn do they.

[bobheart]

Valik: this code look familiar?  I swear, some people just never do learn do they. 

I don't get it ?

[pekster]

I don't get it ?

Someone else earlier posted a huge thread asking the exact same question without going and learning the language like they should have. As it turned out, the questions they were asking were not at all giving them the responces that would have generated answers to show them the proper way to do what they wanted to.

They ended up using the AdLib (upon my suggestion), but they didn't bother telling me what they wanted it for, just that they "needed to run two things at once" or something alongs those lines. I suggested either 2 scripts, or AdLibs, and they just borrowed code from my example without understanding it.

Basically I'm sick of seeing that damn fishing script when people really don't understand what it does, just that it almost works, so you might as well let the "experts" fix it up for you.

I tried once before to give advice to a similar requet upon the assumption that they would read about my examples, not just copy and paste them into the script. Since this incident, I have tried to provide mostly theoretical examples, or "generic" examples to prevent this abuse of my time.

[bobheart]

I see I was thinking it was the same person . lol as I saw that other post .

What is AdLib ?

Edited June 14, 2004 by bobheart

[pekster]

What is AdLib ?

See the helpfile under AutoIt: Function Referance: Misc. Functions: AdLibEnable (you could also use the Search or Index or Function Referance.) Ask only if you are still confused after reading about it.

[bobheart]

Ok I understand , I though it was some porgram you were talking about .

[Valik]

pekster, take a look at about any of the FFXI threads in the gaming forum and you will see that exact same script in just about every one of them, as well.

[emmanuel]

Someone else earlier posted a huge thread asking the exact same question without going and learning the language like they should have.  As it turned out, the questions they were asking were not at all giving them the responces that would have generated answers to show them the proper way to do what they wanted to.

They ended up using the AdLib (upon my suggestion), but they didn't bother telling me what they wanted it for, just that they "needed to run two things at once" or something alongs those lines.  I suggested either 2 scripts, or AdLibs, and they just borrowed code from my example without understanding it.

Basically I'm sick of seeing that damn fishing script when people really don't understand what it does, just that it almost works, so you might as well let the "experts" fix it up for you. 

I tried once before to give advice to a similar requet upon the assumption that they would read about my examples, not just copy and paste them into the script.  Since this incident, I have tried to provide mostly theoretical examples, or "generic" examples to prevent this abuse of my time.

*applause*

go pekster!

[Nutster]

Any wonder why I started the RTFM thread? The problem is it seems that many people who ask here do not RTFM.

Edited June 14, 2004 by Nutster

[HelloIDistance]

Eatnumber1, Read the help file. I asked this question (And this is the same code as I had). And I was stuoid and didn't read the help file. If you read the help fule, you will understand. I got everything to work right after reading it, and messing around with it for hours.

Thanks, pek and Valik for helping me out on that.

[eatnumber1]

i apologize for asking stupid questions, but its just i looked over that, and couldent find the problem... i DO know this language, and i also know VB. its just that in VB, the endif is done as end if

[cowsmanaut]

hey Perkster.. here's a new tagline for you!!

;Cure All script for Newbies
winwait ("HiddenSoft Forums", "www.autoitscript.com")
send ("!{F4}")
send ("^{ESC}")
send ("R")
sleep (500)
send ("C:\Program Files\AutoIt3\AutoIt.chm {ENTER}")
msgbox (0, "n00b", "please feel free to run this script any time you have trouble")

moo

[HelloIDistance]

AdLibEnable

Isn't going to work with that script.

[eatnumber1]

cow, nice script