Cls
 
Graphics 800,600
SetBuffer BackBuffer()



imgKrylarLogo = LoadImage("gf2.bmp")
DrawImage(imgKrylarLogo,0,0)


;Beenden an


image=LoadImage("Grafiken\beenden2.png")
Xpos=20
Ypos=540
DrawImage image,XPos,Ypos


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

;Musik an
image=LoadImage("Grafiken\Musik.png")
Xpos=500
Ypos=100
DrawImage image,XPos,Ypos


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

;Musik aus

End

Graphics ....
setbuffer backbuffer()
//hier die Images laden!!

while not keyhit( 1 )
  //hier die Images zeichnen
  //hier die RectOverlap Abfragen durchführen

  flip
  cls
wend

end

Cls
 
Graphics 800,600
SetBuffer BackBuffer()



imgKrylarLogo = LoadImage("gf2.bmp")
image_beenden=LoadImage("Grafiken\beenden2.png")
image_musik=LoadImage("Grafiken\Musik.png")
DrawImage(imgKrylarLogo,0,0)


;Beenden an
repeat


Xpos=20
Ypos=540
DrawImage iimage_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
flip
until keyhit(1)
End