Another button pressing game!

[Vindicator209 1]

Haha, another one of these button games, except this one tests your reflexes, well sort of...

expandcollapse popup

;Thanks to:
;SmOke_N
;SkiFreak
;Xenoqis
;for helping fix a small problem...
#include <GuiConstants.au3>

Dim $seconds, $allow, $time, $timer

GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GUISetBkColor ( 0xff0000 )
$Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30)
GuiSetState(@SW_SHOW)
GuiSetState()
$allow=1
$2=Random(5000,10000,1)
AdlibEnable("_EnableButton",$2)

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_1
            Switch GuiCtrlRead($Button_1)
                Case $allow=1
                    MsgBox(0,"STOP!","You clicked too soon! try again!",5)
                    Exit
                Case $allow = 0
                    $timer = TimerDiff($time)
                    $seconds = Round($timer/1000,2)
                    MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds)
                    If $seconds < .1 Then
                        MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION")
                        Exit
                    EndIf
                    If $seconds < .2 Then
                        MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST")
                        Exit
                    EndIf
                    If $seconds < .3 Then
                        MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY")
                        Exit
                    EndIf
                    If $seconds < .4 Then
                        MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY")
                        Exit
                    EndIf
                    If $seconds < .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W")
                        Exit
                    EndIf
                    If $seconds > .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!")
                        Exit
                    EndIf
            EndSwitch
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
       ;;;
EndSelect
WEnd

Func _EnableButton()
    GUISetBkColor ( 0x00ff00 )
    GUICtrlSetData($Button_1,"<CLICK>")
    $allow=0
    $time = TimerInit()
EndFunc

I got .29, anyone beat me? haha

Edited October 13, 2006 by MethodZero

[this-is-me 4]

[CoderDunn 1]

best i got was 0.29

Edited October 13, 2006 by Hallman

[Vindicator209 1]

hah.. its pretty hard, I wanted the button actually to be red, and change green when you can click it, so it hits your brain faster, but I didnt know how to do it so.. yea

ahh, I got 0.27 now, but I fond a way to sorta cheat, you can HOLD the button down and let go when it says click, it saves you about 3 centiseconds, lol

Edited October 13, 2006 by MethodZero

[NELyon 1]

.29

.25

Edited October 13, 2006 by codemyster

[zcoacoaz 0]

hah.. its pretty hard, I wanted the button actually to be red, and change green when you can click it, so it hits your brain faster, but I didnt know how to do it so.. yea

why not do this?

expandcollapse popup

;Thanks to:
;SmOke_N
;SkiFreak
;for helping fix a small problem...
#include <GuiConstants.au3>

Dim $seconds, $allow, $time, $timer

GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GUISetBkColor ( 0xff0000 )
$Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30)
GuiSetState(@SW_SHOW)
GuiSetState()
$allow=1
$2=Random(5000,10000,1)
AdlibEnable("_EnableButton",$2)

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_1
            Switch GuiCtrlRead($Button_1)
                Case $allow=1
                    MsgBox(0,"STOP!","You clicked too soon! try again!",5)
                    Exit
                Case $allow = 0
                    $timer = TimerDiff($time)
                    $seconds = Round($timer/1000,2)
                    MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds)
                    If $seconds < .1 Then
                        MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION")
                        Exit
                    EndIf
                    If $seconds < .2 Then
                        MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST")
                        Exit
                    EndIf
                    If $seconds < .3 Then
                        MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY")
                        Exit
                    EndIf
                    If $seconds < .4 Then
                        MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY")
                        Exit
                    EndIf
                    If $seconds < .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W")
                        Exit
                    EndIf
                    If $seconds > .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!")
                        Exit
                    EndIf
            EndSwitch
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
       ;;;
EndSelect
WEnd

Func _EnableButton()
    GUISetBkColor ( 0x00ff00 )
    GUICtrlSetData($Button_1,"<CLICK>")
    $allow=0
    $time = TimerInit()
EndFunc

edit: woot! 800 posts

Edited October 13, 2006 by Xenogis

[Vindicator209 1]

heh, cool, ill add that

[phantom 0]

Thats my best.

[_Kurt 2]

0.24 here

EDIT: 0.23 now

EDIT: 0.19 !!!!! Skilled

Edited November 18, 2006 by _Kurt

[Achilles 2]

0.24 here

EDIT: 0.23 now

EDIT: 0.19 !!!!! Skilled

I used to think .25 was good.... Nice Kurt

EDIT: Nice game MethodZero!

Edited November 18, 2006 by Piano_Man

[Thatsgreat2345 0]

woo .23

.2

almost have the top score, this would be alot easier with a bot

.19 tied

Edited November 18, 2006 by thatsgreat2345

