Cls

Graphics 800,600,32,0
SetBuffer BackBuffer()


;Hintergrund
imgKrylarLogo = LoadImage("gf2.bmp")

;Bilder
image_Links=LoadImage("Grafiken\Links.png")
image_beenden=LoadImage("Grafiken\beenden2.png")
image_musik=LoadImage("Grafiken\Musik.png")
DrawImage(imgKrylarLogo,0,0)



;Beenden an
Repeat


Xpos=20
Ypos=540
DrawImage image_beenden,Xpos,Ypos


If MouseDown(1) = 1 And RectsOverlap(MouseX(),MouseY(),1,1,20,540,60,60) = 1 Then End
;Beenden aus


;Musik an

Xpos=500
Ypos=100
DrawImage image_Musik,XPos,Ypos


If MouseDown(1) = 1 And RectsOverlap(MouseX(),MouseY(),1,1,500,100,250,50) = 1 Then End
;Musik aus


;links an

Xpos=500
Ypos=200
DrawImage image_Links,Xpos,Ypos


If MouseDown(1) = 1 And RectsOverlap(MouseX(),MouseY(),1,1,500,200,250,50) = 1 Then Cls




Flip
Until KeyHit(1)
End