Break out [Fragen]

[furkan_42]

Abend,
Versuche in der letzten zeit mein eigenes breakout in Vb zu programmieren.
Mein problem ist das wenn alle steine nicht "sichtbar" sind das das spiel endet.
Quelltext zu meinen Steinen ist:

For Index = 0 To Stein().Count - 1
If Stein(Index).Visible = True And _
ball.Top < Stein(Index).Top + Stein(Index).Height And _
ball.Left + 0.5 * ball.Width >= Stein(Index).Left And _
ball.Left + 0.5 * ball.Width <= Stein(Index).Left + Stein(Index).Width Then
Stein(Index).Visible = False
Y = -Y
End If
Next Index

Und wei kann ich einen zähler dazu machen das dei Steine zählt.

 

[DrSoong]

Mach es doch auch in einer Schleife mit einer Bool-Variable:

 bAlleWeg = True
For Index = 0 To Stein().Count - 1
 If Stein(Index).Visible = True Then bAlleWeg = False
Next Index
If bAlleWeg = True Then
 'Alle deine Steine weg

Der Doc!