Ich habe folgenden Code geschrieben:
Code: Alles auswählen
Procedure.b MouseOverlapSprite (localx.l, localy.l,spritenumber.l)
If MouseX() >= localx And <= localx + SpriteWidth(0) And MouseY() >= localy And MouseY() <= localy + SpriteHeight(0)
ProcedureReturn 1
Else
ProcedureReturn 0
EndIf
EndProcedure
Für schnelle Hilfe wäre ich sehr dankbar!