Evil_Has_Survived Posted April 2, 2006 Share Posted April 2, 2006 (edited) I was very amazed when I seen this, expandcollapse popup; 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 how does the bot work does it follow coordinates or does it run on the pixel of the green ball. I know that its following the ball but not sure how. Edited April 2, 2006 by Evil_Has_Survived Thanks in advance Link to comment Share on other sites More sharing options...
Evil_Has_Survived Posted April 2, 2006 Author Share Posted April 2, 2006 (edited) I was very amazed when I seen this, expandcollapse popup; 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 how does the bot work does it follow coordinates or does it run on the pixel of the green ball. I know that its following the ball but not sure how. ; Find a pure red pixel in the range 0,0-20,300 $coord = PixelSearch( 0, 0, 20, 300, 0xFF0000 ) If Not @error Then MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1]) EndIf ; Find a pure red pixel or a red pixel within 10 shades variations of pure red $coord = PixelSearch( 0, 0, 20, 300, 0xFF0000, 10 ) If Not @error Then MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1]) EndIf maybe this is why but. still doesn't explain how it keeps genrating the new pixel oh I was looking around and found this 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) Edited April 2, 2006 by Evil_Has_Survived Thanks in advance 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