Global Counter = 0    
Global Leben = 10
Global Punkte = 0
Global Wert = 0
Global Counter2 = 0

Type Ball
   Field Tempo
   Field X
   Field Y
End Type

Type Feuer
   Field Tempo
   Field X
   Field Y
End Type

Repeat
   Cls
   
DrawImage Hintergrund, 0,0
   DrawImage Bereich, 0,500

Text 20,20, "Leben: " + Leben
   Text 20,40, "Punkte: " + Punkte

Ball_Erstellen ()
   Ball_Bewegung ()
      Schuss_Bewegen ()


DrawImage Spieler, MX,550

   MH1 = MouseDown (1)
   
      If MH1 Then
         Schuss ()
            EndIf
            
MX = MouseX ()
   Wert = MX + 20

Flip
Until KeyHit (1) Or Leben < 1







Function Schuss ()
Counter2 = Counter2 + 1
If Counter2 > 5 Then Counter2 = 0
   If Counter2 = 5 Then
      III.Feuer = New Feuer
      III\Tempo = 7
      III\X = Wert
      III\Y = 550
   EndIf

End Function 


Function Schuss_Bewegen ()
   For III.Feuer = Each Feuer
      III\Y = III\Y - III\Tempo
         DrawImage Kugel, III\X,III\Y
            If III\Y < 25 Then Delete III.Feuer                      
Next

End Function





Function Ball_Erstellen ()
Counter = Counter + 1
If Counter > 66 Then Counter = 0
   If Counter = 66 Then
      Info.Ball = New Ball
      Info\Tempo = 1
      Info\X = Rnd (0,800)
      Info\Y = 10
   EndIf
End Function


Function Ball_Bewegung ()
   For Info.Ball = Each Ball
      Info\Y = Info\Y + Info\Tempo
         DrawImage Gegner, Info\X,Info\Y
            If Info\Y > 500 Then Delete Info.Ball : Leben = Leben - 1
                     
Next

End Function