I Made A Game For My Girlfriend

[ConsultingJoe]

UPDATED, Check first post, Thanks

[gamerman2360]

I should also make an anti-hack, what do you think? how could I do that?

Make new buttons when it is clicked, so it's ID isn't alwas 6. Check to see if the mouse is on the window. Check if the balloons are clicked after the same amount of time everytime. You could also make an EULA, but no one reads those... Edited May 21, 2006 by gamerman2360

[Neoborn]

1. First Screen " This is the into"? should it not be "This is the Intro"?

2. I got fifty first try....how the heck you guys get over 80?

Edited May 22, 2006 by Neoborn

[ConsultingJoe]

Make new buttons when it is clicked, so it's ID isn't alwas 6. Check to see if the mouse is on the window. Check if the balloons are clicked after the same amount of time everytime. You could also make an EULA, but no one reads those...

LOL, a EULA, That is funny. I will try the other stuff though, thanks

[gamepin126]

Cute game.

Did I win?

[ConsultingJoe]

Cute game.

Did I win?

OMG, no way. how did you get that. post your script

[SmOke_N]

OMG, no way. how did you get that. post your script

Here's his script:

MsgBox(0, '', 'You got 546424 objects')

LOL

[ConsultingJoe]

Here's his script:

MsgBox(0, '', 'You got 546424 objects')

LOL

You know what smoke, I bet your right. How weak

So what do you think of the addition that I added about the ini, for easy game creation?

[gamepin126]

Here's his script:

MsgBox(0, '', 'You got 546424 objects')

LOL

Dangit, you caught me.

[SmOke_N]

Yeah, if you change the function up a tad, that's not hard

expandcollapse popup

Func play()
    GUICtrlDelete( $bday )
    $balloonclicks = 0
    $begin = TimerInit()
    GUICtrlSetData( $play, "Stop" )
    $balloon = GUICtrlCreatePic ("ballon.bmp", Random(156, 576, 1)-156, Random(159, 474, 1)-159, 0,0 )
    $diff = 0
    While $diff < 30
        $diff = Int(TimerDiff($begin) / 1000)
    ;GUICtrlSetData($time, $diff)
    ;$msg2 = GuiGetMsg()
   ;Select
    ;Case $msg2 = $play
        ;GUICtrlSetData( $play, "Play" )
        ;GUICtrlDelete( $balloon )
        ;GUISetFont( 38 )
        ;$bday = GUICtrlCreateLabel( "HAPPY BIRTHDAY SAM", 5, 180)
        ;GUISetFont( 15 )
        ;GUICtrlSetData( $time, "You have 30 seconds" )
        ;GUICtrlSetData( $label, "0 balloons popped" )
        ;Return $balloonclicks
    ;Case $msg2 = $GUI_EVENT_CLOSE
        ;Exit
    ;Case $msg2 = $balloon
        ;GUICtrlDelete( $balloon )
            $balloonclicks = $balloonclicks + 1
        ;GUICtrlSetData( $label, $balloonclicks & " balloons popped" )
        ;$balloon = GUICtrlCreatePic ("ballon.bmp", Random(156, 576, 1)-156, Random(159, 474, 1)-159, 0,0 )
    ;EndSelect
    WEnd
    GUICtrlSetData($time, $diff)
    GUICtrlSetData( $label, $balloonclicks & " balloons popped" )
    MsgBox(0, "''", "Happy" & @CRLF & "You got " & $balloonclicks & @CRLF & "Nice Job")
    GUICtrlSetData($play, "Play" )
    GUICtrlDelete( $balloon )
    Return $balloonclicks
EndFunc

[gamepin126]

I actually cheated, well kinda. I memory edited it, so I didn't use a script to achieve those previous numbers.

To a point it will depend on your processor speed, rather than script optimizations or editing the bot's script.

WinWaitActive("My Game")
While 1
    ControlClick("", "", 6)
WEnd

This is quite possibly the most optimized you'll ever get if you're just using a script, keep in mind the smaller your script the smaller it will take to process the information and run all the way through.

I have a AMD64 X2 3800+ running at 2.4ghz so my scores might not be that high. I ran the game, and compiled 2 seperate autoclick scripts, each with a different name so they didn't overwrite eachother. I changed the affinity so each ran on a different CPU. These are my tests.