[Dethredic 0]

Bam! 13!!!!

Beat that

[jvanegmond 297]

15ms , you can hold your mouse button, or use tab -> spacebar and keep it pressed down, and release it when you see the green. That will definately improve your time.

[clearguy 0]

I got .27...

Bam! 13!!!!

Beat that

H-how?!?!?!?!?

EDIT

Now .22 thanx to Manadar's tip

Edited November 18, 2006 by clearguy

[dandymcgee 0]

Wow! wtf? I have no idea how I did that... I did something to mess it up though. I was playing around with the space bar and i ended up getting a .3 for score but then i hit spacebar again really fast and the .3 msgbox disappeared and new one popped up saying i got a .9, then when i hit spacebar again the .9 msgbox went away and it said my rank was champion. I hit spacebar again and the program closed. that was really wierd, and I can't seem to do it again. Anyways my high score is .17 without a bot, and .3 with a bot.

HINT: Another way to help your reflexes is to maximize the window (I don't know if MethodZero purposly made a maximizable window or not, but it helps to have your entire screen change color rather than that small little gui).

EDIT: Okay, here is my epileptic version of it (as you can tell from my sig I like blinking things, and this also makes it a bit harder):

expandcollapse popup

;Thanks to:
;SmOke_N
;SkiFreak
;Xenoqis
;for helping fix a small problem...
;Edited by: Dandymcgee
#include <GuiConstants.au3>

Dim $seconds, $allow, $time, $timer, $Current_CTime, $count, $color, $Colors

GuiCreate("GUI", 115, 52,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GUISetBkColor ( 0xff0000 )
$Button_1 = GuiCtrlCreateButton("<DONT CLICK>", 10, 10, 90, 30)
$allow = 1
$Colors = TimerInit()
$count = 0
$random = 300
$color = 1
$2=Random(5000,10000,1)
AdlibEnable("_EnableButton",$2)

GuiSetState()
While 1
    $Current_CTime = TimerDiff($Colors)
    If $allow = 1 And $Current_CTime > $count + $random Then
        If $color = 1 Then
            GUISetBkColor ( 0x0000ff )
            $color = 3
        ElseIf $color = 2 Then
            GUISetBkColor ( 0xff0000 )
            $color = 4
        ElseIf $color = 3 Then
            GUISetBkColor ( 0xff00ff )
            $color = 2
        ElseIf $color = 4 Then
            GUISetBkColor ( 0xffff00 )
            $color = 1
        EndIf
        $count = $count + 800
        $random = Random(100, 800)
    EndIf
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_1
            Switch GuiCtrlRead($Button_1)
                Case $allow=1
                    MsgBox(0,"STOP!","You clicked too soon! try again!",5)
                    Exit
                Case $allow = 0
                    $timer = TimerDiff($time)
                    $seconds = Round($timer/1000,2)
                    MsgBox(0,"Your Reflex time!","Your reflex time is:" & $seconds)
                    If $seconds < .1 Then
                        MsgBox(0,"Your Reflex time!","GREAT! You are ranked: CHAMPION")
                        Exit
                    EndIf
                    If $seconds < .2 Then
                        MsgBox(0,"Your Reflex time!","WOW... You are ranked: FAST")
                        Exit
                    EndIf
                    If $seconds < .3 Then
                        MsgBox(0,"Your Reflex time!","Wow! You are ranked: SPEEDY")
                        Exit
                    EndIf
                    If $seconds < .4 Then
                        MsgBox(0,"Your Reflex time!","Great! You are ranked: OKAY")
                        Exit
                    EndIf
                    If $seconds < .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are ranked: S L O W")
                        Exit
                    EndIf
                    If $seconds > .5 Then
                        MsgBox(0,"Your Reflex time!","HORRIBLE! You are so slow, I wont even give you a rank!")
                        Exit
                    EndIf
            EndSwitch
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case Else
            ;;;
    EndSelect
WEnd

Func _EnableButton()
    GUISetBkColor ( 0x00ff00 )
    GUICtrlSetData($Button_1,"<CLICK>")
    $allow = 0
    $time = TimerInit()
EndFunc

EDIT: WOW! OMG! I just let my sister play the epileptic version... she got 0.02!!!!!!!!!!!!! She saw the yellow and let go, but it turned to green before it knew the button had been pressed. I'm putting this screenshot online in honor of my 14 year old sister MASTER OF REFLEX!!!! (Pretty embarrassing when she beats my bot's score of 0.03)

Edited November 19, 2006 by dandymcgee

[Thatsgreat2345 0]

.03 with a bot

[dandymcgee 0]

Lol I edited my post. NOBODY HERE CAN BEAT MY SISTER!!!!! She seriously did that with the spacebar... freakin ridiculous!