An idea for put in function ?
i have truy
Global kuFlag = True
While Not KeyHit(1)
If KeyUp(200) Then
Print "HUUUP"
EndIf
If KeyUp(57) Then
Print "HUUUP"
EndIf
Wend
Function KeyUp(Key)
kdFlag = KeyDown(Key )
If kdFlag = False And kuFlag = False
good=True
EndIf
If kdFlag = True
kuFlag = False
Else
kuFlag = True
EndIf
If Good=True Then
Return Good
EndIf
End Function
but don't work ;(
i have truy
Global kuFlag = True
While Not KeyHit(1)
If KeyUp(200) Then
Print "HUUUP"
EndIf
If KeyUp(57) Then
Print "HUUUP"
EndIf
Wend
Function KeyUp(Key)
kdFlag = KeyDown(Key )
If kdFlag = False And kuFlag = False
good=True
EndIf
If kdFlag = True
kuFlag = False
Else
kuFlag = True
EndIf
If Good=True Then
Return Good
EndIf
End Function
but don't work ;(