Breakout Clon

[Neutral General]

Jaaa das kann sein
Hab mich damit noch nicht so richtig befasst aber das Hauptproblem ist ja das man viel zu viele Steine auf einmal abräumt ...
Ich hab herausgefunden das das immer passiert wenn es mehr als eine Kollision gibt ...
Weis jemand denn wie ich das ändern könnte ?

Hier ist die Kollisionsabfrage :

Delphi-Quellcode:

procedure TStein1.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if (Sprite is TBall) and (Visible = true) then begin
 if Sprite.X > X then begin
  XGeschwindigkeit := XGeschwindigkeit *1;
  YGeschwindigkeit := yGeschwindigkeit *-1;
  Punkte := Punkte + 10 +random(2);
 end
 else
 if (Sprite.X < X)  then begin
  XGeschwindigkeit := XGeschwindigkeit *1;
  YGeschwindigkeit := YGeschwindigkeit *-1;
  Punkte := Punkte + 10 +random(2);
 end
 else
 if Sprite.Y < Y then begin
  YGeschwindigkeit := YGeschwindigkeit *-1;
  XGeschwindigkeit := XGeschwindigkeit *1;
  Punkte := Punkte + 10 +random(2);
 end
 else
 if Sprite.Y > Y then begin
  YGeschwindigkeit := YGeschwindigkeit *-1;
  XGeschwindigkeit := XGeschwindigkeit *1;
  Punkte := Punkte + 10 +random(2);
 end;
end;
end;