Code need some help

[BluhBlah]

Gives error:

Line 9

WEnd

Error: "Wend" statement with no matching "While" statement.

It gave error when i added

If $coord = PixelSearch(512, 392, 512, 392, 0x9B9992) Then

But really need this so.. Help please

Dim $stop = 0

HotKeySet("{F4}", "toggel")
HotKeySet("{F5}", "off")

While 1
    If $stop = 1 Then
        If WinActive("Warcraft III") Then
             $coord = PixelSearch(146, 85, 146, 85, 0xD6593B)
            If Not @error Then
                Send ("B")
                Sleep (5000) Then
                $coord = PixelSearch(512, 392, 512, 392, 0x9B9992)
                If Not @error Then
                Send ("1y7")
                Send ("{ENTER}")
            EndIf
        EndIf
    EndIf
WEnd
                
                
Func toggel()
    If $stop = 0 Then
        $stop = 1
        ToolTip("LossBot = ON", 0, 0)
    Else
        $stop = 0 
        ToolTip("LossBot = OFF", 0, 0)
    EndIf
EndFunc

Func off()
    Exit
EndFunc

Edited September 23, 2009 by Xoriaz

[Avro]

You missed the ENDIF for the last statement you added.

Dim $stop = 0

HotKeySet("{F4}", "toggel")
HotKeySet("{F5}", "off")

While 1
    If $stop = 1 Then
        If WinActive("Warcraft III") Then
             $coord = PixelSearch(146, 85, 146, 85, 0xD6593B)
            If Not @error Then
                Send ("B")
                Sleep (5000)
                If $coord = PixelSearch(512, 392, 512, 392, 0x9B9992) Then
                Send ("123")
                Send ("{ENTER}")
                EndIf ;missed this one
            EndIf
        EndIf
    EndIf
WEnd


Func toggel()
    If $stop = 0 Then
        $stop = 1
        ToolTip("LossBot = ON", 0, 0)
    Else
        $stop = 0
        ToolTip("LossBot = OFF", 0, 0)
    EndIf
EndFunc

Func off()
    Exit
EndFunc

[JohnOne]

In your while loop, you have 4 ifs and only 3 endifs, and one unnessesary then.

[Yashied]

Use Tidy AutoIt Source that is included in SciTE full version.