MrSlo Posted February 6, 2009 Share Posted February 6, 2009 I made this code and it wont work. Ithink this is my first problem in this code umm and im starter... ( BIG newbie =) ). If u can help me il be happy! expandcollapse popup;---------------------------- ; For DriftCity ; Created by Matys ;---------------------------- #include <GUIConstants.au3> HotkeySet("{F11}", "Quit") HotkeySet("{F10}", "Pause") HotKeySet("{F9}", "Go") AutoItSetOption("TrayIconDebug", 1) Global $Pause = 1 While 1 Sleep(100) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Go() $Pause = 1 While $Pause = 1 ToolTip("BOT Active", 0, 0) Sleep(1000) While (True) $subject = PixelSearch( 0, 0, 2000, 2000, 0xFFcB00);subject Sleep(1000) Send("{TAB}") Send("{Enter}") if (@error=1)Then Sleep(10) Else $subject = PixelSearch( 0, 0, 800, 800, 0xFFcB00);subject sleep(1500) Send("{TAB}") Send("{Enter}") EndIf Wend EndFunc Func Quit() ToolTip("Quitting BOT", 0, 0) Sleep(20) EndFunc Func Pause() $Pause = 3 ToolTip("BOT Paused", 0, 0) EndFunc RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", "DCO") Link to comment Share on other sites More sharing options...
Zedna Posted February 6, 2009 Share Posted February 6, 2009 Just corrected syntax errors and Tidyed-up expandcollapse popup;---------------------------- ; For DriftCity ; Created by Matys ;---------------------------- #include <GUIConstants.au3> HotKeySet("{F11}", "Quit") HotKeySet("{F10}", "Pause") HotKeySet("{F9}", "Go") AutoItSetOption("TrayIconDebug", 1) Global $Pause = 1 While 1 Sleep(100) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func Go() $Pause = 1 While $Pause = 1 ToolTip("BOT Active", 0, 0) Sleep(1000) While 1 $subject = PixelSearch(0, 0, 2000, 2000, 0xFFcB00);subject Sleep(1000) Send("{TAB}") Send("{Enter}") If (@error = 1) Then Sleep(10) Else $subject = PixelSearch(0, 0, 800, 800, 0xFFcB00);subject Sleep(1500) Send("{TAB}") Send("{Enter}") EndIf WEnd WEnd EndFunc ;==>Go Func Quit() ToolTip("Quitting BOT", 0, 0) Sleep(20) EndFunc ;==>Quit Func Pause() $Pause = 3 ToolTip("BOT Paused", 0, 0) EndFunc ;==>Pause RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization", "REG_SZ", "DCO") Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
MrSlo Posted February 6, 2009 Author Share Posted February 6, 2009 THANKS! umm, now is working on picture... why is not working in game? i try Window mode and full screen none is working! Link to comment Share on other sites More sharing options...
Zedna Posted February 6, 2009 Share Posted February 6, 2009 Some games are protected against automatizing/botting. Maybe it's your case. Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
MrSlo Posted February 6, 2009 Author Share Posted February 6, 2009 than is impossible to make bot? how can else works? 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