Repeat
   WaitTimer(frametimer)                  ;Die Anzahl der Leben abfragen.
If lives = -1 Then                         ;sollte kein Leben vorhanden sein
   If ChannelPlaying(chnback) = 0 Then         ;Testet, ob die Musik abgespielt wird
       chnback = PlayMusic ("C:\Users\Michael\Music\BB Musik\MUSIC2.MID");Wenn nicht, wird die Musik geladen und gleich abgespielt.
   EndIf
   Cls                               ;Bildschirm löschen
   Text 100, 100, "Welcome to my game. Press F1 to Play"   
   If KeyHit (59) Then                   ;Sobald die Taste F1 gedrückt wird
      lives = 3                        ;Lebenszahl auf 3 erhöhen
      score = 0                        ;Punkte zurücksetzen
   EndIf
   
ElseIf Lives > -1 Then                     ;Sobald Punkte höher als -1 ist
   Cls
   If Start = 0 Then                      ;Um die Leveldaten neu einzulesen, habe ich eine neue Function erstellt
      Start = 1                        ;Diese kann man später erweitern um mehrere Level zu erstellen.
      SetupLevel()
   EndIf

   
   WeltZeichnen
   Kollision
   SpielerBewegen
   Sprung
   MonsterBewegen
   PickupsZeichnen
   SpielerZeichnen
   GegnerZeichnen
   FreundZeichnen
   FreundeHolen
   PunkteAnzeigen
EndIf
If KeyHit(57) Then
   Setuplevel
EndIf
   Flip
Until KeyHit(1)
End