Graphics 400,300,0,2
SetBuffer BackBuffer()

Repeat
Cls

   ;Zeichnet den Start-Button
   Rect 150,100,100,20,0
   Text 200,110,"START",1,1
   
   ;Zeichnet den Ende-Button
   Rect 150,150,100,20,0
   Text 200,160,"ENDE",1,1
   
   ;Bei Mausklick...
   If MouseHit(1) Then
      If MouseX()>150 And MouseX()<250 And MouseY()>100 And MouseY()<120 Then   spiel     ;Per Start-Button wird das Spiel gestartet
      If MouseX()>150 And MouseX()<250 And MouseY()>150 And MouseY()<170 Then End      ;Per Ende-Button wird das Programm beendet
   EndIf
   
Flip
Until KeyHit(1)

;-------------------------------------------------------------------------------------------------------

Function spiel()
   Cls
   Locate 0,0
   For i=1 To 10
      Print i
      Delay(1000)
   Next
   Print "Spiel beendet! Taste drücken, um ins Menü zu kommen"
   WaitKey
End Function

Graphics3D 640,480,16,2
SetBuffer BackBuffer()


; -----------------------------------------------------------------------------------------------------------------
; MENÜ
; -Bilder laden
schlaeger = LoadImage("Balken.bmp")
MaskImage schlaeger,0,0,255

ball = LoadImage("Ball.bmp")
MaskImage ball,0,0,255

Platte = LoadImage("platte.bmp")

schlaegerb = LoadImage("Balkenb.bmp")
MaskImage schlaegerb,0,0,255

; - Bilder Laden

starten = LoadImage("SpielStarten.bmp")
MaskImage starten,0,0,0

startenp = LoadImage("SpielStartenPressed.bmp")
MaskImage starten,0,0,0

beenden = LoadImage("Beenden.bmp")
MaskImage beenden,0,0,0

beendenp = LoadImage("beendenpressed.bmp")
MaskImage beendenp,0,0,0

Mauspfeil = LoadImage("Mauspfeil.bmp")
MaskImage Mauspfeil,0,0,255
Winkel = 290
RotateImage Mauspfeil,Winkel                     ; -> Winkel ändern
MidHandle Mauspfeil   
                  
;-----------------------------------------------------------------------------------------


Function Ende()                              ; -> Beenden Funktion
End
End Function


Repeat
Cls

; - Bilder Zeichnen


DrawImage starten,200,100
DrawImage beenden,200,300
kanal = PlayMusic("bgm.wav")
 

; - Mauszeiger in Betrieb nehmen

Mausx = MouseX()
Mausy = MouseY()


; - Einstellung für Buttonveränderung

If ImagesCollide(starten,200,100,0,Mauspfeil,Mausx,Mausy,0) Then
DrawImage startenp,200,100
EndIf


If ImagesCollide(beenden,200,300,0,Mauspfeil,Mausx,Mausy,0) Then
DrawImage beendenp,200,300
EndIf


; - Mausklick

If MouseHit (1)
If ImagesCollide(starten,200,100,0,Mauspfeil,Mausx,Mausy,0) Then
Start()
ElseIf ImagesCollide(beenden,200,300,0,Mauspfeil,Mausx,Mausy,0) Then
Ende()
EndIf
EndIf


; - Mauspfeil zeichnen

DrawImage Mauspfeil,Mausx,Mausy

; - Mauspfeil verstecken

HidePointer()

Flip()

Until KeyHit (1)






; ---------------------------------------------------------------------------------------------------------------------
;   HAUPTSPIEL

; -Sounds Laden
Wandtreffer = LoadSound("Wandtreffer.wav")
Punkttreffer = LoadSound("Punkttreffer.wav")

; -Globale Variablen
Global Ballx = 320
Global Bally = 240
Global Speed = 3
Global xspeed = Speed
Global yspeed = Speed
Global Punkte%

Function Start()
Repeat

Cls

; - Cheat  NOCH NICHT FERTIG!!!!

If KeyHit(20) Then
Speed = 3
End If


; - Hintergrund Zeichnen
DrawImage Platte,0,0

; -Schlaegerposition
schlaegerx = 100
schlaegery = MouseY()

;-Ball bewegen
Ballx = Ballx + xspeed
Bally = Bally + yspeed

;-Bally Abfrage
If Bally > 480 - ImageHeight(Ball) Or Bally < 0 Then
PlaySound Wandtreffer
yspeed = -yspeed
EndIf

;-Ballx Abfrage
If Ballx > 640 - ImageWidth(Ball) Or Ballx < 0 Then
PlaySound Wandtreffer
xspeed = -xspeed
EndIf

;-SchlaegerY Abfrage
If Schlaegery > 480 - ImageHeight(schlaeger) Then
Schlaegery = 480 - ImageHeight(schlaeger)
EndIf

;-Kollisionsabfrage
If ImagesCollide (schlaeger,Schlaegerx,Schlaegery,0,Ball,Ballx,Bally,0) Then
Punkte% = Punkte% + 1
xspeed = -xspeed
PlaySound Punkttreffer
xspeed = xspeed + 1
EndIf

;-Game Over Abfrage
If Ballx < 100 Then
Cls
Text 320,240,"Game Over",1,1
Text 320,260,"Erreichte Punkte:"+Punkte%,1,1
If Punkte% > 1 Then
Print"Sie haben einen neuen Highscore erreicht"
Print Highscore
End If
Flip()
Delay 4000
End
EndIf

;-Spielaus-Linie
Line 99,0,99,480

;-Bilder zeichnen
DrawImage Ball,Ballx,Bally
DrawImage schlaeger, Schlaegerx, Schlaegery
If KeyHit(20) Then
DrawImage schlaegerb, Schlaeger,Schlaegery
End If
;-Punkte anzeigen
Text 0,10,"Punkte :"+Punkte%

;-Bildpuffer tauschen
HidePointer()
Flip()
Until KeyHit (1)
End Function

If x=1000 Then
Print "Hallo"
WaitKey()
Endif

If x=1000 Then
  Print "Hallo"
  WaitKey()
Endif