Dauer eines Mausklicks emittleln?

[captain_hesse]

Ups das steht ja untendrunter hab ich garnicht gesehen sorry

so müßte es aber gehen:

Code: Alles auswählen

InitMouse()
InitSprite()
OpenWindow(0, 0, 0, 320, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 320, 200)
ClearScreen(0)
StartDrawing(ScreenOutput())
DrawText(0,0,"drücke die linke Maustaste")
StopDrawing()
FlipBuffers()

Start = ElapsedMilliseconds()
ti=0

Repeat
  WindowEvent()
  ExamineMouse()
  
  If MouseButton(#PB_MouseButton_Left)
    ti+(ElapsedMilliseconds() - Start)
    Start = ElapsedMilliseconds()
  Else
    ti=0  
  EndIf
  
  Debug ti
  If ti>10000
    Debug "Ready"
    ti=0
    Start = ElapsedMilliseconds()
  EndIf
  
Until MouseButton(#PB_MouseButton_Right)

[TheNewOne]

Danke für alle Antworten, ihr habt mir sehr geholfen.