BluhBlah Posted October 16, 2009 Share Posted October 16, 2009 expandcollapse popup Dim $stop = 0 HotKeySet("{F4}", "toggel") HotKeySet("{F5}", "off") While 1 If $stop = 1 Then If PixelSearch(821, 257, 821, 257, 0x9CB8EA) Then ; Bnet screen Send ("B") EndIf If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; Login screen Send ("Password") Send ("{ENTER}") Sleep (10000) EndIf If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; See if its logged in Send ("!Q") EndIf If PixelSearch(477, 358, 477, 358, 0x620776) Then ; Makes it quit if it find victory screen Send ("!Q") EndIf If PixelSearch(64, 9, 64, 9, 0x181410) Then ; Makes it leave the scoreboard Send ("{ENTER}") If PixelSearch(477, 358, 477, 358, 0x620776) Then ; See if its in game Sleep (300000) If PixelSearch(477, 358, 477, 358, 0x620776) Then Send ("!Q") EndIf If PixelSearch(467, 327, 467, 327, 0x630877) Then ; Makes it leave if it get defeat screen Send ("{ENTER}") If PixelSearch(463, 218, 463, 218, 0xFFDEFF) Then ; If it finds quitscreen it will quit game! Send ("Q") EndIf Wend Func toggel() If $stop = 0 Then $stop = 1 Else $stop = 0 EndIf EndFunc Func off() Exit EndFunc [/codebox] Gives Line 34 WEnd Error: "Wend" Statement with no matching while statement :/ How to fix? 0 Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted October 16, 2009 Moderators Share Posted October 16, 2009 Xoriaz,That usually means you have another unbalanced statement soemwhere - look at your If/EndIf loops.If you were to use the Tidy function in SciTE, it would find these things for you! M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
PsaltyDS Posted October 16, 2009 Share Posted October 16, 2009 (edited) Two IFs above the WEnd you have no EndIf. Add the EndIf or change it to a single line If/Then. P.S. You could make that much cleaner by using single line If/Then statements where appropriate (any time there is only one conditional statement to execute): While 1 If $stop = 1 Then If PixelSearch(821, 257, 821, 257, 0x9CB8EA) Then Send("B") ; Bnet screen If PixelSearch(124, 446, 124, 446, 0x2742B0) Then ; Login screen Send("Password") Send("{ENTER}") Sleep(10000) EndIf If PixelSearch(124, 446, 124, 446, 0x2742B0) Then Send("!Q") ; See if its logged in If PixelSearch(477, 358, 477, 358, 0x620776) Then Send("!Q") ; Makes it quit if it find victory screen If PixelSearch(64, 9, 64, 9, 0x181410) Then Send("{ENTER}") ; Makes it leave the scoreboard If PixelSearch(477, 358, 477, 358, 0x620776) Then Sleep(300000) ; See if its in game If PixelSearch(477, 358, 477, 358, 0x620776) Then Send("!Q") If PixelSearch(467, 327, 467, 327, 0x630877) Then Send("{ENTER}") ; Makes it leave if it get defeat screen If PixelSearch(463, 218, 463, 218, 0xFFDEFF) Then Send("!Q") ; If it finds quitscreen it will quit game! EndIf WEnd Edited October 16, 2009 by PsaltyDS Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Link to comment Share on other sites More sharing options...
BluhBlah Posted October 16, 2009 Author Share Posted October 16, 2009 Thanks didnt know that was possible Looks so nice now! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now