Graphics 1280, 1024
SetBuffer BackBuffer()

 
Hintergrund=LoadImage("hintergrund.bmp")
font=LoadFont("chiller.ttf",120)


 

Function steuerung()
Cls
Repeat
If counter = 3 Then
Text 500,640, ("Steuerung")
EndIf
Flip
Until KeyHit(1)
End Function

Cls
Repeat


kh=KeyDown(208) And KeyDown(200)
 

Color 255,100,0

TileImage hintergrund
SetFont font

Text 460,150, "Die Homis"
Text 420,250, "in Belleville"

;Farbe verändern
rgb = rgb + rgbplus
If rgb = 0 Then rgbplus = -5
If rgb = 255 Then rgbplus = 5



; Die Umrandung malen
Color 164 - rgb, 117 - rgb, 94 - rgb
Rect rectx - 2, recty - 2, laenge + 4, 90, 1
Color rgb, rgb, rgb
Rect rectx, recty, laenge, 86, 1


If KeyHit (208)
counter =counter + 1
EndIf
If KeyHit (200)
counter =counter - 1
EndIf



If counter >5 Then counter = 1
If counter <1 Then counter = 5
If counter = 2 And kh Then game= 1
If counter = 3 And kh Then game= 1
If counter = 4 And kh Then game= 1 ;;; game starten
If counter = 5 And kh Then Beenden=1;;; game beenden
If counter = 1 And kh Then viewhiscore=1;;; Highscoore zeigen

Color 255,100,0
Text 400,440, "Neues Spiel"
Text 400,540, "Spiel laden"
Text 440,640, "Optionen"
Text 500,740, "Hilfe"
Text 450,840, "Beenden"
Select counter

Case 1
rectx = 570 - (Len("Neues Spiel") * 32 / 2) - 10
recty = 450
laenge = Len("Neues Spiel") * 32 + 20
Case 2
rectx = 570 - (Len("Spiel laden") * 32 / 2) - 10
recty = 550
laenge = Len("Spiel laden") * 32 + 20
Case 3
rectx = 570 - (Len("Optionen") * 32 / 2) - 10
recty = 650
laenge = Len("Optionen") * 32 + 20
Case 4
rectx = 570 - (Len("Hilfe") * 32 / 2) - 10
recty = 750
laenge = Len("Hilfe") * 32 + 20
Case 5
rectx = 580 - (Len("Beenden ") * 32 / 2) - 10
recty = 850
laenge = Len("Beenden ") * 32 + 20
 End Select




If KeyHit(28) Then steuerung
 
Flip
Cls
Until KeyHit(1)
End

 
Text 0,0,counter