If nextbanana+z_nextbanana<MilliSecs() ;nach z_nextbanana Milisekunden eine neue Banane erstellen
         Banana.TBanana=New TBanana
         Banana\img=Banane
         Banana\x=Rand(30,690):Banana\y=0;Bananen x pos zufällig,y pos = 0
         Banana\life=True
         nextbanana=MilliSecs()
      End If

If Score=50
         z_nextbanana=2000
      ElseIf Score=100
         z_nextbanana=1500
      ElseIf Score=150
         z_nextbanana=1000
      ElseIf Score=200
         z_nextbanana=500
      End If

 Cls

Verloren=LoadImage ("verloren.bmp")
If p_life=0  Then
DrawImage verloren,0,0
Delay(5000)
End
EndIf

Flip

Graphics 800, 600, 32, 2

AppTitle "I am Banana!"
SetBuffer BackBuffer()

Global VSYNC = CreateTimer(60)
Global menu1 = LoadImage ("menu.bmp")
Global menu2 = LoadImage ("menu2.bmp")
Global musik = LoadSound ("Music.wav")
Global Banane=LoadImage ("banane.bmp")
ScaleImage Banane,0.2,0.2;
Global Player=LoadImage ("Player.bmp");
MaskImage Player,255,255,255;
ScaleImage Player,0.3,0.3;
Global Verloren=LoadImage("verloren.bmp")

SeedRnd MilliSecs()

Type TBanana;Type für Bananen definieren
   Field img,x,y,life
End Type
Global menu
Global Banana.TBanana
menu = 1 ; Menu=1 --> Hauptmenu, Menu=2 -->Rules, Menu = 3 --> Options,Menu = 4 --> Spiel, Leertaste zurück ins Hauptmenu

FlushKeys() ; Tastaturpuffer löschen
Repeat
   WaitTimer (VSYNC)
   Cls
   Select menu
      Case 0
         DrawGame()
      Case 1
         DrawBlock menu1, 0, 0
      Case 2
         DrawBlock menu2, 0, 0
      Case 3
         ;DrawBlock menu3, 0, 0
   End Select
   
; Wenn ESC dann Programm beenden
   If KeyHit(1) Then End
   KeyControll() ; Funktion KeyControll aufrufen
   
   Flip
Forever
Function KeyControll()
; Wenn Taste <ENTER> dann diese Schleife verlassen und nach Forever weiter --> zur Spielschleife oder
   If KeyDown(28)
      menu = 0
; Wenn Taste <R> oder <r> dann die RULES aufrufen
   ElseIf KeyDown(19)
      menu = 2
   ElseIf KeyDown(57)
      menu = 1
   EndIf
End Function

;----------------------------------Spiel----------------------------------;
Function DrawGame()
   Banana.TBanana=New TBanana
   Banana\img=Banane
   Banana\x=Rand(30,690):Banana\y=0
   Banana\life=True
   Local nextbanana=MilliSecs()
   Local Score=0,p_life=5
   Local lvlscore=50;Zum lvl benötigte Score
   Local z_nextbanana=2500; Zeit bis die nächste Banane erstellt wird.
   ;LoopSound musik
   ;PlaySound musik
   Local a=550,b=386
   Color 255,0,0
   While (Not KeyHit(1)) And menu=0;
      Cls
      Text 1,1,"Punkte: "+Score+" | Leben: "+p_life;Punkte auf den Bildschirm schreiben
      If KeyDown(32)
         a=a+5 ;Rechts
      EndIf;
      
      If KeyDown(30);
         a=a-5;Links
      EndIf;
      
      If a<20;
         a=20;Rand
      EndIf;
      If a>700;
         a=700;Rand
      EndIf;
      For Banana.TBanana=Each TBanana;Alle Bananen nachunten bewegen, auf Collision prüfen dann evtl.löschen.
         Banana\y=Banana\y+1
         DrawImage Banana\img,Banana\x,Banana\y;
         If ImagesCollide (Player,a,b,0,Banana\img,Banana\x,Banana\y,0);
            p_life=p_life-1
            Banana\life=0
         EndIf
         If Banana\y>600
            Banana\life=0
            Score=Score+1
         End If
         If Banana\life=0
            Delete Banana.TBanana
            Exit
         End If
      Next
      If nextbanana+z_nextbanana<MilliSecs() ;nach 2.5 Sekunden eine neue Banane erstellen
         Banana.TBanana=New TBanana
         Banana\img=Banane
         Banana\x=Rand(30,690):Banana\y=0;Bananen x pos zufällig,y pos = 0
         Banana\life=True
         nextbanana=MilliSecs()
      End If
      DrawImage Player,a,b;Spieler zeichnen
      WaitTimer VSYNC
      Flip 0
      If p_life<= 0
         Cls
         DrawImage Verloren,0,0
         Flip
         Delay 5000
         menu=1
      End If
      If Score=lvlscore
         z_nextbanana=2000
      ElseIf Score=lvlscore*2
         z_nextbanana=1500
      ElseIf Score=lvlscore*3
         z_nextbanana=1000
      ElseIf Score=lvlscore*4
         z_nextbanana=500
      End If
   Wend;
   menu=1
End Function