;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, -320, 540, 680 )
$html2 = "about
:<br><br><br><br><br><br><br><br><br><br><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 " & @
& "Or, Press [F9] to Use the Game Bot ")
ToolTip('Press (F9) to Use the Game Bot',0,0)
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 @
hen 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 ' & @
& " X = " & $pos[0] & @
& " Y = " & $pos[1],0,0)
Sleep(20)
WEnd
ToolTip("")
EndFunc
