Und nochmal Kollision - Ball zu Ball

[Airblader]

Hi,
hab leider wieder ein Kollisionsproblem.
Ich will, dass 2 Bälle kollidieren und dabei realistisch abgeprallt weiterfliegen.

Ich hab nun Code gefunden und versucht für mich umzuformen, Ergebnis:

Delphi-Quellcode:

CollisionVec.X := ((Self.FPosition.X + Self.FRadius div 2) / 2) + ((Other.FPosition.X + Other.FRadius div 2) / 2);
CollisionVec.Y := ((Self.FPosition.Y + Self.FRadius div 2) / 2) + ((Other.FPosition.Y + Other.FRadius div 2) / 2);

Self.FAngle := ArcTan2(CollisionVec.Y - (Self.FPosition.Y + Self.FRadius div 2), (Self.FPosition.X + Self.FRadius div 2) - CollisionVec.X);

Code wird ausgeführt, sofern die Bälle kollidieren.
Momentan fliegen die Bälle bei Kollision aber einfach nurnoch nach Rechts O_o

air