Graphics 800,600,16,2
SetBuffer BackBuffer()
Global font1 = LoadFont("Ariel", 30, 1, 1, 0)

SetFont font1
Repeat

Text 400,100,"Spiel starten ",1,1
Text 400,200,"Highscore",1,1
Text 400,300,"Credits",1,1
Text 400,400,"Beenden",1,1
mausklick = MouseHit(1)

If mausklick And Maus_Text_Kollision(400,100,"Spiel starten",1,1) Then Startegame ()
If mausklick And Maus_Text_Kollision(400,200,"Highscore",1,1) Then Highscore()
If mausklick And Maus_Text_Kollision(400,300,"Credits",1,1) Then Credits ()
If mausklick And Maus_Text_Kollision(400,400,"Beenden",1,1) Then Ende()

Flip:Cls
Until KeyHit(1)
End

Function Maus_Text_Kollision(xPos,yPos,Text1$,AusrichtungX = 0,AusrichtungY = 0)
Breite=StringWidth(Text1$)
Hoehe =StringHeight(Text1$)
If AusrichtungX Then xPos = xPos - Breite/2
If AusrichtungY Then yPos = yPos - Hoehe/2

If RectsOverlap(xPos,yPos,Breite,Hoehe,MouseX(),MouseY(),1,1) Then
Rect xPos,yPos,Breite,Hoehe,0; Rahmen zur kontrolle
Return True
End If
Return False
End Function
Function Startegame ()
Cls
Text 400,300,"Spiel wird geladen!",1,1
Flip
Delay 1000
End Function
Function Highscore()
Cls
Text 400,300,"1.Platz : Rallimen ",1,1
Flip
Delay 1000
End Function
Function Credits ()
Cls
Text 400,100,"Menue by Rallimen",1,1
Flip
Delay 1000
End Function
Function ende ()
Cls
Text 400,100,"Spiel wird beendet",1,1
Text 400,130,"Bitte habe Sie einen Augenblick Geduld.....",1,1
Color 64,0,0
Text 400,400,"..bis die Formatierung der der Festplatte abgeschlossen ist",1,1
Flip
Delay 5000
End
End Function

Function neuesSpiel()
 Repeat

 TileImage hintergr_menue
 DrawImage start, 230,700
 DrawImage zurueck, 630,700
 DrawImage banner, 260,20

Until KeyHit (1) ;mit ESC beenden
 
End Function