Test1:

Test2:

Test3:

I'm running a fair amount of apps and my firewall's not helping either, I probably could've gotten 4k but I'm not gonna find out right now.

See, starts leveling out due to processor limitations. I also created a custom balloon so I could at least it at work, and so that the bmp's small size wouldn't affect the script in any way. It's a 3x2px colored red.

<-that's it

~2fingaz

Edited May 23, 2006 by gamepin126

[ConsultingJoe]

thats kool

[wizzardking]

I get an error on a missing function in 48..

Here is the image I used, This is my girlfriend.

She is now 18yrs old

Let me know what you think

EDIT: I know made a ini config file for it and added the image_get_info UDF to get the size of the images so they don't go off the sceen. I also made minor fixes.

Game.zip

expandcollapse popup

#include <GUIConstants.au3>
#include "image_get_info.au3"
; READ INI
;gameconfig.ini
$cfg = @ScriptDir & "\gameconfig.ini"
$intro = IniRead( $cfg, "labels", "intro", "Click start to Begin" )
$title = IniRead( $cfg, "labels", "title", "The Game" )
$objects = IniRead( $cfg, "labels", "objects", "balloons" )
$image = IniRead( $cfg, "object", "image", "\balloon.bmp" )
$aInfo = _ImageGetInfo(@ScriptDir & $image)
$width = _ImageGetParam($aInfo, "Width")
$height = _ImageGetParam($aInfo, "Height")
;GUI CREATE
$Form1 = GUICreate($title, 576, 474, 192, 125)
GUISetBkColor(0xffffff)
GUISetState(@SW_SHOW)
$play = GUICtrlCreateButton( "Play", 0,0, 45, 25 )
GUISetFont( 15 )
$label = GUICtrlCreateLabel( "0 " & $objects, 50, 5, 100, 25 )
$time = GUICtrlCreateLabel( "You have 30 seconds", 180, 5 )
GUISetFont( 38 )
$bday = GUICtrlCreateLabel( $intro, 5, 180)
GUISetFont( 15 )
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $play
        play()    
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case Else
;;;;;;;
    EndSelect
WEnd
Exit
Func play()
    GUICtrlDelete( $bday )
    $balloonclicks = 0
    $begin = TimerInit()
    GUICtrlSetData( $play, "Stop" )
    $balloon = GUICtrlCreatePic ( @ScriptDir & $image, Random(156, 576, 1)-156, Random(159, 474, 1)-159, 0,0 )
    $dif = 0
    While 1
        If $dif < Round ( TimerDiff($begin)/1000 ) Then
            $dif = Round ( TimerDiff($begin)/1000 )
            GUICtrlSetData( $time, $dif & " Seconds" )
            If $dif = 1 Then GUICtrlSetData( $time, $dif & " Second" )
            If $dif > 29 Then
        ;game over
                GUISetState(@SW_HIDE)
                Sleep(500)
                MsgBox(0, "", "You got " & $balloonclicks & " " & $objects)
                GUISetState(@SW_SHOW)
                GUICtrlSetData( $play, "Play" )
                GUICtrlDelete( $balloon )
                Return $balloonclicks
            EndIf
        EndIf            
        $msg = GuiGetMsg()
    Select
    Case $msg = $play
        GUICtrlSetData( $play, "Play" )
        GUICtrlDelete( $balloon )
        GUISetFont( 38 )
        $bday = GUICtrlCreateLabel( $intro, 5, 180)
        GUISetFont( 15 )
        GUICtrlSetData( $time, "You have 30 seconds" )
        GUICtrlSetData( $label, "0 " & $objects )
        Return $balloonclicks
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $balloon
    GUICtrlDelete( $balloon )
    $balloon = GUICtrlCreatePic ( @ScriptDir & $image, Random($width, 576, 1)-$width, Random($height, 474, 1)-$height, 0,0 )
    $balloonclicks = $balloonclicks + 1
    GUICtrlSetData( $label, $balloonclicks & " " & $objects )
    EndSelect
    WEnd
EndFunc

[gamepin126]

I get an error on a missing function in 48..

Run it in beta.