;Konfiguration
Graphics 640,480,16,2
SetBuffer BackBuffer()
AppTitle "Spaceshooter"
timer = CreateTimer(30)
;Dateien werden geladen
player = LoadImage("grafik/spieler.png")
Gegner = LoadImage("grafik/gegner.png")
hintergrund = LoadImage("grafik/hintergrund.png")
shoot = LoadSound("sound/shoot.wav")
Geschoss = LoadImage("grafik/schuss.png")
;Einstellungen und Variablen
MaskImage player,255,255,255
MaskImage Geschoss,255,255,255
MaskImage Gegner,255,255,255
x = 272
y = 400
Type Geschoss
   Field x
   Field y
End Type
Type Gegner
   Field x
   Field y
End Type

; Mainschleife
Repeat     
Cls
DrawImage hintergrund,0,0
;Gegnerauftauchen durch Zufall
rnd_y = Rnd(0,20)
If    rnd_y = 1 Then
   f.Gegner = New Gegner
   f\x = Rnd(0,560)
   f\y = 0   
EndIf
;Gegner updaten
For f.Gegner = Each Gegner
   f\y = f\y + 3
   DrawImage Gegner,f\x,f\y
   If f\y > 480 Then Delete f
Next

;Bewegung
If KeyDown(203) Then x = x - 3 
If KeyDown(205) Then x = x + 3
If x > 554 Then x = 554
If x < 0 Then x = 0

;Bei Schuss
If KeyHit(57) Then
   
   kanal = PlaySound(shoot)
   g.Geschoss = New Geschoss
   g\x = x + 40
   g\y = y - 5
EndIf
;Schuss zeichnen
For g.Geschoss = Each Geschoss
   g\y = g\y - 5
   DrawImage Geschoss,g\x,g\y
   If g\y < 0 Then Delete g
Next
;Kollisionen prüfen
If ImagesCollide(Gegner,f\x,f\y,0,Geschoss,g\x,g\y,0)
      Delete f
      Delete g
EndIf

DrawImage player,x,y
WaitTimer (timer)
Flip
Until KeyHit(1)

ImagesCollide(Gegner,f\x,f\y,0,Geschoss,g\x,g\y,0)

For f.Gegner = Each Gegner
   For g.Geschoss = Each Geschoss
   If ImagesCollide(enemy,f\x,f\y,0,Geschoss,g\x,g\y,0)
         Delete f
         Delete g
   EndIf
   Next
Next