Graphics 800,400,16,2
SetBuffer BackBuffer() 
Global font1 = LoadFont(\"Verdana\", 30, 1, 1, 0) 
Color 255,0,0
SetFont font1 
Repeat 
Text 400,100,\"Spiel starten \",1,1 
Text 400,200,\"Steuerung\",1,1 
Text 400,300,\"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,\"Steuerung\",1,1) Then Credits () 
If mausklick And Maus_Text_Kollision(400,300,\"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,100,\"Spiel wird geladen!\",1,1 
Flip 
WaitKey 
End Function 
Function Credits () 
Cls 
Text 400,20,\"Steuerung\",1,1 
Text 400,100,\"Sprung - Leertaste\",1,1
Text 400,150,\"Nach Rechts Laufen - Pfeil Rechts\",1,1
Text 400,200,\"Nach Links Laufen - Pfeil Links\",1,1
Text 400,350,\"Taste zum Hauptmenü\",1,1
Flip 
WaitKey 
End Function 
Function ende () 
Flip 
End 
End Function

Graphics 800 ,400,16,2
SetBuffer BackBuffer ()
Global font1 = LoadFont (\"Verdana\", 30 , 1, 1, 0)
Color 255 ,0,0
SetFont font1
H = LoadImage (\"H.bmp\") ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
Repeat
    TileBlock h,0,0;<<<<<<<<<<<<<<<<<<<<<<<<<<<
    Text 400 ,100,\"Spiel starten \",1,1
    Text 400 ,200,\"Steuerung\",1,1
    Text 400 ,300,\"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,\"Steuerung\",1,1) Then Credits ()
    If mausklick And Maus_Text_Kollision (400 ,300,\"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 ,100,\"Spiel wird geladen!\",1,1
    Flip
    WaitKey
End Function

Function Credits ()
    Cls
    Text 400 ,20,\"Steuerung\",1,1
    Text 400 ,100,\"Sprung - Leertaste\",1,1
    Text 400 ,150,\"Nach Rechts Laufen - Pfeil Rechts\",1,1
    Text 400 ,200,\"Nach Links Laufen - Pfeil Links\",1,1
    Text 400 ,350,\"Taste zum Hauptmenü\",1,1
    Flip
    WaitKey
End Function

Function ende ()
    Flip
    End
End Function