Jump to content

I Made A Game For My Girlfriend


Recommended Posts

UPDATED, Check first post, Thanks

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

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 by gamerman2360
Link to comment
Share on other sites

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 by Neoborn

~Projects~1. iPod Ejector 1.0 - Tool Used To Eject iPod in Windows - Uses DevEject.exe :P2. SmartFTP Close Popup Tool - Closes reminders from freeware SmartFTP.~Helpful Links For New Users~1. LXP's Learning AutoIT PDF Guide - <<< Go here for a PDF Guide on learning AutoIT from the ground up!<<<2. AutoIt 1-2-3 <<<Want to learn more about AutoIT quickly? Go Here<<<3. How To Install The Beta And Production Versions Of AutoIT / SciteAutoIT

Link to comment
Share on other sites

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

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

Cute game.

Did I win?

Posted Image

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

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

  • Moderators

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

Here's his script:
MsgBox(0, '', 'You got 546424 objects')
LOL

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

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?

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

  • Moderators

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

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

:)

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

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:

Posted Image

Test2:

Posted Image

Test3:

Posted Image

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.

Posted Image <-that's it

~2fingaz

Edited by gamepin126
Link to comment
Share on other sites

thats kool

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

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

#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
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...