James Posted July 28, 2007 Share Posted July 28, 2007 Hey, I have just switched to Vista Beta 2, and have a problem with my script. Yes, it is a bot but I love the game so much. #include <GuiConstants.au3> #include <IE.au3> HotKeySet("{ESC}", "MyExit") HotKeySet("{TAB}", "StartBot") Global $Pos = WinGetPos(""), $c $oIE = _IECreateEmbedded () $GUI = GUICreate("CurveBall Bot", 681, 404, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 681, 404) $IE = _IENavigate($oIE, "http://70.84.248.90/~fetchga/Games-D5-140406/curveball.swf") GUISetState() While 1 $iMsg = GuiGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE Exit EndSwitch Wend Func MyExit() If WinActive($GUI, "") Then GuiDelete() Exit EndIF EndFunc Func StartBot() $c = PixelSearch($Pos[0], $Pos[1] + $Pos[0], $Pos[0], $Pos[1] + $Pos[0], 14680023) If IsArray($c) Then MouseMove($c[0], $c[1], 0) EndFunc Basically, the bot doesn't move the mouse anywhere and I am not sure if my PixelSearch pointers are correct. Thanks, James Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Gif Posted July 28, 2007 Share Posted July 28, 2007 (edited) Hey, I have just switched to Vista Beta 2, and have a problem with my script. Yes, it is a bot but I love the game so much. #include <GuiConstants.au3> #include <IE.au3> HotKeySet("{ESC}", "MyExit") HotKeySet("{TAB}", "StartBot") Global $Pos = WinGetPos(""), $c $oIE = _IECreateEmbedded () $GUI = GUICreate("CurveBall Bot", 681, 404, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 681, 404) $IE = _IENavigate($oIE, "http://70.84.248.90/~fetchga/Games-D5-140406/curveball.swf") GUISetState() While 1 $iMsg = GuiGetMsg() Switch $iMsg Case $GUI_EVENT_CLOSE Exit EndSwitch Wend Func MyExit() If WinActive($GUI, "") Then GuiDelete() Exit EndIF EndFunc Func StartBot() $c = PixelSearch($Pos[0], $Pos[1] + $Pos[0], $Pos[0], $Pos[1] + $Pos[0], 14680023) If IsArray($c) Then MouseMove($c[0], $c[1], 0) EndFunc Basically, the bot doesn't move the mouse anywhere and I am not sure if my PixelSearch pointers are correct. Thanks, James look at AUTOIT 1-2-3 , it has a bot for that game in it's examples: here is the code: CODE; This is a demonstration for Object Create, similar to Level I. ; We are using AU3Info to get the Pixel search color. #include <GuiConstants.au3> Dim $My_Color = 0xA8FF93 ; from AU3Info. Dim $Game, $MID HotKeySet("{F8}","Get_coord") HotKeySet("{F9}","Game_Bot") opt("MouseCoordMode", 0) ;see Level I or Search Help for "options". Opt("PixelCoordMode", 0) GUICreate("Object - Game Bot", 614, 370) GUISetFont(9, 400, -1, "MS Sans Serif") $B_oIE3 = ObjCreate("Shell.Explorer.2") $Breaktime = GUICtrlCreateObj($B_oIE3, -45, -140, 540, 510) $html2 = "about:<br><br><br><br><br><br><br><br><br><br><Text>.......... Game Bots... Yes, You can Create Game Bots in AutoIt. <br><br>........... Check this easy one out!... Please Press *Enter Game* </Text>" $B_oIE3.navigate ($html2) GUICtrlCreateLabel ("*Game Bots*", 503, 80,150) GUICtrlSetFont( -1, 12, 700) GUICtrlCreateLabel ("PixelSearch", 505, 120,150) GUICtrlSetFont( -1, 12, 700) $BrkStart = GUICtrlCreateButton("&Enter Game", 505, 300, 80, 25) $BrkEnd = GUICtrlCreateButton("&Exit", 505, 330, 80, 25) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Or $msg = $BrkEnd Then Exit EndIf If $msg = $BrkStart Then $B_oIE3.navigate ("http://www.albinoblacksheep.com/flash/curveball.php") Sleep(1500) ; wait to load $B_oIE3.navigate ("http://www.albinoblacksheep.com/flash/curveball.php") Sleep(1500) ; bypass the advertisement MsgBox(262208, "How to Play", "Move the Racket to Hit the Ball " & @CRLF & "Or, Press [F9] to Use the Game Bot ") EndIf WEnd Func Game_Bot() ; if $Game then $Game = True, If Not $Game then $Game = False, maybe think of $Game as "1". $Game = NOT $Game If $Game Then ToolTip('Press (F9) to Exit Game Bot',0,0) While $Game ; search left, top, right bottom for my color, color varience of 50 shades, check every 10 pixels. $ball = PixelSearch( 49, 75, 430, 330, $My_Color, 50, 10) If Not @error Then MouseClick("left", $ball[0], $ball[1], 1, 0) WEnd ToolTip("") EndFunc Func Get_coord() ; press F8 to get mouse coordinates $MID = NOT $MID While $MID $pos = MouseGetPos() ToolTip('Mouse coordinates ' & @CRLF & " X = " & $pos[0] & @CRLF & " Y = " & $pos[1],0,0) Sleep(20) WEnd ToolTip("") EndFunc Edited July 28, 2007 by c4nm7 Link to comment Share on other sites More sharing options...
James Posted July 28, 2007 Author Share Posted July 28, 2007 (edited) I forgot completely about that Thanks c4nm7 Edited July 28, 2007 by NeoTroniX Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ 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