OK... ich hab die makierte Zeile jetzt entfernt!
Neues Problem:
Der "Balken" geht nun durch den Puck durch...
Folge Problem:
Der Puck bleibt manchmal an ihm kleben oder weiß nicht mehr wo er hin soll!
Delphi-Quellcode:
procedure TForm1.CollisionManager1Collision(Sender: TObject; object1,
object2: TGLBaseSceneObject);
begin
if ((object1.Name='GLCylinder4') or (object2.Name='GLCylinder4')) then begin
if refelectball = false then begin
ballVector[1]:=-ballVector[1];
ballVector[0]:=ballVector[0];
refelectball := true;
end;
end;
if ((object1.Name <>'GLCylinder4') or (object2.Name <>'GLCylinder4')) then begin
refelectBall:=False;
end;
end;
Hier nochmal zum angucken!