I Made A Game For My Girlfriend

[ConsultingJoe]

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

Edited May 21, 2006 by zerocool60544

[RazerM]

Quite nice! Kept me occupied for 10 minutes. I got 49 balloons

[MHz]

Very sweet idea.

[ConsultingJoe]

Very sweet idea.

Thanks guys. I was thinking of making a few different types of games. even make them customizable with a ini or something. BTW she got 72!!!

[slightly_abnormal]

Thanks guys. I was thinking of making a few different types of games. even make them customizable with a ini or something. BTW she got 72!!!

awesome zerocool.. I got 87 ..

Edited May 20, 2006 by slightly_abnormal

[Thatsgreat2345]

WOOO HOO 628 beat that possibly max

Edited May 20, 2006 by thatsgreat2345

[cppman]

Fun...

While 1
    sleep(10)
    ControlClick("Happy Birthday Sam!   I LOVE YOU SO MUCH", "", 6)
WEnd

I Think i got the highest. lol

[Thatsgreat2345]

Fun...

While 1
    sleep(10)
    ControlClick("Happy Birthday Sam!   I LOVE YOU SO MUCH", "", 6)
WEnd

I Think i got the highest. lol

NOPE try and beat 1850

Edited May 21, 2006 by thatsgreat2345

[ConsultingJoe]

NOPE try and beat 1850

lol, you guys are already hacking my games

[Valuater]

That was very sweet and thoughtful... nice to see some people still go out of their way for their "girl"

....

I got over 2800

but....... i ran the script without downloading the pic

8)

[snow2000]

I got 617

[Thatsgreat2345]

val u must of extended time its not possible to get that many in 30 seconds max i got was like 1900

[SmOke_N]

val u must of extended time its not possible to get that many in 30 seconds max i got was like 1900

Edit: Round 2

Edited May 21, 2006 by SmOke_N

[ConsultingJoe]

Edit: Round 2

LOL, you guys are great, Thanks

[Thatsgreat2345]

Edit: Round 2

for just not downloading the image ive done the same but yours is quite high well just wait ill come back im going for 10,000

[SmOke_N]

for just not downloading the image ive done the same but yours is quite high well just wait ill come back im going for 10,000

I got to 7590, I made my own balloon though, don't think the wife would appreciate his girlfriend on my screen.

[ConsultingJoe]

I got to 7590, I made my own balloon though, don't think the wife would appreciate his girlfriend on my screen.

LOL, kool, I should make it where it reads the size of the balloon then adjusts to keep it in the screen.

I should make it a neutral game too because it isn't her Bday any more.

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

[Confuzzled]

Newbie questions: Can somebody post an AutoIT bot to help me get a higher score?

Grins, ducks, and runs away!!!

[ConsultingJoe]

Newbie questions: Can somebody post an AutoIT bot to help me get a higher score?

Grins, ducks, and runs away!!!

Thats what this what...

While 1
    sleep(10)
    ControlClick("Happy Birthday Sam!   I LOVE YOU SO MUCH", "", 6)
WEnd

good luck, I got about 800

[SmOke_N]

Here's with My AuotIt Bot with no picture:

Edited May 21, 2006 by SmOke_N