If RectsOverlap(s\x,s\y,20,20,gs\x,gs\y,20,1) Then Delete gs.Schuss2 Delete s.Schuss

machen das wenn die sich überlappen, dass sie dann verschwinden. Ich hab mal versucht das wo einzubaun und hab das schon gehabt das die verschwinden aber wenn das gegangen is, hat was anderes VOLL gesponnen. ich hab wegen den 2 types (gegnerische schüsse, meine schüsse) zwei for-next schleifen gebraucht (For s.schuss = each schuss - For gs.schuss2 = each schuss) und in keine von den beiden kann ich den Befehl reingeben. hab schon probiert eine schleife in die andere zu geben... aber nie bin ich ans richtige ergebnis gekommen 
ich hoffe ihr könnt mir helfen, hier ist der code vom boss:
Code:
Function Bosseins(Wasservorrat)
aaa = 1
Leben = 3   
LebenF = 10
wzahler = 10
wzahler2 = 80
Repeat
Color 0,0,255

wzahler = wzahler + 1
   If wzahler >= 10 And wasservorrat > 0 And MouseHit(1) Or aaa = 1 Then
   wzahler = 0
   
      s.schuss = New schuss
       
      s\x = MouseX()
      If aaa = 1 Then s\x = - 50
      s\y = 600
      s\geschwindigkeit = 2
      wasservorrat = wasservorrat -1
      aaa = 0
       
   EndIf

wzahler2 = wzahler2 + 1
   If wzahler2 >= 80 Then
   wzahler2 = 0
       
      gs.schuss2 = New schuss2
       
      gs\x = Rnd(0,800)
      gs\y = - 20
      gs\geschwindigkeit = 1
       
   EndIf
   
Color 255,0,0

For gs.schuss2 = Each schuss2
      gs\y = gs\y + gs\geschwindigkeit
      Oval gs\x,gs\y,20,20,1   
      If gs\y >= 601 Then Leben = Leben - 1 Delete gs.schuss2


Next

Color 0,0,255   
   For s.Schuss = Each Schuss
      s\y = s\y - s\geschwindigkeit
      Oval s\x,s\y,20,20,1

      If RectsOverlap(s\x,s\y,20,20,0,0,800,50) Then
            LebenF = LebenF - 1
            Delete s.Schuss
      EndIf
   Next
   

Color 255,0,0
Rect 0,0,800,50
Color 0,255,0
Text 100,20,"Leben der Feuerwand: " + LebenF
Text 0,50, Leben
Color 50,50,255
Rect 5,590,Wasservorrat,10


Flip
Cls
Until KeyHit(1)

End Function


und hier die zwei types:

Type Schuss
Field x
Field y
Field Geschwindigkeit
End Type

Type Schuss2
Field x
Field y
Field Geschwindigkeit
End Type