Bored, Made this game.

[AzKay]

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 146, 98, 448, 296)
$Button1 = GUICtrlCreateButton("AButton1", 8, 64, 129, 25, 0)
$Label1 = GUICtrlCreateLabel("", 8, 8, 129, 49, BitOR($SS_CENTER,$SS_SUNKEN))
GUICtrlSetFont(-1, 24, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Pressed = 0
            GUICtrlSetState($Button1, $GUI_DISABLE)
            HotKeySet("{SPACE}", "_TrackKey")
            For $i = 5 To 0 Step -1
                GUICtrlSetData($Label1, $i)
                Sleep(1000)
            Next
            HotKeySet("{SPACE}")
            MsgBox(0, "", "Pressed Space " & $Pressed & " Times.")
            GUICtrlSetState($Button1, $GUI_ENABLE)
    EndSwitch
WEnd

Func _TrackKey()
    HotKeySet("{SPACE}")
    $Pressed = $Pressed + 1
    HotKeySet("{SPACE}", "_TrackKey")
EndFunc

Run the script, click the button, then press space as many times as you can until the timer stops.

Now, a messagebox will appear, with your score.

Except, if you HOLD down spacebar, it does the same as pressing it.

What should I do to stop them being able to hold space?

[MHz]

Try some Sleep() in your TrackKey() function.

[AzKay]

Nope, Its still able to hold down space.

[Sardith]

_IsPressed ?

[someone]

I admit this is a bit sloppy but this works...

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 146, 98, 448, 296)
$Button1 = GUICtrlCreateButton("AButton1", 8, 64, 129, 25, 0)
$Label1 = GUICtrlCreateLabel("", 8, 8, 129, 49, BitOR($SS_CENTER,$SS_SUNKEN))
GUICtrlSetFont(-1, 24, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Pressed = -1
            GUICtrlSetState($Button1, $GUI_DISABLE)
                For $i = 5 To 0 Step -1
                GUICtrlSetData($Label1, $i)
                Sleep(1000)
            Next
            _TrackKey()
            MsgBox(0, "", "Pressed Space " & $Pressed & " Times.")
            GUICtrlSetState($Button1, $GUI_ENABLE)
    EndSwitch
WEnd

Func _TrackKey()
    $Pressed = $Pressed + 1
    Sleep(100)
    HotKeySet("{SPACE}", "_TrackKey")
EndFunc

I say its sloppy because you have to set $Pressed to -1 initially.... also it only registers when you release space so holding it the whole time results in 0 presses

EDIT: I have to stop coding on an empty stomach... I'm sorry I tested it by holding the key down the whole time... my mistake

Edited January 24, 2007 by someone

[AzKay]

I admit this is a bit sloppy but this works...

#include <GUIConstants.au3>

$Form1 = GUICreate("AForm1", 146, 98, 448, 296)
$Button1 = GUICtrlCreateButton("AButton1", 8, 64, 129, 25, 0)
$Label1 = GUICtrlCreateLabel("", 8, 8, 129, 49, BitOR($SS_CENTER,$SS_SUNKEN))
GUICtrlSetFont(-1, 24, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $Pressed = -1
            GUICtrlSetState($Button1, $GUI_DISABLE)
                For $i = 5 To 0 Step -1
                GUICtrlSetData($Label1, $i)
                Sleep(1000)
            Next
            _TrackKey()
            MsgBox(0, "", "Pressed Space " & $Pressed & " Times.")
            GUICtrlSetState($Button1, $GUI_ENABLE)
    EndSwitch
WEnd

Func _TrackKey()
    $Pressed = $Pressed + 1
    Sleep(100)
    HotKeySet("{SPACE}", "_TrackKey")
EndFunc

I say its sloppy because you have to set $Pressed to -1 initially.... also it only registers when you release space so holding it the whole time results in 0 presses

EDIT: I have to stop coding on an empty stomach... I'm sorry I tested it by holding the key down the whole time... my mistake

Well, That doesnt work too well.

1, The first time you run it, it wont work

2, It doesnt work too right. In the long run.

[rbhkamal]

This should give you a complete control over the message box.

test.au3

Regards,

RK

[AzKay]

I didnt need control over the message box. Lol.

[rbhkamal]

I didnt need control over the message box. Lol.

Didn't that fix your problem?

Edit: Because the "OK" button is nolonger the default.

Edited January 24, 2007 by rbhkamal

[AzKay]

No, the problem was, when they hold down spacebar, its like cheating. Because it records being pressed, each time. So, Theyre score is false.

[rbhkamal]

No, the problem was, when they hold down spacebar, its like cheating. Because it records being pressed, each time. So, Theyre score is false.

Oh.... lol!

I'm sorry, I thought that the msgbox was closing becuase they are holding down the spacebar.

Sorry again

Regards,

RK

[AzKay]

[rbhkamal]

OK, Here is an idea...

test.au3

Replace the return with exit if you want.

Regards,

RK

[AzKay]

Thanks