Hi!
Ich hab jetzt ein Pong spiel etwas geändert... und zwar hab ich den "Balken" zu einem Zylinder gemacht... und der Ball ist jetzt ein Puck!
Das blöde ist nur das jetzt gar nichts mehr richtig funktioniert und ich selbst kann mir auch nicht weiter helfen!
Ich hab euch hier die exe Datei hochgeladen damit ihr selbst sehen könnt was ich meine! Dazu muss ich sagen, dass in der Version die ich euch jetzt gebe nichts funktioniert außer die Collisions Sache!
Der quelltext des Collisionsmanager ist:
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];
GLCylinder3.Position.X := GLCylinder3.Position.X + 0.4;
refelectball := true;
end;
end;
if ((object1.Name <>'GLCylinder4') or (object2.Name <>'GLCylinder4')) then begin
refelectBall:=False;
end;
end;
Wobei GLCylinder4 der "Balken" und GLCylinder3 der "Puck" ist!
Mein Problem ist nun: Ich will den Abprall besser haben! Ich hoffe auf eure Vorschläge oder Code schnipsel!
Danke schonmal!!