;Schussberechnung/Abfrage
      If MouseDown(1) Then
         s.Schuss = New Schuss
         s\xpos   = SplX+30
         s\ypos   = SplY
         s\speed  = 20
      EndIf
      For s.schuss = Each schuss
             Plot s\xpos,s\ypos
         s\ypos = s\ypos - s\speed
      Next

      ;Spieler zeichnen
      DrawImage SplImage,SplX,SplY
      
      ;Gegner zeichnen
      For Geg.Gegner = Each Gegner
         Geg\health = 100
         Geg\ypos = Geg\ypos+1
         DrawImage GegImage,Geg\xpos,Geg\ypos
         If Geg\ypos > ScrY Then
            Geg\ypos = -45
            Geg\xpos = Rand(0,ScrX)
         EndIf
         If ImagesOverlap(GegImage,MouseX(),MouseY(),SplImage,Geg\xpos,Geg\ypos) Then Geg\health=0
         If Geg\health=0 Then
            Delete Geg.Gegner
            Punkte = Punkte+50
            SplHealth = SplHealth - 50
         EndIf
      Next

For s.schuss = Each schuss
   For Geg.Gegner = Each Gegner
      If s\Xpos >= Geg\Xpos And s\Xpos <= (Geg\Xpos + Geg\breite) Then
          If s\Ypos >= Geg\Ypos And s\Xpos <= (Geg\Ypos + Geg\hoehe) Then
            ;Kollision!
         EndIf
      EndIf
   Next
Next

;ODER:

For s.schuss = Each schuss
   For Geg.Gegner = Each Gegner
      If ImagesCollide (SchussImg, s\Xpos, s\Ypos, s\frame,GegImg,Geg\Xpos, Geg\Ypos, Geg\frame) Then
             ;Kollision
      EndIf
   Next
Next