Code stürzt ab nachdem die Maustaste mehrmal gedrückt wurde

[STARGÅTE]

erstens das und dann muss es ein WindowEvent() geben in deiner Hauptschleife, wnen du ein Fenster offen hast.
Ansonsten werden keine Ereignisse vom Fenster empfangen -> Einfrieren des Fensters:

Code: Alles auswählen

Procedure Init_Systems()

If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
  MessageRequester("Error!", "Kann nicht initialisiert werden!", 0)
  End
EndIf

If OpenWindow(0, 0, 0, 1000, 780, "Maustest", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)
  If OpenWindowedScreen(WindowID(0), 0, 0, 1000, 780, 0, 0, 0)
   
  EndIf
EndIf

EndProcedure


Procedure Maus()

  ExamineMouse()

  DisplayTransparentSprite(50, MouseX(),MouseY()) ; Ausgabe des Mauspfeils

EndProcedure

;***Hauptprogramm***

Init_Systems()

LoadSprite(50, "GFX/Mauspfeil.bmp")


Repeat

  WindowEvent()

  Maus()
  
  FlipBuffers()
  
  ClearScreen(0)

Until MouseButton(#PB_MouseButton_Right) 

[Kaeru Gaman]

... das war ja das Problem, auf das ich ihn hingewiesen habe.

einfach nur einen einzigen Aufruf von WindowEvent in die Hauptschleife zu hämmern ist allerdings auch nicht die sinnvollste Lösung...

[STARGÅTE]

wenn du bock hast korrigieren den Code und mach die "Sinnlosen Ifs" gleich raus oder verbesser es
ein Delay(1) wäre auch nciht schlecht um die CPU zu entlasten oder WaitWindowEvent(10)

[Kaeru Gaman]

ich hab ehrlich gesagt gar keinen großen Bock, in dem Code rumzuwühlen.
alle Informationen, wie er an seinem Code schrauben sollte, wurden ihm mitgeteilt.
selber tippen macht nen schmalen Fuß.

[Zweihänder]

Danke Männer. Klappt jetzt!