Sign in to follow this  
Followers 0
Evil_Has_Survived

Game Bot

2 posts in this topic

#1 ·  Posted (edited)

I was very amazed when I seen this,

; 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 by Evil_Has_Survived

Thanks in advance

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I was very amazed when I seen this,

; 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 by Evil_Has_Survived

Thanks in advance

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0