Sign in to follow this  
Followers 0
James

Not sure if it works

3 posts in this topic

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

Share this post


Link to post
Share on other sites



#2 ·  Posted (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 by c4nm7

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