3 fps down??
Все просто,
Type Player
Field bSpaceDown:Byte
Field iTimeSpaceHit:Int
Method Update
'...
If(KeyDown(KEY_SPACE))
If(Not bSpaceDown)'тока нажал
iTimeSpaceHit = MilliSecs()
bSpaceDown = 1
EndIf
Else
If(bSpaceDown)
Local iTime = MilliSecs() - iTimeSpaceHit
'time - время в миллисекундах, сколько юзер держал спейс
EndIf
bSpaceDown = 0
EndIf
'...
End Method
End Type