k = 0 l = 0 StartTimer(1) Function p_IsKeyDown() If IsKeyDown("SPACE") And k < 10 k = k + 1 EndIf EndFunction While GetTimer(1) < 10000 p_IsKeyDown() If k > l DebugPrint(k) l = k EndIf Wend
@recedent, post #3
@Hexmage960, post #4
k = 0 l = 0 spacja = 0 StartTimer(1) Function p_IsKeyDown() If IsKeyDown("SPACE") And k < 10 And spacja = 0 k = k + 1 spacja = 1 Else If IsKeyDown("SPACE") = False And spacja = 1 spacja = 0 EndIf EndIf EndFunction While GetTimer(1) < 10000 p_IsKeyDown() If k > l And spacja = 1 DebugPrint(k) l = k EndIf Wend