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;