Function menu()

Repeat
If ChannelPlaying(hintergrundmusik) = 0 Then hintergrundmusik=PlayMusic("sfx/001.mp3")

Cls

xmaus=MouseX()
ymaus=MouseY()

SetFont font1
Color 225,225,225
Text 150,20,"test"

Color 0,0,0

Rect 100,180,175,30


Rect 100,280,85,30


Rect 100,380,125,30



SetFont font2
Color 225,225,225
Text 100,180,"Neues Spiel"
Text 100,280,"Laden"
Text 100,380,"Beenden"

If ImagesOverlap(maus,xmaus,ymaus,????,100,180) Then
If MouseDown (1)=True Then End
EndIf

DrawImage bild1, 400,150

DrawImage maus,xmaus,ymaus



Flip
Forever
End Function

GRAPHICS 640,480,16
gfxBox=CREATEIMAGE(50,50)
gfxCircle=CREATEIMAGE(50,50)
SETBUFFER IMAGEBUFFER(gfxBox)
COLOR 0,0,255
RECT 10,10,30,30,1
SETBUFFER IMAGEBUFFER(gfxCircle)
COLOR 255,0,0
OVAL 10,10,30,30,1
SETBUFFER BackBuffer()
boxX=RND(50,610)
boxY=RND(50,430)
REPEAT
   circleX=MOUSEX()
   circleY=MOUSEY()
   CLS
   DRAWIMAGE gfxBox,boxX,boxY
   DRAWIMAGE gfxCircle,circleX,circleY
   FLIP
UNTIL IMAGESOVERLAP (gfxBox,boxX,boxY,gfxCircle,circleX,circleY)
TEXT 0,0, "Kollision! Maustaste drücken"
FLIP
WAITMOUSE()
ENDGRAPHICS