Vindicator209 1 Posted October 13, 2006 (edited) 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 [center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center] Share this post Link to post Share on other sites
this-is-me 6 Posted October 13, 2006 Who else would I be? Share this post Link to post Share on other sites
CoderDunn 1 Posted October 13, 2006 (edited) best i got was 0.29 Edited October 13, 2006 by Hallman Share this post Link to post Share on other sites
Vindicator209 1 Posted October 13, 2006 (edited) 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 [center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center] Share this post Link to post Share on other sites
NELyon 2 Posted October 13, 2006 (edited) .29.25 Edited October 13, 2006 by codemyster Share this post Link to post Share on other sites
zcoacoaz 0 Posted October 13, 2006 (edited) 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.. yeawhy 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 [font="Times"] If anyone remembers me, I am back. Maybe to stay, maybe not.----------------------------------------------------------------------------------------------------------[/font][font="Times"]Things I am proud of: Pong! in AutoIt | SearchbarMy website: F.R.I.E.S.A little website that is trying to get started: http://thepiratelounge.net/ (not mine)[/font][font="Times"] ----------------------------------------------------------------------------------------------------------[/font][font="Arial"]The newbies need to stop stealing avatars!!! It is confusing!![/font] Share this post Link to post Share on other sites
Vindicator209 1 Posted October 13, 2006 heh, cool, ill add that [center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center] Share this post Link to post Share on other sites
_Kurt 2 Posted November 18, 2006 (edited) 0.24 here EDIT: 0.23 now EDIT: 0.19 !!!!! Skilled Edited November 18, 2006 by _Kurt Awaiting Diablo III.. Share this post Link to post Share on other sites
Achilles 2 Posted November 18, 2006 (edited) 0.24 here EDIT: 0.23 now EDIT: 0.19 !!!!! Skilled I used to think .25 was good.... Nice KurtEDIT: Nice game MethodZero! Edited November 18, 2006 by Piano_Man My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Share this post Link to post Share on other sites
Thatsgreat2345 0 Posted November 18, 2006 (edited) woo .23.2almost have the top score, this would be alot easier with a bot.19 tied Edited November 18, 2006 by thatsgreat2345 Share this post Link to post Share on other sites
Dethredic 0 Posted November 18, 2006 Bam! 13!!!! Beat that "Its not about the 30 inch 1080p display, or the SLI 8800 ultras, or the DDR3 memory. It's about when you turn on your PC, does it return the favor?"Math is like sex. Sure, it may give some practical results, but that is not why we do it Share this post Link to post Share on other sites
jvanegmond 307 Posted November 18, 2006 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. github.com/jvanegmond Share this post Link to post Share on other sites
clearguy 0 Posted November 18, 2006 (edited) I got .27...Bam! 13!!!!Beat that H-how?!?!?!?!?EDITNow .22 thanx to Manadar's tip Edited November 18, 2006 by clearguy I've never met anyone who codes binary. StringMultiInsert()SOW EncryptFrench autoit forum - forum français Share this post Link to post Share on other sites
dandymcgee 0 Posted November 18, 2006 (edited) 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 - Dan [Website] Share this post Link to post Share on other sites
Thatsgreat2345 0 Posted November 19, 2006 .03 with a bot Share this post Link to post Share on other sites
dandymcgee 0 Posted November 19, 2006 Lol I edited my post. NOBODY HERE CAN BEAT MY SISTER!!!!! She seriously did that with the spacebar... freakin ridiculous! - Dan [Website] Share this post Link to post Share on other sites
